home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / tex / inputs.sit / TeX-inputs / Times-LFONTS.tex < prev    next >
Text File  |  1989-10-26  |  41KB  |  925 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. % This modified version of LFONTS.TEX is for creating the Times-LaTeX format.
  3. % See Times-LaTeX.tex for details.
  4. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  5. % File LFONTS - Version of 10 April 1989
  6. %
  7. % This version of LFONTS.TEX is for the CMR fonts.  It was converted
  8. % from the AMR version by David Fuchs on 18 December 1985.
  9. % And corrected on 11 Nov 1986 by Leslie Lamport.  
  10. % Last vestige of AMR fonts removed 3 Mar 89 by Leslie Lamport.
  11.  
  12. % This file needs to be customized for the fonts available at a particular
  13. % site.  There are three places where changes need to be made.  They
  14. % can be found by searching this file for the string  FONT-CUSTOMIZING.
  15. %
  16. % FONT CONVENTIONS
  17. %
  18. % A TYPESTYLE COMMAND is something like \it that defines a type style.
  19. % Each style command \xx is defined to be \protect\pxx, where 
  20. % \pxx is defined to choose the correct font for the current size.
  21. % This allows style commands to appear in 'unsafe' arguments where
  22. % protection is required.
  23. %
  24. % A SIZE COMMAND is something like \normalsize that defines a type size.
  25. % It is defined by the document style.  However, \normalsize is handled
  26. % somewhat differently because it is called so often--e.g., on every
  27. % page by the output routine.  The document style defines \@normalsize
  28. % instead of \normalsize.
  29. % 
  30. % A ONE-SIZE typestyle is one that exists only in the \normalsize size.
  31. %
  32. % A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
  33. % \scriptscriptfont for the font families corresponding to preloaded fonts,
  34. % as well as the typestyle commands for the preloaded fonts.  Each
  35. % font-size command has an associated @fontsize command, having the same
  36. % name except for an '@' at the front.   All font-size commands are defined 
  37. % in LFONTS.  The naming convention is that a fifteenpt font has a font-size
  38. % name \xvpt, and so on.
  39. %
  40. % Each size command \SIZE executes the command
  41. %             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
  42. % which does the following.
  43. %   0. Executes \@nomath\SIZE to issue warning if in math mode.
  44. %   1. \let \@currsize = \SIZE  
  45. %   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
  46. %      depth .3 * BASELINESKIP
  47. %
  48. %       Note: Charles Karney observed that step 2 is useless, since the
  49. %       \FONTSIZE command executed in step 4 resets \strutbox using
  50. %       the actual baselineskip, which is \baselinestretch * BASELINESKIP.
  51. %       Some day, this step may get removed.  (Note made 28 Feb 89)
  52. %
  53. %   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
  54. %      and 
  55. %   4. Calls \FONTSIZE 
  56. %   5. Executes the \@FONTSIZE command.
  57. % It should then define all the typestyle commands not defined by the font-size
  58. % command, except for the one-size type styles. A typestyle command for which
  59. % the corresponding font exists but is not preloaded is defined to expand to a
  60. % \@getfont command.  A typestyle whose font does not exist is defined to 
  61. % expand to a \@subfont command.
  62. %
  63. % A one-size typestyle whose font is not preloaded is defined to expand to
  64. % a \@onesizefont command.
  65. %
  66. % \em is defined to be \it inside an unslanted style and \rm inside a
  67. % slanted style.  An \em command in a section title will produce a \pem
  68. % command in the table of contents.
  69. %
  70.  
  71. \def\em{\protect\pem{}}
  72. \def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
  73.  
  74. \def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
  75.  
  76. % \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
  77. %    used for first time in math mode.  Give this command outside math
  78. %    mode, before formula using it for first time.
  79. \def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
  80.  
  81. % \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
  82. %    It is equivalent to \font \CMD = FONT
  83. % \symbol{NUM} == \char NUM
  84.  
  85. \def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
  86. \def\symbol#1{\char #1\relax}
  87.  
  88.  
  89.  
  90. % \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
  91. %   \STYLE       = style command
  92. %   \FAM         = a control sequence defined by \newfam\FAM
  93. %   \@FONTSIZE   = the @fontsize command for the current size. 
  94. %   LOADING.INFO = information needed to load the font--e.g., 
  95. %                  cmtti10 \magstep 2
  96. %   Does the following, where \FONTNAME denotes a new unique, untypeable
  97. %   font name:
  98. %    1. Executes  \font \FONTNAME = LOADING.INFO 
  99. %    2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
  100. %       to the definition of \@FONTSIZE.
  101. %    3. Executes \@FONTSIZE \STYLE.
  102. %
  103. % \@nohyphens\STYLE\@FONTSIZE
  104. %   Used right after \@getfont to set \hyphenchar of the new font to -1,
  105. %   thereby prohibiting hyphenation.  It is used with \tt fonts.
  106. %   (\@nohyphens was added on 12/18/85)
  107. %
  108. % \@subfont \STYLE \REPSTYLE 
  109. %   \STYLE, \REPSTYLE = type style commands.
  110. %   Types warning message and defines uses \REPSTYLE.
  111. %
  112. % \@onesizefont \STYLE {LOADING.INFO}
  113. %   Defines \STYLE to be a typestyle that exists only for the \normalsize
  114. %   size.  It produces the font specified by LOADING.INFO
  115. %
  116. % \@addfontinfo\@FONTSIZE{DEFS}
  117. %    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
  118. %    not be expanded should be protected with \@prtct---except no protection
  119. %    is needed for '\def\foo', only for the contents of the definition.
  120. %
  121. % \@nomath\CS : Types a warning '\CS used in math mode' if encountered
  122. %    in math mode.
  123.  
  124. % Remove \outer from definition of \newfam
  125. \def\newfam{\alloc@8\fam\chardef\sixt@@n}
  126.  
  127. \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  128.    #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
  129.       depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
  130.    \normalbaselineskip\baselineskip#3#4}
  131.  
  132. \newif\if@bold
  133.  
  134. \let\@prtct=\relax
  135.  
  136. \def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
  137.     \def\noexpand}\xdef#1{#1#2}}}
  138.  
  139. \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
  140.     \font \csname \string #1\string #3\endcsname #4\relax 
  141.      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
  142.      \scriptfont #2\csname \string #1\string #3\endcsname 
  143.      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
  144.      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
  145.  
  146. \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
  147.    \string #1\string #2\endcsname \m@ne}
  148.  
  149. \def\@subfont#1#2{\@warning{No \string#1\space typeface in 
  150.         this size, using \string#2}#2}
  151.  
  152. \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
  153.   \global\expandafter\font\csname ft\string#1\endcsname #2\relax
  154.   \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
  155.   \@warning{Typeface \string#1\space available only in 
  156.   \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
  157.   \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
  158.   \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
  159.  
  160. \def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
  161.  
  162. \def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
  163. \def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
  164.  
  165. % The following definitions save token space.  E.g., using \@height 
  166. % instead of height saves 5 tokens at the cost in time of one macro 
  167. % expansion.
  168.  
  169. \def\@height{height}
  170. \def\@depth{depth}
  171. \def\@width{width}
  172.  
  173. %% FONT-CUSTOMIZING:  The following \font commands define the
  174. %% preloaded LaTeX fonts.  Font names should be changed to cause
  175. %% different fonts to be loaded in place of these particular fonts.
  176. %% \font commands should be added or deleted to change which fonts
  177. %% are preloaded.
  178.  
  179. \input psnames.tex
  180.  
  181. \xdef\PSnorm{\TimesR}
  182. \xdef\PSital{\TimesI}
  183. \xdef\PSbold{\TimesB}
  184. \xdef\PSboit{\TimesBI}
  185.  
  186. \xdef\PSslan{\TimesS}
  187. \xdef\PSsltt{\CourierO}
  188. \xdef\PStype{\Courier}
  189. \xdef\PSsans{\Helv}
  190. \xdef\PSsani{\HelvO}
  191. \xdef\PSsanb{\HelvB}
  192. \xdef\PSsymb{\Symbol}
  193.  
  194. \def\atvpt   { at 5pt}
  195. \def\atvipt  { at 6pt}
  196. \def\atviipt { at 7pt}
  197. \def\atviiipt{ at 8pt}
  198. \def\atixpt  { at 9pt}
  199. \def\atxpt   { at 10pt}
  200. \def\@halfmag{ at 10.95pt}
  201. \def\@magi   { at 12pt}
  202. \def\@magii  { at 14.4pt}
  203. \def\@magiii { at 17.28pt}
  204. \def\@magiv  { at 20.74pt}
  205. \def\@magv   { at 24.88pt}
  206.  
  207. % five point
  208.  \font\fivrm  = \PSnorm     \atvpt % normal
  209.  \font\fivmi  = cmmi5              % math italic
  210.     \skewchar\fivmi ='177          % for placement of accents
  211. %\font\fivmib = cmmib10     \atvpt % bold math italic
  212.  \font\fivsy  = cmsy5              % math symbols
  213.     \skewchar\fivsy ='60           % for placement of math accents
  214. %\font\fivsyb = cmbsy10     \atvpt % bold math symbols
  215. %\font\fivit  = \PSital     \atvpt % text italic
  216. %\font\fivsl  = \PSslan     \atvpt % slanted
  217. %\font\fivbf  = \PSbold     \atvpt % extended bold
  218. %\font\fivbfs = \PSboit     \atvpt % extended bold slanted
  219. %\font\fivtt  = \PStype     \atvpt % typewriter
  220. %\font\fivtti = cmitt10     \atvpt % italic typewriter
  221. %\font\fivtts = \PSsltt     \atvpt % slanted typewriter
  222. %\font\fivsf  = \PSsans     \atvpt % sans serif
  223. %\font\fivsfi = \PSsani     \atvpt % italic sans serif
  224. %\font\fivsfb = \PSsanb     \atvpt % bold sans serif
  225. %\font\fivsc  = cmcsc10     \atvpt % small caps
  226.  \font\fivly  = lasy5              % LaTeX symbols
  227. %\font\fivlyb = lasyb10     \atvpt % LaTeX symbols
  228. %\font\fivuit = cmu10       \atvpt % unslanted italic
  229.  
  230. % six point
  231.  \font\sixrm  = \PSnorm    \atvipt % normal
  232.  \font\sixmi  = cmmi6              % math italic
  233.     \skewchar\sixmi ='177          % for placement of accents
  234. %\font\sixmib = cmmib10    \atvipt % bold math italic
  235.  \font\sixsy  = cmsy6              % math symbols
  236.     \skewchar\sixsy ='60           % for placement of math accents
  237. %\font\sixsyb = cmbsy10    \atvipt % bold math symbols
  238. %\font\sixit  = \PSital    \atvipt % text italic
  239. %\font\sixsl  = \PSslan    \atvipt % slanted
  240. %\font\sixbf  = \PSbold    \atvipt % extended bold
  241. %\font\sixbfs = \PSboit    \atvipt % extended bold slanted
  242. %\font\sixtt  = \PStype    \atvipt % typewriter
  243. %\font\sixtti = cmitt10    \atvipt % italic typewriter
  244. %\font\sixtts = \PSsltt    \atvipt % slanted typewriter
  245. %\font\sixsf  = \PSsans    \atvipt % sans serif
  246. %\font\sixsfi = \PSsani    \atvipt % italic sans serif
  247. %\font\sixsfb = \PSsanb    \atvipt % bold sans serif
  248. %\font\sixsc  = cmcsc10    \atvipt % small caps
  249.  \font\sixly  = lasy6              % LaTeX symbols
  250. %\font\sixlyb = lasyb10    \atvipt % LaTeX symbols
  251. %\font\sixuit = cmu10      \atvipt % unslanted italic
  252.  
  253. % seven point
  254.  \font\sevrm  = \PSnorm   \atviipt % normal
  255.  \font\sevmi  = cmmi7              % math italic
  256.     \skewchar\sevmi ='177          % for placement of accents
  257. %\font\sevmib = cmmib10   \atviipt % bold math italic
  258.  \font\sevsy  = cmsy7              % math symbols
  259.     \skewchar\sevsy ='60           % for placement of math accents
  260. %\font\sevsyb = cmbsy10   \atviipt % bold math symbols
  261.  \font\sevit  = \PSital   \atviipt % text italic
  262. %\font\sevsl  = \PSslan   \atviipt % slanted
  263. %\font\sevbf  = \PSbold   \atviipt % extended bold
  264. %\font\sevbfs = \PSboit   \atviipt % extended bold slanted
  265. %\font\sevtt  = \PStype   \atviipt % typewriter
  266. %\font\sevtti = cmitt10   \atviipt % italic typewriter
  267. %\font\sevtts = \PSsltt   \atviipt % slanted typewriter
  268. %\font\sevsf  = \PSsans   \atviipt % sans serif
  269. %\font\sevsfi = \PSsani   \atviipt % italic sans serif
  270. %\font\sevsfb = \PSsanb   \atviipt % bold sans serif
  271. %\font\sevsc  = cmcsc10   \atviipt % small caps
  272.  \font\sevly  = lasy7              % LaTeX symbols
  273. %\font\sevlyb = lasyb10   \atviipt % LaTeX symbols
  274. %\font\sevuit = cmu10     \atviipt % unslanted italic
  275.  
  276. % eight point
  277.  \font\egtrm  = \PSnorm  \atviiipt % normal
  278.  \font\egtmi  = cmmi8              % math italic
  279.     \skewchar\egtmi ='177          % for placement of accents
  280. %\font\egtmib = cmmib10  \atviiipt % bold math italic
  281.  \font\egtsy  = cmsy8              % math symbols
  282.     \skewchar\egtsy ='60           % for placement of math accents
  283. %\font\egtsyb = cmbsy10  \atviiipt % bold math symbols
  284.  \font\egtit  = \PSital  \atviiipt % text italic
  285. %\font\egtsl  = \PSslan  \atviiipt % slanted
  286. %\font\egtbf  = \PSbold  \atviiipt % extended bold
  287. %\font\egtbfs = \PSboit  \atviiipt % extended bold slanted
  288. %\font\egttt  = \PStype  \atviiipt % typewriter
  289. %\font\egttti = cmitt10  \atviiipt % italic typewriter
  290. %\font\egttts = \PSsltt  \atviiipt % slanted typewriter
  291. %\font\egtsf  = \PSsans  \atviiipt % sans serif
  292. %\font\egtsfi = \PSsani  \atviiipt % italic sans serif
  293. %\font\egtsfb = \PSsanb  \atviiipt % bold sans serif
  294. %\font\egtsc  = cmcsc10  \atviiipt % small caps
  295.  \font\egtly  = lasy8              % LaTeX symbols
  296. %\font\egtlyb = lasyb10  \atviiipt % LaTeX symbols
  297. %\font\egtuit = cmu10    \atviiipt % unslanted italic
  298.  
  299.  
  300. % nine point
  301.  \font\ninrm  = \PSnorm    \atixpt % normal
  302.  \font\ninmi  = cmmi9              % math italic
  303.     \skewchar\ninmi ='177          % for placement of accents
  304. %\font\ninmib = cmmib10    \atixpt % bold math italic
  305.  \font\ninsy  = cmsy9              % math symbols
  306.     \skewchar\ninsy ='60           % for placement of math accents
  307. %\font\ninsyb = cmbsy10    \atixpt % bold math symbols
  308.  \font\ninit  = \PSital    \atixpt % text italic
  309. %\font\ninsl  = \PSslan    \atixpt % slanted
  310.  \font\ninbf  = \PSbold    \atixpt % extended bold
  311. %\font\ninbfs = \PSboit    \atixpt % extended bold slanted
  312.  \font\nintt  = \PStype    \atixpt % typewriter
  313.     \hyphenchar\nintt = -1         % suppress hyphenation in \tt font
  314. %\font\nintti = cmitt10    \atixpt % italic typewriter
  315. %\font\nintts = \PSsltt    \atixpt % slanted typewriter
  316. %\font\ninsf  = \PSsans    \atixpt % sans serif
  317. %\font\ninsfi = \PSsani    \atixpt % italic sans serif
  318. %\font\ninsfb = \PSsanb    \atixpt % bold sans serif
  319. %\font\ninsc  = cmcsc10    \atixpt % small caps
  320.  \font\ninly  = lasy9              % LaTeX symbols
  321. %\font\ninlyb = lasyb10    \atixpt % LaTeX symbols
  322. %\font\ninuit = cmu10      \atixpt % unslanted italic
  323.  
  324. % ten point
  325.  \font\tenrm  = \PSnorm     \atxpt % normal
  326.  \font\tenmi  = cmmi10             % math italic
  327.     \skewchar\tenmi ='177          % for placement of accents
  328. %\font\tenmib = cmmib10            % bold math italic
  329.  \font\tensy  = cmsy10             % math symbols
  330.     \skewchar\tensy ='60           % for placement of math accents
  331. %\font\tensyb = cmbsy10            % bold symbols
  332.  \font\tenit  = \PSital     \atxpt % text italic
  333.  \font\tensl  = \PSslan     \atxpt % slanted
  334.  \font\tenbf  = \PSbold     \atxpt % extended bold
  335.  \font\tenbfs = \PSboit     \atxpt % extended bold slanted
  336.  \font\tentt  = \PStype     \atxpt % typewriter
  337.     \hyphenchar\tentt = -1         % suppress hyphenation in \tt font
  338. %\font\tentti = cmitt10            % italic typewriter
  339. %\font\tentts = \PSsltt     \atxpt % slanted typewriter
  340.  \font\tensf  = \PSsans     \atxpt % sans serif
  341. %\font\tensfi = \PSsani     \atxpt % italic sans serif
  342. %\font\tensfb = \PSsanb     \atxpt % bold sans serif
  343. %\font\tensc  = cmcsc10            % small caps
  344.  \font\tenly  = lasy10             % LaTeX symbols
  345. %\font\tenlyb = lasyb10            % bold LaTeX symbols
  346. %\font\tenuit = cmu10              % unslanted italic
  347.  
  348. % eleven point
  349.  \font\elvrm  = \PSnorm    \@halfmag % normal
  350.  \font\elvmi  = cmmi10     \@halfmag % math italic
  351.     \skewchar\elvmi ='177            % for placement of accents
  352. %\font\elvmib = cmmib10    \@halfmag % bold math italic
  353.  \font\elvsy  = cmsy10     \@halfmag % math symbols
  354.     \skewchar\elvsy ='60             % for placement of math accents
  355. %\font\elvsyb = cmbsy10    \@halfmag % bold symbols
  356.  \font\elvit  = \PSital    \@halfmag % text italic
  357.  \font\elvsl  = \PSslan    \@halfmag % slanted
  358.  \font\elvbf  = \PSbold    \@halfmag % exelvded bold
  359. %\font\elvbfs = \PSboit    \@halfmag % exelvded bold slanted
  360.  \font\elvtt  = \PStype    \@halfmag % typewriter
  361.     \hyphenchar\elvtt = -1           % suppress hyphenation in \tt font
  362. %\font\elvtti = cmitt10    \@halfmag % italic typewriter
  363. %\font\elvtts = \PSsltt    \@halfmag % slanted typewriter
  364.  \font\elvsf  = \PSsans    \@halfmag % sans serif
  365. %\font\elvsfi = \PSsani    \@halfmag % italic sans serif
  366. %\font\elvsfb = \PSsanb    \@halfmag % bold sans serif
  367. %\font\elvsc  = cmcsc10    \@halfmag % small caps
  368.  \font\elvly  = lasy10     \@halfmag % LaTeX symbols
  369. %\font\elvlyb = lasyb10    \@halfmag % bold LaTeX symbols
  370. %\font\elvuit = cmu10      \@halfmag % unslanted italic
  371.  
  372. % twelve point
  373.  \font\twlrm  = \PSnorm      \@magi  % normal
  374.  \font\twlmi  = cmmi10       \@magi  % math italic
  375.     \skewchar\twlmi ='177            % for placement of accents
  376. %\font\twlmib = cmmib10      \@magi  % bold math italic
  377.  \font\twlsy  = cmsy10       \@magi  % math symbols
  378.     \skewchar\twlsy ='60             % for placement of math accents
  379. %\font\twlsyb = cmbsy10      \@magi  % bold symbols
  380.  \font\twlit  = \PSital      \@magi  % text italic
  381.  \font\twlsl  = \PSslan      \@magi  % slanted
  382.  \font\twlbf  = \PSbold      \@magi  % extended bold
  383. %\font\twlbfs = \PSboit      \@magi  % extended bold slanted
  384.  \font\twltt  = \PStype      \@magi  % typewriter
  385.     \hyphenchar\twltt = -1           % suppress hyphenation in \tt font
  386. %\font\twltti = cmitt10      \@magi  % italic typewriter
  387. %\font\twltts = \PSsltt      \@magi  % slanted typewriter
  388.  \font\twlsf  = \PSsans      \@magi  % sans serif
  389. %\font\twlsfi = \PSsani      \@magi  % italic sans serif
  390. %\font\twlsfb = \PSsanb      \@magi  % bold sans serif
  391. %\font\twlsc  = cmcsc10      \@magi  % small caps
  392.  \font\twlly  = lasy10       \@magi  % LaTeX symbols
  393. %\font\twllyb = lasyb10      \@magi  % bold LaTeX symbols
  394. %\font\twluit = cmu10        \@magi  % unslanted italic
  395.  
  396. % fourteen point
  397.  \font\frtnrm  = \PSnorm        \@magii % normal
  398.  \font\frtnmi  = cmmi10         \@magii % math italic
  399.     \skewchar\frtnmi ='177              % for placement of accents
  400. %\font\frtnmib = cmmib10        \@magii % bold math italic
  401.  \font\frtnsy  = cmsy10         \@magii % math symbols
  402.     \skewchar\frtnsy ='60               % for placement of math accents
  403. %\font\frtnsyb = cmbsy10        \@magii % bold symbols
  404. %\font\frtnit  = \PSital        \@magii % text italic
  405. %\font\frtnsl  = \PSslan        \@magii % slanted
  406.  \font\frtnbf  = \PSbold        \@magii % extended bold
  407. %\font\frtnbfs = \PSboit        \@magii % extended bold slanted
  408. %\font\frtntt  = \PStype        \@magii % typewriter
  409. %\font\frtntti = cmitt10        \@magii % italic typewriter
  410. %\font\frtntts = \PSsltt        \@magii % slanted typewriter
  411. %\font\frtnsf  = \PSsans        \@magii % sans serif
  412. %\font\frtnsfi = \PSsani        \@magii % italic sans serif
  413. %\font\frtnsfb = \PSsanb        \@magii % bold sans serif
  414. %\font\frtnsc  = cmcsc10        \@magii % small caps
  415.  \font\frtnly  = lasy10         \@magii % LaTeX symbols
  416. %\font\frtnlyb = lasyb10        \@magii % bold LaTeX symbols
  417. %\font\frtnuit = cmu10          \@magii % unslanted italic
  418.  
  419. % seventeen point
  420.  \font\svtnrm  = \PSnorm        \@magiii % normal
  421.  \font\svtnmi  = cmmi10         \@magiii % math italic
  422.     \skewchar\svtnmi ='177               % for placement of accents
  423. %\font\svtnmib = cmmib10        \@magiii % bold math italic
  424.  \font\svtnsy  = cmsy10         \@magiii % math symbols
  425.     \skewchar\svtnsy ='60                % for placement of math accents
  426. %\font\svtnsyb = cmbsy10        \@magiii % bold symbols
  427. %\font\svtnit  = \PSital        \@magiii % text italic
  428. %\font\svtnsl  = \PSslan        \@magiii % slanted
  429.  \font\svtnbf  = \PSbold        \@magiii % extended bold
  430. %\font\svtnbfs = \PSboit        \@magiii % extended bold slanted
  431. %\font\svtntt  = \PStype        \@magiii % typewriter
  432. %\font\svtntti = cmitt10        \@magiii % italic typewriter
  433. %\font\svtntts = \PSsltt        \@magiii % slanted typewriter
  434. %\font\svtnsf  = \PSsans        \@magiii % sans serif
  435. %\font\svtnsfi = \PSsani        \@magiii % italic sans serif
  436. %\font\svtnsfb = \PSsanb        \@magiii % bold sans serif
  437. %\font\svtnsc  = cmcsc10        \@magiii % small caps
  438.  \font\svtnly  = lasy10         \@magiii % LaTeX symbols
  439. %\font\svtnlyb = lasyb10        \@magiii % bold LaTeX symbols
  440. %\font\svtnuit = cmu10          \@magiii % unslanted italic
  441.  
  442. % twenty point
  443.  \font\twtyrm  = \PSnorm         \@magiv % normal
  444.  \font\twtymi  = cmmi10          \@magiv % math italic
  445.     \skewchar\twtymi ='177               % for placement of accents
  446. %\font\twtymib = cmmib10         \@magiv % bold math italic
  447.  \font\twtysy  = cmsy10          \@magiv % math symbols
  448.     \skewchar\twtysy ='60                % for placement of math accents
  449. %\font\twtysyb = cmbsy10         \@magiv % bold symbols
  450. %\font\twtyit  = \PSital         \@magiv % text italic
  451. %\font\twtysl  = \PSslan         \@magiv % slanted
  452. %\font\twtybf  = \PSbold         \@magiv % extended bold
  453. %\font\twtybfs = \PSboit         \@magiv % extended bold slanted
  454. %\font\twtytt  = \PStype         \@magiv % typewriter
  455. %\font\twtytti = cmitt10         \@magiv % italic typewriter
  456. %\font\twtytts = \PSsltt         \@magiv % slanted typewriter
  457. %\font\twtysf  = \PSsans         \@magiv % sans serif
  458. %\font\twtysfi = \PSsani         \@magiv % italic sans serif
  459. %\font\twtysfb = \PSsanb         \@magiv % bold sans serif
  460. %\font\twtysc  = cmcsc10         \@magiv % small caps
  461.  \font\twtyly  = lasy10          \@magiv % LaTeX symbols
  462. %\font\twtylyb = lasyb10         \@magiv % bold LaTeX symbols
  463. %\font\twtyuit = cmu10           \@magiv % unslanted italic
  464.  
  465. % twenty-five point
  466.  \font\twfvrm  = \PSnorm          \@magv % normal
  467. %\font\twfvmi  = cmmi10           \@magv % math italic
  468. %\font\twfvmib = cmmib10          \@magv % bold math italic
  469. %\font\twfvsy  = cmsy10           \@magv % math symbols
  470. %\font\twfvsyb = cmbsy10          \@magv % bold symbols
  471. %\font\twfvit  = \PSital          \@magv % text italic
  472. %\font\twfvsl  = \PSslan          \@magv % slanted
  473. %\font\twfvbf  = \PSbold          \@magv % extended bold
  474. %\font\twfvbfs = \PSboit          \@magv % extended bold slanted
  475. %\font\twfvtt  = \PStype          \@magv % typewriter
  476. %\font\twfvtti = cmitt10          \@magv % italic typewriter
  477. %\font\twfvtts = \PSsltt          \@magv % slanted typewriter
  478. %\font\twfvsf  = \PSsans          \@magv % sans serif
  479. %\font\twfvsfi = \PSsani          \@magv % italic sans serif
  480. %\font\twfvsfb = \PSsanb          \@magv % bold sans serif
  481. %\font\twfvsc  = cmcsc10          \@magv % small caps
  482. %\font\twfvly  = lasy10           \@magv % LaTeX symbols
  483. %\font\twfvlyb = lasyb10          \@magv % bold LaTeX symbols
  484. %\font\twfvuit = cmu10            \@magv % unslanted italic
  485.  
  486. % Math extension
  487. \font\tenex    = cmex10
  488.  
  489. % line & circle fonts 
  490. \font\tenln    = line10
  491. \font\tenlnw   = linew10  
  492. \font\tencirc  = circle10
  493. \font\tencircw = circlew10 
  494.  
  495. % Change made 6 May 86: `\@warning' replaced by `\immediate\write 15' 
  496. % since it's not defined when lfonts.tex is read by lplain.tex.
  497. %
  498. \ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else 
  499.   \immediate\write 15{Incompatible thin line and circle fonts}\fi
  500. \ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else 
  501.   \immediate\write 15{Incompatible thick line and circle fonts}\fi
  502.  
  503.  
  504. % protected font names
  505. \def\rm{\protect\prm}
  506. \def\it{\protect\pit}
  507. \def\bf{\protect\pbf}
  508. \def\sl{\protect\psl}
  509. \def\sf{\protect\psf}
  510. \def\sc{\protect\psc}
  511. \def\tt{\protect\ptt}
  512. \def\sy{\protect\psy}
  513.  
  514. %% FONT-CUSTOMIZING:  The following definitions define certain commands
  515. %% to be abbreviations for certain font names.  These commands are used
  516. %% below in \@getfont commands, which load the loaded-on-demand fonts.
  517. %% This is done only to save space.  To change the fonts that are loaded
  518. %% on demand, one can either change these definitions or else change
  519. %% the arguments of the \@getfont commands.  
  520. %%
  521. \def\@mbi{cmmib10}
  522. \def\@mbsy{cmbsy10}
  523. \def\@mcsc{cmcsc10}
  524. \def\@lasyb{lasyb10}
  525.  
  526. % families
  527.  
  528. \newfam\itfam      % \it is family 4
  529. \newfam\slfam      % \sl is family 5
  530. \newfam\bffam      % \bf is family 6
  531. \newfam\ttfam      % \tt is family 7
  532. \newfam\sffam      % \sf is family 8
  533. \newfam\scfam      % \sc is family 9
  534. \newfam\lyfam      % \ly is family 10
  535. \newfam\syfam      % \sy is family 11
  536.  
  537. \def\cal{\fam\tw@}
  538. \def\mit{\fam\@ne}
  539.  
  540. \def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
  541.     \@depth .3\baselineskip \@width\z@}}
  542.  
  543.  
  544. %% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
  545. %% the declarations needed to change the type size to 5pt, 6pt, ... ,
  546. %% 25pt.  To see how this works, consider the definition of \viipt,
  547. %% which determines the fonts used in a 7pt type size.  The command
  548. %%    \def\pit{\fam\itfam\sevit}
  549. %% means that the \it command causes the preloaded \sevit font to
  550. %% be used--this font was defined earlier with a \font\sevit...
  551. %% command.  The commands
  552. %%     \textfont\itfam\sevit 
  553. %%     \scriptfont\itfam\sevit 
  554. %%     \scriptscriptfont\itfam\sevit 
  555. %% tell TeX to use the \sevit font for all three math-mode sizes
  556. %% (text, script, and scriptscript) for the 7pt size.  
  557. %% The fonts appearing in these commands must be preloaded.
  558. %% 
  559. %% The command 
  560. %%     \def\pbf{\@getfont\pbf\bffam\@viipt{cmbx7}}
  561. %% declares \bf to use a loaded-on-demand font--namely, the font
  562. %% cmbx7.
  563. %%
  564. %% The command
  565. %%     \def\ptt{\@subfont\tt\rm}
  566. %% declares that the \tt font is unavailable in the 7pt size, so
  567. %% the \rm font is used instead.  (The substituted type style should
  568. %% correspond to a preloaded size.)
  569.  
  570. \def\vpt{\textfont\z@\fivrm
  571.   \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
  572. \textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  573. \textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  574. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  575. \def\prm{\fam\z@\fivrm}%
  576. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  577.   \unboldmath\fam\@ne\@boldfalse}\@boldfalse
  578. \def\boldmath{\@subfont\boldmath\unboldmath}%
  579. \def\pit{\@getfont\pit\itfam\@vpt{\PSital \atvpt}}%
  580. \def\psl{\@subfont\sl\it}%
  581. \def\pbf{\@getfont\pbf\bffam\@vpt{\PSbold \atvpt}}%
  582. \def\ptt{\@subfont\tt\rm}%
  583. \def\psf{\@subfont\sf\rm}%
  584. \def\psc{\@subfont\sc\rm}%
  585. \def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly
  586.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
  587. \def\psy{\@getfont\psy\syfam\@vpt{\PSsymb \atvpt}}%
  588. \@setstrut\rm}
  589.  
  590. \def\@vpt{}
  591.  
  592. \def\vipt{\textfont\z@\sixrm
  593.   \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
  594. \textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
  595. \textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
  596. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  597. \def\prm{\fam\z@\sixrm}%
  598. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  599.   \unboldmath\@boldfalse}\@boldfalse
  600. \def\boldmath{\@subfont\boldmath\unboldmath}%
  601. \def\pit{\@getfont\pit\itfam\@vipt{\PSital\atvipt}}%
  602. \def\psl{\@subfont\sl\rm}%
  603. \def\pbf{\@getfont\pbf\bffam\@vipt{\PSbold\atvipt}}%
  604. \def\ptt{\@subfont\tt\rm}%
  605. \def\psf{\@subfont\sf\rm}%
  606. \def\psc{\@subfont\sc\rm}%
  607. \def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly
  608.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly
  609. \def\psy{\@getfont\psy\syfam\@vipt{\PSsymb\atvipt}}%
  610. \@setstrut\rm}
  611.  
  612. \def\@vipt{}
  613.  
  614. \def\viipt{\textfont\z@\sevrm
  615.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  616. \textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  617. \textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  618. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  619. \def\prm{\fam\z@\sevrm}%
  620. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  621. \unboldmath\@boldfalse}\@boldfalse
  622. \def\boldmath{\@subfont\boldmath\unboldmath}%
  623. \def\pit{\fam\itfam\sevit}\textfont\itfam\sevit
  624.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
  625. \def\psl{\@subfont\sl\it}%
  626. \def\pbf{\@getfont\pbf\bffam\@viipt{\PSbold\atvipt}}%
  627. \def\ptt{\@subfont\tt\rm}%
  628. \def\psf{\@subfont\sf\rm}%
  629. \def\psc{\@subfont\sc\rm}%
  630. \def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly
  631.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
  632. \def\psy{\@getfont\psy\syfam\@viipt{\PSsymb\atviipt}}%
  633. \@setstrut \rm}
  634.  
  635. \def\@viipt{}
  636.  
  637. \def\viiipt{\textfont\z@\egtrm
  638.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  639. \textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  640. \textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  641. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  642. \def\prm{\fam\z@\egtrm}%
  643. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  644. \unboldmath\@boldfalse}\@boldfalse
  645. \def\boldmath{\@subfont\boldmath\unboldmath}%
  646. \def\pit{\fam\itfam\egtit}\textfont\itfam\egtit
  647.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
  648. \def\psl{\@getfont\psl\slfam\@viiipt{\PSslan \atviiipt}}%
  649. \def\pbf{\@getfont\pbf\bffam\@viiipt{\PSbold \atviiipt}}%
  650. \def\ptt{\@getfont\ptt\ttfam\@viiipt{\PStype \atviiipt}\@nohyphens\ptt\@viiipt}%
  651. \def\psf{\@getfont\psf\sffam\@viiipt{\PSsans \atviiipt}}%
  652. \def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \atviiipt}}%
  653. \def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly
  654.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
  655. \def\psy{\@getfont\psy\syfam\@viiipt{\PSsymb \atviiipt}}%
  656. \@setstrut \rm}
  657.  
  658. \def\@viiipt{}
  659.  
  660. \def\ixpt{\textfont\z@\ninrm
  661.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  662. \textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  663. \textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  664. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  665. \def\prm{\fam\z@\ninrm}%
  666. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  667.     \@boldfalse}\@boldfalse
  668. \def\boldmath{\@subfont\boldmath\unboldmath}%
  669. \def\pit{\fam\itfam\ninit}\textfont\itfam\ninit
  670.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
  671. \def\psl{\@getfont\psl\slfam\@ixpt{\PSslan\atixpt}}%
  672. \def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf
  673.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
  674. \def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
  675.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
  676. \def\psf{\@getfont\psf\sffam\@ixpt{\PSsans\atixpt}}%
  677. \def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc\atixpt}}%
  678. \def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly
  679.    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
  680. \def\psy{\@getfont\psy\syfam\@ixpt{\PSsymb\atixpt}}%
  681. \@setstrut \rm}
  682.  
  683. \def\@ixpt{}
  684.  
  685. \def\xpt{\textfont\z@\tenrm
  686.   \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
  687. \textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
  688. \textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
  689. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  690. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  691.           \textfont\@ne\tenmi
  692.           \textfont\tw@\tensy \textfont\lyfam\tenly
  693.           \@boldfalse}\@boldfalse
  694. \def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi
  695.    \global\font\tensyb\@mbsy
  696.    \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
  697.    {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  698.         \textfont\@ne\tenmib \textfont\tw@\tensyb
  699.         \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
  700. \def\prm{\fam\z@\tenrm}%
  701. \def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
  702.     \scriptscriptfont\itfam\sevit
  703. \def\psl{\fam\slfam\tensl}\textfont\slfam\tensl
  704.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  705. \def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf
  706.     \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf
  707. \def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
  708.     \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
  709. \def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
  710.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  711. \def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
  712. \def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly
  713.    \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly
  714. \def\psy{\@getfont\psy\syfam\@xpt{\PSsymb\atxpt}}%
  715. \@setstrut \rm}
  716.  
  717. \def\@xpt{}
  718.  
  719. \def\xipt{\textfont\z@\elvrm
  720.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  721. \textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  722. \textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  723. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  724. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  725.           \textfont\@ne\elvmi \textfont\tw@\elvsy
  726.           \textfont\lyfam\elvly \@boldfalse}\@boldfalse
  727. \def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag
  728.          \global\font\elvsyb\@mbsy\@halfmag
  729.          \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
  730.          {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  731.                 \textfont\@ne\elvmib \textfont\tw@\elvsyb
  732.                 \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
  733. \def\prm{\fam\z@\elvrm}%
  734. \def\pit{\fam\itfam\elvit}\textfont\itfam\elvit
  735.    \scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
  736. \def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl
  737.     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  738. \def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf
  739.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
  740. \def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
  741.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
  742. \def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
  743.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  744. \def\psc{\@getfont\psc\scfam\@xipt{\@mcsc \@halfmag}}%
  745. \def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly
  746.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
  747. \def\psy{\@getfont\psy\syfam\@xipt{\PSsymb \@halfmag}}%
  748. \@setstrut \rm}
  749.  
  750. \def\@xipt{}
  751.  
  752. \def\xiipt{\textfont\z@\twlrm
  753.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  754. \textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  755. \textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  756. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  757. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  758.           \textfont\@ne\twlmi
  759.           \textfont\tw@\twlsy \textfont\lyfam\twlly
  760.           \@boldfalse}\@boldfalse
  761. \def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi  \@magi\global
  762.         \font\twlsyb\@mbsy  \@magi\global\font
  763.          \twllyb\@lasyb  \@magi\relax\@addfontinfo\@xiipt
  764.               {\def\boldmath{\everymath
  765.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  766.                 \textfont\@ne\twlmib \textfont\tw@\twlsyb
  767.                 \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
  768. \def\prm{\fam\z@\twlrm}%
  769. \def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
  770.    \scriptscriptfont\itfam\sevit
  771. \def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl
  772.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  773. \def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf
  774.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
  775. \def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
  776.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
  777. \def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
  778.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  779. \def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc  \@magi}}%
  780. \def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly
  781.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
  782. \def\psy{\@getfont\psy\syfam\@xiipt{\PSsymb \@magi}}%
  783. \@setstrut \rm}
  784.  
  785. \def\@xiipt{}
  786.  
  787. \def\xivpt{\textfont\z@\frtnrm
  788.   \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
  789. \textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
  790. \textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
  791. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  792. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  793.           \textfont\@ne\frtnmi \textfont\tw@\frtnsy
  794.           \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
  795. \def\boldmath{\@ifundefined{frtnmib}{\global\font
  796.         \frtnmib\@mbi   \@magii\global\font\frtnsyb\@mbsy   \@magii
  797.          \global\font\frtnlyb\@lasyb   \@magii\relax\@addfontinfo\@xivpt
  798.                {\def\boldmath{\everymath
  799.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  800.               \textfont\@ne\frtnmib \textfont\tw@\frtnsyb
  801.               \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
  802. \def\prm{\fam\z@\frtnrm}%
  803. \def\pit{\@getfont\pit\itfam\@xivpt{\PSital   \@magii}}%
  804. \def\psl{\@getfont\psl\slfam\@xivpt{\PSslan   \@magii}}%
  805. \def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf
  806.    \scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf
  807. \def\ptt{\@getfont\ptt\ttfam\@xivpt{\PStype   \@magii}\@nohyphens\ptt\@xivpt}%
  808. \def\psf{\@getfont\psf\sffam\@xivpt{\PSsans   \@magii}}%
  809. \def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc   \@magii}}%
  810. \def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly
  811.    \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly
  812. \def\psy{\@getfont\psy\syfam\@xivpt{\PSsymb \@magii}}%
  813. \@setstrut \rm}
  814.  
  815. \def\@xivpt{}
  816.  
  817. \def\xviipt{\textfont\z@\svtnrm
  818.   \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
  819. \textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
  820. \textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
  821. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  822. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  823.           \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
  824.           \@boldfalse}\@boldfalse
  825. \def\boldmath{\@subfont\boldmath\unboldmath}%
  826. \def\prm{\fam\z@\svtnrm}%
  827. \def\pit{\@getfont\pit\itfam\@xviipt{\PSital   \@magiii}}%
  828. \def\psl{\@getfont\psl\slfam\@xviipt{\PSslan   \@magiii}}%
  829. \def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf
  830.     \scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf
  831. \def\ptt{\@getfont\ptt\ttfam\@xviipt{\PStype   \@magiii}\@nohyphens
  832.    \ptt\@xviipt}%
  833. \def\psf{\@getfont\psf\sffam\@xviipt{\PSsans   \@magiii}}%
  834. \def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc   \@magiii}}%
  835. \def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly
  836.    \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
  837. \def\psy{\@getfont\psy\syfam\@xviipt{\PSsymb \@magiii}}%
  838. \@setstrut \rm}
  839.  
  840. \def\@xviipt{}
  841.  
  842. \def\xxpt{\textfont\z@\twtyrm
  843.   \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
  844. \textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
  845. \textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
  846. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  847. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  848.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  849.         \@boldfalse}\@boldfalse
  850. \def\boldmath{\@subfont\boldmath\unboldmath}%
  851. \def\prm{\fam\z@\twtyrm}%
  852. \def\pit{\@getfont\pit\itfam\@xxpt{\PSital    \@magiv}}%
  853. \def\psl{\@getfont\psl\slfam\@xxpt{\PSslan    \@magiv}}%
  854. \def\pbf{\@getfont\pbf\bffam\@xxpt{\PSbold    \@magiv}}%
  855. \def\ptt{\@getfont\ptt\ttfam\@xxpt{\PStype    \@magiv}\@nohyphens\ptt\@xxpt}%
  856. \def\psf{\@getfont\psf\sffam\@xxpt{\PSsans    \@magiv}}%
  857. \def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc    \@magiv}}%
  858. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
  859.    \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly
  860. \def\psy{\@getfont\psy\syfam\@xxpt{\PSsymb    \@magiv}}%
  861. \@setstrut \rm}
  862.  
  863. \def\@xxpt{}
  864.  
  865. \def\xxvpt{\textfont\z@\twfvrm
  866.   \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
  867. \textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
  868. \textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
  869. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  870. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  871.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  872.         \@boldfalse}\@boldfalse
  873. \def\boldmath{\@subfont\boldmath\unboldmath}%
  874. \def\prm{\fam\z@\twfvrm}%
  875. \def\pit{\@getfont\pit\itfam\@xxvpt{\PSital     \@magv}}%
  876. \def\psl{\@subfont\sl\rm}%
  877. \def\pbf{\@getfont\pbf\bffam\@xxvpt{\PSbold     \@magv}}%
  878. \def\ptt{\@subfont\tt\rm}%
  879. \def\psf{\@subfont\sf\rm}%
  880. \def\psc{\@subfont\sc\rm}%
  881. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
  882.    \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly
  883. \def\psy{\@getfont\psy\syfam\@xxvpt{\PSsymb    \@magv}}%
  884. \@setstrut \rm}
  885.  
  886. \def\@xxvpt{}
  887.  
  888. % SPECIAL LaTeX character definitions
  889.  
  890. % Definitions of math operators added by LaTeX
  891. \mathchardef\mho"0A30
  892. \mathchardef\Join"3A31
  893. \mathchardef\Box"0A32
  894. \mathchardef\Diamond"0A33
  895. \mathchardef\leadsto"3A3B
  896. \mathchardef\sqsubset"3A3C
  897. \mathchardef\sqsupset"3A3D
  898. \def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule 
  899.       \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
  900. \def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height 
  901.        .55em \@depth .05em}\hbox to -.43em{}>}}
  902. \def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
  903.         {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
  904. \def\unrhd{\mathbin{ \hbox to .3em{}\hbox
  905.  {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
  906.  
  907. % Definition of \$ to work in italic font (since it produces a pound sterling
  908. % sign in the cmit font.
  909.  
  910. \def\${\protect\pdollar}
  911. \def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}
  912.  
  913. % Definition of pound sterling sign.
  914. % Modified 10 Apr 89 to work in math mode.
  915.  
  916. \def\pounds{\protect\ppounds}
  917. %\def\ppounds{\relax\ifmmode\mathchar"4A3\else{\it \char'243}\fi}
  918. \def\ppounds{\relax\ifmmode\hbox{\it \char'243}\else{\it \char'243}\fi}
  919.  
  920. % Definition of \copyright changed so it works in other type styles,
  921. % and so it is robust
  922. \def\copyright{\protect\pcopyright}
  923. \def\pcopyright{{\rm\ooalign{\hfil
  924.      \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
  925.