%  GFONT.TEX
%  WRITTEN SEPTEMBER 1, 1987
%  ENLARGED APRIL 28, 1988, TO INCLUDE TITLEFONT AND
%     LARGETITLEFONT MATH.

%  GOALS:  SUPPORT FOR MAGNIFICATIONS 1000, 1095, 1152, AND 1200
%  STYLES: \roman, \sansserif, \altsansserif
%  MODES: \normal, \bf, \it, \sl, \bigbf, \bigbigbf, [\titlefont]
%     [\largetitlefont,] \bfmath, \bigbfmath, \bigbigbfmath,
%     \titlefontmath, \largetitlefontmath
%  Here \big denotes an additional magnification of 1.2, and
%     \bigbig denotes a factor of 1.44.
%  [] denotes availability in roman only (bqs)

% Style definitions:
\def\roman{\def\normal{\fam0 \rnormal}\def\bf{\fam\bffam \rbf}%
     \def\it{\fam\itfam \rit}\def\sl{\fam\slfam \rsl}%
     \def\bigbf{\rbigbf}\def\bigbigbf{\rbigbigbf}%
     \def\titlefont{\rtitlefont}%
     \def\largetitlefont{\rlargetitlefont}\normal}
% %'s used at end of line to prevent space from being printed
%   when macro is used in horizontal mode.
\def\sansserif{\def\normal{\fam0 \ssnormal}\def\bf{\fam\bffam%
     \ssbf}\def\it{\fam\itfam \ssit}\def\sl{\fam\slfam \sssl}%
     \def\bigbf{\ssbigbf}\def\bigbigbf{\ssbigbigbf}%
%     \def\titlefont{\sstitlefont}%
%     \def\largetitlefont{\sslargetitlefont}
	\normal}
\def\altsansserif{\def\normal{\fam0 \altssnormal}%
     \def\bf{\fam\bffam \ssbf}\def\it{\fam\itfam \ssit}%
     \def\sl{\fam\slfam \sssl}\def\bigbf{\ssbigbf}%
     \def\bigbigbf{\ssbigbigbf}%\def\titlefont{\sstitlefont}%
%     \def\largetitlefont{\sslargetitlefont}
	\normal}
\def\sanserif{\sansserif}
\def\altsanserif{\altsansserif}
\def\bfmath{\loadbfmath \gdef\loadbfmath{}\fam0
     \textfont0=\tenmbf \scriptfont0=\eightmbf
     \scriptscriptfont0=\sevenmbf
     \textfont1=\tenbi \scriptfont1=\eightbi
     \scriptscriptfont1=\sevenbi \textfont2=\tenbsy
     \scriptfont2=\eightbsy \scriptscriptfont2=\sevenbsy}
\def\bigbfmath{\loadbigbfmath \gdef\loadbigbfmath{}\fam0
     \textfont0=\twelvembbf \scriptfont0=\eightmbbf
     \scriptscriptfont0=\sevenmbbf
     \textfont1=\twelvebbi \scriptfont1=\eightbbi
     \scriptscriptfont1=\sevenbbi \textfont2=\twelvebbsy
     \scriptfont2=\eightbbsy \scriptscriptfont2=\sevenbbsy
     \textfont3=\twelveex \scriptfont3=\twelveex
     \scriptscriptfont3=\twelveex}
\def\bigbigbfmath{\loadbigbigbfmath \gdef\loadbigbigbfmath{}%
     \fam0 \textfont0=\fourteenmbbbf \scriptfont0=\tenmbbbf
     \scriptscriptfont0=\sevenmbbbf
     \textfont1=\fourteenbbbi \scriptfont1=\tenbbbi
     \scriptscriptfont1=\sevenbbbi \textfont2=\fourteenbbbsy
     \scriptfont2=\tenbbbsy \scriptscriptfont2=\sevenbbbsy
     \textfont3=\fourteenex \scriptfont3=\fourteenex
     \scriptscriptfont3=\fourteenex}
