%\filename{scfontmacros.tex}
%\edited{last by stolfi on Sat Mar  7 02:37:57 1987}

\catcode`@=11 \endlinechar=-1

% Defines the \sc (caps and small caps) font style

  \message{sc style ...}

  % Style switching

    \newfam\scfam 
    \def\sc{\fam\scfam\relax\let\curstyle=\sc\scfont}

  % Size switching

    \appendef\bigsizeswitch{
      \let\scfont=\bigTXscfont
      \basefont\scfam=\bigBAscfont
      \scriptfont\scfam=\bigSCscfont
      \scriptscriptfont\scfam=\bigSSscfont
    }

    \appendef\norsizeswitch{
      \let\scfont=\norTXscfont
      \basefont\scfam=\norBAscfont
      \scriptfont\scfam=\norSCscfont
      \scriptscriptfont\scfam=\norSSscfont
    }

    \appendef\smasizeswitch{
      \let\scfont=\smaTXscfont
      \basefont\scfam=\smaBAscfont
      \scriptfont\scfam=\smaSCscfont
      \scriptscriptfont\scfam=\smaSSscfont
    }

\catcode`@=12 \endlinechar=`\^^M

% END


