 %%% lofss-ps  Dec 92, March 1993
 %%% latex old font selection scheme adjusted for
 %%% cm math fonts and non-cm text fonts (eg. Cork)
 %%% part of fe-format-dumper (-cm and -ck versions)
 %%% master posting on ftp matups.matups.fr

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This modified version of LFONTS.TEX by A. Lamport et al. is for creating 
% various LaTeX formats
% See fe-LaTeX.dmp for details.
% Many changes of LFONTS.TEX are due to A. Trevorrow 1989
% Remainder by L. Siebenmann 1992--

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% File LFONTS - Version of 10 April 1989
%
% This version of LFONTS.TEX is for the CMR fonts.  It was converted
% from the AMR version by David Fuchs on 18 December 1985.
% And corrected on 11 Nov 1986 by Leslie Lamport.  
% Last vestige of AMR fonts removed 3 Mar 89 by Leslie Lamport.

% This file needs to be customized for the fonts available at a particular
% site.  There are three places where changes need to be made.  They
% can be found by searching this file for the string  FONT-CUSTOMIZING.
%
% FONT CONVENTIONS
%
% A TYPESTYLE COMMAND is something like \it that defines a type style.
% Each style command \xx is defined to be \protect\pxx, where 
% \pxx is defined to choose the correct font for the current size.
% This allows style commands to appear in 'unsafe' arguments where
% protection is required.
%
% A SIZE COMMAND is something like \normalsize that defines a type size.
% It is defined by the document style.  However, \normalsize is handled
% somewhat differently because it is called so often--e.g., on every
% page by the output routine.  The document style defines \@normalsize
% instead of \normalsize.
% 
% A ONE-SIZE typestyle is one that exists only in the \normalsize size.
%
% A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
% \scriptscriptfont for the font families corresponding to preloaded fonts,
% as well as the typestyle commands for the preloaded fonts.  Each
% font-size command has an associated @fontsize command, having the same
% name except for an '@' at the front.   All font-size commands are defined 
% in LFONTS.  The naming convention is that a fifteenpt font has a font-size
% name \xvpt, and so on.
%
% Each size command \SIZE executes the command
%             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
% which does the following.
%   0. Executes \@nomath\SIZE to issue warning if in math mode.
%   1. \let \@currsize = \SIZE  
%   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
%      depth .3 * BASELINESKIP
%
%       Note: Charles Karney observed that step 2 is useless, since the
%       \FONTSIZE command executed in step 4 resets \strutbox using
%       the actual baselineskip, which is \baselinestretch * BASELINESKIP.
%       Some day, this step may get removed.  (Note made 28 Feb 89)
%
%   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
%      and 
%   4. Calls \FONTSIZE 
%   5. Executes the \@FONTSIZE command.
% It should then define all the typestyle commands not defined by the font-size
% command, except for the one-size type styles. A typestyle command for which
% the corresponding font exists but is not preloaded is defined to expand to a
% \@getTfont command.  A typestyle whose font does not exist is defined to 
% expand to a \@subfont command.
%
% A one-size typestyle whose font is not preloaded is defined to expand to
% a \@onesizefont command.
%
% \em is defined to be \it inside an unslanted style and \rm inside a
% slanted style.  An \em command in a section title will produce a \pem
% command in the table of contents.
%

\def\em{\protect\pem{}}
\def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}

\def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}

% \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
%    used for first time in math mode.  Give this command outside math
%    mode, before formula using it for first time.
\def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}

% \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
%    It is equivalent to \font \CMD = FONT
% \symbol{NUM} == \char NUM

\def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
\def\symbol#1{\char #1\relax}



% \@getTfont \STYLE \FAM \@FONTSIZE{LOADING_INFO}
%   \STYLE       = style command
%   \FAM         = a control sequence defined by \newfam\FAM
%   \@FONTSIZE   = the @fontsize command for the current size. 
%   LOADING_INFO = information needed to load the font--e.g., 
%                  cmtti10 \magstep 2
%   Does the following, where \FONTNAME denotes a new unique, untypeable
%   font name:
%    1. Executes  \font \FONTNAME = LOADING_INFO 
%    2. Appends '\textfont \FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
%       to the definition of \@FONTSIZE.
%    3. Executes \@FONTSIZE \STYLE.
%
% \@nohyphens\STYLE\@FONTSIZE
%   Used sometimes right after \@getTfont to set \hyphenchar of the new
%    font to -1, thereby prohibiting hyphenation. It is used with
%    \tt fonts.  (\@nohyphens was added on 12/18/85)
%
% \@subfont \STYLE \REPSTYLE 
%   \STYLE, \REPSTYLE = type style commands.
%   Types warning message and defines uses \REPSTYLE.
%
% \@onesizefont \STYLE {LOADING_INFO}
%   Defines \STYLE to be a typestyle that exists only for the \normalsize
%   size.  It produces the font specified by LOADING_INFO
%
% \@addfontinfo\@FONTSIZE{DEFS}
%    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
%    not be expanded should be protected with \@prtct---except no protection
%    is needed for '\def\foo', only for the contents of the definition.
%
% \@nomath\CS : Types a warning '\CS used in math mode' if encountered
%    in math mode.

% Remove \outer from definition of \newfam
\def\newfam{\alloc@8\fam\chardef\sixt@@n}

