1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
%D \module
%D [ file=font-eul,
%D version=1995.1.1,
%D title=\CONTEXT\ Font Macros,
%D subtitle=Euler,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%D The Euler Fonts are designed by Herman Zapf and can be
%D used with the Concrete Fonts defined elsewhere.
\definebodyfont [12pt] [mm] % scaled \magstep1
[mi=eurm10 at 12pt,
ex=euex10 at 12pt,
ma=euex10 at 12pt,
mb=eusm10 at 12pt,
mc=eufm10 at 12pt]
\definebodyfont [11pt] [mm] % scaled \magstephalf
[mi=eurm10 at 11pt,
ex=euex10 at 11pt,
ma=euex10 at 11pt,
mb=eusm10 at 11pt,
mc=eufm10 at 11pt]
\definebodyfont [10pt] [mm]
[mi=eurm10,
ex=euex10,
ma=euex10,
mb=eusm10,
mc=eufm10]
\definebodyfont [9pt] [mm]
[mi=eurm10 at 9pt,
ex=euex10 at 9pt,
ma=euex10 at 9pt,
mb=eusm10 at 9pt,
mc=eufm10 at 9pt]
\definebodyfont [8pt] [mm]
[mi=eurm7 at 8pt,
ex=euex10 at 8pt,
ma=euex10 at 8pt,
mb=eusm7 at 8pt,
mc=eufm7 at 8pt]
\definebodyfont [7pt] [mm]
[mi=eurm7,
ex=euex10 at 7pt,
ma=euex10 at 7pt,
mb=eusm7,
mc=eufm7]
\definebodyfont [6pt] [mm]
[mi=eurm7 at 6pt,
ex=euex10 at 6pt,
ma=euex10 at 6pt,
mb=eusm7 at 6pt,
mc=eufm7 at 6pt]
\definebodyfont [5pt] [mm]
[mi=eurm5,
ex=euex10 at 5pt,
ma=euex10 at 5pt,
mb=eusm5,
mc=eufm5]
%D Here we copy part of the files that are distributed along
%D with these fonts, but first we define some extra families.
\let\exfam=\mafam % was A
\let\smfam=\mbfam % was 8
\let\fmfam=\mcfam % was 9
\let\hexexfam=\hexmafam
\let\hexsmfam=\hexmbfam
\let\hexfmfam=\hexmcfam
%D Now we're up to the redefinitions.
\mathcode`0="7130
\mathcode`1="7131
\mathcode`2="7132
\mathcode`3="7133
\mathcode`4="7134
\mathcode`5="7135
\mathcode`6="7136
\mathcode`7="7137
\mathcode`8="7138
\mathcode`9="7139
\mathchardef\intop ="1\hexexfam 52
\mathchardef\ointop ="1\hexexfam 48
\mathchardef\coprod ="1\hexexfam 60
\mathchardef\prod ="1\hexexfam 51
\mathchardef\sum ="1\hexexfam 50
\mathchardef\braceld ="\hexexfam 7A
\mathchardef\bracerd ="\hexexfam 7B
\mathchardef\bracelu ="\hexexfam 7C
\mathchardef\braceru ="\hexexfam 7D
\mathchardef\infty ="0\hexexfam 31
\mathchardef\nearrow ="3\hexexfam 25
\mathchardef\searrow ="3\hexexfam 26
\mathchardef\nwarrow ="3\hexexfam 2D
\mathchardef\swarrow ="3\hexexfam 2E
\mathchardef\Leftrightarrow ="3\hexexfam 2C
\mathchardef\Leftarrow ="3\hexexfam 28
\mathchardef\Rightarrow ="3\hexexfam 29
\mathchardef\leftrightarrow ="3\hexexfam 24
\mathchardef\leftarrow ="3\hexexfam 20
\mathchardef\rightarrow ="3\hexexfam 21
\let\gets =\leftarrow
\let\to =\rightarrow
\mathcode`\^^W ="3\hexexfam 24
\mathcode`\^^X ="3\hexexfam 20
\mathcode`\^^Y ="3\hexexfam 21
\mathcode`\^^K ="3\hexexfam 22
\mathcode`\^^A ="3\hexexfam 23
\def\uparrow {\delimiter"3\hexexfam 22378 }
\def\downarrow {\delimiter"3\hexexfam 23379 }
\def\updownarrow {\delimiter"3\hexexfam 6C33F }
\def\Uparrow {\delimiter"3\hexexfam 2A37E }
\def\Downarrow {\delimiter"3\hexexfam 2B37F }
\def\Updownarrow {\delimiter"3\hexexfam 6D377 }
\mathchardef\leftharpoonup ="3\hexexfam 18
\mathchardef\leftharpoondown ="3\hexexfam 19
\mathchardef\rightharpoonup ="3\hexexfam 1A
\mathchardef\rightharpoondown ="3\hexexfam 1B
\mathcode`+="2\hexfmfam 2B
\mathcode`-="2\hexfmfam 2D
\mathcode`!="0\hexfmfam 21
\mathcode`(="4\hexfmfam 28 \delcode`(="\hexfmfam 28300
\mathcode`)="5\hexfmfam 29 \delcode`)="\hexfmfam 29301
\mathcode`[="4\hexfmfam 5B \delcode`[="\hexfmfam 5B302
\mathcode`]="5\hexfmfam 5D \delcode`]="\hexfmfam 5D303
\mathcode`=="3\hexfmfam 3D
\mathchardef\Relbar ="303D % we need the old = to match \Arrows
\mathchardef\Gamma ="7100
\mathchardef\Delta ="7101
\mathchardef\Theta ="7102
\mathchardef\Lambda ="7103
\mathchardef\Xi ="7104
\mathchardef\Pi ="7105
\mathchardef\Sigma ="7106
\mathchardef\Upsilon ="7107
\mathchardef\Phi ="7108
\mathchardef\Psi ="7109
\mathchardef\Omega ="710A
\let\varsigma =\sigma % Euler doesn't have these
\let\varrho =\rho % Euler doesn't have these
\mathchardef\aleph ="0D40
\def\rbrace {\delimiter"5\hexsmfam 67A09 } \let\}=\rbrace
\def\lbrace {\delimiter"4\hexsmfam 66A08 } \let\{=\lbrace
\mathchardef\leq ="3\hexsmfam 14 \let\le=\leq
\mathchardef\geq ="3\hexsmfam 15 \let\ge=\geq
\mathchardef\Re ="0\hexsmfam 3C
\mathchardef\Im ="0\hexsmfam 3D
\def\vert {\delimiter"\hexsmfam 6A30C }
\def\backslash {\delimiter"\hexsmfam 6E30F }
\endinput
|