\def\titlefontmath{\loadtitlefontmath \gdef\loadtitlefontmath{}%
     \fam0 \textfont0=\twentyfivebbbbf \scriptfont0=\seventeenbbbbf
     \scriptscriptfont0=\twelvebbbbf
     \textfont1=\twentyfivebbbbi \scriptfont1=\seventeenbbbbi
     \scriptscriptfont1=\twelvebbbbi \textfont2=\twentyfivebbbbsy
     \scriptfont2=\seventeenbbbbsy \scriptscriptfont2=\twelvebbbbsy
     \textfont3=\twentyfivex \scriptfont3=\twentyfivex
     \scriptscriptfont3=\twentyfivex}
\def\largetitlefontmath{\loadlargetitlefontmath
     \gdef\loadlargetitlefontmath{}%
     \fam0 \textfont0=\thirtybbbbbf \scriptfont0=\twentyonebbbbbf
     \scriptscriptfont0=\fifteenbbbbbf
     \textfont1=\thirtybbbbbi \scriptfont1=\twentyonebbbbbi
     \scriptscriptfont1=\fifteenbbbbbi \textfont2=\thirtybbbbbsy
     \scriptfont2=\twentyonebbbbbsy \scriptscriptfont2=\fifteenbbbbbsy
     \textfont3=\thirtyex \scriptfont3=\thirtyex
     \scriptscriptfont3=\thirtyex}

\def\loadtitlefontmath{%
     \global\font\twentyfivebbbbf=cmr10 at 24.88truept
     \global\font\seventeenbbbbf=cmr7 at 17.42truept
     \global\font\twelvebbbbf=cmr5 at 12.44truept
     \global\font\twentyfivebbbbi=cmmi10 at 24.88truept
     \global\font\seventeenbbbbi=cmmi7 at 17.42truept
     \global\font\twelvebbbbi=cmmi5 at 12.44truept
     \global\font\twentyfivebbbbsy=cmsy10 at 24.88truept
     \global\font\seventeenbbbbsy=cmsy7 at 17.42truept
     \global\font\twelvebbbbsy=cmsy5 at 12.44truept
     \global\font\twentyfivex=cmex10 at 24.88truept}
\def\loadlargetitlefontmath{%
     \global\font\thirtybbbbbf=cmr10 at 29.86truept
     \global\font\twentyonebbbbbf=cmr7 at 20.90truept
     \global\font\fifteenbbbbbf=cmr5 at 14.93truept
     \global\font\thirtybbbbbi=cmmi10 at 29.86truept
     \global\font\twentyonebbbbbi=cmmi7 at 20.90truept
     \global\font\fifteenbbbbbi=cmmi5 at 14.93truept
     \global\font\thirtybbbbbsy=cmsy10 at 29.86truept
     \global\font\twentyonebbbbbsy=cmsy7 at 20.90truept
     \global\font\fifteenbbbbbsy=cmsy5 at 14.93truept
     \global\font\thirtyex=cmex10 at 29.86truept}

% For magnification 1000:
\ifnum \mag=1000
\def\rnormal{\tenrm}
\def\rbf{\tenbf}
\def\rit{\tenit}
\def\rsl{\tensl}
\font\rbigbf=cmbx10 scaled 1200
\font\rbigbigbf=cmbx10 scaled 1440
\font\rtitlefont=cmbx10 at 24.88truept
\font\rlargetitlefont=cmbx10 at 29.86truept
\font\ssnormal=cmss10
\font\ssbf=cmssbx10
\font\ssit=cmssi10
\font\sssl=cmssqi8 scaled 1200
\font\ssbigbf=cmssbx10 scaled 1200
\font\ssbigbigbf=cmssbx10 scaled 1440
\font\altssnormal=cmss10
%\font\sstitlefont=cmss40 at 26.67truept
%\font\sslargetitlefont=cmss40 at 35.07truept
\def\loadbfmath{%
     \global\font\tenmbf=cmbx10
     \global\font\eightmbf=cmbx10 scaled 800
     \global\font\sevenmbf=cmbx10 scaled 667
     \global\font\tenbi=cmbx10
     \global\font\eightbi=cmbx10 scaled 800
     \global\font\sevenbi=cmbx10 scaled 667
     \global\font\tenbsy=cmbsy10
     \global\font\eightbsy=cmbsy10 scaled 800
     \global\font\sevenbsy=cmbsy10 scaled 667}