\def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
   #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
      depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
   \normalbaselineskip\baselineskip#3#4}

\newif\if@bold

\let\@prtct=\relax
 
\def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
    \def\noexpand}\xdef#1{#1#2}}}
 

 %% Safer variant of \@addfontinfo 3-93 LS (used in \@getTfont)
 %% chains edef-expanded #2 on right to #1
 \def\@rightchain#1#2{{\toks0\expandafter{#1}%
    \xdef#1{\the\toks0#2}}}

 %% Following introduced 3-93 LS
 %% sample: \@getTfont\psc\@viiipt{\@pcsc\Atviiipt}
 %% arguments:           #1    #2           #3
 \def\@getTfont#1#2#3{%
    \expandafter\ifx\csname\string#1\string#2\endcsname\relax
       \global\expandafter\font\csname\string#1\string#2\endcsname=#3%% only once!
       \@rightchain#2{\def\noexpand#1{\csname\string#1\string#2\endcsname}}%
     \fi
    \csname\string#1\string#2\endcsname}



 %% following eliminated 3-93 LS
 % \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
 %     \font \csname \string #1\string #3\endcsname #4\relax 
 %      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
 %      \scriptfont #2\csname \string #1\string #3\endcsname 
 %      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
 %      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}

\def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
   \string #1\string #2\endcsname \m@ne}

\def\@subfont#1#2{\@warning{No \string#1\space typeface in 
        this size, using \string#2}#2}

 %% eliminated 3-93 LS
 % \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
 %  \global\expandafter\font\csname ft\string#1\endcsname #2\relax
 %  \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
 %  \@warning{Typeface \string#1\space available only in 
 %  \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
 %  \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
 %  \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}

\def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}

\def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
\def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}

% The following definitions save token space.  E.g., using \@height 
% instead of height saves 5 tokens at the cost in time of one macro 
% expansion.

\def\@height{height}
\def\@depth{depth}
\def\@width{width}

%% FONT-CUSTOMIZING:  The following \font commands define the
%% preloaded LaTeX fonts.  Font names should be changed to cause
%% different fonts to be loaded in place of these particular fonts.
%% \font commands should be added or deleted to change which fonts
%% are preloaded.

 \priminput lffam-ps

% five point
 \font\fivrm  = \T@norm\Atvpt % normal
 \font\fivmr  = cmr5 % math roman
 \font\fivmi  = cmmi5              % math italic
    \skewchar\fivmi ='177          % for placement of accents
%\font\fivmib = cmmib10\atvpt % bold math italic
 \font\fivsy  = cmsy5              % math symbols
    \skewchar\fivsy ='60           % for placement of math accents
%\font\fivsyb = cmbsy10\atvpt % bold math symbols 
%\font\fivit  = \T@ital\Atvpt % text italic
%\font\fivsl  = \T@slan\Atvpt % slanted
%\font\fivbf  = \T@bold\Atvpt % extended bold
\font\fivmb  = cmbx5 % math bold
%\font\fivbfs = \T@boit\Atvpt % extended bold slanted
%\font\fivtt  = \T@type\Atvpt % typewriter
%\font\fivtti = cmitt10\atvpt % italic typewriter xxx
%\font\fivtts = \T@sltt\Atvpt % slanted typewriter
%\font\fivsf  = \T@sans\Atvpt % sans serif
%\font\fivsfi = \T@sani\Atvpt % italic sans serif
%\font\fivsfb = \T@sanb\Atvpt % bold sans serif
%\font\fivsc  = cmcsc10\atvpt % small caps
 \font\fivly  = lasy5              % LaTeX symbols
%\font\fivlyb = lasyb10\atvpt % LaTeX symbols
%\font\fivuit = cmu10\atvpt % unslanted italic

% six point
 \font\sixrm  = \T@norm\Atvipt % normal
 \font\sixmr  = cmr6 % math roman
 \font\sixmi  = cmmi6              % math italic
    \skewchar\sixmi ='177          % for placement of accents
%\font\sixmib = cmmib10\atvipt % bold math italic
 \font\sixsy  = cmsy6              % math symbols
    \skewchar\sixsy ='60           % for placement of math accents
%\font\sixsyb = cmbsy10\atvipt % bold math symbols
%\font\sixit  = \T@ital\Atvipt % text italic
%\font\sixsl  = \T@slan\Atvipt % slanted
%\font\sixbf  = \T@bold\Atvipt % extended bold
\font\sixmb  = cmbx6 % extended bold
%\font\sixbfs = \T@boit\Atvipt % extended bold slanted
%\font\sixtt  = \T@type\Atvipt % typewriter
%\font\sixtti = cmitt10\atvipt % italic typewriter
%\font\sixtts = \T@sltt\Atvipt % slanted typewriter
%\font\sixsf  = \T@sans\Atvipt % sans serif
%\font\sixsfi = \T@sani\Atvipt % italic sans serif
%\font\sixsfb = \T@sanb\Atvipt % bold sans serif
%\font\sixsc  = cmcsc10\atvipt % small caps
 \font\sixly  = lasy6          % LaTeX symbols
%\font\sixlyb = lasyb10\atvipt % LaTeX symbols
%\font\sixuit = cmu10\atvipt % unslanted italic

% seven point
 \font\sevrm  = \T@norm\Atviipt % normal
 \font\sevmr  = cmr7 % math roman
 \font\sevmi  = cmmi7              % math italic
    \skewchar\sevmi ='177          % for placement of accents
