% GGFONTCM.TEX, VERSION 3.2A
% November 24, 1997
% Written by Alan Guth

% Font definition file for CM fonts
% Fonts are defined by independently specifying a size, style,
%    and mode, from the following chart:
%
%       Sizes             Styles           Modes     
%       \small            \normal          \roman    
%       \normalsize       \bf              \sansserif
%       \large            \it                        
%       \vlarge           \sl                        
%       \titlefont        \bfit                      
%       \largetitlefont   \altss (sansserif only)    
%
% To change the math fonts to correspond to the current text
%    fonts, use the command \setmath
%
% AM version was written August, 1992
% CM version written February, 1994
% CM versions modified 10/10/94 to fix an error in the following
%   1200 font definitions:
%      \fntsub\sstitleit{cmssi10 at 24.88truept}
%      \fntsub\ssltitleit{cmssi10 at 29.86truept}
%   which should be \fnt, not \fntsub
% Modified 11/25/94 to allow the font file to be input before
%    gletter.tex, gmacro.tex, or gsmacro.tex.  Details described
%    in PRIMARY INPUT PACKAGE below. 
% Modified 9/2/96 to change \ifggfont to \ifparspec (parameter
%    specified).  Also suppressed writing of \newcount registers
%    to the screen and log files.
% Modified 11/23/96 (Ver 3.1) to globalize all relevant
%    definitions, since I now want to have \loadfonts executed by
%    \makeletter, so that font choices can be specified after
%    loading gletter.
% Modified 11/24/97 (Ver 3.2A) to add support for magnification
%    1095, in addition to 1000 and 1200.  So far, however, I have
%    not tried to find a set of 1095 fonts that actually exist on
%    my machine.

% PRIMARY INPUT PACKAGE:
% Additions (11/25/94) to allow font file to be input before
%    gletter.tex, gmacro.tex, or gsmacro.tex.
% Magnification setting:
%    This file determines if the magnification has already been
%    set by another input file by seeing if the macro \magset is
%    defined.  If not, then the magnification is set here.  This
%    file determines if the magnification has been set explicitly
%    to 1000 by seeing if \count255=1000, since \count255 is set
%    in executing the \magnification macro.  If the magnification
%    is 1000 and was not set explicitly, it is changed to the
%    default value, 1200:
   \def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
      % Above macro from Exercise 7.7 of the TeXbook (1984).
   \ifundefined{magset}
      \ifnum \mag=1000 
         \ifnum \count255=1000 \else \magnification=1200 \fi
      \fi
   \fi
% So that subsequent input packages (e.g., gletter, etc.) can
%    know that magnification and fonts have been defined, \magset
%    and \iffontsdefined are defined:
   \gdef\magset{true}
   \newif\iffontsdefined \global\fontsdefinedtrue
   \newif\ifcm \global\cmtrue
   \newif\ifparspec \global\parspectrue
% End of PRIMARY INPUT PACKAGE


% 
%             Sizes             Styles           Modes
%      0.     \small            \normal          \roman
%      1.     \normalsize       \bf              \sansserif
%      2.     \large            \it
%      3.     \vlarge           \sl
%      4.     \titlefont        \bfit
%      5.     \largetitlefont   \altss (sansserif only)    
% 
%             \nsize            \nstyle          \nmode

% If gletter, gmacro, or similar file run first, then output of
%    \newcount to the log file can be avoided by
\def\writelog#1#2{}
    \newcount\nsize \newcount\nstyle \newcount\nmode
%Restore original meaning to \alloc@ and \newinsert
\def\writelog#1#2{\wlog{\string#1=\string#2\the\allocationnumber}}

\global\nsize=1 \global\nstyle=0 \global\nmode=0

\gdef\roman{\nmode=0 \setfont \setmath}
\gdef\sansserif{\nmode=1 \setfont \setmath}
\gdef\normal{\nstyle=0 \setfont}
\gdef\bf{\nstyle=1 \setfont}
\gdef\it{\nstyle=2 \setfont}
\gdef\sl{\nstyle=3 \setfont}
\gdef\bfit{\nstyle=4 \setfont}
\gdef\altss{\nmode=1 \nstyle=5 \setfont}  % alt sets sansserif
\gdef\small{\nsize=0 \setfont}
\gdef\normalsize{\nsize=1 \setfont}
\gdef\large{\nsize=2 \setfont}
\gdef\vlarge{\nsize=3 \setfont}
\gdef\titlefont{\nsize=4 \setfont}
\gdef\largetitlefont{\nsize=5 \setfont}


\gdef\setfont{%
  \ifcase \nmode %Roman
     \ifcase \nstyle % \normal
        \ifcase \nsize 
            \rsmallnorm  % \small
        \or \rnorm       % \normalsize
        \or \rlargenorm  % \large
        \or \rvlargenorm % \vlarge
        \or \rtitlenorm  % \titlefont
        \or \rltitlenorm % \largetitlefont
        \fi
     \or % \bf
        \ifcase \nsize 
            \rsmallbf  % \small
        \or \rbf       % \normalsize
        \or \rlargebf  % \large
        \or \rvlargebf % \vlarge
        \or \rtitlebf  % \titlefont
        \or \rltitlebf % \largetitlefont
        \fi
     \or % \it
        \ifcase \nsize 
            \rsmallit  % \small
        \or \rit       % \normalsize
        \or \rlargeit  % \large
        \or \rvlargeit % \vlarge
        \or \rtitleit  % \titlefont
        \or \rltitleit % \largetitlefont
        \fi
     \or % \sl
        \ifcase \nsize 
            \rsmallsl  % \small
        \or \rsl       % \normalsize
        \or \rlargesl  % \large
        \or \rvlargesl % \vlarge
        \or \rtitlesl  % \titlefont
        \or \rltitlesl % \largetitlefont
        \fi
     \or % \bfit
        \ifcase \nsize 
            \rsmallbfit  % \small
        \or \rbfit       % \normalsize
        \or \rlargebfit  % \large
        \or \rvlargebfit % \vlarge
        \or \rtitlebfit  % \titlefont
        \or \rltitlebfit % \largetitlefont
        \fi
     \fi
  \or %Sansserif
     \ifcase \nstyle % \normal
        \ifcase \nsize 
            \sssmallnorm  % \small
        \or \ssnorm       % \normalsize
        \or \sslargenorm  % \large
        \or \ssvlargenorm % \vlarge
        \or \sstitlenorm  % \titlefont
        \or \ssltitlenorm % \largetitlefont
        \fi
     \or % \bf
        \ifcase \nsize 
            \sssmallbf  % \small
        \or \ssbf       % \normalsize
        \or \sslargebf  % \large
        \or \ssvlargebf % \vlarge
        \or \sstitlebf  % \titlefont
        \or \ssltitlebf % \largetitlefont
        \fi
     \or % \it
        \ifcase \nsize 
            \sssmallit  % \small
        \or \ssit       % \normalsize
        \or \sslargeit  % \large
        \or \ssvlargeit % \vlarge
        \or \sstitleit  % \titlefont
        \or \ssltitleit % \largetitlefont
        \fi
     \or % \sl
        \ifcase \nsize 
            \sssmallsl  % \small
        \or \sssl       % \normalsize
        \or \sslargesl  % \large
        \or \ssvlargesl % \vlarge
        \or \sstitlesl  % \titlefont
        \or \ssltitlesl % \largetitlefont
        \fi
     \or % \bfit
        \ifcase \nsize 
            \sssmallbfit  % \small
        \or \ssbfit       % \normalsize
        \or \sslargebfit  % \large
        \or \ssvlargebfit % \vlarge
        \or \sstitlebfit  % \titlefont
        \or \ssltitlebfit % \largetitlefont
        \fi
     \or % \alt
        \ifcase \nsize 
            \sssmallalt  % \small
        \or \ssalt       % \normalsize
        \or \sslargealt  % \large
        \or \ssvlargealt % \vlarge
        \or \sstitlealt  % \titlefont
        \or \ssltitlealt % \largetitlefont
        \fi
     \fi
  \fi
}

\def\namefont{%
   \ifcase \nmode
      \string\roman
   \or
      \string\sansserif
   \fi
   \ifcase \nsize
      \string\small
   \or
      \string\normalsize
   \or
      \string\large
   \or
      \string\vlarge
   \or
      \string\titlefont
   \or
      \string\largtitlefont
   \fi
   \ifcase \nstyle
      \string\normal
   \or
      \string\bf
   \or
      \string\it
   \or
      \string\sl
   \or
      \string\bfit
   \or
      \string\altss
   \fi
}