\def\loadbigbfmath{%
     \global\font\twelvembbf=cmbx10 scaled 1200
     \global\font\eightmbbf=cmbx10 scaled 800
     \global\font\sevenmbbf=cmbx10 scaled 667
     \global\font\twelvebbi=cmbx10 scaled 1200
     \global\font\eightbbi=cmbx10 scaled 800
     \global\font\sevenbbi=cmbx10 scaled 667
     \global\font\twelvebbsy=cmbsy10 scaled 1200
     \global\font\eightbbsy=cmbsy10 scaled 800
     \global\font\sevenbbsy=cmbsy10 scaled 667
     \global\font\twelveex=cmex10 scaled 1200}
\def\loadbigbigbfmath{%
     \global\font\fourteenmbbbf=cmbx10 scaled 1440
     \global\font\tenmbbbf=cmbx10
     \global\font\sevenmbbbf=cmbx10 scaled 667
     \global\font\fourteenbbbi=cmbx10 scaled 1440
     \global\font\tenbbbi=cmbx10
     \global\font\sevenbbbi=cmbx10 scaled 667
     \global\font\fourteenbbbsy=cmbsy10 scaled 1440
     \global\font\tenbbbsy=cmbsy10
     \global\font\sevenbbbsy=cmbsy10 scaled 667
     \global\font\fourteenex=cmex10 scaled 1440}
\fi

% For magnification 1200:
\ifnum \mag=1200
\def\rnormal{\tenrm}
\def\rbf{\tenbf}
\def\rit{\tenit}
\def\rsl{\tensl}
\font\rbigbf=cmbx10 scaled 1200
\font\rbigbigbf=cmbx10 scaled 1440
\font\rtitlefont=cmbx10 at 24.88truept
\font\rlargetitlefont=cmbx10 at 29.86truept
\font\ssnormal=cmss10
\font\ssbf=cmssbx10
\font\ssit=cmssi10
\font\sssl=cmssqi8 scaled 1200
\font\ssbigbf=cmssbx10 scaled 1200
\def\ssbigbigbf{\immediate\write16{Sans serif big-big boldface
     font exists only at magnification 1000.  Roman big-big
     boldface font is substituted.}\gdef\ssbigbigbf{\rbigbigbf}%
     \ssbigbigbf}
\font\altssnormal=cmss10
%\font\sstitlefont=cmss40 at 26.67truept
%\font\sslargetitlefont=cmss40 at 35.07truept
\def\loadbfmath{%
     \global\font\tenmbf=cmbx10
     \global\font\eightmbf=cmbx10 scaled 800
     \global\font\sevenmbf=cmbx10 scaled 667
     \global\font\tenbi=cmbx10
     \global\font\eightbi=cmbx10 scaled 800
     \global\font\sevenbi=cmbx10 scaled 667
     \global\font\tenbsy=cmbsy10
     \global\font\eightbsy=cmbsy10 scaled 800
     \global\font\sevenbsy=cmbsy10 scaled 667}
\def\loadbigbfmath{%
     \global\font\twelvembbf=cmbx10 scaled 1200
     \global\font\eightmbbf=cmbx10 scaled 800
     \global\font\sevenmbbf=cmbx10 scaled 667
     \global\font\twelvebbi=cmbx10 scaled 1200
     \global\font\eightbbi=cmbx10 scaled 800
     \global\font\sevenbbi=cmbx10 scaled 667
     \global\font\twelvebbsy=cmbsy10 scaled 1200
     \global\font\eightbbsy=cmbsy10 scaled 800
     \global\font\sevenbbsy=cmbsy10 scaled 667
     \global\font\twelveex=cmex10 scaled 1200}