%\font\sevmib = cmmib10\atviipt % bold math italic
 \font\sevsy  = cmsy7              % math symbols
    \skewchar\sevsy ='60           % for placement of math accents
%\font\sevsyb = cmbsy10\atviipt % bold math symbols
 \font\sevit  = \T@ital\Atviipt % text italic
%\font\sevsl  = \T@slan\Atviipt % slanted
%\font\sevbf  = \T@bold\Atviipt % extended bold
 \font\sevmb  = cmbx7 % extended bold
%\font\sevbfs = \T@boit\Atviipt % extended bold slanted
%\font\sevtt  = \T@type\Atviipt % typewriter
%\font\sevtti = cmitt10\atviipt % italic typewriter
%\font\sevtts = \T@sltt\Atviipt % slanted typewriter
%\font\sevsf  = \T@sans\Atviipt % sans serif
%\font\sevsfi = \T@sani\Atviipt % italic sans serif
%\font\sevsfb = \T@sanb\Atviipt % bold sans serif
%\font\sevsc  = cmcsc10\atviipt % small caps
 \font\sevly  = lasy7              % LaTeX symbols
%\font\sevlyb = lasyb10\atviipt % LaTeX symbols
%\font\sevuit = cmu10\atviipt % unslanted italic

% eight point
 \font\egtrm  = \T@norm\Atviiipt % normal
 \font\egtmr  = cmr8 % math roman
 \font\egtmi  = cmmi8              % math italic
    \skewchar\egtmi ='177          % for placement of accents
%\font\egtmib = cmmib10\atviiipt % bold math italic
 \font\egtsy  = cmsy8              % math symbols
    \skewchar\egtsy ='60           % for placement of math accents
%\font\egtsyb = cmbsy10\atviiipt % bold math symbols
 \font\egtit  = \T@ital\Atviiipt % text italic
%\font\egtsl  = \T@slan\Atviiipt % slanted
 \font\egtbf  = \T@bold\Atviiipt % extended bold
 \font\egtmb  = cmbx8 % extended bold
%\font\egtbfs = \T@boit\Atviiipt % extended bold slanted
%\font\egttt  = \T@type\Atviiipt % typewriter
%\font\egttti = cmitt10\atviiipt % italic typewriter
%\font\egttts = \T@sltt\Atviiipt % slanted typewriter
%\font\egtsf  = \T@sans\Atviiipt % sans serif
%\font\egtsfi = \T@sani\Atviiipt % italic sans serif
%\font\egtsfb = \T@sanb\Atviiipt % bold sans serif
%\font\egtsc  = cmcsc10\atviiipt % small caps
 \font\egtly  = lasy8              % LaTeX symbols
%\font\egtlyb = lasyb10\atviiipt % LaTeX symbols
%\font\egtuit = cmu10\atviiipt % unslanted italic


% nine point
 \font\ninrm  = \T@norm\Atixpt % normal
 \font\ninmr  = cmr9 % math roman
 \font\ninmi  = cmmi9              % math italic
    \skewchar\ninmi ='177          % for placement of accents
%\font\ninmib = cmmib10\atixpt % bold math italic
 \font\ninsy  = cmsy9              % math symbols
    \skewchar\ninsy ='60           % for placement of math accents
%\font\ninsyb = cmbsy10\atixpt % bold math symbols
 \font\ninit  = \T@ital\Atixpt % text italic
%\font\ninsl  = \T@slan\Atixpt % slanted
 \font\ninbf  = \T@bold\Atixpt % extended bold
 \font\ninmb  = cmbx9 % extended bold
%\font\ninbfs = \T@boit\Atixpt % extended bold slanted
 \font\nintt  = \T@type\Atixpt % typewriter
    \hyphenchar\nintt = -1         % suppress hyphenation in \tt font
%\font\nintti = cmitt10\atixpt % italic typewriter
%\font\nintts = \T@sltt\Atixpt % slanted typewriter
%\font\ninsf  = \T@sans\Atixpt % sans serif
%\font\ninsfi = \T@sani\Atixpt % italic sans serif
%\font\ninsfb = \T@sanb\Atixpt % bold sans serif
%\font\ninsc  = cmcsc10\atixpt % small caps
 \font\ninly  = lasy9          % LaTeX symbols
%\font\ninlyb = lasyb10\atixpt % LaTeX symbols
%\font\ninuit = cmu10\atixpt % unslanted italic

% ten point
 \font\tenrm  = \T@norm\Atxpt % normal
 \font\tenmr  = cmr10 % math roman
 \font\tenmi  = cmmi10             % math italic
    \skewchar\tenmi ='177          % for placement of accents
%\font\tenmib = cmmib10            % bold math italic
 \font\tensy  = cmsy10             % math symbols
    \skewchar\tensy ='60           % for placement of math accents
%\font\tensyb = cmbsy10            % bold symbols
 \font\tenit  = \T@ital\Atxpt % text italic
 \font\tensl  = \T@slan\Atxpt % slanted
 \font\tenbf  = \T@bold\Atxpt % extended bold
 \font\tenmb  = cmbx10 % extended bold
 \font\tenbfs = \T@boit\Atxpt % extended bold slanted
 \font\tentt  = \T@type\Atxpt % typewriter
    \hyphenchar\tentt = -1         % suppress hyphenation in \tt font
