% $Header: /home/tampa_a/fac/levy/texts/geombook/RCS/fonts.sty,v 1.1 92/04/07 09:45:07 levy Exp $

\input newlfont.sty
\input amsfonts.sty
\input amssymb.sty

\let\emptyset\varnothing
\let\epsilon\varepsilon %to agree with figure labels; also looks better

\def\sans{\protect\psans}
\def\psans{\RIfM@\expandafter\sans@\else
                 \expandafter\nonmatherr@\expandafter\sans\fi}
\newmathalphabet*\sans@{cmss}{m}{n}
\def\type{\protect\ptype}
\def\ptype{\RIfM@\expandafter\type@\else
                 \expandafter\nonmatherr@\expandafter\type\fi}
\newmathalphabet*\type@{cmtt}{m}{n}

%
% mods needed because of the Mittelbach-Schoepf font scheme
%
\def\bf{\ifmmode
  \@warning{\string\bf\space ignored in mathmode; use \string\bold{...}}%
  \else\protect\pbf\fi}
\def\tt{\ifmmode
  \@warning{\string\tt\space ignored in mathmode; use \string\type{...}}%
  \else\protect\ptt\fi}
\def\rm{\ifmmode
  \@warning{\string\rm\space ignored in mathmode; use \string\mathrm{...}}%
  \else\protect\prm\fi}
\def\it{\ifmmode
  \@warning{\string\it\space ignored in mathmode; use \string\mathit{...}}%
  \else\protect\pit\fi}
\def\sf{\ifmmode
  \@warning{\string\sf\space ignored in mathmode; use \string\sans{...}}%
  \else\protect\psf\fi}

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

%
% mod routines from amstex.sty
%
\def\bmod{\mskip-\medmuskip\mkern5mu\mathbin
 {\operator@font mod}\penalty900
 \mkern5mu\mskip-\medmuskip}
\def\pmod#1{\allowbreak\ifinner\mkern8mu\else\mkern18mu\fi
 ({\operator@font mod}\,\,#1)}
\def\pod#1{\allowbreak\ifinner\mkern8mu\else\mkern18mu\fi(#1)}
\def\mod#1{\allowbreak\ifinner\mkern12mu
  \else\mkern18mu\fi{\operator@font mod}\,\,#1}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  Math extension font
%%  (from fontdef.ams)
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{cmex}{m}{n}{%
      <5>cmex7 at5pt%
      <6>cmex7 at6pt%
      <7>cmex7%
      <8>cmex8%
      <9>cmex9%
      <10>cmex10%
      <11>cmex10 at10.95pt%
      <12>cmex10 at12pt%
      <14>cmex10 at14.4pt%
      <17>cmex10 at17.28pt%
      <20>cmex10 at20.74pt%
      <25>cmex10 at24.88pt%
      }{}

\extra@def{cmex}{}{}

\define@mathgroup\mv@normal{3}{cmex}{m}{n}
\define@mathgroup\mv@bold{3}{cmex}{b}{n}

\new@mathgroup\cmss@group
\define@mathgroup\mv@normal\cmss@group{cmss}{m}{n}
\define@mathgroup\mv@bold\cmss@group{cmss}{b}{n}

%$Log:	fonts.sty,v $
%Revision 1.1  92/04/07  09:45:07  levy
%Initial revision
%
% Revision 1.1  92/04/07  09:09:01  levy
% Initial revision