% This AmSTeX file defines the macros "\boldscript" for use in math mode
% (this is not a text font).  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 eusb*. Say "\input useboldscript" immediately after
% the "\documentstyle" command.

% Brad Lucier
\catcode`\@=11
\newfam\bscfam  % bscript
\font@\tenbsc=eusb10     % bscript
%\font@\ninebsc=eusb9
%\font@\eightbsc=eusb8
\font@\sevenbsc=eusb7
%\font@\sixbsc=eusb6
\font@\fivebsc=eusb5
\def\boldscript{\relaxnext@\ifmmode\let\next\boldscript@\else
 \def\next{\Err@{Use \string\boldscript\space only in math mode}}\fi\next}
\def\boldscript@#1{{\boldscript@@{#1}}}
\def\boldscript@@#1{\noaccents@\fam\bscfam#1}
\toks0=\expandafter{\tenpoint
\ifsyntax@\else\textfont\bscfam=\tenbsc
 \scriptfont\bscfam=\sevenbsc
 \scriptscriptfont\bscfam=\fivebsc
\fi}
\edef\tenpoint{\the\toks0}
%\toks0=\expandafter{\eightpoint
%\ifsyntax@\else\textfont\bscfam=\eightbsc
% \scriptfont\bscfam=\sixbsc
% \scriptscriptfont\bscfam=\fivebsc
%\fi}
%\edef\eightpoint{\the\toks0}
\tenpoint
\catcode`\@=\active