%\font\tentti = cmitt10            % italic typewriter
%\font\tentts = \T@sltt\Atxpt % slanted typewriter
 \font\tensf  = \T@sans\Atxpt % sans serif
%\font\tensfi = \T@sani\Atxpt % italic sans serif
%\font\tensfb = \T@sanb\Atxpt % bold sans serif
%\font\tensc  = cmcsc10            % small caps
 \font\tenly  = lasy10             % LaTeX symbols
%\font\tenlyb = lasyb10            % bold LaTeX symbols
%\font\tenuit = cmu10              % unslanted italic

% eleven point
 \font\elvrm  = \T@norm\@Halfmag % normal
 \font\elvmr  = cmr10\@halfmag % math roman 
 \font\elvmi  = cmmi10\@halfmag % math italic
    \skewchar\elvmi ='177            % for placement of accents
%\font\elvmib = cmmib10\@halfmag % bold math italic
 \font\elvsy  = cmsy10\@halfmag % math symbols
    \skewchar\elvsy ='60             % for placement of math accents
%\font\elvsyb = cmbsy10\@halfmag % bold symbols
 \font\elvit  = \T@ital\@Halfmag % text italic
 \font\elvsl  = \T@slan\@Halfmag % slanted
 \font\elvbf  = \T@bold\@Halfmag % exelvded bold
 \font\elvmb  = cmbx10\@halfmag % exelvded bold
%\font\elvbfs = \T@boit\@Halfmag % exelvded bold slanted
 \font\elvtt  = \T@type\@Halfmag % typewriter
    \hyphenchar\elvtt = -1           % suppress hyphenation in \tt font
%\font\elvtti = cmitt10\@halfmag % italic typewriter
%\font\elvtts = \T@sltt\@Halfmag % slanted typewriter
 \font\elvsf  = \T@sans\@Halfmag % sans serif
%\font\elvsfi = \T@sani\@Halfmag % italic sans serif
%\font\elvsfb = \T@sanb\@Halfmag % bold sans serif
%\font\elvsc  = cmcsc10\@halfmag % small caps
 \font\elvly  = lasy10\@halfmag % LaTeX symbols
%\font\elvlyb = lasyb10\@halfmag % bold LaTeX symbols
%\font\elvuit = cmu10\@halfmag % unslanted italic

% twelve point
 \font\twlrm  = \T@norm\@Magi  % normal
 \font\twlmr  = cmr10\@magi % math roman
 \font\twlmi  = cmmi10\@magi  % math italic
    \skewchar\twlmi ='177            % for placement of accents
%\font\twlmib = cmmib10\@magi  % bold math italic
 \font\twlsy  = cmsy10\@magi  % math symbols
    \skewchar\twlsy ='60             % for placement of math accents
%\font\twlsyb = cmbsy10\@magi  % bold symbols
 \font\twlit  = \T@ital\@Magi  % text italic
 \font\twlsl  = \T@slan\@Magi  % slanted
 \font\twlbf  = \T@bold\@Magi  % extended bold
 \font\twlmb  = cmbx12  % extended bold
%\font\twlbfs = \T@boit\@Magi  % extended bold slanted
 \font\twltt  = \T@type\@Magi  % typewriter
    \hyphenchar\twltt = -1           % suppress hyphenation in \tt font
%\font\twltti = cmitt10\@magi  % italic typewriter
%\font\twltts = \T@sltt\@Magi  % slanted typewriter
 \font\twlsf  = \T@sans\@Magi  % sans serif
%\font\twlsfi = \T@sani\@Magi  % italic sans serif
%\font\twlsfb = \T@sanb\@Magi  % bold sans serif
%\font\twlsc  = cmcsc10\@magi  % small caps
 \font\twlly  = lasy10\@magi  % LaTeX symbols
%\font\twllyb = lasyb10\@magi  % bold LaTeX symbols
%\font\twluit = cmu10\@magi  % unslanted italic

% fourteen point
 \font\frtnrm  = \T@norm\@Magii % normal
 \font\frtnmr  = cmr10\@magii % math roman
 \font\frtnmi  = cmmi10\@magii % math italic
    \skewchar\frtnmi ='177              % for placement of accents
%\font\frtnmib = cmmib10\@magii % bold math italic
 \font\frtnsy  = cmsy10\@magii % math symbols
    \skewchar\frtnsy ='60               % for placement of math accents
%\font\frtnsyb = cmbsy10\@magii % bold symbols
%\font\frtnit  = \T@ital\@Magii % text italic
%\font\frtnsl  = \T@slan\@Magii % slanted
 \font\frtnbf  = \T@bold\@Magii % extended bold
 \font\frtnmb  = cmbx12\@magi % extended bold
%\font\frtnbfs = \T@boit\@Magii % extended bold slanted
%\font\frtntt  = \T@type\@Magii % typewriter
%\font\frtntti = cmitt10\@magii % italic typewriter
%\font\frtntts = \T@sltt\@Magii % slanted typewriter
%\font\frtnsf  = \T@sans\@Magii % sans serif
%\font\frtnsfi = \T@sani\@Magii % italic sans serif
%\font\frtnsfb = \T@sanb\@Magii % bold sans serif
%\font\frtnsc  = cmcsc10\@magii % small caps
 \font\frtnly  = lasy10\@magii % LaTeX symbols
