%----------------------------------------------------------------------------%
% Cassette-cover macros for TeX: CASCFONT.TEX (font selection)               %
% Files supplied: CASCOVER.TEX, CASCFONT.TEX, NORMAL.CAS, SMALL.CAS,         %
%                 CCMANMAC.TEX, MANUAL.TEX, MANUAL.DVI, MANUAL.DOC,          %
%                 EXAMPLES.TEX, EXAMPLES.DVI                                 %
% Author: Stijn Raaijmakers                                                  %
% Date: 10/2/94                                                              %
% Package is freeware.                                                       %
%----------------------------------------------------------------------------%

\newcount\fontsize \newcount\fonttype
\font\twelverm=cmr12   \font\sevencond=cmrcd7
\font\twelveit=cmti12  \font\sevenit=cmti7
\let\twelvecond=\relax \let\tencond=\relax
\def\small{\fontsize=0 \updatefont}   \def\rm{\fonttype=0 \updatefont}
\def\normalsize{\fontsize=1 \updatefont}
\def\large{\fontsize=2 \updatefont}   \def\it{\fonttype=1 \updatefont}
\def\cond{\fonttype=2 \updatefont}
\def\updatefont{\ifcase\fonttype
  \ifcase\fontsize \sevenrm   \or\tenrm   \or\twelverm   \fi \or
  \ifcase\fontsize \sevenit   \or\tenit   \or\twelveit   \fi \or
  \ifcase\fontsize \sevencond \or\tencond \or\twelvecond \fi \fi
  \baselineskip=\ifcase\fontsize 9pt \or12pt \or14pt \fi}
\let\em=\it
\rm\normalsize