%  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