%\font\frtnlyb = lasyb10\@magii % bold LaTeX symbols
%\font\frtnuit = cmu10\@magii % unslanted italic

% seventeen point
 \font\svtnrm  = \T@norm\@Magiii % normal
 \font\svtnmr  = cmr10\@magiii % math roman
 \font\svtnmi  = cmmi10\@magiii % math italic
    \skewchar\svtnmi ='177               % for placement of accents
%\font\svtnmib = cmmib10\@magiii % bold math italic
 \font\svtnsy  = cmsy10\@magiii % math symbols
    \skewchar\svtnsy ='60                % for placement of math accents
%\font\svtnsyb = cmbsy10\@magiii % bold symbols
%\font\svtnit  = \T@ital\@Magiii % text italic
%\font\svtnsl  = \T@slan\@Magiii % slanted
 \font\svtnbf  = \T@bold\@Magiii % extended bold
%\font\svtnbfs = \T@boit\@Magiii % extended bold slanted
%\font\svtntt  = \T@type\@Magiii % typewriter
%\font\svtntti = cmitt10\@magiii % italic typewriter
%\font\svtntts = \T@sltt\@Magiii % slanted typewriter
%\font\svtnsf  = \T@sans\@Magiii % sans serif
%\font\svtnsfi = \T@sani\@Magiii % italic sans serif
%\font\svtnsfb = \T@sanb\@Magiii % bold sans serif
%\font\svtnsc  = cmcsc10\@magiii % small caps
 \font\svtnly  = lasy10\@magiii % LaTeX symbols
%\font\svtnlyb = lasyb10\@magiii % bold LaTeX symbols
%\font\svtnuit = cmu10\@magiii % unslanted italic

% twenty point
 \font\twtyrm  = \T@norm\@Magiv % normal
 \font\twtymr  = cmr10\@magiv % math roman
 \font\twtymi  = cmmi10\@magiv % math italic
    \skewchar\twtymi ='177               % for placement of accents
%\font\twtymib = cmmib10\@magiv % bold math italic
 \font\twtysy  = cmsy10\@magiv % math symbols
    \skewchar\twtysy ='60                % for placement of math accents
%\font\twtysyb = cmbsy10\@magiv % bold symbols
%\font\twtyit  = \T@ital\@Magiv % text italic
%\font\twtysl  = \T@slan\@Magiv % slanted
\font\twtybf  = \T@bold\@Magiv % extended bold
%\font\twtymb  = cmbx10\@magiv % extended bold
%\font\twtybfs = \T@boit\@Magiv % extended bold slanted
%\font\twtytt  = \T@type\@Magiv % typewriter
%\font\twtytti = cmitt10\@magiv % italic typewriter
%\font\twtytts = \T@sltt\@Magiv % slanted typewriter
%\font\twtysf  = \T@sans\@Magiv % sans serif
%\font\twtysfi = \T@sani\@Magiv % italic sans serif
%\font\twtysfb = \T@sanb\@Magiv % bold sans serif
%\font\twtysc  = cmcsc10\@magiv % small caps
 \font\twtyly  = lasy10\@magiv % LaTeX symbols
%\font\twtylyb = lasyb10\@magiv % bold LaTeX symbols
%\font\twtyuit = cmu10\@magiv % unslanted italic

% twenty-five point
 \font\twfvrm  = \T@norm\@Magv % normal
 \font\twfvmr  = cmr10\@magv % math roman
\font\twfvmi  = cmmi10\@magv % math italic
%\font\twfvmib = cmmib10\@magv % bold math italic
\font\twfvsy  = cmsy10\@magv % math symbols
%\font\twfvsyb = cmbsy10\@magv % bold symbols
%\font\twfvit  = \T@ital\@Magv % text italic
%\font\twfvsl  = \T@slan\@Magv % slanted
\font\twfvbf  = \T@bold\@Magv % extended bold
%\font\twfvmb  = cmbx10\@magv % extended bold
%\font\twfvbfs = \T@boit\@Magv % extended bold slanted
%\font\twfvtt  = \T@type\@Magv % typewriter
%\font\twfvtti = cmitt10\@magv % italic typewriter
%\font\twfvtts = \T@sltt\@Magv % slanted typewriter
%\font\twfvsf  = \T@sans\@Magv % sans serif
%\font\twfvsfi = \T@sani\@Magv % italic sans serif
%\font\twfvsfb = \T@sanb\@Magv % bold sans serif
%\font\twfvsc  = cmcsc10\@magv % small caps
%\font\twfvly  = lasy10\@magv % LaTeX symbols
%\font\twfvlyb = lasyb10\@magv % bold LaTeX symbols
%\font\twfvuit = cmu10\@magv % unslanted italic

% Math extension
\font\tenex    = cmex10

% line & circle fonts 
\font\tenln    = line10
\font\tenlnw   = linew10  
\font\tencirc  = circle10
\font\tencircw = circlew10 

% Change made 6 May 86: `\@warning' replaced by `\immediate\write 15' 
% since it's not defined when lfonts.tex is read by lplain.tex.
%
\ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else 
  \immediate\write 15{Incompatible thin line and circle fonts}\fi
\ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else 
  \immediate\write 15{Incompatible thick line and circle fonts}\fi


