% This AmSTeX file defines the macros "\fraktur" for use in math mode
% and "\fr" for use in text mode.  This file assumes that "\tenpoint"
% and "\eightpoint" macros are defined in roughly the same way as in
% amsppt.sty (so it will work with most AmSTeX style files). It uses
% the Euler fonts eufm*. Say "\input usefraktur" immediately after
% the "\documentstyle" command.

% Brad Lucier
\catcode`\@=11
\newfam\frfam 
\def\fraktur{\relaxnext@\ifmmode\let\next\fraktur@\else
 \def\next{\Err@{Use \string\fraktur\space only in math mode}}\fi\next}
\def\fraktur@#1{{\fraktur@@{#1}}}
\def\fraktur@@#1{\fam\frfam#1}
\font@\twentyfourfr=eufm24
\font@\tenfr=eufm10
%\font@\ninefr=eufm9
%\font@\eightfr=eufm8
\font@\sevenfr=eufm7
%\font@\sixfr=eufm6
\font@\fivefr=eufm5
\toks0=\expandafter{\tenpoint
\ifsyntax@\else\textfont@\fr\tenfr
 \textfont\frfam=\tenfr
 \scriptfont\frfam=\sevenfr
 \scriptscriptfont\frfam=\fivefr
\fi}
\edef\tenpoint{\the\toks0}
%\toks0=\expandafter{\eightpoint
%\ifsyntax@\else\textfont@\fr\eightfr
% \textfont\frfam=\eightfr
% \scriptfont\frfam=\sixfr
% \scriptscriptfont\frfam=\fivefr
%\fi}
%\edef\eightpoint{\the\toks0}
\tenpoint
\catcode`\@=\active