\def\loadbigbigbfmath{%
     \global\font\fourteenmbbbf=cmr10 scaled 1440
     \global\font\tenmbbbf=cmr7 scaled 1440
     \global\font\sevenmbbbf=cmr5 scaled 1440
     \global\font\fourteenbbbi=cmmi10 scaled 1440
     \global\font\tenbbbi=cmmi7 scaled 1440
     \global\font\sevenbbbi=cmmi5 scaled 1440
     \global\font\fourteenbbbsy=cmsy10 scaled 1440
     \global\font\tenbbbsy=cmsy7 scaled 1440
     \global\font\sevenbbbsy=cmsy5 scaled 1440
     \global\font\fourteenex=cmex10 scaled 1440
     \immediate\write16{\string\bigbigbf \space math symbols do
     not exist at magnification 1200.  \string\bigbig \space
     symbols are used as substitutes.}}
\fi

% For magnification 1095:
\ifnum \mag=1095
\def\rnormal{\tenrm}
\def\rbf{\tenbf}
\def\rit{\tenit}
\def\rsl{\tensl}
\font\rbigbf=cmbx10 scaled 1262
\font\rbigbigbf=cmbx10 scaled 1461
\font\rtitlefont=cmbx10 at 24.88truept
\font\rlargetitlefont=cmbx10 at 29.86truept
\font\ssnormal=cmss10
\font\ssbf=cmssbx10
\font\ssit=cmssi10
\def\sssl{\immediate\write16{Sans serif slanted font does not
     exist at the magnification of 11 pt.  San serif italics is
     used as a substitute.}\gdef\sssl{\ssit}\sssl}
\font\ssbigbf=cmssbx10 scaled 1315
\def\ssbigbigbf{\immediate\write16{Sans serif big-big boldface
     font exists only at magnification 1000.  Roman big-big
     boldface font is substituted.}\gdef\ssbigbigbf{\rbigbigbf}%
     \ssbigbigbf}
\font\altssnormal=cmss10
%\font\sstitlefont=cmss40 at 26.67truept
%\font\sslargetitlefont=cmss40 at 35.07truept
\def\loadbfmath{%
     \global\font\tenmbf=cmbx10
     \global\font\eightmbf=cmbx10 scaled 800
     \global\font\sevenmbf=cmbx10 scaled 667
     \global\font\tenbi=cmbx10
     \global\font\eightbi=cmbx10 scaled 800
     \global\font\sevenbi=cmbx10 scaled 667
     \global\font\tenbsy=cmbsy10
     \global\font\eightbsy=cmbsy10 scaled 800
     \global\font\sevenbsy=cmbsy10 scaled 667}
\def\loadbigbfmath{%
     \global\font\twelvembbf=cmbx10 scaled 1315
     \global\font\eightmbbf=cmbx10 scaled 800
     \global\font\sevenmbbf=cmbx10 scaled 667
     \global\font\twelvebbi=cmbx10 scaled 1315
     \global\font\eightbbi=cmbx10 scaled 800
     \global\font\sevenbbi=cmbx10 scaled 667
     \global\font\twelvebbsy=cmbsy10 scaled 1315
     \global\font\eightbbsy=cmbsy10 scaled 800
     \global\font\sevenbbsy=cmbsy10 scaled 667
     \global\font\twelveex=cmex10 scaled 1315}