% protected font names
\def\rm{\protect\prm}
\def\it{\protect\pit}
\def\bf{\protect\pbf}
\def\sl{\protect\psl}
\def\sf{\protect\psf}
\def\sc{\protect\psc}
\def\tt{\protect\ptt}
\def\Sy{\protect\pSy}

%% FONT-CUSTOMIZING:  The following definitions define certain commands
%% to be abbreviations for certain font names.  These commands are used
%% below in \@getTfont commands, which load the loaded-on-demand text fonts.
%% This is done only to save space.  To change the fonts that are loaded
%% on demand, one can either change these definitions or else change
%% the arguments of the \@getTfont commands.  
%%

%% Text caps and small caps, traditionally not preloaded.
%%\def\T@csc{cmcsc} in  

%% Math bolds traditionally not preloaded
%% These serve in headings titles etc with suitable mags
\def\@mbi{cmmib10}
\def\@mbsy{cmbsy10}
\def\@lasyb{lasyb10}

 %\def\M@symb{Symbol} 
 %% Andy Trevorrow added 


% families

%\newfam\itfam      % \it was family 4 for L. Lamport; abandoned LS
%\newfam\slfam      % \sl was family 5
\newfam\bffam      % \bf was family 6
%\newfam\ttfam      % \tt was family 7
%\newfam\sffam      % \sf was family 8
%\newfam\scfam      % \sc was family 9
\newfam\lyfam      % \ly was family 10
\newfam\Syfam      % \Sy was family 11 
  %% Andy Trevorrow added auxiliary math symbol font

\def\cal{\fam\tw@}
\def\mit{\fam\@ne}

\def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
    \@depth .3\baselineskip \@width\z@}}


%% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
%% the declarations needed to change the type size to 5pt, 6pt, ... ,
%% 25pt.  To see how this works, consider the definition of \viipt,
%% which determines the fonts used in a 7pt type size.  The command
%%    \def\prm{\fam\z@\sevrm}
%% changes to family 0 (math roman) if one is in math mode,
%% and by \sevrm causes the preloaded \sevrm font to be used in text
%%  --this font was defined earlier with a \font\sevrm...
%% command.  The commands
%%     \textfont\z@\sevmr 
%%     \scriptfont\z@\sixmr 
%%     \scriptscriptfont\z@\fivmr 
%% tell TeX to use \sevmr, \sixmr, \fivmr for the three math-mode 
%% sizes (text, script, and scriptscript).  
%% The fonts appearing in these commands must be preloaded.
%% 
%% The command 
%%     \def\psc{\@getTfont\psc\bffam\@xiipt{\T@csc\atxiipt}}
%% declares \psc (and so \sc) to use a loaded-on-demand font
%% --namely, \T@csc\atxiipt which is dccsc10 scaled 1200 for DC
%%
%% The command
%%     \def\ptt{\@subfont\tt\rm}
%% declares that the \tt font is unavailable in the 7pt size, so
%% the \rm font is used instead.  (The substituted type style should
%% correspond to a preloaded size.)

\def\vpt{\textfont\z@\fivmr
  \scriptfont\z@\fivmr \scriptscriptfont\z@\fivmr
\textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\fivrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
  \unboldmath\fam\@ne\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@getTfont\pit\@vpt{\T@ital\Atvpt}}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@subfont\bf\rm}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly
    \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
\def\pSy{\@subfont\Sy\rm}%
\@setstrut\rm}

\def\@vpt{}

\def\vipt{\textfont\z@\sixmr
  \scriptfont\z@\sixmr \scriptscriptfont\z@\sixmr
\textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sixrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
  \unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@getTfont\pit\@vipt{\T@ital\Atvipt}}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@subfont\bf\rm}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly
\def\pSy{\@subfont\Sy\rm}%
\@setstrut\rm}

\def\@vipt{}

\def\viipt{\textfont\z@\sevmr
  \scriptfont\z@\sixmr \scriptscriptfont\z@\fivmr
\textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sevrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\sevit}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@subfont\bf\rm}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly
    \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
\def\pSy{\@subfont\Sy\rm}%
\@setstrut \rm}

\def\@viipt{}

\def\viiipt{\textfont\z@\egtmr
  \scriptfont\z@\sixmr \scriptscriptfont\z@\fivmr
\textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
   %%% cmex8 font usually missing from cm
\def\prm{\fam\z@\egtrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
                  \unboldmath\@boldfalse}
\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\egtit}%
\def\psl{\@getTfont\psl\@viiipt{\T@slan\Atviiipt}}%
\def\pbf{\fam\bffam\egtbf}\textfont\bffam\egtmb
   \scriptfont\bffam\sixmb \scriptscriptfont\bffam\fivmb
\def\ptt{\@getTfont\ptt\@viiipt{\T@type\Atviiipt}%
                 \@nohyphens\ptt\@viiipt}%
\def\psf{\@getTfont\psf\@viiipt{\T@sans\Atviiipt}}%
\def\psc{\@getTfont\psc\@viiipt{\T@csc\atviiipt}}%
\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
\def\pSy{\@getSyfont\Sy@viiipt\Sy@vipt\Sy@vpt}%
\@viiipt %% will be update to eightpoint
\@setstrut 
\rm}

\def\@viiipt{}

