Re: Concrete and Euler

[Michal Kvasnicka <quasar@econ.muni.cz>]

[-- Attachment #1: Type: text/plain, Size: 678 bytes --]

> Is there an easy way to make ConTeXt use the Concrete Computer Modern
> font for normal text and the AMS Euler font for math -- like in
> Knuth's book "Concrete Mathematics"?

Good noon.

Some time ago I typeset my PhD thesis with Concrete. You may use my way. (AMS 
Euler I don't know, sorry). You need the file font-csc.tex (included in this 
mail). Then you have to declare it in your document like this:
	\setupbodyfont[csc,11pt]
And the Concrete is used. But allas! It's bitmapped font, i.e. you can't use 
in electronic document (it looks awfully).

Many greetings. 
M.K.

P.S. This way of declaring fonts may be stupid. Don't tell it to Mr. Hagen. 
:-)

[-- Attachment #2: font-csc.tex --]
[-- Type: text/x-tex, Size: 3180 bytes --]

%D \module
%D   [       file=font-con,
%D        version=1995.1.1,
%D          title=\CONTEXT\ Font Macros,
%D       subtitle=Concrete Roman,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for 
%C details. 

%D The Concrete Modern Roman is just an alternative Computer 
%D Modern Roman. 

\definebodyfont [12pt] [rm] 
  [tf=cscr10   at 12pt,   % scaled \magstep1
   tfa=cscr10  at 14.4pt,
   tfb=cscr10  at 17.28pt,
   tfc=cscr10  at 20.74pt,
   tfd=cscr10  at 24.88pt,
   bf=cscbx10  at 12pt,
   bfa=cscbx10 at 14.4pt,
   bfb=cscbx10 at 17.28pt,
   bfc=cscbx10 at 20.74pt,
   bfd=cscbx10 at 24.88pt,
   it=cscti10  at 12pt,   % scaled \magstep1
   sl=cscsl10  at 12pt,   % scaled \magstep1
   sc=csccsc10 at 12pt]   % scaled \magstep1

\definebodyfont [12pt] [mm]
  [mr=cscr10   at 12pt,
   ex=xccex10 at 12pt,
   mi=xccmi10 at 12pt,
   sy=xccsy10 at 12pt]

\definebodyfont [11pt] [rm] 
  [tf=cscr10   at 11pt,   % scaled \magstephalf
   tfa=cscr10  at 13.2pt,
   tfb=cscr10  at 15.84pt,
   tfc=cscr10  at 19pt,
   tfd=cscr10  at 22.8pt,
   bf=cscbx10  at 11pt,
   bfa=cscbx10 at 13.2pt,
   bfb=cscbx10 at 15.84pt,
   bfc=cscbx10 at 19pt,
   bfd=cscbx10 at 22.8pt,
   it=cscti10  at 11pt,   % scaled \magstephalf
   sl=cscsl10  at 11pt,   % scaled \magstephalf
   sc=csccsc10 at 11pt]   % scaled \magstephalf

\definebodyfont [11pt] [mm]
  [mr=cscr10   at 11pt,
   ex=xccex10 at 11pt,
   mi=xccmi10 at 11pt,
   sy=xccsy10 at 11pt]

\definebodyfont [10pt] [rm] 
  [tf=cscr10,
   tfa=cscr10 scaled \magstep1,
   tfb=cscr10 scaled \magstep2,
   tfc=cscr10 scaled \magstep3,
   tfd=cscr10 scaled \magstep4,
   bf=cscbx10,
   bfa=cscbx10 scaled \magstep1,
   bfb=cscbx10 scaled \magstep2,
   bfc=cscbx10 scaled \magstep3,
   bfd=cscbx10 scaled \magstep4,
   it=cscti10,
   sl=cscsl10,
   sc=csccsc10]

\definebodyfont [10pt] [mm]
  [mr=cscr10,
   ex=xccex10 at 10pt,
   mi=xccmi10 at 10pt,
   sy=xccsy10 at 10pt]

\definebodyfont [9pt] [rm] 
  [tf=cscr9,
   bf=cscbx10 at 9pt,
   it=cscti10 at 9pt,
   sl=cscsl10 at 9pt,
   sc=csccsc10 at 9pt]

\definebodyfont [9pt] [mm]
  [mr=cscr9,
   ex=xccex9,
   mi=xccmi9,
   sy=xccsy9]

\definebodyfont [8pt] [rm] 
  [tf=cscr8,
   bf=cscbx10 at 8pt,
   it=cscti10 at 8pt,
   sl=cscsl10 at 8pt,
   sc=csccsc10 at 8pt]

\definebodyfont [8pt] [mm]
  [mr=cscr8,
   ex=xccex8,
   mi=xccmi8,
   sy=xccsy8]

\definebodyfont [7pt] [rm] 
  [tf=cscr7,
   bf=cscbx10 at 7pt,
   it=cscti10 at 7pt,
   sl=cscsl10 at 7pt,
   sc=csccsc10 at 7pt]

\definebodyfont [7pt] [mm]
  [mr=cscr7,
   ex=xccex7,
   mi=xccmi7,
   sy=xccsy7]

\definebodyfont [6pt] [rm] 
  [tf=cscr6,
   bf=cscbx10 at 6pt,
   it=cscti10 at 6pt,
   sl=cscsl10 at 6pt,
   sc=csccsc10 at 6pt]

\definebodyfont [6pt] [mm]
  [mr=cscr6,
   ex=xccex6,
   mi=xccmi6,
   sy=xccsy6]

\definebodyfont [5pt] [rm] 
  [tf=cscr5,
   bf=cscbx10 at 5pt,
   it=cscti10 at 10pt,
   sl=cscsl10 at 10pt,
   sc=csccsc10 at 10pt]

\definebodyfont [5pt] [mm]
  [mr=cscr5,
   ex=xccex5,
   mi=xccmi5,
   sy=xccsy5]

\endinput