home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / macros / distribs / nfss / lfonts.new (.txt) < prev    next >
LaTeX Document  |  1992-11-29  |  37KB  |  947 lines
  1. %% This is file `lfonts.new', generated 
  2. %% on <1992/9/24> with the docstrip utility (2.0r).
  3. %% The original source files were:
  4. %% fam.doc 
  5. %% tracefnt.doc 
  6. %% setsize.doc 
  7. %% latint.doc 
  8. %% lfonts.doc 
  9. %% Copyright (C) 1989-1992 by Frank Mittelbach, Rainer Schoepf. 
  10. %% All rights reserved. 
  11. %% This file is part of the NFSS (New Font Selection Scheme) package. 
  12. %% IMPORTANT NOTICE: 
  13. %% You are not allowed to change this file. You may however copy 
  14. %% this file to a file with a different name and then change the copy 
  15. %% if you obey the restrictions on file changes described in 
  16. %% readme.mz. 
  17. %% You are allowed to distribute this file under the condition that 
  18. %% it is distributed together with all files mentioned in readme.mz3. 
  19. %% If you receive only some of these files from someone, complain! 
  20. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  21. %% ALLOWED to take money for the distribution or use of either this 
  22. %% file or a changed version, except for a nominal charge for copying 
  23. %% etc. 
  24. %% For error reports in case of UNCHANGED versions see readme files. 
  25. %% Please do not request updates from us directly. Distribution is 
  26. %% done through Mail-Servers and TeX organizations. 
  27. \def\fileversion{v1.3h}
  28. \def\filedate{92/09/24}
  29. \def\docdate {92/09/03}
  30. %% \CheckSum{582}
  31. %% \CharacterTable
  32. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  33. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  34. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  35. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  36. %%   Dollar        \$     Percent       \%     Ampersand     \&
  37. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  38. %%   Asterisk      \*     Plus          \+     Comma         \,
  39. %%   Minus         \-     Point         \.     Solidus       \/
  40. %%   Colon         \:     Semicolon     \;     Less than     \<
  41. %%   Equals        \=     Greater than  \>     Question mark \?
  42. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  43. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  44. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  45. %%   Right brace   \}     Tilde         \~}
  46. %% Copyright (C) 1989-1992 Frank Mittelbach and Rainer Sch\"opf,
  47. %% all rights reserved.
  48. \immediate\write\sixt@@n{File: `fam'
  49.  \space\space\space\space\space\space\space\space
  50.  \space       \fileversion \space <\filedate>  (FMi and RmS)}
  51. \immediate\write\sixt@@n{English Documentation
  52.  \space\space\space\space\space    <\docdate>  (FMi and RmS)}
  53. \def\@spaces{\space\space\space\space}
  54. \def\@gobble#1{}
  55. \def\@empty{}
  56. \def\@height{height}
  57. \def\@depth{depth}
  58. \def\@width{width}
  59. \def\@nomath#1{\relax\ifmmode \font@warning{Don't use \string#1 in
  60.                                            math mode}\fi}
  61. %% \changes{v1.3g}{92/09/20}{Change error message text.}
  62. \def\no@alphabet@error#1#2{\relax \ifmmode
  63.     \errhelp\no@alphabet@help
  64.     \errmessage{Math alphabet identifier \string#2 is undefined
  65.                 in math version `#1'} \fi}
  66. \newhelp\no@alphabet@help
  67.    {Your requested math alphabet is undefined in the current
  68.     math version.^^JCheck the spelling or use the
  69.     \string\addtoversion\space command in the preamble.}
  70. \def\new@mathgroup{\alloc@8\mathgroup\chardef\sixt@@n}
  71. \let\mathgroup\fam
  72. \let\newfam\new@mathgroup
  73. \def\new@fontshape#1#2#3#4#5{\expandafter
  74.      \edef\csname#1/#2/#3\endcsname{\expandafter\noexpand
  75.                                  \csname #4\endcsname}}
  76. \def\subst@fontshape#1#2#3#4#5#6{\expandafter
  77.      \def\csname#1/#2/#3\endcsname{%
  78.        \dosubst@fontshape{#1/#2/#3}{#4/#5/#6}}}
  79. \def\dosubst@fontshape#1#2{%
  80.        \font@warning{Font/shape `#1' not available in size <\f@size>}%
  81.        \font@warning{Substituting `#2' instead}%
  82.        \csname #2\endcsname
  83.        \gdef
  84.        \subst@correction
  85.          {\begingroup
  86.           \csname #1/\f@size\endcsname
  87.           \global\expandafter\font
  88.             \csname #2/\f@size\endcsname
  89.             \fontname\font
  90.            \endgroup}%
  91.        \aftergroup\subst@correction
  92.        \expandafter\let
  93.          \csname#1\expandafter\endcsname
  94.          \csname#2\endcsname}
  95. \def\extra@def#1#2#3{%
  96.      \def\@tempa##1{#2}%
  97.      \ifx \@tempa\@gobble
  98.        \expandafter\let\csname +#1\endcsname\@gobble
  99.      \else \expandafter\def\csname +#1\endcsname##1{#2}\fi
  100.         \expandafter\def\csname =#1\endcsname{\default@mextra#3}%
  101. \let\default@mextra\@empty
  102. \def\preload@sizes#1#2#3#4{{
  103.     \def\next##1,{%
  104.         \if>##1>%
  105.           \let\next\relax
  106.         \else
  107.           \xdef\font@name{\csname#1/#2/#3/##1\endcsname}%
  108.           \pickup@font
  109.           \global\expandafter\let\font@name\relax
  110.         \fi
  111.         \next}%
  112.      \next#4,,}}
  113. \newif\ifdefine@mathfonts \define@mathfontstrue
  114. \def\define@mathsizes#1#2#3{\expandafter \def
  115.     \csname S@#1\endcsname{\gdef\sf@size{#2}\gdef\ssf@size{#3}%
  116.                            \define@mathfontstrue}}
  117. \def\define@nomathsize#1{\expandafter \let
  118.     \csname S@#1\endcsname \define@mathfontsfalse}
  119. \def\fontfamily#1{\edef\f@family{#1}}
  120. \def\fontseries#1{\edef\f@series{#1}}
  121. \def\fontshape#1{\edef\f@shape{#1}}
  122. \let\family=\fontfamily
  123. \let\series=\fontseries
  124. \let\shape=\fontshape
  125. \def\fontsize#1#2{%
  126.     \edef\f@size{#1}%
  127.     \edef\setnew@baselineskip{%
  128.       \@tempdima #2\relax
  129.       \baselineskip \noexpand\baselinestretch\@tempdima}}
  130. \let\size=\fontsize
  131. \def\mathversion#1{\@nomath\mathversion
  132.           \expandafter\ifx\csname mv@#1\endcsname\relax
  133.           \font@warning{The requested version `#1' is unknown}\else
  134.           \edef\math@version{#1}\glb@settings\aftergroup\glb@settings
  135.           \fi}
  136. \def\pickup@font{%
  137.     \expandafter \ifx \font@name \relax
  138.        \define@newfont
  139.     \fi}
  140. {\catcode`\/=12
  141. \gdef\split@name#1/#2/#3/#4\@nil{\def\f@family{#1}%
  142.                                     \def\f@series{#2}%
  143.                                     \def\f@shape{#3}%
  144.                                     \def\f@size{#4}}}
  145. \def\define@newfont{%
  146.   \begingroup
  147.     \escapechar\m@ne
  148.     \expandafter\expandafter\expandafter
  149.        \split@name\expandafter\string\font@name\@nil
  150.     \expandafter\ifx
  151.         \csname\f@family/\f@series/\f@shape\endcsname \relax
  152.       \wrong@fontshape\else
  153.       \csname\f@family/\f@series/\f@shape\endcsname
  154.       \extract@font\fi
  155.   \endgroup}
  156. \def\wrong@fontshape{%
  157.     \edef\@tempa{\csname\f@family/\f@series/\f@shape\endcsname}%
  158.     \font@warning{Font/shape `\@tempa' undefined}%
  159.     \let\f@shape\default@shape
  160.     \expandafter\ifx\csname\f@family/\f@series/\f@shape\endcsname\relax
  161.        \let\f@series\default@series
  162.         \expandafter
  163.           \ifx\csname\f@family/\f@series/\f@shape\endcsname\relax
  164.            \let\f@family\default@family
  165.         \fi \fi
  166.     \font@warning{Using `\f@family/\f@series/\f@shape' instead}%
  167.     \global\expandafter\expandafter\expandafter\let\expandafter\@tempa
  168.            \csname\f@family/\f@series/\f@shape\endcsname
  169.     \xdef\font@name{%
  170.       \csname\f@family/\f@series/\f@shape/\f@size\endcsname}%
  171.     \pickup@font}
  172. \def\strip@prefix#1>{}
  173. \newhelp\nofont@help
  174.         {You requested a family/series/shape/size combination that is
  175.          totally^^Junknown. \space
  176.          There are two cases in which this error can occur:^^J\space
  177.          \space 1) You used the \string\fontsize\space macro to select
  178.                    a size that is not available.^^J\space
  179.          \space 2) If you did not do that, go to your local `wizard'
  180.                    and^^J \@spaces complain fiercely that the font
  181.                    selection tables are corrupted!^^J}
  182. \def\addstuffto@version#1#2{%
  183.     \ifx#1\undefined
  184.            \toks@{}%
  185.          \else
  186.            \toks@\expandafter{#1}%
  187.          \fi
  188.     \xdef#1{%
  189.             \the\toks@
  190.              #2}%
  191.     \gdef\glb@currsize{}}
  192. \def\define@mathalphabet#1#2#3#4#5#6{%
  193.     \def\@tempa{#6}%
  194.     \addstuffto@version#1{%
  195.              \gdef\noexpand#2%
  196.              \ifx\@tempa\@empty
  197.                 {\noexpand\no@alphabet@error
  198.                  \noexpand\math@version
  199.                  \noexpand#2}%
  200.              \else
  201.                 {\noexpand\select@group
  202.                  \noexpand#2#3%
  203.                  \expandafter\noexpand\csname =#4\endcsname
  204.