\def\ixpt{\textfont\z@\ninmr
  \scriptfont\z@\sixmr \scriptscriptfont\z@\fivmr
\textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
   %%% cmex9 font usually missing from cm
\def\prm{\fam\z@\ninrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
    \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\ninit}%
\def\psl{\@getTfont\psl\@ixpt{\T@slan\Atixpt}}%
\def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninmb
   \scriptfont\bffam\sevmb \scriptscriptfont\bffam\fivmb
\def\ptt{\nintt}%
\def\psf{\@getTfont\psf\@ixpt{\T@sans\Atixpt}}%
\def\psc{\@getTfont\psc\@ixpt{\T@csc\atixpt}}%
\def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly
   \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
\def\pSy{\@getSyfont\Sy@ixpt\Sy@viipt\Sy@vipt}%
\@ixpt %% will be update to ninepoint
\@setstrut \rm}

\def\@ixpt{}

\def\xpt{\textfont\z@\tenmr
  \scriptfont\z@\sevmr \scriptscriptfont\z@\fivmr
\textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\tenmi
          \textfont\tw@\tensy \textfont\lyfam\tenly
          \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{tenmib}{%
   \global\font\tenmib\@mbi
   \global\font\tensyb\@mbsy
   \global\font\tenlyb\@lasyb\relax
   \@addfontinfo\@xpt
   {\def\boldmath{\@prtct\@nomathbold
        \textfont\z@\tenmb \textfont\@ne\tenmib \textfont\tw@\tensyb
        \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
 %% Conjectured simplification 3-93 LS ??
 %\def\boldmath{\@ifundefined{tenmib}{%
 %   \global\font\tenmib\@mbi
 %   \global\font\tensyb\@mbsy
 %   \global\font\tenlyb\@lasyb\relax
 %   \def\boldmath{\@nomathbold
 %        \textfont\@ne\tenmib \textfont\tw@\tensyb
 %        \textfont\lyfam\tenlyb \@boldtrue}}}{}\boldmath}%
\def\prm{\fam\z@\tenrm}%
\def\pit{\tenit}%
\def\psl{\tensl}%
\def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf
    \scriptfont\bffam\sevmb \scriptscriptfont\bffam\fivmb
\def\ptt{\tentt}
\def\psf{\tensf}
\def\psc{\@getTfont\psc\@xpt{\T@csc}}%
\def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly
   \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly
\def\pSy{\@getSyfont\Sy@xpt\Sy@viipt\Sy@vpt}%
\@xpt
\@setstrut \rm}

\def\@xpt{}

\def\xipt{\textfont\z@\elvmr
  \scriptfont\z@\egtmr \scriptscriptfont\z@\sixmr
\textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\@nomath\unboldmath
          \textfont\@ne\elvmi \textfont\tw@\elvsy
          \textfont\lyfam\elvly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag
         \global\font\elvsyb\@mbsy\@halfmag
         \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
         {\def\boldmath{\@prtct\@nomathbold
                \textfont\z@\elvmb \textfont\@ne\elvmib \textfont\tw@\elvsyb
                \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
\def\prm{\fam\z@\elvrm}%
\def\pit{\elvit}%
\def\psl{\elvsl}%
\def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvmb
   \scriptfont\bffam\egtmb \scriptscriptfont\bffam\sixmb
\def\ptt{\elvtt}
\def\psf{\elvsf}
\def\psc{\@getTfont\psc\@xipt{\T@csc \@halfmag}}%
\def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly
   \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
\def\pSy{\@getSyfont\Sy@xipt\Sy@viiipt\Sy@vipt}%
\@setstrut \rm}

\def\@xipt{}

\def\xiipt{\textfont\z@\twlmr
  \scriptfont\z@\egtmr \scriptscriptfont\z@\sixmr
\textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\@nomath\unboldmath
          \textfont\@ne\twlmi
          \textfont\tw@\twlsy \textfont\lyfam\twlly
          \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magi
        \global\font\twlsyb\@mbsy\@magi
        \global\font\twllyb\@lasyb\@magi\relax
        \@addfontinfo\@xiipt
           {\def\boldmath{\@prtct\@nomathbold
                \textfont\z@\twlmb \textfont\@ne\twlmib \textfont\tw@\twlsyb
                \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
\def\prm{\fam\z@\twlrm}%
\def\pit{\twlit}%
\def\psl{\twlsl}%
\def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlmb
   \scriptfont\bffam\ninmb \scriptscriptfont\bffam\sevmb
\def\ptt{\twltt}
\def\psf{\twlsf}
\def\psc{\@getTfont\psc\@xiipt{\T@csc \@magi}}%
\def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly
   \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
\def\pSy{\@getSyfont\Sy@xiipt\Sy@ixpt\Sy@viipt}%
\@xiipt
\@setstrut \rm}

\def\@xiipt{}

\def\xivpt{\textfont\z@\frtnmr
  \scriptfont\z@\tenmr \scriptscriptfont\z@\sevmr
\textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
\textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\@nomath\unboldmath
          \textfont\@ne\frtnmi \textfont\tw@\frtnsy
          \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{frtnmib}{\global\font\frtnmib\@mbi\@magii
      \global\font\frtnsyb\@mbsy\@magii
      \global\font\frtnlyb\@lasyb\@magii\relax
      \@addfontinfo\@xivpt{%
              \def\boldmath{\@prtct\@nomathbold
              \textfont\z@\frtnmb \textfont\@ne\frtnmib \textfont\tw@\frtnsyb
              \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
\def\prm{\fam\z@\frtnrm}%
\def\pit{\@getTfont\pit\@xivpt{\T@ital\@magii}}%
\def\psl{\@getTfont\psl\@xivpt{\T@slan\@magii}}%
\def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnmb
   \scriptfont\bffam\tenmb \scriptscriptfont\bffam\egtmb
\def\ptt{\@getTfont\ptt\@xivpt{\T@type\@magii}%
                            \@nohyphens\ptt\@xivpt}%
\def\psf{\@getTfont\psf\@xivpt{\T@sans\@magii}}%
\def\psc{\@getTfont\psc\@xivpt{\T@csc\@magii}}%
\def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly
   \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly
\def\pSy{\@getSyfont\Sy@xivpt\Sy@xpt\Sy@viipt}%
\@xivpt
\@setstrut \rm}

\def\@xivpt{}

\def\xviipt{\textfont\z@\svtnmr
  \scriptfont\z@\twlmr \scriptscriptfont\z@\tenmr
\textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
\textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
          \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
          \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\svtnrm}%
\def\pit{\@getTfont\pit\@xviipt{\T@ital\@magiii}}%
\def\psl{\@getTfont\psl\@xviipt{\T@slan\@magiii}}%
\def\pbf{\fam\bffam\svtnbf}%
    \font\svtnmb=cmbx10\@magiii %% load if not yet loaded 
    \textfont\bffam\svtnmb
    \scriptfont\bffam\twlmb \scriptscriptfont\bffam\tenmb
\def\ptt{\@getTfont\ptt\@xviipt{\T@type\@magiii}%
    \@nohyphens\ptt\@xviipt}%
\def\psf{\@getTfont\psf\@xviipt{\T@sans\@magiii}}%
\def\psc{\@getTfont\psc\@xviipt{\T@csc\@magiii}}%
\def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly
   \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
\def\pSy{\@getSyfont\Sy@xviipt\Sy@xiipt\Sy@xpt}%
\@xviipt
\@setstrut \rm}

\def\@xviipt{}

\def\xxpt{\textfont\z@\twtymr
  \scriptfont\z@\frtnmr \scriptscriptfont\z@\twlmr
\textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
\textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twtyrm}%
\def\pit{\@getTfont\pit\@xxpt{\T@ital\@magiv}}%
\def\psl{\@getTfont\psl\@xxpt{\T@slan\@magiv}}%
\def\pbf{\fam\bffam\twtybf}%
    \font\twtymb=cmbx10\@magiv %% laad if not yet loaded
    \textfont\bffam\twtymb
    \scriptfont\bffam\frtnmb \scriptscriptfont\bffam\elvmb
\def\ptt{\@getTfont\ptt\@xxpt{\T@type\@magiv}\@nohyphens\ptt\@xxpt}%
\def\psf{\@getTfont\psf\@xxpt{\T@sans\@magiv}}%
\def\psc{\@getTfont\psc\@xxpt{\T@csc\@magiv}}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
   \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly
\def\pSy{\@getSyfont\Sy@xxpt\Sy@xivpt\Sy@xiipt}%
\@xxpt
\@setstrut \rm}

\def\@xxpt{}

\def\xxvpt{\textfont\z@\twfvmr
  \scriptfont\z@\twtymr \scriptscriptfont\z@\svtnmr
\textfont\@ne\twfvmi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
\textfont\tw@\twfvsy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
        \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
        \@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twfvrm}%
\def\pit{\@getTfont\pit\@xxvpt{\T@ital\@magv}}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\fam\bffam\twfvbf}%
    \font\twfvmb=cmbx10\@magv\font\svtnmb=cmbx10\@magiii
    %% load if not yet loaded
    \textfont\bffam\twfvmb
    \scriptfont\bffam\twtymb \scriptscriptfont\bffam\frtnmb
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
   \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly
\def\pSy{\@getSyfont\Sy@xxvpt\Sy@xviipt\Sy@xivpt}%
\@xxvpt
\@setstrut \rm}

\def\@xxvpt{}

% SPECIAL LaTeX character definitions

% Definitions of math operators added by LaTeX
\mathchardef\mho"0A30
\mathchardef\Join"3A31
\mathchardef\Box"0A32
\mathchardef\Diamond"0A33
\mathchardef\leadsto"3A3B
\mathchardef\sqsubset"3A3C
\mathchardef\sqsupset"3A3D
\def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule 
      \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
\def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height 
       .55em \@depth .05em}\hbox to -.43em{}>}}
\def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
        {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
\def\unrhd{\mathbin{ \hbox to .3em{}\hbox
 {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}

% Definition of \$ to work in italic font (since it produces a pound sterling
% sign in the cmit font.

\def\${\protect\pdollar}
\def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}

% Definition of pound sterling sign.
% Modified 10 Apr 89 to work in math mode.

\def\pounds{\protect\ppounds}
%\def\ppounds{\relax\ifmmode\mathchar"4A3\else{\it \char'243}\fi}
\def\ppounds{\relax\ifmmode\hbox{\it \char'243}\else{\it \char'243}\fi}

% Definition of \copyright changed so it works in other type styles,
% and so it is robust
\def\copyright{\protect\pcopyright}
\def\pcopyright{{\rm\ooalign{\hfil
     \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
