% FNTS.TEX v3.0 Copyright (c) 1994-1999 Harold W. de Wijn
%
% FONT SELECTION FOR PLAIN TeX, featuring
% - 21 sizes in the range 7 to 154 points;
% - 16 typefaces, including Italic Bold, Calligraphic Bold, Sans Serif,
% Sans Serif Italic, and Sans Serif Bold;
% - Boldmath, inclusive of subscripts, superscripts, and symbols.
%
% File is provided `as is' with no warranty of any kind.
%
% For documentation see file FNTS.DOC
%
% Please direct comments to the author at H.W.deWijn@phys.uu.nl
\message{v3.0 Copyright (c) 1994-1999 Harold W. de Wijn}
\catcode`@=11
% Non bis in idem! (Do not read file twice!)
\ifx\@FONTS\undefined\relax\else\catcode`@=12 \endinput\fi
% FAMILIES ALREADY DEFINED IN TeX
% % family:
% % 0 roman \rm
% % 1 math italic \mit (math), \oldstyle
% % 2 symbols \cal (math)
% % 3 math extension
% \newfam\itfam % 4 text italic \it
% \newfam\slfam % 5 slanted roman \sl
% \newfam\bffam % 6 boldface \bf
% \newfam\ttfam % 7 typewriter \tt
% ADDITIONAL FAMILIES
\newfam\mibfam % 8 math italic bold \mib (math), \boldoldstyle
\newfam\bsyfam % 9 symbol bold \boldcal (math)
\newfam\itbfam % 10 text italic bold \itb
\newfam\sffam % 11 sans serif \sf
\newfam\sfifam % 12 sans serif italic \sfi
\newfam\sfbfam % 13 sans serif bold \sfb
% MAGSTEP 0 UNTIL 15
%\def\magstephalf{1095 } % defined in plain TeX
\def\magsteponehalf{1314 }
\def\magstep#1{\ifcase#1 \@m\or 1200\or 1440\or 1728\or 2074\or 2488\or
2986\or 3583\or 4300\or 5160\or 6192\or 7430\or 8916\or 10699\or
12839\or 15407\fi\relax}
% TO SAVE TOKENS
\def\@height{height} \def\@depth{depth} \def\@width{width}
\def\@magstep#1{ scaled \magstep{#1}\relax}
\def\@magstephalf{ scaled \magstephalf\relax}
\def\@magsteponehalf{ scaled \magsteponehalf\relax}
\def\@scaled#1{ scaled #1\relax}
\def\@plus{ plus }
\def\@minus{ minus }
% MODIFICATION OF \raggedright TO INCLUDE AUTOMATIC ADJUSTMENT WITH
% CHANGE OF FONT SIZE
\newif\ifr@ggedright % signals subsequent font-size commands
\newif\ifttr@ggedright % to adjust \raggedright
\def\raggedright{\rightskip\z@ plus2em \spaceskip.3333em \xspaceskip.5em
\r@ggedrighttrue\relax}
\def\ttraggedright{\tt\rightskip\z@ plus2em\ttr@ggedrighttrue\relax}
% for use with \tt only
% DEFINITIONS MODIFIED FROM PLAIN TO INCLUDE \xp@ INSTEAD OF \p@
% \xp@ replaces \p@ and pt to ensure proper scaling with the font size.
% Note: Scaling \p@ itself, which would have avoided redefinition of the
% macros below, leads to unpredictable output.
\newdimen\xp@
\def\vdots{\vbox{\baselineskip4\xp@ \lineskiplimit\z@
\kern6\xp@\hbox{.}\hbox{.}\hbox{.}}}
\def\ddots{\mathinner{\mkern1mu\raise7\xp@\vbox{\kern7\xp@\hbox{.}}\mkern2mu
\raise4\xp@\hbox{.}\mkern2mu\raise\xp@\hbox{.}\mkern1mu}}
\def\overrightarrow#1{\vbox{\m@th\ialign{##\crcr
\rightarrowfill\crcr\noalign{\kern-\xp@\nointerlineskip}
$\hfil\displaystyle{#1}\hfil$\crcr}}}
\def\overleftarrow#1{\vbox{\m@th\ialign{##\crcr
\leftarrowfill\crcr\noalign{\kern-\xp@\nointerlineskip}
$\hfil\displaystyle{#1}\hfil$\crcr}}}
\def\overbrace#1{\mathop{\vbox{\m@th\ialign{##\crcr\noalign{\kern3\xp@}
\downbracefill\crcr\noalign{\kern3\xp@\nointerlineskip}
$\hfil\displaystyle{#1}\hfil$\crcr}}}\limits}
\def\underbrace#1{\mathop{\vtop{\m@th\ialign{##\crcr
$\hfil\displaystyle{#1}\hfil$\crcr\noalign{\kern3\xp@\nointerlineskip}
\upbracefill\crcr\noalign{\kern3\xp@}}}}\limits}
\def\big#1{{\hbox{$\left#1\vbox to8.5\xp@{}\right.\n@space$}}}
\def\Big#1{{\hbox{$\left#1\vbox to11.5\xp@{}\right.\n@space$}}}
\def\bigg#1{{\hbox{$\left#1\vbox to14.5\xp@{}\right.\n@space$}}}
\def\Bigg#1{{\hbox{$\left#1\vbox to17.5\xp@{}\right.\n@space$}}}
\def\@vereq#1#2{\lower.5\xp@\vbox{\lineskiplimit\maxdimen\lineskip-.5\xp@
\ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
\def\bordermatrix#1{\begingroup \m@th
\setbox\z@\vbox{\def\cr{\crcr\noalign{\kern2\xp@\global\let\cr\endline}}%
\ialign{$##$\hfil\kern2\xp@\kern\p@renwd&\thinspace\hfil$##$\hfil
&&\quad\hfil$##$\hfil\crcr
\omit\strut\hfil\crcr\noalign{\kern-\baselineskip}%
#1\crcr\omit\strut\cr}}%
\setbox\tw@\vbox{\unvcopy\z@\global\setbox\@ne\lastbox}%
\setbox\tw@\hbox{\unhbox\@ne\unskip\global\setbox\@ne\lastbox}%
\setbox\tw@\hbox{$\kern\wd\@ne\kern-\p@renwd\left(\kern-\wd\@ne
\global\setbox\@ne\vbox{\box\@ne\kern2\xp@}%
\vcenter{\kern-\ht\@ne\unvbox\z@\kern-\baselineskip}\,\right)$}%
\null\;\vbox{\kern\ht\@ne\box\tw@}\endgroup}
\def\raggedbottom{\topskip 10\xp@ plus60\xp@ \r@ggedbottomtrue}
\def\normalbottom{\topskip 10\xp@ \r@ggedbottomfalse} % undoes \raggedbottom
\def\endinsert{\egroup % finish the \vbox
\if@mid \dimen@\ht\z@ \advance\dimen@\dp\z@ \advance\dimen@12\xp@
\advance\dimen@\pagetotal \advance\dimen@-\pageshrink
\ifdim\dimen@>\pagegoal\@midfalse\p@gefalse\fi\fi
\if@mid \bigskip\box\z@\bigbreak
\else\insert\topins{\penalty100 % floating insertion
\splittopskip\z@skip
\splitmaxdepth\maxdimen \floatingpenalty\z@
\ifp@ge \dimen@\dp\z@
\vbox to\vsize{\unvbox\z@\kern-\dimen@}% depth is zero
\else \box\z@\nobreak\bigskip\fi}\fi\endgroup}
\def\footnoterule{\kern-3\xp@
\hrule width 2truein \kern 2.6\xp@} % the \hrule is .4pt high
% DEFINITIONS MODIFIED FROM PLAIN TO INCLUDE \xp@ INSTEAD OF pt
\def\angle{{\vbox{\ialign{$\m@th\scriptstyle##$\crcr
\not\mathrel{\mkern14mu}\crcr
\noalign{\nointerlineskip}
\mkern2.5mu\leaders\hrule height.34\xp@\hfill\mkern2.5mu\crcr}}}}
\def\rlh@#1{\vcenter{\m@th\hbox{\ooalign{\raise2\xp@
\hbox{$#1\rightharpoonup$}\crcr
$#1\leftharpoondown$}}}}
% MODIFIED FOR THE SAKE OF BOLDMATH (\rm -> \fam\z@)
\def\log{\mathop{\fam\z@ log}\nolimits}
\def\lg{\mathop{\fam\z@ lg}\nolimits}
\def\ln{\mathop{\fam\z@ ln}\nolimits}
\def\lim{\mathop{\fam\z@ lim}}
\def\limsup{\mathop{\fam\z@ lim\,sup}}
\def\liminf{\mathop{\fam\z@ lim\,inf}}
\def\sin{\mathop{\fam\z@ sin}\nolimits}
\def\arcsin{\mathop{\fam\z@ arcsin}\nolimits}
\def\sinh{\mathop{\fam\z@ sinh}\nolimits}
\def\cos{\mathop{\fam\z@ cos}\nolimits}
\def\arccos{\mathop{\fam\z@ arccos}\nolimits}
\def\cosh{\mathop{\fam\z@ cosh}\nolimits}
\def\tan{\mathop{\fam\z@ tan}\nolimits}
\def\arctan{\mathop{\fam\z@ arctan}\nolimits}
\def\tanh{\mathop{\fam\z@ tanh}\nolimits}
\def\cot{\mathop{\fam\z@ cot}\nolimits}
\def\coth{\mathop{\fam\z@ coth}\nolimits}
\def\sec{\mathop{\fam\z@ sec}\nolimits}
\def\csc{\mathop{\fam\z@ csc}\nolimits}
\def\max{\mathop{\fam\z@ max}}
\def\min{\mathop{\fam\z@ min}}
\def\sup{\mathop{\fam\z@ sup}}
\def\inf{\mathop{\fam\z@ inf}}
\def\arg{\mathop{\fam\z@ arg}\nolimits}
\def\ker{\mathop{\fam\z@ ker}\nolimits}
\def\dim{\mathop{\fam\z@ dim}\nolimits}
\def\hom{\mathop{\fam\z@ hom}\nolimits}
\def\det{\mathop{\fam\z@ det}}
\def\exp{\mathop{\fam\z@ exp}\nolimits}
\def\Pr{\mathop{\fam\z@ Pr}}
\def\gcd{\mathop{\fam\z@ gcd}}
\def\deg{\mathop{\fam\z@ deg}\nolimits}
\def\bmod{\nonscript\mskip-\medmuskip\mkern5mu
\mathbin{\fam\z@ mod}\penalty900\mkern5mu\nonscript\mskip-\medmuskip}
\def\pmod#1{\allowbreak\mkern18mu({\fam\z@ mod}\,\,#1)}
% BUT THE FOLLOWING SHOULD ONLY PARTIALLY SCALE WITH THE FONT SIZE!
\newdimen\headlineskip
\newdimen\headlineskipa
\newdimen\footlineskip
\def\makeheadline{\vbox to\z@{\vskip-\headlineskip\vskip\topskip
\line{\vbox to\headlineskipa{}\the\headline}\vss}\nointerlineskip}
\def\makefootline{\baselineskip\footlineskip\line{\the\footline}}
% FOOTLINE, HEADLINE
\newif\if@firstsize\@firstsizetrue
\let\footlinefont\rm % \fam0\tenrm is default
\footline={\hss\footlinefont\folio\hss}
% \headline={\footlinefont\hfil} % headline is normally blank
% NONZERO DIMENSIONS AND GLUES MODIFIED FROM PLAIN
\newcount\tightenp@r@meter\tightenp@r@meter=\z@ %default
\newdimen\yp@
\def\norm@ldispl@ys{%
\abovedisplayskip=12\xp@ \@plus3\xp@ \@minus9\xp@
\abovedisplayshortskip=0\xp@ \@plus3\xp@
\belowdisplayskip=12\xp@ \@plus3\xp@ \@minus9\xp@
\belowdisplayshortskip=7\xp@ \@plus3\xp@ \@minus4\xp@}
\def\normaldisplays{\tightenp@r@meter=\z@\norm@ldispl@ys}
\def\tightendisplays#1{%
\tightenp@r@meter=#1\norm@ldispl@ys % reset to avoid cumulation
\yp@=-\tightenp@r@meter\xp@ \divide\yp@ by 100
\ifdim\yp@<\z@
\advance\abovedisplayskip 6\yp@ \@minus4.5\yp@ % reducing abilty to
\advance\abovedisplayshortskip \yp@ % shrink for positive
\advance\belowdisplayskip 6\yp@ \@minus4.5\yp@ % \tightenp@r@meter's
\advance\belowdisplayshortskip 3\yp@ \@minus2\yp@
\else
\advance\abovedisplayskip 6\yp@ % just add white for
\advance\abovedisplayshortskip 6\yp@ % negative \tightenp@r@meter's
\advance\belowdisplayskip 6\yp@
\advance\belowdisplayshortskip 6\yp@
\fi}
\def\s@tdimen{%
\delimitershortfall=5\xp@
\nulldelimiterspace=1.2\xp@
\scriptspace=0.5\xp@
%%\parindent=20pt % We leave this one!
%%\parskip=0pt plus 1pt % We leave this one!
\ifnum\tightenp@r@meter=\z@\norm@ldispl@ys\else % Default is scaling
\tightendisplays\tightenp@r@meter\fi % with font size
\topskip=10\xp@
\splittopskip=10\xp@
\smallskipamount=3\xp@ \@plus1\xp@ \@minus1\xp@
\medskipamount=6\xp@ \@plus2\xp@ \@minus2\xp@
\bigskipamount=12\xp@ \@plus4\xp@ \@minus4\xp@
\normalbaselineskip 12\xp@
\normallineskip=1\xp@
\jot=3\xp@
\setbox\strutbox=\hbox{\vrule \@height8.5\xp@ \@depth3.5\xp@ \@width\z@}%
\setbox0=\hbox{$\mathchar"0342$}\p@renwd=\wd0 %equivalent tenex B in TeX
\normalbaselines
% and finally setting \footlinefont, etc
\if@firstsize\global\@firstsizefalse
\headlineskip15.5pt\advance\headlineskip17\xp@\headlineskipa8.5\xp@
\footlineskip15.5pt\advance\footlineskip8.5\xp@
% To avoid an unpredictable \footline, \fam0\<size>rm associated with
% the font size called first is included in \footlinefont.
\futurelet\footlinefont
\fi}
% FONT SIZES
\def\v@{five} \def\vi@{six} \def\vii@{seven}
\def\viii@{eight} \def\ix@{nine} \def\x@{ten}
\def\xi@{eleven} \def\xii@{twelve} \def\xiii@{thirteen}
\def\xiv@{fourteen} \def\xvii@{seventeen} \def\xxi@{twentyone}
\def\xxv@{twentyfive} \def\xxx@{thirty} \def\xxxvi@{thirtysix}
\def\xliii@{fortythree} \def\lii@{fiftytwo} \def\lxii@{sixtytwo}
\def\lxxiv@{seventyfour} \def\lxxxix@{eightynine} \def\cvii@{hundredseven}
\def\cxxviii@{hundredtwentyeight}
\def\cliv@{hundredfiftyfour}
% ROLL CALL OF FONTS
%\def\@fiverm{cmr5} % \fiverm defined in plain TeX
%\def\@fivei{cmmi5} % \fivei defined in plain TeX
%def\@fivesy{cmsy5} % \fivesy defined in plain TeX
%\def\@fiveex{cmex7\@scaled{714}} % not needed
%\def\@fiveit{cmti7\@scaled{714}} % not needed
%\def\@fivesl{cmsl8\@scaled{625}} % not needed
%def\@fivebf{cmbx5} % \fivebf defined in plain TeX
%\def\@fivett{cmtt8\@scaled{625}} % not needed
\def\@fivemib{cmmib5\skewchar\fivemib='177}
\def\@fivebsy{cmbsy5}
%\def\@fiveitb{cmbxti10\@scaled{500}} % not needed
\def\@fivesf{cmss8\@scaled{625}}
\def\@fivesfi{cmssi8\@scaled{625}}
\def\@fivesfb{cmssdc10\@scaled{500}} % does not Metafont well at 300 dpi
%\def\@fivesc{cmcsc8\@scaled{625}} % not needed
\def\@sixrm{cmr6}
\def\@sixi{cmmi6\skewchar\sixi='177}
\def\@sixsy{cmsy6\skewchar\sixsy='60}
%\def\@sixex{cmex7\@scaled{857}} % not needed
%\def\@sixit{cmti7\@scaled{857}} % not needed
%\def\@sixsl{cmsl8\@scaled{750}} % not needed
\def\@sixbf{cmbx6}
%\def\@sixtt{cmtt8\@scaled{750}} % not needed
\def\@sixmib{cmmib6\skewchar\sixmib='177}
\def\@sixbsy{cmbsy6}
%\def\@sixitb{cmbxti10\@scaled{600}} % not needed
\def\@sixsf{cmss8\@scaled{750}}
\def\@sixsfi{cmssi8\@scaled{750}}
\def\@sixsfb{cmssdc10\@scaled{600}}
%\def\@sixsc{cmcsc8\@scaled{750}} % not needed
%\def\@sevenrm{cmr7} % \sevenrm defined in plain TeX
%\def\@seveni{cmmi7} % \seveni defined in plain TeX
%def\@sevensy{cmsy7} % \sevensy defined in plain TeX
\def\@sevenex{cmex7}
\def\@sevenit{cmti7}
\def\@sevensl{cmsl8\@scaled{875}}
%\def\@sevenbf{cmbx7} % \sevenbf defined in plain TeX
\def\@seventt{cmtt8\@scaled{875}}
\def\@sevenmib{cmmib7\skewchar\sevenmib='177}
\def\@sevenbsy{cmbsy7}
\def\@sevenitb{cmbxti10\@scaled{700}}
\def\@sevensf{cmss8\@scaled{875}}
\def\@sevensfi{cmssi8\@scaled{875}}
\def\@sevensfb{cmssdc10\@scaled{700}}
\def\@sevensc{cmcsc8\@scaled{875}}
\def\@eightrm{cmr8}
\def\@eighti{cmmi8\skewchar\eighti='177}
\def\@eightsy{cmsy8\skewchar\eightsy='60}
\def\@eightex{cmex8}
\def\@eightit{cmti8}
\def\@eightsl{cmsl8}
\def\@eightbf{cmbx8}
\def\@eighttt{cmtt8}
\def\@eightmib{cmmib8\skewchar\eightmib='177}
\def\@eightbsy{cmbsy8}
\def\@eightitb{cmbxti10\@scaled{800}}
\def\@eightsf{cmss8}
\def\@eightsfi{cmssi8}
\def\@eightsfb{cmssdc10\@scaled{800}}
\def\@eightsc{cmcsc8}
\def\@ninerm{cmr9}
\def\@ninei{cmmi9\skewchar\ninei='177}
\def\@ninesy{cmsy9\skewchar\ninesy='60}
\def\@nineex{cmex9}
\def\@nineit{cmti9}
\def\@ninesl{cmsl9}
\def\@ninebf{cmbx9}
\def\@ninett{cmtt9}
\def\@ninemib{cmmib9\skewchar\ninemib='177}
\def\@ninebsy{cmbsy9}
\def\@nineitb{cmbxti10\@scaled{900}}
\def\@ninesf{cmss9}
\def\@ninesfi{cmssi9}
\def\@ninesfb{cmssdc10\@scaled{900}}
\def\@ninesc{cmcsc9}
%\def\@tenrm{cmr10} % \tenrm defined in plain TeX
%\def\@teni{cmmi10} % \teni defined in plain TeX
%\def\@tensy{cmsy10} % \tensy defined in plain TeX
%\def\@tenex{cmex10} % \tenex defined in plain TeX
%\def\@tenit{cmti10} % \tenit defined in plain TeX
%\def\@tensl{cmsl10} % \tensl defined in plain TeX
%\def\@tenbf{cmbx10} % \tenbf defined in plain TeX
%\def\@tentt{cmtt10} % \tentt defined in plain TeX
\def\@tenmib{cmmib10\skewchar\tenmib='177}
\def\@tenbsy{cmbsy10}
\def\@tenitb{cmbxti10}
\def\@tensf{cmss10}
\def\@tensfi{cmssi10}
\def\@tensfb{cmssdc10}
\def\@tensc{cmcsc10}
\def\@elevenrm{cmr10\@magstephalf}
\def\@eleveni{cmmi10\@magstephalf\skewchar\eleveni='177}
\def\@elevensy{cmsy10\@magstephalf\skewchar\elevensy='60}
\def\@elevenex{cmex10\@magstephalf}
\def\@elevenit{cmti10\@magstephalf}
\def\@elevensl{cmsl10\@magstephalf}
\def\@elevenbf{cmbx10\@magstephalf}
\def\@eleventt{cmtt10\@magstephalf}
\def\@elevenmib{cmmib10\@magstephalf\skewchar\elevenmib='177}
\def\@elevenbsy{cmbsy10\@magstephalf}
\def\@elevenitb{cmbxti10\@magstephalf}
\def\@elevensf{cmss10\@magstephalf}
\def\@elevensfi{cmssi10\@magstephalf}
\def\@elevensfb{cmssdc10\@magstephalf}
\def\@elevensc{cmcsc10\@magstephalf}
\def\@twelverm{cmr12}
\def\@twelvei{cmmi12\skewchar\twelvei='177}
\def\@twelvesy{cmsy10\@magstep\@ne\skewchar\twelvesy='60}
\def\@twelveex{cmex10\@magstep\@ne}
\def\@twelveit{cmti12}
\def\@twelvesl{cmsl12}
\def\@twelvebf{cmbx12}
\def\@twelvett{cmtt12}
\def\@twelvemib{cmmib10\@magstep\@ne\skewchar\twelvemib='177}
\def\@twelvebsy{cmbsy10\@magstep\@ne}
\def\@twelveitb{cmbxti10\@magstep\@ne}
\def\@twelvesf{cmss12}
\def\@twelvesfi{cmssi12}
\def\@twelvesfb{cmssdc10\@magstep\@ne}
\def\@twelvesc{cmcsc10\@magstep\@ne}
\def\@thirteenrm{cmr12\@magstephalf}
\def\@thirteeni{cmmi12\@magstephalf\skewchar\thirteeni='177}
\def\@thirteensy{cmsy10\@magsteponehalf\skewchar\thirteensy='60}
\def\@thirteenex{cmex10\@magsteponehalf}
\def\@thirteenit{cmti12\@magstephalf}
\def\@thirteensl{cmsl12\@magstephalf}
\def\@thirteenbf{cmbx12\@magstephalf}
\def\@thirteentt{cmtt12\@magstephalf}
\def\@thirteenmib{cmmib10\@magsteponehalf\skewchar\thirteenmib='177}
\def\@thirteenbsy{cmbsy10\@magsteponehalf}
\def\@thirteenitb{cmbxti10\@magsteponehalf}
\def\@thirteensf{cmss12\@magstephalf}
\def\@thirteensfi{cmssi12\@magstephalf}
\def\@thirteensfb{cmssdc10\@magsteponehalf}
\def\@thirteensc{cmcsc10\@magsteponehalf}
% The font names \@fourteenrm, \@seventeenrm, \@twentyonerm,
% \@twentyfiverm, \@thirtyrm, \@thirtysixrm, \@fortythreerm, \@fiftytworm,
% \@sixtytworm, \@seventyfourrm, \@eightyninerm, \@hundredsevenrm,
% \@hundredtwentyeightrm, \@hundredfiftyfourrm, and their counterparts for
% other typefaces are, if necessary, generated by the macro \fontn@mes.
\def\fontn@mes#1#2{% skip if called earlier for this size
\expandafter\ifx\csname @#1rm\endcsname\relax
\count@=#2\advance\count@ -1
\expandafter\edef\csname @#1rm\endcsname{cmr12\@magstep\count@}%
\expandafter\edef\csname @#1i\endcsname{cmmi12\@magstep\count@%
\expandafter\skewchar\csname #1i\endcsname='177}%
\expandafter\edef\csname @#1sy\endcsname{cmsy10\@magstep{#2}%
\expandafter\skewchar\csname #1sy\endcsname='60}%
\expandafter\edef\csname @#1ex\endcsname{cmex10\@magstep{#2}}%
\expandafter\edef\csname @#1it\endcsname{cmti12\@magstep\count@}%
\expandafter\edef\csname @#1sl\endcsname{cmsl12\@magstep\count@}%
\expandafter\edef\csname @#1bf\endcsname{cmbx12\@magstep\count@}%
\expandafter\edef\csname @#1tt\endcsname{cmtt12\@magstep\count@}%
\expandafter\edef\csname @#1mib\endcsname{cmmib10\@magstep{#2}%
\expandafter\skewchar\csname #1mib\endcsname='177}%
\expandafter\edef\csname @#1bsy\endcsname{cmbsy10\@magstep{#2}}%
\expandafter\edef\csname @#1itb\endcsname{cmbxti10\@magstep{#2}}%
\expandafter\edef\csname @#1sf\endcsname{cmss12\@magstep\count@}%
\expandafter\edef\csname @#1sfi\endcsname{cmssi12\@magstep\count@}%
\expandafter\edef\csname @#1sfb\endcsname{cmssdc10\@magstep{#2}}%
\expandafter\edef\csname @#1sc\endcsname{cmcsc10\@magstep{#2}}%
\fi}
% FONT-SELECTING MACROS
\def\FONTID@#1[#2]{\expandafter\ifx\csname #1#2\endcsname\relax
\global\expandafter\font\csname #1#2\endcsname
=\csname @#1#2\endcsname\fi} % defining font identifier if not yet done
\def\TSSS@#1[#2]{\FONTID@\@@tf[#2]\FONTID@\@@sf[#2]\FONTID@\@@ssf[#2]%
\textfont#1=\csname\@@tf#2\endcsname
\scriptfont#1=\csname\@@sf#2\endcsname
\scriptscriptfont#1=\csname\@@ssf#2\endcsname}
\def\T@#1[#2]{\FONTID@\@@tf[#2]%
\textfont#1=\csname\@@tf#2\endcsname}
\def\MATHEX@#1[#2]{\FONTID@\@@tf[#2]%
\textfont#1=\csname\@@tf#2\endcsname % no distinction between
\scriptfont#1=\csname\@@tf#2\endcsname % T, S, and SS
\scriptscriptfont#1=\csname\@@tf#2\endcsname}
\def\TXT@[#1]{\FONTID@\@@tf[#1]} % Text mode only
\def\TSSS@@#1[#2]{\textfont#1=\csname\@@tf#2\endcsname % used in boldmath;
\scriptfont#1=\csname\@@sf#2\endcsname % same as \TSSS@, except
\scriptscriptfont#1=\csname\@@ssf#2\endcsname} % for absence of \FONTID
\newcount\fontscaling
\newif\ifboldmath
\def\@FONTS{\ifmmode\@error0\else
\TSSS@\z@[rm]%
\edef\rm{\fam\z@\csname\@@tf rm\endcsname}%
\TSSS@\@ne[i]%
% \def\mit{\fam\@ne}% already defined in plain TeX
\edef\oldstyle{\fam\@ne\csname\@@tf i\endcsname}%
\TSSS@\tw@[sy]%
% \def\cal{\fam\tw@}% already defined in plain TeX
\MATHEX@\thr@@[ex]%
\T@\itfam[it]%
\edef\it{\fam\itfam\csname\@@tf it\endcsname}%
\T@\slfam[sl]%
\edef\sl{\fam\slfam\csname\@@tf sl\endcsname}%
\TSSS@\bffam[bf]%
\edef\bf{\fam\bffam\csname\@@tf bf\endcsname}%
\T@\ttfam[tt]%
\edef\tt{\fam\ttfam\csname\@@tf tt\endcsname}%
\TSSS@\mibfam[mib]%
\def\mib{\fam\mibfam}% math mode only
\edef\boldoldstyle{\fam\mibfam\csname\@@tf mib\endcsname}%
\TSSS@\bsyfam[bsy]%
\def\boldcal{\fam\bsyfam}% math mode only
\T@\itbfam[itb]%
\edef\itb{\fam\itbfam\csname\@@tf itb\endcsname}%
\TSSS@\sffam[sf]%
\edef\sf{\fam\sffam\csname\@@tf sf\endcsname}%
\TSSS@\sfifam[sfi]%
\edef\sfi{\fam\sfifam\csname\@@tf sfi\endcsname}%
\TSSS@\sfbfam[sfb]%
\edef\sfb{\fam\sfbfam\csname\@@tf sfb\endcsname}%
\TXT@[sc]%
\edef\sc{\csname\@@tf sc\endcsname}% text mode only
\ifttr@ggedright\ttraggedright\fi
% conditionally adjust \ttraggedright to new size
\s@tdimen\rm % setting dimensions, roman default
\ifr@ggedright\raggedright\fi
% conditionally adjust \raggedright to new size
\boldmathfalse % family numbers start off normal!
\fi}
% BOLDMATH
\def\boldmath{% interchanging families 0,1,2 <-> \bffam,\mibfam,\bsyfam
\ifmmode\@error\@ne\else
\ifboldmath\@error\tw@\else
\TSSS@@\z@[bf]\TSSS@@\@ne[mib]\TSSS@@\tw@[bsy]%
\TSSS@@\bffam[rm]\TSSS@@\mibfam[i]\TSSS@@\bsyfam[sy]%
\edef\rm{\fam\bffam\csname\@@tf rm\endcsname}%
\def\mit{\fam\mibfam}%
\edef\oldstyle{\fam\mibfam\csname\@@tf i\endcsname}%
\def\cal{\fam\bsyfam}%
\edef\bf{\fam\z@\csname\@@tf bf\endcsname}%
\def\mib{\fam\@ne}%
\edef\boldoldstyle{\fam\@ne\csname\@@tf mib\endcsname}%
\def\boldcal{\fam\tw@}%
\boldmathtrue
\fi\fi}
\def\unboldmath{% restoring default definitions
\ifmmode\@error\@ne\else
\ifboldmath
\TSSS@@\z@[rm]\TSSS@@\@ne[i]\TSSS@@\tw@[sy]%
\TSSS@@\bffam[bf]\TSSS@@\mibfam[mib]\TSSS@@\bsyfam[bsy]%
\edef\rm{\fam\z@\csname\@@tf rm\endcsname}%
\def\mit{\fam\@ne}%
\edef\oldstyle{\fam\@ne\csname\@@tf i\endcsname}%
\def\cal{\fam\tw@}%
\edef\bf{\fam\bffam\csname\@@tf bf\endcsname}%
\def\mib{\fam\mibfam}%
\edef\boldoldstyle{\fam\mibfam\csname\@@tf mib\endcsname}%
\def\boldcal{\fam\bsyfam}%
\boldmathfalse\else
\@error\thr@@
\fi\fi}
\def\bmbox#1{\hbox{\ifboldmath\relax\else\boldmath\fi
$\m@th\relax #1$}}
% FONT-SIZE COMMANDS
% <roman numeral>pt, roman default
\def\viipt{\let\@@tf\vii@ \let\@@sf\vi@ \let\@@ssf\v@
\xp@=0.7pt \fontscaling=700 \@FONTS}
\def\viiipt{\let\@@tf\viii@ \let\@@sf\vi@ \let\@@ssf\v@
\xp@=0.8pt \fontscaling=800 \@FONTS}
\def\ixpt{\let\@@tf\ix@ \let\@@sf\vii@ \let\@@ssf\v@
\xp@=0.9pt \fontscaling=900 \@FONTS}
\def\xpt{\let\@@tf\x@ \let\@@sf\vii@ \let\@@ssf\v@
\xp@=1pt \fontscaling=\@m \@FONTS}
\def\xipt{\let\@@tf\xi@ \let\@@sf\viii@ \let\@@ssf\vi@
\xp@=1.0955pt \fontscaling=\magstephalf \@FONTS}
\def\xiipt{\let\@@tf\xii@ \let\@@sf\viii@ \let\@@ssf\vi@
\xp@=1.2pt \fontscaling=\magstep\@ne\@FONTS}
\def\xiiipt{\let\@@tf\xiii@ \let\@@sf\ix@ \let\@@ssf\vii@
\xp@=1.3145pt \fontscaling=\magsteponehalf \@FONTS}
\def\xivpt{\let\@@tf\xiv@ \let\@@sf\x@ \let\@@ssf\vii@
\fontn@mes\xiv@\tw@
\xp@=1.44pt \fontscaling=\magstep\tw@\@FONTS}
\def\xviipt{\let\@@tf\xvii@ \let\@@sf\xii@ \let\@@ssf\viii@
\fontn@mes\xvii@\thr@@
\xp@=1.728pt \fontscaling=\magstep\thr@@\@FONTS}
\def\xxipt{\let\@@tf\xxi@ \let\@@sf\xiv@ \let\@@ssf\x@
\fontn@mes\@@tf{4}\fontn@mes\@@sf\tw@
\xp@=2.0736pt \fontscaling=\magstep4\@FONTS}
\def\xxvpt{\let\@@tf\xxv@ \let\@@sf\xvii@ \let\@@ssf\xii@
\fontn@mes\@@tf{5}\fontn@mes\@@sf\thr@@
\xp@=2.4883pt \fontscaling=\magstep5\@FONTS}
\def\xxxpt{\let\@@tf\xxx@ \let\@@sf\xxi@ \let\@@ssf\xiv@
\fontn@mes\@@tf{6}\fontn@mes\@@sf{4}\fontn@mes\@@ssf\tw@
\xp@=2.9860pt \fontscaling=\magstep6\@FONTS}
\def\xxxvipt{\let\@@tf\xxxvi@ \let\@@sf\xxv@ \let\@@ssf\xvii@
\fontn@mes\@@tf{7}\fontn@mes\@@sf{5}\fontn@mes\@@ssf\thr@@
\xp@=3.5832pt \fontscaling=\magstep7\@FONTS}
\def\xliiipt{\let\@@tf\xliii@ \let\@@sf\xxx@ \let\@@ssf\xxi@
\fontn@mes\@@tf{8}\fontn@mes\@@sf{6}\fontn@mes\@@ssf{4}%
\xp@=4.2998pt \fontscaling=\magstep8\@FONTS}
\def\liipt{\let\@@tf\lii@ \let\@@sf\xxxvi@ \let\@@ssf\xxv@
\fontn@mes\@@tf{9}\fontn@mes\@@sf{7}\fontn@mes\@@ssf{5}%
\xp@=5.1598pt \fontscaling=\magstep9\@FONTS}
\def\lxiipt{\let\@@tf\lxii@ \let\@@sf\xliii@ \let\@@ssf\xxx@
\fontn@mes\@@tf{10}\fontn@mes\@@sf{8}\fontn@mes\@@ssf{6}%
\xp@=6.1917pt \fontscaling=\magstep{10}\@FONTS}
\def\lxxivpt{\let\@@tf\lxxiv@ \let\@@sf\lii@ \let\@@ssf\xxxvi@
\fontn@mes\@@tf{11}\fontn@mes\@@sf{9}\fontn@mes\@@ssf{7}%
\xp@=7.4301pt \fontscaling=\magstep{11}\@FONTS}
\def\lxxxixpt{\let\@@tf\lxxxix@ \let\@@sf\lxii@ \let\@@ssf\xliii@
\fontn@mes\@@tf{12}\fontn@mes\@@sf{10}\fontn@mes\@@ssf{8}%
\xp@=8.9161pt \fontscaling=\magstep{12}\@FONTS}
\def\cviipt{\let\@@tf\cvii@ \let\@@sf\lxxiv@ \let\@@ssf\lii@
\fontn@mes\@@tf{13}\fontn@mes\@@sf{11}\fontn@mes\@@ssf{9}%
\xp@=10.6993pt \fontscaling=\magstep{13}\@FONTS}
\def\cxxviiipt{\let\@@tf\cxxviii@ \let\@@sf\lxxxix@ \let\@@ssf\lxii@
\fontn@mes\@@tf{14}\fontn@mes\@@sf{12}\fontn@mes\@@ssf{10}%
\xp@=12.8392pt \fontscaling=\magstep{14}\@FONTS}
\def\clivpt{\let\@@tf\cliv@ \let\@@sf\cvii@ \let\@@ssf\lxxiv@
\fontn@mes\@@tf{15}\fontn@mes\@@sf{13}\fontn@mes\@@ssf{11}%
\xp@=15.4070pt \fontscaling=\magstep{15}\@FONTS}
% \fsize
\expandafter\def\csname 0.5@\endcsname{@h@} \def\h@{@h@}
\expandafter\def\csname 1.5@\endcsname{@hhh@} \def\hhh@{@hhh@}
\expandafter\def\csname 1h@\endcsname{@hhh@}
\def\fsize#1{\expandafter\ifx\csname #1@\endcsname\h@ \xipt\else
\expandafter\ifx\csname #1@\endcsname\hhh@ \xiiipt\else
\ifcase#1 \xpt\or \xiipt\or \xivpt\or \xviipt\or \xxipt\or \xxvpt\or
\xxxpt\or \xxxvipt\or \xliiipt\or \liipt\or \lxiipt\or \lxxivpt\or
\lxxxixpt\or \cviipt\or \cxxviiipt\or \clivpt \else
\@error4\fi\fi\fi\ignorespaces}
% ADDITIONAL DEFINITIONS FOR MATH
\def\frac#1#2{{#1\over #2}}
\def\csfrac#1#2{\mathchoice % case fraction
{{\textstyle{#1\over #2}}}{{#1\over #2}}{{#1\over #2}}{{#1\over #2}}}
\let\case\csfrac
\def\slfrac#1#2{\count\z@\fam \count\@ne\fam
\ifnum\count\@ne=-1\count\@ne=\z@\fi
\def\@g##1##2{\setbox\z@=\hbox{$##1 0$}%
\setbox\@ne=\hbox{$\fam\count\z@ ##2/$}%
\dimen\z@-\ht\@ne\advance\dimen\z@\dp\@ne
\dimen\@ne\ht\@ne\advance\dimen\@ne\dp\@ne
\advance\dimen\z@\ht\z@\divide\dimen\z@\tw@
\advance\dimen\z@ 0.1065\dimen\@ne
\raise0.363\dimen\@ne\hbox{\scriptspace\z@$\fam\count\z@ ##1#1$}%
\kern-0.4\wd\@ne\raise\dimen\z@\copy\@ne\kern-0.4\wd\@ne
\lower0.15\dimen\@ne\hbox{\scriptspace\z@$\fam\count\z@ ##1#2$}}%
\expandafter\ifx\the\scriptscriptfont\count\@ne\nullfont
\mathchoice{\@g\scriptstyle\textstyle}{\@g\scriptstyle\textstyle}{XX}{}%
\else\mathchoice{\@g\scriptstyle\textstyle}{\@g\scriptstyle\textstyle}%
{\@g\scriptscriptstyle\scriptstyle}%
{\@g\scriptscriptstyle\scriptscriptstyle}\fi}
\def\rdcl{\raise\xp@\hbox{$\surd$}}
\def\gsim{\mathrel{\mathpalette\@vr >}} % greater than or on the order of
\let\gtrsim\gsim
\def\lsim{\mathrel{\mathpalette\@vr <}} % smaller than or on the order of
\let\lesssim\lsim
\def\@vr#1#2{\lower3.4\xp@\vbox{\baselineskip\z@\lineskiplimit\z@
\lineskip 0.8\xp@\ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr\sim\crcr}}}
% VARIOUS DEFINITIONS
\outer\def\Bye{\par\vfill\ifnum\pageno=\@ne\nopagenumbers\fi\supereject\end}
\def\@{\spacefactor\@m} % end-of-sentence space
\def\is{\spacefactor=\sfcode`\.{} } % intersentence space
\def\\{\spacefactor=\sfcode`\.{} \ignorespaces}
\def\today{\number\day\space
\ifcase\month\or January\or February\or March\or April\or May\or June\or
July\or August\or September\or October\or November\or December\fi
\space\number\year}
\def\vandaag{\number\day\space
\ifcase\month\or januari\or februari\or maart\or april\or mei\or juni\or
juli\or augustus\or september\or oktober\or november\or december\fi
\space\number\year}
\def\heute{\number\day.\spacefactor\@m\space
\ifcase\month\or Januar\or Februar\or M\"arz\or April\or Mai\or Juni\or
Juli\or August\or September\or Oktober\or November\or Dezember\fi
\space\number\year}
\def\aujourdhui{\number\day\space
\ifcase\month\or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
julliet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi
\space\number\year}
\def\hoursminutes{% Style hh:mm
{\count\z@=\time\divide\count\z@ 60 \the\count\z@ \multiply\count\z@ 60
\advance\count\z@-\time\count\z@=-\count\z@:\ifnum\count\z@<10 0\fi\the\count\z@}}
\def\dollar{{\ifdim\fontdimen\@ne\font>\z@ \sl\fi\char`\$}}
\def\pounds{{\it\char'44}}
\def\copyright{{\rm\ooalign{\hfil\raise 0.07ex\hbox{c}\kern0.03em\hfil\crcr
\ifboldmath\mathhexbox90D\else\mathhexbox20D\fi}}}
% Compared to plain TeX, \rm and \ifboldmath added
\def\GOTOnextoddpage{\vfill\eject\ifodd\count\z@
\relax\else\bgroup\nopagenumbers\leavevmode\vfill\eject\egroup\fi}
\def\GOTOnextevenpage{\vfill\eject\ifodd\count\z@
\bgroup\nopagenumbers\leavevmode\vfill\eject\egroup\else\relax\fi}
% TYPE PAGES
% US Letter is default. \hoffset should be (paper_width - \hsize)/2 - 1".
% If printed page is not horizontally centered, do NOT modify \hoffset.
% Instead adjust appropriate parameter of printer driver.
% Comment out next three lines for US Letter
\hsize157mm \vsize240mm \hoffset1.1mm % A4
\dimen\footins220mm
\def\m@g{\mag\count@\hsize157truemm\vsize240truemm\dimen\footins220truemm}
% DEFAULT FONT SIZE
\xpt % 10-points roman default
\@firstsizetrue % yet first call in document defines size of footline
% ERROR MESSAGES
\def\@error#1{\errmessage{*** \ifcase#1
\string\fsize\space or \string\viipt, etc. used in math mode\or %0
\string\boldmath\space c.q. \string\unboldmath\space used in math %1
mode\or
\string\boldmath: boldmath already active\or %2
\string\unboldmath: boldmath not active\or %3
Argument of \string\fsize\space invalid\or %4
\fi\space ***}}
% ADDITIONS TO HYPHENATION TABLE
\count@\language\language=0
\hyphenation{infra-red infra-struc-ture}
\language=\count@
\catcode`@=12 % at signs are no longer letters
% END OF FNTS.TEX