% This AmSTeX file defines the macros "\boldfraktur" for use in math mode
% and "\bfr" 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 eufb*. Say "\input useboldfraktur" immediately after
% the "\documentstyle" command.
% Brad Lucier
\catcode`\@=11
\newfam\bfrfam % bold fraktur
\def\boldfraktur{\relaxnext@\ifmmode\let\next\boldfraktur@\else
 \def\next{\Err@{Use \string\boldfraktur\space only in math mode}}\fi\next}
\def\boldfraktur@#1{{\boldfraktur@@{#1}}}
\def\boldfraktur@@#1{\fam\bfrfam#1}
\font@\tenbfr=eufb10     % bold fraktur
%\font@\ninebfr=eufb9
%\font@\eightbfr=eufb8
\font@\sevenbfr=eufb7
%\font@\sixbfr=eufb6
\font@\fivebfr=eufb5
\toks0=\expandafter{\tenpoint
\ifsyntax@\else\textfont@\bfr\tenbfr
 \textfont\bfrfam=\tenbfr
 \scriptfont\bfrfam=\sevenbfr
 \scriptscriptfont\bfrfam=\fivebfr
\fi}
\edef\tenpoint{\the\toks0}
%\toks0=\expandafter{\eightpoint
%\ifsyntax@\else \textfont@\bfr\eightbfr
% \textfont\bfrfam=\eightbfr
% \scriptfont\bfrfam=\sixbfr
% \scriptscriptfont\bfrfam=\fivebfr
%\fi}
%\edef\eightpoint{\the\toks0}
\tenpoint
\catcode`\@=\active
