Fresh Fish 4/FreshFish_May-June1994.bin/useful/dist/text/tex/pastex/macros/latex/nfss2/nfdcfnt.sty

Text File | 1993-08-05 | 6KB | 158 lines

%%
%% This is file `nfdcfnt.sty', generated
%% on <1993/8/5> with the docstrip utility (2.0r).
%%
%% The original source files were:
%%
%% basefont.dtx  (with options: `dclf')
%%
%% Copyright (C) 1989--1993 by Frank Mittelbach, Rainer Schoepf.
%% All rights reserved.
%%
%% This file is part of the NFSS2 (New Font Selection Scheme) package.
%%
%% This package is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
%%
%%
%% IMPORTANT NOTICE:
%%
%% For error reports in case of UNCHANGED versions see readme files.
%%
%% Please do not request updates from us directly. Distribution is
%% done through Mail-Servers and TeX organizations.
%%
%% You are not allowed to change this file. You may however copy
%% this file to a file with a different name and then change the copy
%% if you obey the restrictions on file changes described in
%% readme.mz.
%%
%% You are allowed to distribute this file under the condition that
%% it is distributed together with all files mentioned in readme.mz8.
%% If you receive only some of these files from someone, complain!
%%
%% You are NOT ALLOWED to distribute this file alone. You are NOT
%% ALLOWED to take money for the distribution or use of either this
%% file or a changed version, except for a nominal charge for copying
%% etc.
\def\fileversion{v2.0c}
\def\filedate{93/06/20}
\def\docdate {93/06/20}

%% \CharacterTable
%%  {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
%%   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
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
\immediate
  \write\sixt@@n{Style-Option: `nfdcfnt'
 \fileversion\space <\filedate> (FMi and RmS)}
\immediate
 \write\sixt@@n{English Documentation
  \@spaces\@spaces <\docdate> (FMi and RmS)}
 \ifx\@latexerr\undefined\else
 \@ifundefined{selectfont}
     {\@latexerr{%
       `nfdcfnt' style option can only be used
        with the new font selection scheme}\@eha
       \endinput}{}
 \fi
\def\newfont#1#2{\@ifdefinable#1{\global
                        \font#1=#2\relax}}
\def\symbol#1{\char #1\relax}
\def\@gobbletwo#1#2{}
\let\load\@gobbletwo
\def\@setsize#1#2#3#4{\@nomath#1%
    \ifx\protect\relax
      \let\@currsize#1%
    \fi
    \fontsize{#4}{#2}\selectfont}
\def\prm{\not@math@alphabet\rm\mathrm
         \fontfamily\rmdefault\selectfont}
\def\psf{\not@math@alphabet\sf\mathsf
         \fontfamily\sfdefault\selectfont}
\def\ptt{\not@math@alphabet\tt\mathtt
         \fontfamily\ttdefault\selectfont}
\def\psl{\not@math@alphabet\sl\relax
         \fontshape\sldefault\selectfont}
\def\psc{\not@math@alphabet\sc\relax
         \fontshape\scdefault\selectfont}
\def\pit{\not@math@alphabet\it\mathit
         \fontshape\itdefault\selectfont}
\def\pbf{\not@math@alphabet\bf\mathbf
         \fontseries\bfdefault\selectfont}
\def\em{\protect\pem}
\def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
                       \normalshape \else \it \fi}
\def\not@math@alphabet#1#2{%
   \relax
   \ifmmode
     \ifx#2\relax
       \errhelp{%
            In NFSS fonts you need to define a new math alphabet^^J%
            if you want to use a special font in math mode.%
            }%
     \else
       \errhelp{%
            Please use the math alphabet #2instead of
            the #1command.%
            }%
     \fi
     \errmessage{Don't use \noexpand#1in math mode}%
   \fi}
\DeclareMathAlphabet\mathbf{T1}{cmr}{bx}{n}
\DeclareMathAlphabet\mathsf{T1}{cmss}{m}{n}
\DeclareMathAlphabet\mathit{T1}{cmr}{m}{it}
\DeclareMathAlphabet\mathtt{T1}{cmtt}{m}{n}
\SetMathAlphabet\mathsf{bold}{T1}{cmss}{bx}{n}
\SetMathAlphabet\mathit{bold}{T1}{cmr}{bx}{it}
 \let\math@bgroup\begingroup
 \def\math@egroup#1{#1\endgroup}
\DeclareSymbolFont{operators}  {T1}{cmr}{m} {n}
\SetSymbolFont{operators}{bold}{T1}{cmr}{bx}{n}
\def\encodingdefault{T1}
\def\rmdefault{cmr}
\def\sfdefault{cmss}
\def\ttdefault{cmtt}
\ifx\symgreek\undefined
  \DeclareSymbolFont{greek}{OT1}{cmr}{m}{n}
  \SetSymbolFont{greek}{bold}{OT1}{cmr}{bx}{n}

  \DeclareMathSymbol\Gamma{\mathalpha}{greek}{"00}
  \DeclareMathSymbol\Delta{\mathalpha}{greek}{"01}
  \DeclareMathSymbol\Theta{\mathalpha}{greek}{"02}
  \DeclareMathSymbol\Lambda{\mathalpha}{greek}{"03}
  \DeclareMathSymbol\Xi{\mathalpha}{greek}{"04}
  \DeclareMathSymbol\Pi{\mathalpha}{greek}{"05}
  \DeclareMathSymbol\Sigma{\mathalpha}{greek}{"06}
  \DeclareMathSymbol\Upsilon{\mathalpha}{greek}{"07}
  \DeclareMathSymbol\Phi{\mathalpha}{greek}{"08}
  \DeclareMathSymbol\Psi{\mathalpha}{greek}{"09}
  \DeclareMathSymbol\Omega{\mathalpha}{greek}{"0A}
\fi
\DeclareMathAccent\acute{\mathalpha}{operators}{"01}
\DeclareMathAccent\grave{\mathalpha}{operators}{"00}
\DeclareMathAccent\ddot {\mathalpha}{operators}{"04}
\DeclareMathAccent\tilde{\mathalpha}{operators}{"03}
\DeclareMathAccent\bar  {\mathalpha}{operators}{"09}
\DeclareMathAccent\breve{\mathalpha}{operators}{"08}
\DeclareMathAccent\check{\mathalpha}{operators}{"07}
\DeclareMathAccent\hat  {\mathalpha}{operators}{"02}
\DeclareMathAccent\vec  {\mathord}{letters}{"7E}
\DeclareMathAccent\dot  {\mathalpha}{operators}{"0A}
\endinput
%%
%% End of file `nfdcfnt.sty'.