\def\loadbigbigbfmath{%
     \global\font\fourteenmbbbf=cmr10 scaled 1461
     \global\font\tenmbbbf=cmr7 scaled 1461
     \global\font\sevenmbbbf=cmr5 scaled 1461
     \global\font\fourteenbbbi=cmmi10 scaled 1461
     \global\font\tenbbbi=cmmi7 scaled 1461
     \global\font\sevenbbbi=cmmi5 scaled 1461
     \global\font\fourteenbbbsy=cmsy10 scaled 1461
     \global\font\tenbbbsy=cmsy7 scaled 1461
     \global\font\sevenbbbsy=cmsy5 scaled 1461
     \global\font\fourteenex=cmex10 scaled 1461
     \immediate\write16{\string\bigbigbf \space math symbols do
     not exist at magnification 1095.  \string\bigbig \space
     symbols are used as substitutes.}}
\fi

% For magnification 1152:
\ifnum \mag=1152
\def\sswarn{\immediate\write16{Sans serif font does not exist at
     the magnification of 11.5 pt.}}
\def\rnormal{\tenrm}
\def\rbf{\tenbf}
\def\rit{\tenit}
\def\rsl{\tensl}
\font\rbigbf=cmbx10 scaled 1200
\font\rbigbigbf=cmbx10 scaled 1440
\font\rtitlefont=cmbx10 at 24.88truept
\font\rlargetitlefont=cmbx10 at 29.86truept
\def\ssnormal{\sswarn \gdef\sswarn{}\rnormal}
\def\ssbf{\sswarn \gdef\sswarn{}\rbf}
\def\ssit{\sswarn \gdef\sswarn{}\rit}
\def\sssl{\sswarn \gdef\sswarn{}\rsl}
\def\ssbigbf{\sswarn \gdef\sswarn{}\rbigbf}
\def\ssbigbigbf{\sswarn \gdef\sswarn{}\rbigbigbf}
\def\altssnormal{\sswarn \gdef\sswarn{}\rnormal}
%\font\sstitlefont=cmss40 at 26.67truept
%\font\sslargetitlefont=cmss40 at 35.07truept
\def\loadbfmath{%
     \global\font\tenmbf=cmr10
     \global\font\eightmbf=cmr7
     \global\font\sevenmbf=cmr5
     \global\font\tenbi=cmmi10
     \global\font\eightbi=cmmi7
     \global\font\sevenbi=cmmi5
     \global\font\tenbsy=cmsy10
     \global\font\eightbsy=cmsy7
     \global\font\sevenbsy=cmsy5
     \immediate\write16{\string\bf \space math symbols do not
     exist at magnification 1152.  Ordinary symbols are used as
     substitutes.}}
\def\loadbigbfmath{%
     \global\font\twelvembbf=cmbx10 scaled 1250
     \global\font\eightmbbf=cmbx10 scaled 833
     \global\font\sevenmbbf=cmbx10 scaled 694
     \global\font\twelvebbi=cmbx10 scaled 1250
     \global\font\eightbbi=cmbx10 scaled 833
     \global\font\sevenbbi=cmbx10 scaled 694
     \global\font\twelvebbsy=cmbsy10 scaled 1250
     \global\font\eightbbsy=cmbsy10 scaled 833
     \global\font\sevenbbsy=cmbsy10 scaled 694
     \global\font\twelveex=cmex10 scaled 1250}
\def\loadbigbigbfmath{%
     \global\font\fourteenmbbbf=cmr10 scaled 1440
     \global\font\tenmbbbf=cmr7 scaled 1440
     \global\font\sevenmbbbf=cmr5 scaled 1440
     \global\font\fourteenbbbi=cmmi10 scaled 1440
     \global\font\tenbbbi=cmmi7 scaled 1440
     \global\font\sevenbbbi=cmmi5 scaled 1440
     \global\font\fourteenbbbsy=cmsy10 scaled 1440
     \global\font\tenbbbsy=cmsy7 scaled 1440
     \global\font\sevenbbbsy=cmsy5 scaled 1440
     \global\font\fourteenex=cmex10 scaled 1440
     \immediate\write16{\string\bigbigbf \space math symbols do
     not exist at magnification 1152.  \string\bigbig \space
     symbols are used as substitutes.}}
\fi

\roman


