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

% Defines the \tt (typewriter) font style

\catcode`@=11 \endlinechar=-1

  \message{tt style ...}

  % Style switching

    \newfam\ttfam 
    \def\tt{\fam\ttfam\relax\let\curstyle=\tt\ttfont}

  % Size switching

    \appendef\bigsizeswitch{
      \let\ttfont=\bigTXttfont
      \basefont\ttfam=\bigBAttfont
      \scriptfont\ttfam=\bigSCttfont
      \scriptscriptfont\ttfam=\bigSSttfont
    }

    \appendef\norsizeswitch{
      \let\ttfont=\norTXttfont
      \basefont\ttfam=\norBAttfont
      \scriptfont\ttfam=\norSCttfont
      \scriptscriptfont\ttfam=\norSSttfont
    }

    \appendef\smasizeswitch{
      \let\ttfont=\smaTXttfont
      \basefont\ttfam=\smaBAttfont
      \scriptfont\ttfam=\smaSCttfont
      \scriptscriptfont\ttfam=\smaSSttfont
    }

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

% END