\def\fnt#1#2{\gdef#1{\global\font #1 = #2 #1}}
% Example: \fnt\newfont{amr10 scaled 1728}
\def\fntsub#1#2#3{\def#1{\immediate\write16{Font substitution: 
     \namefont}\immediate\write16{\space\space\space Font #3 not
     available at mag=\the\mag.}\immediate\write16{\space\space
     \space Substituting #2.}\global\font #1 = #2 #1}}
% Example: \fntsub\newfont{amr10 scaled 1728}{amr10 scaled 2500}
%    First font is used.  2nd is font what would be wanted, but
%    which is not present.  The substitution will be noted in a
%    message. 

% Math font nomenclature:

% I will support three styles of math fonts: normal, boldface,
%    and sansserif.  Each will come in as many sizes as I can
%    arrange.  The sansserif fonts are really roman, but are made
%    to look a little bolder by taking, for example, amr8 scaled
%    1200 rather than amr10.  It is necessary to define 4 fonts
%    for each size: roman, math italics, symbol, extended symbol,
%    and each must be defined for text size, script size, and
%    scriptscript size, except that the extended symbols need be
%    defined only for text size.  So I will give each font a
%    5-letter code name:

%     1           2           3             4           5
%              (size)      (style)        (type)      (place)
%
%  m (math)    s (small)   n (normal)    r (roman)    t (text)
%              n (normal)  b (bold)      i (ital)     s (script)
%              b (large)   s (sansserif) s (symbol)   x (scriptscript)
%              x (vlarge)                x (extended)
%              t (title)
%              l (ltitle)

% Each font must be loaded before an assignment such as
%    \textfont0=..., so below I load each font within brackets
%    {} before using.

% Note on \setmath
%    Until 7/16/96, I used a macro that included a conditional
% variable \ifmathbold, which was computed and then used to
% construct font definitions.  But I discovered that this
% prevents a command such as \roman, which calls \setmath, from
% being used inside an expression which is used as the
% replacement text of \edef.  An example of this problem is the
% \nextheadline macro in gletter.  The problem is that when the 
% replacement text of \edef is expanded, command such as \let are
% copied but not executed.  Since \mathboldfalse is translated to
% \let \ifmathbold = \iffalse, the failure to execute \let
% results in an incomplete \iffalse.  The new version of \setmath
% uses no auxiliary variables, but instead defines the options
% first and then chooses them with \ifcase.

\gdef\setmathbold{% Boldface or Boldface Italics
   \ifcase \nsize 
        % \small
      {\msbrt}\textfont0=\msbrt
      {\msbrs}\scriptfont0=\msbrs
      {\msbrx}\scriptscriptfont0=\msbrx
      {\msbit}\textfont1=\msbit
      {\msbis}\scriptfont1=\msbis
      {\msbix}\scriptscriptfont1=\msbix
      {\msbst}\textfont2=\msbst
      {\msbss}\scriptfont2=\msbss
      {\msbsx}\scriptscriptfont2=\msbsx
      {\msbxt}\textfont3=\msbxt
      \scriptfont3=\msbxt
      \scriptscriptfont3=\msbxt
   \or  % \normalsize
      {\mnbrt}\textfont0=\mnbrt
      {\mnbrs}\scriptfont0=\mnbrs
      {\mnbrx}\scriptscriptfont0=\mnbrx
      {\mnbit}\textfont1=\mnbit
      {\mnbis}\scriptfont1=\mnbis
      {\mnbix}\scriptscriptfont1=\mnbix
      {\mnbst}\textfont2=\mnbst
      {\mnbss}\scriptfont2=\mnbss
      {\mnbsx}\scriptscriptfont2=\mnbsx
      {\mnbxt}\textfont3=\mnbxt
      \scriptfont3=\mnbxt
      \scriptscriptfont3=\mnbxt
   \or  % \large
      {\mbbrt}\textfont0=\mbbrt
      {\mbbrs}\scriptfont0=\mbbrs
      {\mbbrx}\scriptscriptfont0=\mbbrx
      {\mbbit}\textfont1=\mbbit
      {\mbbis}\scriptfont1=\mbbis
      {\mbbix}\scriptscriptfont1=\mbbix
      {\mbbst}\textfont2=\mbbst
      {\mbbss}\scriptfont2=\mbbss
      {\mbbsx}\scriptscriptfont2=\mbbsx
      {\mbbxt}\textfont3=\mbbxt
      \scriptfont3=\mbbxt
      \scriptscriptfont3=\mbbxt
   \or  % \vlarge
      {\mxbrt}\textfont0=\mxbrt
      {\mxbrs}\scriptfont0=\mxbrs
      {\mxbrx}\scriptscriptfont0=\mxbrx
      {\mxbit}\textfont1=\mxbit
      {\mxbis}\scriptfont1=\mxbis
      {\mxbix}\scriptscriptfont1=\mxbix
      {\mxbst}\textfont2=\mxbst
      {\mxbss}\scriptfont2=\mxbss
      {\mxbsx}\scriptscriptfont2=\mxbsx
      {\mxbxt}\textfont3=\mxbxt
      \scriptfont3=\mxbxt
      \scriptscriptfont3=\mxbxt
   \or  % \titlefont
      {\mtbrt}\textfont0=\mtbrt
      {\mtbrs}\scriptfont0=\mtbrs
      {\mtbrx}\scriptscriptfont0=\mtbrx
      {\mtbit}\textfont1=\mtbit
      {\mtbis}\scriptfont1=\mtbis
      {\mtbix}\scriptscriptfont1=\mtbix
      {\mtbst}\textfont2=\mtbst
      {\mtbss}\scriptfont2=\mtbss
      {\mtbsx}\scriptscriptfont2=\mtbsx
      {\mtbxt}\textfont3=\mtbxt
      \scriptfont3=\mtbxt
      \scriptscriptfont3=\mtbxt
   \or  % \largetitlefont
      {\mlbrt}\textfont0=\mlbrt
      {\mlbrs}\scriptfont0=\mlbrs
      {\mlbrx}\scriptscriptfont0=\mlbrx
      {\mlbit}\textfont1=\mlbit
      {\mlbis}\scriptfont1=\mlbis
      {\mlbix}\scriptscriptfont1=\mlbix
      {\mlbst}\textfont2=\mlbst
      {\mlbss}\scriptfont2=\mlbss
      {\mlbsx}\scriptscriptfont2=\mlbsx
      {\mlbxt}\textfont3=\mlbxt
      \scriptfont3=\mlbxt
      \scriptscriptfont3=\mlbxt
   \fi
}

\gdef\setmathnobold{% Not Boldface or Boldface Italics
   \ifnum \nmode=0  % Roman
     \ifcase \nsize 
          % \small
        {\msnrt}\textfont0=\msnrt
        {\msnrs}\scriptfont0=\msnrs
        {\msnrx}\scriptscriptfont0=\msnrx
        {\msnit}\textfont1=\msnit
        {\msnis}\scriptfont1=\msnis
        {\msnix}\scriptscriptfont1=\msnix
        {\msnst}\textfont2=\msnst
        {\msnss}\scriptfont2=\msnss
        {\msnsx}\scriptscriptfont2=\msnsx
        {\msnxt}\textfont3=\msnxt
        \scriptfont3=\msnxt
        \scriptscriptfont3=\msnxt
     \or  % \normalsize
        {\mnnrt}\textfont0=\mnnrt
        {\mnnrs}\scriptfont0=\mnnrs
        {\mnnrx}\scriptscriptfont0=\mnnrx
        {\mnnit}\textfont1=\mnnit
        {\mnnis}\scriptfont1=\mnnis
        {\mnnix}\scriptscriptfont1=\mnnix
        {\mnnst}\textfont2=\mnnst
        {\mnnss}\scriptfont2=\mnnss
        {\mnnsx}\scriptscriptfont2=\mnnsx
        {\mnnxt}\textfont3=\mnnxt
        \scriptfont3=\mnnxt
        \scriptscriptfont3=\mnnxt
     \or  % \large
        {\mbnrt}\textfont0=\mbnrt
        {\mbnrs}\scriptfont0=\mbnrs
        {\mbnrx}\scriptscriptfont0=\mbnrx
        {\mbnit}\textfont1=\mbnit
        {\mbnis}\scriptfont1=\mbnis
        {\mbnix}\scriptscriptfont1=\mbnix
        {\mbnst}\textfont2=\mbnst
        {\mbnss}\scriptfont2=\mbnss
        {\mbnsx}\scriptscriptfont2=\mbnsx
        {\mbnxt}\textfont3=\mbnxt
        \scriptfont3=\mbnxt
        \scriptscriptfont3=\mbnxt
     \or  % \vlarge
        {\mxnrt}\textfont0=\mxnrt
        {\mxnrs}\scriptfont0=\mxnrs
        {\mxnrx}\scriptscriptfont0=\mxnrx
        {\mxnit}\textfont1=\mxnit
        {\mxnis}\scriptfont1=\mxnis
        {\mxnix}\scriptscriptfont1=\mxnix
        {\mxnst}\textfont2=\mxnst
        {\mxnss}\scriptfont2=\mxnss
        {\mxnsx}\scriptscriptfont2=\mxnsx
        {\mxnxt}\textfont3=\mxnxt
        \scriptfont3=\mxnxt
        \scriptscriptfont3=\mxnxt
     \or  % \titlefont
        {\mtnrt}\textfont0=\mtnrt
        {\mtnrs}\scriptfont0=\mtnrs
        {\mtnrx}\scriptscriptfont0=\mtnrx
        {\mtnit}\textfont1=\mtnit
        {\mtnis}\scriptfont1=\mtnis
        {\mtnix}\scriptscriptfont1=\mtnix
        {\mtnst}\textfont2=\mtnst
        {\mtnss}\scriptfont2=\mtnss
        {\mtnsx}\scriptscriptfont2=\mtnsx
        {\mtnxt}\textfont3=\mtnxt
        {\mtnxt}\scriptfont3=\mtnxt
        {\mtnxt}\scriptscriptfont3=\mtnxt
     \or  % \largetitlefont
        {\mlnrt}\textfont0=\mlnrt
        {\mlnrs}\scriptfont0=\mlnrs
        {\mlnrx}\scriptscriptfont0=\mlnrx
        {\mlnit}\textfont1=\mlnit
        {\mlnis}\scriptfont1=\mlnis
        {\mlnix}\scriptscriptfont1=\mlnix
        {\mlnst}\textfont2=\mlnst
        {\mlnss}\scriptfont2=\mlnss
        {\mlnsx}\scriptscriptfont2=\mlnsx
        {\mlnxt}\textfont3=\mlnxt
        \scriptfont3=\mlnxt
        \scriptscriptfont3=\mlnxt
     \fi    % End of \ifcase \nsize
   \else            % Sansserif
     \ifcase \nsize 
          % \small
        {\mssrt}\textfont0=\mssrt
        {\mssrs}\scriptfont0=\mssrs
        {\mssrx}\scriptscriptfont0=\mssrx
        {\mssit}\textfont1=\mssit
        {\mssis}\scriptfont1=\mssis
        {\mssix}\scriptscriptfont1=\mssix
        {\mssst}\textfont2=\mssst
        {\mssss}\scriptfont2=\mssss
        {\msssx}\scriptscriptfont2=\msssx
        {\mssxt}\textfont3=\mssxt
        {\mssxt}\scriptfont3=\mssxt
        {\mssxt}\scriptscriptfont3=\mssxt
     \or  % \normalsize
        {\mnsrt}\textfont0=\mnsrt
        {\mnsrs}\scriptfont0=\mnsrs
        {\mnsrx}\scriptscriptfont0=\mnsrx
        {\mnsit}\textfont1=\mnsit
        {\mnsis}\scriptfont1=\mnsis
        {\mnsix}\scriptscriptfont1=\mnsix
        {\mnsst}\textfont2=\mnsst
        {\mnsss}\scriptfont2=\mnsss
        {\mnssx}\scriptscriptfont2=\mnssx
        {\mnsxt}\textfont3=\mnsxt
        \scriptfont3=\mnsxt
        \scriptscriptfont3=\mnsxt
     \or  % \large
        {\mbsrt}\textfont0=\mbsrt
        {\mbsrs}\scriptfont0=\mbsrs
        {\mbsrx}\scriptscriptfont0=\mbsrx
        {\mbsit}\textfont1=\mbsit
        {\mbsis}\scriptfont1=\mbsis
        {\mbsix}\scriptscriptfont1=\mbsix
        {\mbsst}\textfont2=\mbsst
        {\mbsss}\scriptfont2=\mbsss
        {\mbssx}\scriptscriptfont2=\mbssx
        {\mbsxt}\textfont3=\mbsxt
        \scriptfont3=\mbsxt
        \scriptscriptfont3=\mbsxt
     \or  % \vlarge
        {\mxsrt}\textfont0=\mxsrt
        {\mxsrs}\scriptfont0=\mxsrs
        {\mxsrx}\scriptscriptfont0=\mxsrx
        {\mxsit}\textfont1=\mxsit
        {\mxsis}\scriptfont1=\mxsis
        {\mxsix}\scriptscriptfont1=\mxsix
        {\mxsst}\textfont2=\mxsst
        {\mxsss}\scriptfont2=\mxsss
        {\mxssx}\scriptscriptfont2=\mxssx
        {\mxsxt}\textfont3=\mxsxt
        \scriptfont3=\mxsxt
        \scriptscriptfont3=\mxsxt
     \or  % \titlefont
        {\mtsrt}\textfont0=\mtsrt
        {\mtsrs}\scriptfont0=\mtsrs
        {\mtsrx}\scriptscriptfont0=\mtsrx
        {\mtsit}\textfont1=\mtsit
        {\mtsis}\scriptfont1=\mtsis
        {\mtsix}\scriptscriptfont1=\mtsix
        {\mtsst}\textfont2=\mtsst
        {\mtsss}\scriptfont2=\mtsss
        {\mtssx}\scriptscriptfont2=\mtssx
        {\mtsxt}\textfont3=\mtsxt
        \scriptfont3=\mtsxt
        \scriptscriptfont3=\mtsxt
     \or  % \largetitlefont
        {\mlsrt}\textfont0=\mlsrt
        {\mlsrs}\scriptfont0=\mlsrs
        {\mlsrx}\scriptscriptfont0=\mlsrx
        {\mlsit}\textfont1=\mlsit
        {\mlsis}\scriptfont1=\mlsis
        {\mlsix}\scriptscriptfont1=\mlsix
        {\mlsst}\textfont2=\mlsst
        {\mlsss}\scriptfont2=\mlsss
        {\mlssx}\scriptscriptfont2=\mlssx
        {\mlsxt}\textfont3=\mlsxt
        \scriptfont3=\mlsxt
        \scriptscriptfont3=\mlsxt
     \fi   % End of \ifcase \nsize
   \fi   % End of \ifnum \nmode = 0 \else
}

\gdef\setmath{%
   \ifcase \nstyle
      \setmathnobold       % \nstyle = 0, \normal
      \or \setmathbold     % \nstyle = 1, \bf
      \or \setmathnobold   % \nstyle = 2, \it
      \or \setmathnobold   % \nstyle = 3, \sl
      \or \setmathbold     % \nstyle = 4, \bfit
      \or \setmathnobold   % \nstyle = 5, \altss
   \fi
}


% For magnification 1000:
\ifnum \mag=1000
   \global\let\rnorm=\tenrm
   \global\let\rbf=\tenbf
   \global\let\rit=\tenit
   \global\let\rsl=\tensl
   \fnt\rsmallnorm{cmr8}
   \fnt\rlargenorm{cmr10 scaled 1200}
   \fnt\rvlargenorm{cmr10 scaled 1440}
   \fnt\rtitlenorm{cmr10 at 24.88 truept}
   \fnt\rltitlenorm{cmr10 at 29.86truept}
   \fnt\rsmallbf{cmbx8}
   \fnt\rlargebf{cmbx10 scaled 1200}
   \fnt\rvlargebf{cmbx10 scaled 1440}
   \fnt\rtitlebf{cmbx10 at 24.88truept}
   \fnt\rltitlebf{cmbx10 at 29.86truept}
   \fnt\rsmallit{cmti8}
   \fnt\rlargeit{cmti10 scaled 1200}
   \fnt\rvlargeit{cmti10 scaled 1440}
   \fnt\rtitleit{cmti10 at 24.88truept}
   \fnt\rltitleit{cmti10 at 29.86truept}
   \fnt\rsmallsl{cmsl8}
   \fnt\rlargesl{cmsl10 scaled 1200}
   \fnt\rvlargesl{cmsl10 scaled 1440}
   \fnt\rtitlesl{cmsl10 at 24.88truept}
   \fnt\rltitlesl{cmsl10 at 29.86truept}
   \fntsub\rsmallbfit{cmsl8}{cmbxsl10 scaled 800}
   \fnt\rbfit{cmbxsl10}
   \fnt\rlargebfit{cmbxsl10 scaled 1200}
   \fnt\rvlargebfit{cmbxsl10 scaled 1440}
   \fnt\rtitlebfit{cmbxsl10 at 24.88truept}
   \fnt\rltitlebfit{cmbxsl10 at 29.86truept}
   \fnt\sssmallnorm{cmss8}
   \fnt\ssnorm{cmss10}
   \fnt\sslargenorm{cmss10 scaled 1200}
   \fnt\ssvlargenorm{cmss10 scaled 1440}
   \fnt\sstitlenorm{cmss10 at 24.88truept}
   \fnt\ssltitlenorm{cmss10 at 29.86truept}
   \fntsub\sssmallbf{cmbx8}{cmssbx10 scaled 800}
   \fnt\ssbf{cmssbx10}
   \fnt\sslargebf{cmssbx10 scaled 1200}
   \fnt\ssvlargebf{cmssbx10 scaled 1440}
   \fnt\sstitlebf{cmssbx10 at 24.88truept}
   \fnt\ssltitlebf{cmssbx10 at 29.86truept}
   \fnt\sssmallit{cmssi8}
   \fnt\ssit{cmssi10}
   \fnt\sslargeit{cmssi10 scaled 1200}
   \fnt\ssvlargeit{cmssi10 scaled 1440}
   \fnt\sstitleit{cmssi10 at 24.88truept}
   \fnt\ssltitleit{cmssi10 at 29.86truept}
   \fnt\sssmallsl{cmssqi8}
   \fnt\sssl{cmssqi8 scaled 1200}
   \fnt\sslargesl{cmssqi8 scaled 1440}
   \fnt\ssvlargesl{cmssqi8 scaled 1728}
   \fnt\sstitlesl{cmssqi8 at 19.89truept}
   \fnt\ssltitlesl{cmssqi8 at 23.89truept}
   \fntsub\sssmallbfit{cmbx8}{cmbxsl10 scaled 800}
   \fnt\ssbfit{cmbxti10}
   \fnt\sslargebfit{cmbxti10 scaled 1200}
   \fnt\ssvlargebfit{cmbxti10 scaled 1440}
   \fnt\sstitlebfit{cmbxti10 at 24.88truept}
   \fnt\ssltitlebfit{cmbxti10 at 29.86truept}
   \fntsub\sssmallalt{cmss8}{cmssmc10 scaled 800}
   \fntsub\ssalt{cmss10}{cmssmc10}
   \fntsub\sslargealt{cmss10 scaled 1200}{cmssmc10 scaled 1200}
   \fntsub\ssvlargealt{cmss10 scaled 1440}{cmssmc10 scaled 1440}
   \fntsub\sstitlealt{cmss10 at 24.88truept}{cmssmc10 at 26.67truept}
   \fntsub\ssltitlealt{cmss10 at 29.86truept}{cmssmc10 at 35.07truept}

% Math fonts:

   \fnt\msbrt{cmbx8}
   \fnt\msbrs{cmbx6}
   \fnt\msbrx{cmbx5}
   \fntsub\msbit{cmmi8}{cmbi10 scaled 800}
   \fntsub\msbis{cmmi6}{cmbi10 scaled 667}
   \fntsub\msbix{cmmi5}{cmmi5}
   \fntsub\msbst{cmsy8}{cmbsy10 scaled 800}
   \fntsub\msbss{cmsy6}{cmbsy10 scaled 667}
   \fntsub\msbsx{cmsy5}{cmbsy10 scaled 500}
   \fnt\msbxt{cmex9}
   \fnt\mnbrt{cmbx10}
   \fnt\mnbrs{cmbx7}
   \fnt\mnbrx{cmbx5}
   \fnt\mnbit{cmmib10}
   \fntsub\mnbis{cmmi8}{cmmib10 scaled 800}
   \fntsub\mnbix{cmmi6}{cmbi10 scaled 667}
   \fnt\mnbst{cmbsy10}
   \fntsub\mnbss{cmsy8}{cmbsy10 scaled 800}
   \fntsub\mnbsx{cmsy6}{cmbsy10 scaled 667}
   \fnt\mnbxt{cmex10}
   \fnt\mbbrt{cmbx10 scaled 1200}
   \fnt\mbbrs{cmbx9}
   \fnt\mbbrx{cmbx7}
   \fnt\mbbit{cmmib10 scaled 1200}
   \fnt\mbbis{cmmib10}
   \fnt\mbbix{cmmi8}
   \fnt\mbbst{cmbsy10 scaled 1200}
   \fnt\mbbss{cmbsy10}
   \fntsub\mbbsx{cmsy8}{cmbsy10 scaled 667}
   \fnt\mbbxt{cmex10 scaled 1200}
   \fnt\mxbrt{cmbx10 scaled 1440}
   \fnt\mxbrs{cmbx10}
   \fnt\mxbrx{cmbx8}
   \fnt\mxbit{cmmib10 scaled 1440}
   \fnt\mxbis{cmmib10}
   \fntsub\mxbix{cmmi8}{cmbi10 scaled 667}
   \fnt\mxbst{cmbsy10 scaled 1440}
   \fnt\mxbss{cmbsy10}
   \fntsub\mxbsx{cmsy8}{cmbsy10 scaled 667}
   \fnt\mxbxt{cmex10 scaled 1440}
   \fntsub\mtbrt{cmr10 at 24.88truept}{cmbx10 at 24.88truept}
   \fntsub\mtbrs{cmr7 at 17.42truept}{cmbx7 at 17.42truept}
   \fntsub\mtbrx{cmr5 at 12.44truept}{cmbx5 at 12.44truept}
   \fntsub\mtbit{cmmi10 at 24.88truept}{cmbi10 at 24.88truept}
   \fntsub\mtbis{cmmi7 at 17.42truept}{cmbi7 at 17.42truept}
   \fntsub\mtbix{cmmi5 at 12.44truept}{cmbi5 at 12.44truept}
   \fntsub\mtbst{cmsy10 at 24.88truept}{cmbsy10 at 24.88truept}
   \fntsub\mtbss{cmsy7 at 17.42truept}{cmbsy7 at 17.42truept}
   \fntsub\mtbsx{cmsy5 at 12.44truept}{cmbsy5 at 12.44truept}
   \fnt\mtbxt{cmex10 at 24.88truept}
   \fntsub\mlbrt{cmr10 at 29.86truept}{cmbx10 at 29.86truept}
   \fntsub\mlbrs{cmr7 at 20.90truept}{cmbx7 at 20.90truept}
   \fntsub\mlbrx{cmr5 at 14.93truept}{cmbx5 at 14.93truept}
   \fntsub\mlbit{cmmi10 at 29.86truept}{cmbi10 at 29.86truept}
   \fntsub\mlbis{cmmi7 at 20.90truept}{cmbi7 at 20.90truept}
   \fntsub\mlbix{cmmi5 at 14.93truept}{cmbi5 at 14.93truept}
   \fntsub\mlbst{cmsy10 at 29.86truept}{cmbsy10 at 29.86truept}
   \fntsub\mlbss{cmsy7 at 20.90truept}{cmbsy7 at 20.90truept}
   \fntsub\mlbsx{cmsy5 at 14.93truept}{cmbsy5 at 14.93truept}
   \fnt\mlbxt{cmex10 at 29.86truept}
   \fnt\msnrt{cmr8}
   \fnt\msnrs{cmr6}
   \fnt\msnrx{cmr5}
   \fnt\msnit{cmmi8}
   \fnt\msnis{cmmi6}
   \fnt\msnix{cmmi5}
   \fnt\msnst{cmsy8}
   \fnt\msnss{cmsy6}
   \fnt\msnsx{cmsy5}
   \fnt\msnxt{cmex9}
   \fnt\mnnrt{cmr10}
   \fnt\mnnrs{cmr7}
   \fnt\mnnrx{cmr5}
   \fnt\mnnit{cmmi10}
   \fnt\mnnis{cmmi7}
   \fnt\mnnix{cmmi5}
   \fnt\mnnst{cmsy10}
   \fnt\mnnss{cmsy7}
   \fnt\mnnsx{cmsy5}
   \fnt\mnnxt{cmex10}
   \fnt\mbnrt{cmr10 scaled 1200}
   \fnt\mbnrs{cmr7 scaled 1200}
   \fnt\mbnrx{cmr5 scaled 1200}
   \fnt\mbnit{cmmi10 scaled 1200}
   \fnt\mbnis{cmmi7 scaled 1200}
   \fnt\mbnix{cmmi5 scaled 1200}
   \fnt\mbnst{cmsy10 scaled 1200}
   \fnt\mbnss{cmsy7 scaled 1200}
   \fnt\mbnsx{cmsy5 scaled 1200}
   \fnt\mbnxt{cmex10 scaled 1200}
   \fnt\mxnrt{cmr10 scaled 1440}
   \fnt\mxnrs{cmr7 scaled 1440}
   \fnt\mxnrx{cmr5 scaled 1440}
   \fnt\mxnit{cmmi10 scaled 1440}
   \fnt\mxnis{cmmi7 scaled 1440}
   \fnt\mxnix{cmmi5 scaled 1440}
   \fnt\mxnst{cmsy10 scaled 1440}
   \fnt\mxnss{cmsy7 scaled 1440}
   \fnt\mxnsx{cmsy5 scaled 1440}
   \fnt\mxnxt{cmex10 scaled 1440}
   \fnt\mtnrt{cmr10 at 24.88truept}
   \fnt\mtnrs{cmr7 at 17.42truept}
   \fnt\mtnrx{cmr5 at 12.44truept}
   \fnt\mtnit{cmmi10 at 24.88truept}
   \fnt\mtnis{cmmi7 at 17.42truept}
   \fnt\mtnix{cmmi5 at 12.44truept}
   \fnt\mtnst{cmsy10 at 24.88truept}
   \fnt\mtnss{cmsy7 at 17.42truept}
   \fnt\mtnsx{cmsy5 at 12.44truept}
   \fnt\mtnxt{cmex10 at 24.88truept}
   \fnt\mlnrt{cmr10 at 29.86truept}
   \fnt\mlnrs{cmr7 at 20.90truept}
   \fnt\mlnrx{cmr5 at 14.93truept}
   \fnt\mlnit{cmmi10 at 29.86truept}
   \fnt\mlnis{cmmi7 at 20.90truept}
   \fnt\mlnix{cmmi5 at 14.93truept}
   \fnt\mlnst{cmsy10 at 29.86truept}
   \fnt\mlnss{cmsy7 at 20.90truept}
   \fnt\mlnsx{cmsy5 at 14.93truept}
   \fnt\mlnxt{cmex10 at 29.86truept}
   \fnt\mssrt{cmr8}
   \fnt\mssrs{cmr6}
   \fnt\mssrx{cmr5}
   \fnt\mssit{cmmi8}
   \fnt\mssis{cmmi6}
   \fnt\mssix{cmmi5}
   \fnt\mssst{cmsy8}
   \fnt\mssss{cmsy6}
   \fnt\msssx{cmsy5}
   \fnt\mssxt{cmex10}
   \fnt\mnsrt{cmr8 scaled 1200}
   \fnt\mnsrs{cmr6 scaled 1200}
   \fnt\mnsrx{cmr5}
   \fnt\mnsit{cmmi8 scaled 1200}
   \fnt\mnsis{cmmi6 scaled 1200}
   \fnt\mnsix{cmmi5}
   \fnt\mnsst{cmsy8 scaled 1200}
   \fnt\mnsss{cmsy6 scaled 1200}
   \fnt\mnssx{cmsy5}
   \fnt\mnsxt{cmex10}
   \fnt\mbsrt{cmr8 scaled 1440}
   \fnt\mbsrs{cmr6 scaled 1440}
   \fnt\mbsrx{cmr5 scaled 1200}
   \fnt\mbsit{cmmi8 scaled 1440}
   \fnt\mbsis{cmmi6 scaled 1440}
   \fnt\mbsix{cmmi5 scaled 1200}
   \fnt\mbsst{cmsy8 scaled 1440}
   \fnt\mbsss{cmsy6 scaled 1440}
   \fnt\mbssx{cmsy5 scaled 1200}
   \fnt\mbsxt{cmex10 scaled 1200}
   \fnt\mxsrt{cmr8 scaled 1753}
   \fnt\mxsrs{cmr6 scaled 1753}
   \fnt\mxsrx{cmr5 scaled 1440}
   \fnt\mxsit{cmmi8 scaled 1753}
   \fnt\mxsis{cmmi6 scaled 1753}
   \fnt\mxsix{cmmi5 scaled 1440}
   \fnt\mxsst{cmsy8 scaled 1753}
   \fnt\mxsss{cmsy6 scaled 1753}
   \fnt\mxssx{cmsy5 scaled 1440}
   \fnt\mxsxt{cmex10 scaled 1440}
   \fntsub\mtsrt{cmr10 at 24.88truept}{cmr8 at 23.89}
   \fntsub\mtsrs{cmr7 at 17.42truept}{cmr6 at 17.92}
   \fnt\mtsrx{cmr5 at 12.44truept}
   \fntsub\mtsit{cmmi10 at 24.88truept}{cmmi8 at 23.89}
   \fntsub\mtsis{cmmi7 at 17.42truept}{cmmi6 at 17.92}
   \fnt\mtsix{cmmi5 at 12.44truept}
   \fntsub\mtsst{cmsy10 at 24.88truept}{cmsy8 at 23.89}
   \fntsub\mtsss{cmsy7 at 17.42truept}{cmsy6 at 17.92}
   \fnt\mtssx{cmsy5 at 12.44truept}
   \fnt\mtsxt{cmex10 at 24.88truept}
   \fntsub\mlsrt{cmr10 at 29.86truept}{cmr8 at 28.67truept}
   \fntsub\mlsrs{cmr7 at 20.90truept}{cmr6 at 21.50truept}
   \fnt\mlsrx{cmr5 at 14.93truept}
   \fntsub\mlsit{cmmi10 at 29.86truept}{cmmi8 at 28.67truept}
   \fntsub\mlsis{cmmi7 at 20.90truept}{cmmi6 at 21.50truept}
   \fnt\mlsix{cmmi5 at 14.93truept}
   \fntsub\mlsst{cmsy10 at 29.86truept}{cmsy8 at 28.67truept}
   \fntsub\mlsss{cmsy7 at 20.90truept}{cmsy6 at 21.50truept}
   \fnt\mlssx{cmsy5 at 14.93truept}
   \fnt\mlsxt{cmex10 at 29.86truept}

\fi

% For magnification 1200:
\ifnum \mag=1200
   \global\let\rnorm=\tenrm
   \global\let\rbf=\tenbf
   \global\let\rit=\tenit
   \global\let\rsl=\tensl
   \fnt\rsmallnorm{cmr10 scaled 833}
   \fnt\rlargenorm{cmr10 scaled 1200}
   \fnt\rvlargenorm{cmr10 scaled 1440}
   \fnt\rtitlenorm{cmr10 at 24.88 truept}
   \fnt\rltitlenorm{cmr10 at 29.86truept}
   \fnt\rsmallbf{cmbx10 scaled 833}
   \fnt\rlargebf{cmbx10 scaled 1200}
   \fnt\rvlargebf{cmbx10 scaled 1440}
   \fnt\rtitlebf{cmbx10 at 24.88truept}
   \fnt\rltitlebf{cmbx10 at 29.86truept}
   \fnt\rsmallit{cmti10 scaled 833}
   \fnt\rlargeit{cmti10 scaled 1200}
   \fnt\rvlargeit{cmti10 scaled 1440}
   \fnt\rtitleit{cmti10 at 24.88truept}
   \fnt\rltitleit{cmti10 at 29.86truept}
   \fnt\rsmallsl{cmsl10 scaled 833}
   \fnt\rlargesl{cmsl10 scaled 1200}
   \fnt\rvlargesl{cmsl10 scaled 1440}
   \fnt\rtitlesl{cmsl10 at 24.88truept}
   \fnt\rltitlesl{cmsl10 at 29.86truept}
   \fnt\rsmallbfit{cmbxsl10 scaled 833}
   \fnt\rbfit{cmbxsl10}
   \fnt\rlargebfit{cmbxsl10 scaled 1200}
   \fntsub\rvlargebfit{cmbxti10 scaled 1440}{cmbxsl10 scaled 1440}
   \fnt\rtitlebfit{cmbxsl10 at 24.88truept}
   \fnt\rltitlebfit{cmbxsl10 at 29.86truept}
   \fnt\sssmallnorm{cmss10 scaled 833}
   \fnt\ssnorm{cmss10}
   \fnt\sslargenorm{cmss10 scaled 1200}
   \fntsub\ssvlargenorm{cmss10 scaled 1440}{cmss10 scaled 1440}
   \fntsub\sstitlenorm{cmss10 at 24.88truept}{cmss10 at 26.67truept}
   \fntsub\ssltitlenorm{cmss10 at 29.86truept}{cmss10 at 35.07truept}
   \fnt\sssmallbf{cmssbx10 scaled 833}
   \fnt\ssbf{cmssbx10}
   \fnt\sslargebf{cmssbx10 scaled 1200}
   \fntsub\ssvlargebf{cmssbx10 scaled 1440}{cmssbx10 scaled 1440}
   \fnt\sstitlebf{cmssbx10 at 24.88truept}
   \fnt\ssltitlebf{cmssbx10 at 29.86truept}
   \fnt\sssmallit{cmssi10 scaled 833}
   \fnt\ssit{cmssi10}
   \fnt\sslargeit{cmssi10 scaled 1200}
   \fnt\ssvlargeit{cmssi10 scaled 1440}
   \fnt\sstitleit{cmssi10 at 24.88truept}
   \fnt\ssltitleit{cmssi10 at 29.86truept}
   \fnt\sssmallsl{cmssqi8}
   \fnt\sssl{cmssqi8 scaled 1200}
   \fnt\sslargesl{cmssqi8 scaled 1440}
   \fnt\ssvlargesl{cmssqi8 scaled 1728}
   \fnt\sstitlesl{cmssqi8 at 19.89truept}
   \fnt\ssltitlesl{cmssqi8 at 23.89truept}
   \fnt\sssmallbfit{cmbxti10 scaled 833}
   \fnt\ssbfit{cmbxti10}
   \fnt\sslargebfit{cmbxti10 scaled 1200}
   \fntsub\ssvlargebfit{cmbxti10 scaled 1440}{cmbxsl10 scaled 1440}
   \fnt\sstitlebfit{cmbxti10 at 24.88truept}
   \fnt\ssltitlebfit{cmbxti10 at 29.86truept}
   \fnt\sssmallalt{cmss10 scaled 833}
   \fnt\ssalt{cmss10}
   \fnt\sslargealt{cmss10 scaled 1200}
   \fntsub\ssvlargealt{cmss10 scaled 1440}{cmssmc10 scaled 1440}
   \fntsub\sstitlealt{css10 at 24.88truept}{cmssmc10 at 26.67truept}
   \fntsub\ssltitlealt{cmss10 at 29.86truept}{cmssmc10 at 35.07truept}

% Math fonts:

   \fnt\msbrt{cmbx10 scaled 833}
   \fnt\msbrs{cmbx7 scaled 833}
   \fnt\msbrx{cmbx5 scaled 833}
   \fnt\msbit{cmmib10 scaled 833}
   \fntsub\msbis{cmmi7 scaled 833}{cmmib7 scaled 833}
   \fntsub\msbix{cmmi5 scaled 833}{cmmib5 scaled 833}
   \fnt\msbst{cmbsy10 scaled 833}
   \fntsub\msbss{cmsy7 scaled 833}{cmbsy7 scaled 833}
   \fntsub\msbsx{cmsy5 scaled 833}{cmbsy5 scaled 833}
   \fnt\msbxt{cmex10 scaled 833}
   \fnt\mnbrt{cmbx10}
   \fnt\mnbrs{cmbx7}
   \fnt\mnbrx{cmbx5}
   \fnt\mnbit{cmmib10}
   \fnt\mnbis{cmmib10 scaled 833}
   \fntsub\mnbix{cmmi6}{cmmib10 scaled 667}
   \fnt\mnbst{cmbsy10}
   \fnt\mnbss{cmbsy10 scaled 833}
   \fntsub\mnbsx{cmsy6}{cmbsy10 scaled 667}
   \fnt\mnbxt{cmex10}
   \fnt\mbbrt{cmbx10 scaled 1200}
   \fnt\mbbrs{cmbx9}
   \fnt\mbbrx{cmbx7}
   \fnt\mbbit{cmmib10 scaled 1200}
   \fnt\mbbis{cmmib10}
   \fnt\mbbix{cmmib10 scaled 833}
   \fnt\mbbst{cmbsy10 scaled 1200}
   \fnt\mbbss{cmbsy10 scaled 833}
   \fntsub\mbbsx{cmsy7}{cmbsy10 scaled 667}
   \fnt\mbbxt{cmex10 scaled 1200}
   \fnt\mxbrt{cmbx10 scaled 1440}
   \fnt\mxbrs{cmbx10}
   \fnt\mxbrx{cmbx10 scaled 833}
   \fnt\mxbit{cmmib10 scaled 1440}
   \fnt\mxbis{cmmib10}
   \fnt\mxbix{cmmib10 scaled 833}
   \fnt\mxbst{cmbsy10 scaled 1440}
   \fnt\mxbss{cmbsy10}
   \fnt\mxbsx{cmbsy10 scaled 833}
   \fnt\mxbxt{cmex10 scaled 1440}
   \fntsub\mtbrt{cmr10 at 24.88truept}{cmbx10 at 24.88truept}
   \fntsub\mtbrs{cmr7 at 17.42truept}{cmbx7 at 17.42truept}
   \fntsub\mtbrx{cmr5 at 12.44truept}{cmbx5 at 12.44truept}
   \fntsub\mtbit{cmmi10 at 24.88truept}{cmbi10 at 24.88truept}
   \fntsub\mtbis{cmmi7 at 17.42truept}{cmbi7 at 17.42truept}
   \fntsub\mtbix{cmmi5 at 12.44truept}{cmbi5 at 12.44truept}
   \fntsub\mtbst{cmsy10 at 24.88truept}{cmbsy10 at 24.88truept}
   \fntsub\mtbss{cmsy7 at 17.42truept}{cmbsy7 at 17.42truept}
   \fntsub\mtbsx{cmsy5 at 12.44truept}{cmbsy5 at 12.44truept}
   \fnt\mtbxt{cmex10 at 24.88truept}
   \fntsub\mlbrt{cmr10 at 29.86truept}{cmbx10 at 29.86truept}
   \fntsub\mlbrs{cmr7 at 20.90truept}{cmbx7 at 20.90truept}
   \fntsub\mlbrx{cmr5 at 14.93truept}{cmbx5 at 14.93truept}
   \fntsub\mlbit{cmmi10 at 29.86truept}{cmbi10 at 29.86truept}
   \fntsub\mlbis{cmmi7 at 20.90truept}{cmbi7 at 20.90truept}
   \fntsub\mlbix{cmmi5 at 14.93truept}{cmbi5 at 14.93truept}
   \fntsub\mlbst{cmsy10 at 29.86truept}{cmbsy10 at 29.86truept}
   \fntsub\mlbss{cmsy7 at 20.90truept}{cmbsy7 at 20.90truept}
   \fntsub\mlbsx{cmsy5 at 14.93truept}{cmbsy5 at 14.93truept}
   \fnt\mlbxt{cmex10 at 29.86truept}
   \fnt\msnrt{cmr10 scaled 833}
   \fnt\msnrs{cmr7 scaled 833}
   \fnt\msnrx{cmr5 scaled 833}
   \fnt\msnit{cmmi10 scaled 833}
   \fnt\msnis{cmmi7 scaled 833}
   \fnt\msnix{cmmi5 scaled 833}
   \fnt\msnst{cmsy10 scaled 833}
   \fnt\msnss{cmsy7 scaled 833}
   \fnt\msnsx{cmsy5 scaled 833}
   \fnt\msnxt{cmex10 scaled 833}
   \fnt\mnnrt{cmr10}
   \fnt\mnnrs{cmr7}
   \fnt\mnnrx{cmr5}
   \fnt\mnnit{cmmi10}
   \fnt\mnnis{cmmi7}
   \fnt\mnnix{cmmi5}
   \fnt\mnnst{cmsy10}
   \fnt\mnnss{cmsy7}
   \fnt\mnnsx{cmsy5}
   \fnt\mnnxt{cmex10}
   \fnt\mbnrt{cmr10 scaled 1200}
   \fnt\mbnrs{cmr7 scaled 1200}
   \fnt\mbnrx{cmr5 scaled 1200}
   \fnt\mbnit{cmmi10 scaled 1200}
   \fnt\mbnis{cmmi7 scaled 1200}
   \fnt\mbnix{cmmi5 scaled 1200}
   \fnt\mbnst{cmsy10 scaled 1200}
   \fnt\mbnss{cmsy7 scaled 1200}
   \fnt\mbnsx{cmsy5 scaled 1200}
   \fnt\mbnxt{cmex10 scaled 1200}
   \fnt\mxnrt{cmr10 scaled 1440}
   \fnt\mxnrs{cmr7 scaled 1440}
   \fnt\mxnrx{cmr5 scaled 1440}
   \fnt\mxnit{cmmi10 scaled 1440}
   \fnt\mxnis{cmmi7 scaled 1440}
   \fnt\mxnix{cmmi5 scaled 1440}
   \fnt\mxnst{cmsy10 scaled 1440}
   \fnt\mxnss{cmsy7 scaled 1440}
   \fnt\mxnsx{cmsy5 scaled 1440}
   \fnt\mxnxt{cmex10 scaled 1440}
   \fnt\mtnrt{cmr10 at 24.88truept}
   \fnt\mtnrs{cmr7 at 17.42truept}
   \fnt\mtnrx{cmr5 at 12.44truept}
   \fnt\mtnit{cmmi10 at 24.88truept}
   \fnt\mtnis{cmmi7 at 17.42truept}
   \fnt\mtnix{cmmi5 at 12.44truept}
   \fnt\mtnst{cmsy10 at 24.88truept}
   \fnt\mtnss{cmsy7 at 17.42truept}
   \fnt\mtnsx{cmsy5 at 12.44truept}
   \fnt\mtnxt{cmex10 at 24.88truept}
   \fnt\mlnrt{cmr10 at 29.86truept}
   \fnt\mlnrs{cmr7 at 20.90truept}
   \fnt\mlnrx{cmr5 at 14.93truept}
   \fnt\mlnit{cmmi10 at 29.86truept}
   \fnt\mlnis{cmmi7 at 20.90truept}
   \fnt\mlnix{cmmi5 at 14.93truept}
   \fnt\mlnst{cmsy10 at 29.86truept}
   \fnt\mlnss{cmsy7 at 20.90truept}
   \fnt\mlnsx{cmsy5 at 14.93truept}
   \fnt\mlnxt{cmex10 at 29.86truept}
   \fnt\mssrt{cmr8}
   \fnt\mssrs{cmr6}
   \fnt\mssrx{cmr5 scaled 833}
   \fnt\mssit{cmmi8}
   \fnt\mssis{cmmi6}
   \fnt\mssix{cmmi5 scaled 833}
   \fnt\mssst{cmsy8}
   \fnt\mssss{cmsy6}
   \fnt\msssx{cmsy5 scaled 833}
   \fnt\mssxt{cmex10 scaled 833}
   \fnt\mnsrt{cmr8 scaled 1200}
   \fnt\mnsrs{cmr6 scaled 1200}
   \fnt\mnsrx{cmr5}
   \fnt\mnsit{cmmi8 scaled 1200}
   \fnt\mnsis{cmmi6 scaled 1200}
   \fnt\mnsix{cmmi5}
   \fnt\mnsst{cmsy8 scaled 1200}
   \fnt\mnsss{cmsy6 scaled 1200}
   \fnt\mnssx{cmsy5}
   \fnt\mnsxt{cmex10}
   \fntsub\mbsrt{cmr7 scaled 1728}{cmr8 scaled 1440}
   \fntsub\mbsrs{cmr5 scaled 1728}{cmr6 scaled 1440}
   \fnt\mbsrx{cmr5 scaled 1200}
   \fntsub\mbsit{cmmi7 scaled 1728}{cmmi8 scaled 1440}
   \fntsub\mbsis{cmmi5 scaled 1728}{cmmi6 scaled 1440}
   \fnt\mbsix{cmmi5 scaled 1200}
   \fntsub\mbsst{cmsy7 scaled 1728}{cmsy8 scaled 1440}
   \fntsub\mbsss{cmsy5 scaled 1728}{cmsy6 scaled 1440}
   \fnt\mbssx{cmsy5 scaled 1200}
   \fnt\mbsxt{cmex10 scaled 1200}
   \fntsub\mxsrt{cmr7 scaled 2074}{cmr8 scaled 1753}
   \fntsub\mxsrs{cmr5 scaled 2074}{cmr6 scaled 1753}
   \fnt\mxsrx{cmr5 scaled 1440}
   \fntsub\mxsit{cmmi7 scaled 2074}{cmmi8 scaled 1753}
   \fntsub\mxsis{cmmi5 scaled 2074}{cmmi6 scaled 1753}
   \fnt\mxsix{cmmi5 scaled 1440}
   \fntsub\mxsst{cmsy7 scaled 2074}{cmsy8 scaled 1753}
   \fntsub\mxsss{cmsy5 scaled 2074}{cmsy6 scaled 1753}
   \fnt\mxssx{cmsy5 scaled 1440}
   \fnt\mxsxt{cmex10 scaled 1440}
   \fntsub\mtsrt{cmr10 at 24.88truept}{cmr8 at 23.89}
   \fntsub\mtsrs{cmr7 at 17.42truept}{cmr6 at 17.92}
   \fnt\mtsrx{cmr5 at 12.44truept}
   \fntsub\mtsit{cmmi10 at 24.88truept}{cmmi8 at 23.89}
   \fntsub\mtsis{cmmi7 at 17.42truept}{cmmi6 at 17.92}
   \fnt\mtsix{cmmi5 at 12.44truept}
   \fntsub\mtsst{cmsy10 at 24.88truept}{cmsy8 at 23.89}
   \fntsub\mtsss{cmsy7 at 17.42truept}{cmsy6 at 17.92}
   \fnt\mtssx{cmsy5 at 12.44truept}
   \fnt\mtsxt{cmex10 at 24.88truept}
   \fntsub\mlsrt{cmr10 at 29.86truept}{cmr8 at 28.67truept}
   \fntsub\mlsrs{cmr7 at 20.90truept}{cmr6 at 21.50truept}
   \fnt\mlsrx{cmr5 at 14.93truept}
   \fntsub\mlsit{cmmi10 at 29.86truept}{cmmi8 at 28.67truept}
   \fntsub\mlsis{cmmi7 at 20.90truept}{cmmi6 at 21.50truept}
   \fnt\mlsix{cmmi5 at 14.93truept}
   \fntsub\mlsst{cmsy10 at 29.86truept}{cmsy8 at 28.67truept}
   \fntsub\mlsss{cmsy7 at 20.90truept}{cmsy6 at 21.50truept}
   \fnt\mlssx{cmsy5 at 14.93truept}
   \fnt\mlsxt{cmex10 at 29.86truept}

\fi

% For magnification 1095:
\ifnum \mag=1095
   \global\let\rnorm=\tenrm
   \global\let\rbf=\tenbf
   \global\let\rit=\tenit
   \global\let\rsl=\tensl
   \fnt\rsmallnorm{cmr10 scaled 800}
   \fnt\rlargenorm{cmr10 scaled 1261}
   \fnt\rvlargenorm{cmr10 scaled 1440}
   \fnt\rtitlenorm{cmr10 at 24.88 truept}
   \fnt\rltitlenorm{cmr10 at 29.86truept}
   \fnt\rsmallbf{cmbx10 scaled 800}
   \fnt\rlargebf{cmbx10 scaled 1261}
   \fnt\rvlargebf{cmbx10 scaled 1459}
   \fnt\rtitlebf{cmbx10 at 24.88truept}
   \fnt\rltitlebf{cmbx10 at 29.86truept}
   \fnt\rsmallit{cmti10 scaled 800}
   \fnt\rlargeit{cmti10 scaled 1261}
   \fnt\rvlargeit{cmti10 scaled 1459}
   \fnt\rtitleit{cmti10 at 24.88truept}
   \fnt\rltitleit{cmti10 at 29.86truept}
   \fnt\rsmallsl{cmsl10 scaled 800}
   \fnt\rlargesl{cmsl10 scaled 1261}
   \fnt\rvlargesl{cmsl10 scaled 1459}
   \fnt\rtitlesl{cmsl10 at 24.88truept}
   \fnt\rltitlesl{cmsl10 at 29.86truept}
   \fnt\rsmallbfit{cmbxsl10 scaled 800}
   \fnt\rbfit{cmbxsl10}
   \fntsub\rlargebfit{cmbxsl10 scaled 1094}{cmbxsl10 scaled 1261}
   \fntsub\rvlargebfit{cmbxsl10 scaled 1313}{cmbxsl10 scaled 1440}
   \fnt\rtitlebfit{cmbxsl10 at 24.88truept}
   \fnt\rltitlebfit{cmbxsl10 at 29.86truept}
   \fnt\sssmallnorm{cmss10 scaled 800}
   \fnt\ssnorm{cmss10}
   \fntsub\sslargenorm{cmss10 scaled 1094}{cmss10 scaled 1200}
   \fntsub\ssvlargenorm{cmss10 scaled 1313}{cmss10 scaled 1440}
   \fnt\sstitlenorm{cmss10 at 26.67truept}
   \fnt\ssltitlenorm{cmss10 at 35.07truept}
   \fnt\sssmallbf{cmssbx10 scaled 800}
   \fnt\ssbf{cmssbx10}
   \fntsub\sslargebf{cmssbx10 scaled 1094}{cmssbx10 scaled 1200}
   \fntsub\ssvlargebf{cmssbx10 scaled 1313}{cmssbx10 scaled 1440}
   \fnt\sstitlebf{cmcsc10 at 26.67truept}
   \fnt\ssltitlebf{cmcsc10 at 35.07truept}
   \fnt\sssmallit{cmssi10 scaled 800}
   \fnt\ssit{cmssi10}
   \fntsub\sslargeit{cmssi10 scaled 1094}{cmssi10 scaled 1200}
   \fntsub\ssvlargeit{cmssi10 scaled 1313}{cmssi10 scaled 1440}
   \fntsub\sstitleit{cmssi10 at 24.87truept}{cmssi10 at 26.67truept}
   \fntsub\ssltitleit{cmssi10 at 29.87truept}{cmssi10 at 35.07truept}
   \fnt\sssmallsl{cmssqi8}
   \fntsub\sssl{cmssqi8 scaled 1094}{cmssqi8 scaled 1200}
   \fntsub\sslargesl{cmssqi8 scaled 1313}{cmssqi8 scaled 1440}
   \fntsub\ssvlargesl{cmssqi8 scaled 1728}{cmssqi8 scaled 1728}
   \fnt\sstitlesl{cmssqi8 at 19.89truept}
   \fnt\ssltitlesl{cmssqi8 at 23.89truept}
   \fnt\sssmallbfit{cmbxsl10 scaled 800}
   \fnt\ssbfit{cmbxti10}
   \fnt\sslargebfit{cmbxti10 scaled 1200}
   \fnt\ssvlargebfit{cmbxti10 scaled 1440}
   \fnt\sstitlebfit{cmbxti10 at 24.87truept}
   \fnt\ssltitlebfit{cmbxti10 at 29.87truept}
   \fnt\sssmallalt{cmcsc10 scaled 800}
   \fnt\ssalt{cmcsc10}
   \fnt\sslargealt{cmcsc10 scaled 1200}
   \fnt\ssvlargealt{cmcsc10 scaled 1440}
   \fntsub\sstitlealt{cmcsc10 at 24.87truept}{cmcsc10 at 26.67truept}
   \fntsub\ssltitlealt{cmcsc10 at 29.87truept}{cmcsc10 at 35.07truept}

% Math fonts:

   \fnt\msbrt{cmbx10 scaled 800}
   \fnt\msbrs{cmbx10 scaled 667}
   \fnt\msbrx{cmr5}
   \fnt\msbit{cmmib10 scaled 800}
   \fnt\msbis{cmmib10 scaled 667}
   \fnt\msbix{cmmi5}
   \fnt\msbst{cmbsy10 scaled 800}
   \fnt\msbss{cmbsy10 scaled 667}
   \fnt\msbsx{cmsy5}
   \fnt\msbxt{cmex10 scaled 800}
   \fnt\mnbrt{cmbx10}
   \fnt\mnbrs{cmbx10 scaled 800}
   \fnt\mnbrx{cmbx10 scaled 667}
   \fnt\mnbit{cmmib10}
   \fnt\mnbis{cmmib10 scaled 800}
   \fnt\mnbix{cmmib10 scaled 667}
   \fnt\mnbst{cmbsy10}
   \fnt\mnbss{cmbsy10 scaled 800}
   \fnt\mnbsx{cmbsy10 scaled 667}
   \fnt\mnbxt{cmex10}
   \fnt\mbbrt{cmbx10 scaled 1261}
   \fnt\mbbrs{cmbx10 scaled 800}
   \fnt\mbbrx{cmbx10 scaled 667}
   \fnt\mbbit{cmmib10 scaled 1261}
   \fnt\mbbis{cmmib10 scaled 800}
   \fnt\mbbix{cmmib10 scaled 667}
   \fnt\mbbst{cmbsy10 scaled 1261}
   \fnt\mbbss{cmbsy10 scaled 800}
   \fnt\mbbsx{cmbsy10 scaled 667}
   \fnt\mbbxt{cmex10 scaled 1261}
   \fnt\mxbrt{cmbx10 scaled 1440}
   \fnt\mxbrs{cmbx10}
   \fnt\mxbrx{cmbx10 scaled 667}
   \fnt\mxbit{cmmib10 scaled 1440}
   \fnt\mxbis{cmmib10}
   \fnt\mxbix{cmmib10 scaled 667}
   \fnt\mxbst{cmbsy10 scaled 1440}
   \fnt\mxbss{cmbsy10}
   \fnt\mxbsx{cmbsy10 scaled 667}
   \fnt\mxbxt{cmex10 scaled 1440}
   \fntsub\mtbrt{cmr10 at 24.88truept}{cmbx10 at 24.88truept}
   \fntsub\mtbrs{cmr7 at 17.42truept}{cmbx7 at 17.42truept}
   \fntsub\mtbrx{cmr5 at 12.44truept}{cmbx5 at 12.44truept}
   \fntsub\mtbit{cmmi10 at 24.88truept}{cmmib10 at 24.88truept}
   \fntsub\mtbis{cmmi7 at 17.42truept}{cmmib7 at 17.42truept}
   \fntsub\mtbix{cmmi5 at 12.44truept}{cmmib5 at 12.44truept}
   \fntsub\mtbst{cmsy10 at 24.88truept}{cmbsy10 at 24.88truept}
   \fntsub\mtbss{cmsy7 at 17.42truept}{cmbsy7 at 17.42truept}
   \fntsub\mtbsx{cmsy5 at 12.44truept}{cmbsy5 at 12.44truept}
   \fnt\mtbxt{cmex10 at 24.88truept}
   \fntsub\mlbrt{cmr10 at 29.86truept}{cmbx10 at 29.86truept}
   \fntsub\mlbrs{cmr7 at 20.90truept}{cmbx7 at 20.90truept}
   \fntsub\mlbrx{cmr5 at 14.93truept}{cmbx5 at 14.93truept}
   \fntsub\mlbit{cmmi10 at 29.86truept}{cmmib10 at 29.86truept}
   \fntsub\mlbis{cmmi7 at 20.90truept}{cmmib7 at 20.90truept}
   \fntsub\mlbix{cmmi5 at 14.93truept}{cmmib5 at 14.93truept}
   \fntsub\mlbst{cmsy10 at 29.86truept}{cmbsy10 at 29.86truept}
   \fntsub\mlbss{cmsy7 at 20.90truept}{cmbsy7 at 20.90truept}
   \fntsub\mlbsx{cmsy5 at 14.93truept}{cmbsy5 at 14.93truept}
   \fnt\mlbxt{cmex10 at 29.86truept}
   \fnt\msnrt{cmr10 scaled 800}
   \fnt\msnrs{cmr7 scaled 800}
   \fnt\msnrx{cmr5 scaled 800}
   \fnt\msnit{cmmi10 scaled 800}
   \fnt\msnis{cmmi7 scaled 800}
   \fnt\msnix{cmmi5 scaled 800}
   \fnt\msnst{cmsy10 scaled 800}
   \fnt\msnss{cmsy7 scaled 800}
   \fnt\msnsx{cmsy5 scaled 800}
   \fnt\msnxt{cmex10 scaled 800}
   \fnt\mnnrt{cmr10}
   \fnt\mnnrs{cmr7}
   \fnt\mnnrx{cmr5}
   \fnt\mnnit{cmmi10}
   \fnt\mnnis{cmmi7}
   \fnt\mnnix{cmmi5}
   \fnt\mnnst{cmsy10}  % My listing shows amsy10 at 1000 is missing,
                       %   but I will try anyway.  cmsy10 is there.
   \fnt\mnnss{cmsy7}
   \fnt\mnnsx{cmsy5}
   \fnt\mnnxt{cmex10}
   \fnt\mbnrt{cmr10 scaled 1261}
   \fnt\mbnrs{cmr7 scaled 1261}
   \fnt\mbnrx{cmr5 scaled 1261}
   \fnt\mbnit{cmmi10 scaled 1261}
   \fnt\mbnis{cmmi7 scaled 1261}
   \fnt\mbnix{cmmi5 scaled 1261}
   \fnt\mbnst{cmsy10 scaled 1261}
   \fnt\mbnss{cmsy7 scaled 1261}
   \fnt\mbnsx{cmsy5 scaled 1261}
   \fnt\mbnxt{cmex10 scaled 1261}
   \fnt\mxnrt{cmr10 scaled 1459}
   \fnt\mxnrs{cmr7 scaled 1459}
   \fnt\mxnrx{cmr5 scaled 1459}
   \fnt\mxnit{cmmi10 scaled 1459}
   \fnt\mxnis{cmmi7 scaled 1459}
   \fnt\mxnix{cmmi5 scaled 1459}
   \fnt\mxnst{cmsy10 scaled 1459}
   \fnt\mxnss{cmsy7 scaled 1459}
   \fnt\mxnsx{cmsy5 scaled 1459}
   \fnt\mxnxt{cmex10 scaled 1459}
   \fnt\mtnrt{cmr10 at 24.88truept}
   \fnt\mtnrs{cmr7 at 17.42truept}
   \fnt\mtnrx{cmr5 at 12.44truept}
   \fnt\mtnit{cmmi10 at 24.88truept}
   \fnt\mtnis{cmmi7 at 17.42truept}
   \fnt\mtnix{cmmi5 at 12.44truept}
   \fnt\mtnst{cmsy10 at 24.88truept}
   \fnt\mtnss{cmsy7 at 17.42truept}
   \fnt\mtnsx{cmsy5 at 12.44truept}
   \fnt\mtnxt{cmex10 at 24.88truept}
   \fnt\mlnrt{cmr10 at 29.86truept}
   \fnt\mlnrs{cmr7 at 20.90truept}
   \fnt\mlnrx{cmr5 at 14.93truept}
   \fnt\mlnit{cmmi10 at 29.86truept}
   \fnt\mlnis{cmmi7 at 20.90truept}
   \fnt\mlnix{cmmi5 at 14.93truept}
   \fnt\mlnst{cmsy10 at 29.86truept}
   \fnt\mlnss{cmsy7 at 20.90truept}
   \fnt\mlnsx{cmsy5 at 14.93truept}
   \fnt\mlnxt{cmex10 at 29.86truept}
   \fnt\mssrt{cmr8}
   \fnt\mssrs{cmr6}
   \fnt\mssrx{cmr5 scaled 800}
   \fnt\mssit{cmmi8}
   \fnt\mssis{cmmi6}
   \fnt\mssix{cmmi5 scaled 800}
   \fnt\mssst{cmsy8}
   \fnt\mssss{cmsy6}
   \fnt\msssx{cmsy5 scaled 800}
   \fnt\mssxt{cmex10 scaled 800}
   \fnt\mnsrt{cmr9 scaled 1094}
   \fnt\mnsrs{cmr6 scaled 1094}
   \fnt\mnsrx{cmr5}
   \fnt\mnsit{cmmi9 scaled 1094}
   \fnt\mnsis{cmmi6 scaled 1094}
   \fnt\mnsix{cmmi5}
   \fnt\mnsst{cmsy9 scaled 1094}
   \fnt\mnsss{cmsy6 scaled 1094}
   \fnt\mnssx{cmsy5}
   \fnt\mnsxt{cmex10}
   \fnt\mbsrt{cmr9 scaled 1313}
   \fnt\mbsrs{cmr6 scaled 1313}
   \fnt\mbsrx{cmr5 scaled 1094}
   \fnt\mbsit{cmmi9 scaled 1313}
   \fnt\mbsis{cmmi6 scaled 1313}
   \fnt\mbsix{cmmi5 scaled 1094}
   \fnt\mbsst{cmsy9 scaled 1313}
   \fnt\mbsss{cmsy6 scaled 1313}
   \fnt\mbssx{cmsy5 scaled 1094}
   \fnt\mbsxt{cmex10 scaled 1094}
   \fnt\mxsrt{cmr10 scaled 1459}
   \fnt\mxsrs{cmr7 scaled 1459}
   \fnt\mxsrx{cmr5 scaled 1459}
   \fnt\mxsit{cmmi10 scaled 1459}
   \fnt\mxsis{cmmi7 scaled 1459}
   \fnt\mxsix{cmmi5 scaled 1459}
   \fnt\mxsst{cmsy10 scaled 1459}
   \fnt\mxsss{cmsy7 scaled 1459}
   \fnt\mxssx{cmsy5 scaled 1459}
   \fnt\mxsxt{cmex10 scaled 1459}
   \fntsub\mtsrt{cmr10 at 24.88truept}{cmr8 at 23.89}
   \fntsub\mtsrs{cmr7 at 17.42truept}{cmr6 at 17.92}
   \fnt\mtsrx{cmr5 at 12.44truept}
   \fntsub\mtsit{cmmi10 at 24.88truept}{cmmi8 at 23.89}
   \fntsub\mtsis{cmmi7 at 17.42truept}{cmmi6 at 17.92}
   \fnt\mtsix{cmmi5 at 12.44truept}
   \fntsub\mtsst{cmsy10 at 24.88truept}{cmsy8 at 23.89}
   \fntsub\mtsss{cmsy7 at 17.42truept}{cmsy6 at 17.92}
   \fnt\mtssx{cmsy5 at 12.44truept}
   \fnt\mtsxt{cmex10 at 24.88truept}
   \fntsub\mlsrt{cmr10 at 29.86truept}{cmr8 at 28.67truept}
   \fntsub\mlsrs{cmr7 at 20.90truept}{cmr6 at 21.50truept}
   \fnt\mlsrx{cmr5 at 14.93truept}
   \fntsub\mlsit{cmmi10 at 29.86truept}{cmmi8 at 28.67truept}
   \fntsub\mlsis{cmmi7 at 20.90truept}{cmmi6 at 21.50truept}
   \fnt\mlsix{cmmi5 at 14.93truept}
   \fntsub\mlsst{cmsy10 at 29.86truept}{cmsy8 at 28.67truept}
   \fntsub\mlsss{cmsy7 at 20.90truept}{cmsy6 at 21.50truept}
   \fnt\mlssx{cmsy5 at 14.93truept}
   \fnt\mlsxt{cmex10 at 29.86truept}

\fi

\setfont \setmath
