% This AmSTeX file defines the macros "\script" 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 eusm*. Say "\input usescript" immediately after
% the "\documentstyle" command.

% Brad Lucier
\catcode`\@=11
\newfam\scfam  % script
\font@\tensc=eusm10     % script
%\font@\ninesc=eusm9
%\font@\eightsc=eusm8
\font@\sevensc=eusm7
%\font@\sixsc=eusm6
\font@\fivesc=eusm5
\def\script{\relaxnext@\ifmmode\let\next\script@\else
 \def\next{\Err@{Use \string\script\space only in math mode}}\fi\next}
\def\script@#1{{\script@@{#1}}}
\def\script@@#1{\noaccents@\fam\scfam#1}
\toks0=\expandafter{\tenpoint
\ifsyntax@\else\textfont\scfam=\tensc
 \scriptfont\scfam=\sevensc
 \scriptscriptfont\scfam=\fivesc
\fi}
\edef\tenpoint{\the\toks0}
%\toks0=\expandafter{\eightpoint
%\ifsyntax@\else\textfont\scfam=\eightsc
% \scriptfont\scfam=\sixsc
% \scriptscriptfont\scfam=\fivesc
%\fi}
%\edef\eightpoint{\the\toks0}
\tenpoint
\catcode`\@=\active
