home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / macros / latex / nfss2 / nfnewfnt.sty < prev    next >
Text File  |  1993-08-05  |  4KB  |  120 lines
  1. %% 
  2. %% This is file `nfnewfnt.sty', generated 
  3. %% on <1993/8/5> with the docstrip utility (2.0r).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% basefont.dtx  (with options: `newlf')
  8. %% 
  9. %% Copyright (C) 1989--1993 by Frank Mittelbach, Rainer Schoepf. 
  10. %% All rights reserved. 
  11. %% 
  12. %% This file is part of the NFSS2 (New Font Selection Scheme) package. 
  13. %% 
  14. %% This package is distributed in the hope that it will be useful, 
  15. %% but WITHOUT ANY WARRANTY; without even the implied warranty of 
  16. %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
  17. %% 
  18. %% 
  19. %% IMPORTANT NOTICE: 
  20. %% 
  21. %% For error reports in case of UNCHANGED versions see readme files. 
  22. %% 
  23. %% Please do not request updates from us directly. Distribution is 
  24. %% done through Mail-Servers and TeX organizations. 
  25. %% 
  26. %% You are not allowed to change this file. You may however copy 
  27. %% this file to a file with a different name and then change the copy 
  28. %% if you obey the restrictions on file changes described in 
  29. %% readme.mz. 
  30. %% 
  31. %% You are allowed to distribute this file under the condition that 
  32. %% it is distributed together with all files mentioned in readme.mz8. 
  33. %% If you receive only some of these files from someone, complain! 
  34. %% 
  35. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  36. %% ALLOWED to take money for the distribution or use of either this 
  37. %% file or a changed version, except for a nominal charge for copying 
  38. %% etc. 
  39. \def\fileversion{v2.0c}
  40. \def\filedate{93/06/20}
  41. \def\docdate {93/06/20}
  42.  
  43. %% \CharacterTable
  44. %%  {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
  45. %%   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
  46. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  47. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  48. %%   Dollar        \$     Percent       \%     Ampersand     \&
  49. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  50. %%   Asterisk      \*     Plus          \+     Comma         \,
  51. %%   Minus         \-     Point         \.     Solidus       \/
  52. %%   Colon         \:     Semicolon     \;     Less than     \<
  53. %%   Equals        \=     Greater than  \>     Question mark \?
  54. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  55. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  56. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  57. %%   Right brace   \}     Tilde         \~}
  58. %%
  59. \immediate
  60.   \write\sixt@@n{Style-Option: `nfnewfnt'
  61.  \fileversion\space <\filedate> (FMi and RmS)}
  62. \immediate
  63.  \write\sixt@@n{English Documentation
  64.   \@spaces\@spaces\space <\docdate> (FMi and RmS)}
  65.  \ifx\@latexerr\undefined\else
  66.  \@ifundefined{selectfont}
  67.      {\@latexerr{%
  68.        `nfnewfnt' style option can only be used
  69.         with the new font selection scheme}\@eha
  70.        \endinput}{}
  71.  \fi
  72. \def\newfont#1#2{\@ifdefinable#1{\global
  73.                         \font#1=#2\relax}}
  74. \def\symbol#1{\char #1\relax}
  75. \def\@gobbletwo#1#2{}
  76. \let\load\@gobbletwo
  77. \def\@setsize#1#2#3#4{\@nomath#1%
  78.     \ifx\protect\relax
  79.       \let\@currsize#1%
  80.     \fi
  81.     \fontsize{#4}{#2}\selectfont}
  82. \def\prm{\not@math@alphabet\rm\mathrm
  83.          \fontfamily\rmdefault\selectfont}
  84. \def\psf{\not@math@alphabet\sf\mathsf
  85.          \fontfamily\sfdefault\selectfont}
  86. \def\ptt{\not@math@alphabet\tt\mathtt
  87.          \fontfamily\ttdefault\selectfont}
  88. \def\psl{\not@math@alphabet\sl\relax
  89.          \fontshape\sldefault\selectfont}
  90. \def\psc{\not@math@alphabet\sc\relax
  91.          \fontshape\scdefault\selectfont}
  92. \def\pit{\not@math@alphabet\it\mathit
  93.          \fontshape\itdefault\selectfont}
  94. \def\pbf{\not@math@alphabet\bf\mathbf
  95.          \fontseries\bfdefault\selectfont}
  96. \def\em{\protect\pem}
  97. \def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
  98.                        \normalshape \else \it \fi}
  99. \def\not@math@alphabet#1#2{%
  100.    \relax
  101.    \ifmmode
  102.      \ifx#2\relax
  103.        \errhelp{%
  104.             In NFSS fonts you need to define a new math alphabet^^J%
  105.             if you want to use a special font in math mode.%
  106.             }%
  107.      \else
  108.        \errhelp{%
  109.             Please use the math alphabet #2instead of
  110.             the #1command.%
  111.             }%
  112.      \fi
  113.      \errmessage{Don't use \noexpand#1in math mode}%
  114.    \fi}
  115.  \let\math@bgroup\begingroup
  116.  \def\math@egroup#1{#1\endgroup}
  117. \endinput
  118. %% 
  119. %% End of file `nfnewfnt.sty'.
  120.