% psfonts.tex
%
% Frank Jensen (September 30, 1990)

\ifx\psfontsloaded\relax
\else \let\psfontsloaded=\relax

\def\declare@font #1#2#3#4%
   {\new@fontshape{#1}{#2}{#3}{%
      <5>#4 at5pt%
      <6>#4 at6pt%
      <7>#4 at7pt%
      <8>#4 at8pt%
      <9>#4 at9pt%
     <10>#4 at10pt%
     <11>#4 at10.95445pt%
     <12>#4 at12pt%
     <14>#4 at14.4pt%
     <17>#4 at17.28pt%
     <20>#4 at20.736pt%
     <25>#4 at24.8832pt}{}}

% Times Family

\declare@font{times}{m}{n}{ptmr}
\declare@font{times}{b}{n}{ptmb}
\declare@font{times}{b}{it}{ptmbi}
\declare@font{times}{c}{n}{ptmrrn}
\declare@font{times}{m}{sc}{ptmrc}
\declare@font{times}{m}{it}{ptmri}
\declare@font{times}{m}{sl}{ptmro}
\declare@font{times}{x}{n}{ptmrre}

\extra@def{times}{}{}
 


% Helvetica Family

\declare@font{helvetica}{m}{n}{phvr}
\declare@font{helvetica}{b}{n}{phvb}
\declare@font{helvetica}{b}{it}{phvbo}
\subst@fontshape{helvetica}{b}{sl}{helvetica}{b}{it}
\declare@font{helvetica}{c}{n}{phvrrn}
\declare@font{helvetica}{bc}{n}{phvbrn}
\declare@font{helvetica}{bc}{it}{phvbon}
\subst@fontshape{helvetica}{bc}{sl}{helvetica}{bc}{it}
\declare@font{helvetica}{c}{it}{phvron}
\subst@fontshape{helvetica}{c}{sl}{helvetica}{c}{it}
\declare@font{helvetica}{m}{sc}{phvrc}
\declare@font{helvetica}{m}{it}{phvro}
\subst@fontshape{helvetica}{m}{sl}{helvetica}{m}{it}

\extra@def{helvetica}{}{}



% Bookman Family

\declare@font{bookman}{m}{n}{pbkl}
\declare@font{bookman}{b}{n}{pbkd}
\declare@font{bookman}{b}{it}{pbkdi}
\declare@font{bookman}{m}{sc}{pbklc}
\declare@font{bookman}{m}{it}{pbkli}

\extra@def{bookman}{}{}



% New Century Schoolbook Family

\declare@font{ncs}{m}{n}{pncr}
\declare@font{ncs}{b}{n}{pncb}
\declare@font{ncs}{b}{it}{pncbi}
\declare@font{ncs}{m}{sc}{pncrc}
\declare@font{ncs}{m}{it}{pncri}

\extra@def{ncs}{}{}
 

% Courier Family

\declare@font{courier}{m}{n}{pcrr}
\declare@font{courier}{b}{n}{pcrb}
\declare@font{courier}{b}{it}{pcrbo}
\declare@font{courier}{m}{it}{pcrro}

\extra@def{courier}{\hyphenchar #1\m@ne}{}
 


% Palatino Family

\declare@font{palatino}{m}{n}{pplr}
\declare@font{palatino}{b}{n}{pplb}
\declare@font{palatino}{b}{it}{pplbi}
\declare@font{palatino}{b}{u}{pplbu}
\declare@font{palatino}{c}{n}{pplrrn}
\declare@font{palatino}{m}{sc}{pplrc}
\declare@font{palatino}{m}{it}{pplri}
\declare@font{palatino}{m}{sl}{pplro}
\declare@font{palatino}{m}{u}{pplru}
\declare@font{palatino}{x}{n}{pplrre}

\extra@def{palatino}{}{}



% AvantGarde Family

\declare@font{avantgarde}{m}{n}{pagk}
\declare@font{avantgarde}{b}{n}{pagd}
\declare@font{avantgarde}{b}{it}{pagdo}
\subst@fontshape{avantgarde}{b}{sl}{avantgarde}{b}{it}
\declare@font{avantgarde}{m}{sc}{pagkc}
\declare@font{avantgarde}{m}{it}{pagko}
\subst@fontshape{avantgarde}{m}{sl}{avantgarde}{m}{it}

\extra@def{avantgarde}{}{}



% Futura Family

\declare@font{futura}{c}{n}{pfuc}
\declare@font{futura}{bc}{n}{pfubc}
\declare@font{futura}{bc}{sl}{pfuboc}
\subst@fontshape{futura}{b}{it}{futura}{b}{sl}
\declare@font{futura}{ebc}{n}{pfuxc}
\declare@font{futura}{ebc}{sl}{pfuxoc}
\declare@font{futura}{lc}{n}{pfulc}
\subst@fontshape{futura}{m}{it}{futura}{m}{sl}

\extra@def{futura}{}{}
 


% Default settings

\def\sfdefault{helvetica}
\def\ttdefault{courier}

\def\bfdefault{b}

\fi
\endinput
