summaryrefslogtreecommitdiff
path: root/macros/latex209/contrib/misc/euler.sty
blob: 407405fcce00104b761d305a2387b39a9570d55a (plain)
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
%  The following lines establish the use of the Euler Fraktur font.
% Calling sequence: \documentstyle[...,euler,...]{....}
% Slightly modified from a version snarfed from LISTSERV at DHDURZ1
% The modification is using the command \@addto to
% modify the virtual font size definitions later used
% by ARTxx.STY or REPxx.STy or so on.
% I found \@addto in VDM.STY by Mario Wolcko.
% The advantage is that using this trick you can add
% different families of fonts to the existing LATEX fonts
% and the later style options do not remove font families added
% by previous style option.  So you can add selectively
% e.g. the MSXMxx and MSYMxx families and later also
% the Euler Fraktur and the cyrillic fonts without any changes
% in the style files. Without \@addto this is rather difficult
% to accomplish.
% Updates 11/20/1988 by E. Neuwirth (A4422DAB at AWIUNI11)
 
    \def\@addto#1#2{\ifx#1\undefined % do nothing
                \else    \toks0=\expandafter{#1}\toks1={#2}%
                \global\edef#1{\the\toks0 \the\toks1 }\fi}
 
 
 
 
\catcode`@=11
 
\def\relaxnext@{\let\next\relax}
 
%\font\twfveuf=eufm10   \@magscale5
\font\twtyeuf=eufm10   \@magscale4
\font\svtneuf=eufm10   \@magscale3
\font\frtneuf=eufm10   \@magscale2
\font\twelveeuf=eufm10 \@magscale1
\font\eleveneuf=eufm10 \@halfmag
\font\teneuf=eufm10
\font\nineeuf=eufm9
\font\eighteuf=eufm8
\font\seveneuf=eufm7
\font\sixeuf=eufm6
\font\fiveeuf=eufm5
 
\newfam\euffam
 
% Hier sind jetzt geaenderte LFONTS Definitionen (fuer LaTeX)
 
\@addto\@vpt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\fiveeuf}\textfont\euffam=\fiveeuf
     \scriptfont\euffam=\fiveeuf \scriptscriptfont\euffam=\fiveeuf
\@setstrut\rm}
 
 
\@addto\@vipt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\sixeuf}\textfont\euffam=\sixeuf
     \scriptfont\euffam=\sixeuf \scriptscriptfont\euffam=\sixeuf
\@setstrut\rm}
 
 
\@addto\@viipt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\seveneuf}\textfont\euffam=\seveneuf
     \scriptfont\euffam=\fiveeuf \scriptscriptfont\euffam=\fiveeuf
\@setstrut \rm}
 
 
\@addto\@viiipt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\eighteuf}\textfont\euffam=\eighteuf
     \scriptfont\euffam=\sixeuf \scriptscriptfont\euffam=\fiveeuf
\@setstrut \rm}
 
 
\@addto\@ixpt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\nineeuf}\textfont\euffam=\nineeuf
     \scriptfont\euffam=\sixeuf \scriptscriptfont\euffam=\fiveeuf
\@setstrut \rm}
 
 
\@addto\@xpt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\teneuf}\textfont\euffam=\teneuf
    \scriptfont\euffam=\seveneuf \scriptscriptfont\euffam=\fiveeuf
\@setstrut \rm}
 
 
\@addto\@xipt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\eleveneuf}\textfont\euffam=\eleveneuf
    \scriptfont\euffam=\eighteuf \scriptscriptfont\euffam=\sixeuf
\@setstrut \rm}
 
 
\@addto\@xiipt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\twelveeuf}\textfont\euffam=\twelveeuf
    \scriptfont\euffam=\eighteuf \scriptscriptfont\euffam=\sixeuf
 \@setstrut \rm}
 
 
\@addto\@xivpt{\textfont\z@\frtnrm
% Hier AmS-Fonts
\def\euf{\fam\euffam\frtneuf}\textfont\euffam=\frtneuf
    \scriptfont\euffam=\teneuf \scriptscriptfont\euffam=\seveneuf
\@setstrut \rm}
 
 
\@addto\@xviipt{\textfont\z@\svtnrm
% Hier AmS-Fonts
\def\euf{\fam\euffam\svtneuf}\textfont\euffam=\svtneuf
    \scriptfont\euffam=\twelveeuf \scriptscriptfont\euffam=\teneuf
\@setstrut \rm}
 
 
\@addto\@xxpt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\twtyeuf}\textfont\euffam=\twtyeuf
    \scriptfont\euffam=\frtneuf \scriptscriptfont\euffam=\twelveeuf
\@setstrut \rm}
 
 
\@addto\@xxvpt{
% Hier AmS-Fonts
\def\euf{\fam\euffam\twtyeuf}\textfont\euffam=\twtyeuf
    \scriptfont\euffam=\twtyeuf \scriptscriptfont\euffam=\svtneuf
\@setstrut \rm}
 
 
 
 
 
 
 
 
\def\frak{\relaxnext@\ifmmode\let\next\frak@\else
 \def\next{\Err@{Use \string\frak\space only in math mode}}\fi\next}
\def\goth{\relaxnext@\ifmmode\let\next\frak@\else
 \def\next{\Err@{Use \string\goth\space only in math mode}}\fi\next}
\def\frak@#1{{\frak@@{#1}}}
\def\frak@@#1{  %\noaccents@
\fam\euffam#1}
%  End definition of Euler Fraktur font.
 
\catcode`@=12 % at signs are no longer letters