% Définition des fontes utilisées dans Carnot.Mac
% Format Plain-mt
% Michel Quercia le 03/09/95

\def\mathfont#1 #2 #3 #4 #5 #6{%
   \expandafter\font\csname ten#1\endcsname=#2   at#3pt%
   \expandafter\font\csname seven#1\endcsname=#2 at#4pt%
   \expandafter\font\csname five#1\endcsname=#2  at#5pt%
   \textfont#6=\csname ten#1\endcsname
   \scriptfont#6=\csname seven#1\endcsname
   \scriptscriptfont#6=\csname five#1\endcsname
}

\font \smc=cmcsc10 %tisc                         % petites capitales
\font \ssf=hv                           % sans serif
\font \bfsl=tibi                        % gras penche
\font \bftt=cob                         % gras typewriter
\font \bfss=hvb                         % gras sans serif
\font \sltt=coo                         % typewriter penche
\font \ssit=hvo                         % sans serif italique
\font\footlinefont = tii at 10pt        % pour haut et bas de page
\chardef\msbfam=\bffam                  % Lettres a deux barres -> gras
\csname newfam\endcsname\calfam         % fonte cursive = CommScript
\mathfont cal comsc 12.0 9.1 7.2 \calfam
\mathfont tt  com   10.0 7.6 6.0 \ttfam % fonte typewriter = courier gras
\def\cal{\tencal\fam\calfam}
\let\oldstyle=\it                       % pas de chiffres XIXeme

\def\gros{\suitegros  12.0  9.1  7.2     % agrandissement des fontes
  \mathfont cal comsc 14.4 10.9  8.6 \calfam}
\def\Gros{\suitegros  14.4 10.9  8.6
  \mathfont cal comsc 17.3 13.1 10.4 \calfam}
\def\petit{\suitegros  8.0  6.1  4.8
  \mathfont cal comsc  9.6  7.3  5.8 \calfam}

\def\suitegros#1 #2 #3 {%
  \mathfont rm  tir  #1 #2 #3 0%
  \mathfont i   mtmi #1 #2 #3 1%
  \mathfont sy  mtsy #1 #2 #3 2%
  \mathfont ex  mtex #1 #2 #3 3%
  \mathfont bf  tib  #1 #2 #3 \bffam
  \mathfont tt  com  #1 #2 #3 \ttfam
  \mathfont sl  tio  #1 #2 #3 \slfam
  \mathfont it  tii  #1 #2 #3 \itfam
  \font \ssf=hv    at #1pt%
  \font \bfsl=tibi at #1pt%
  \font \bftt=cob  at #1pt%
  \font \bfss=hvb  at #1pt%
  \font \sltt=coo  at #1pt%
  \font \ssit=hvo  at #1pt%
  \font\smc=cmcsc10 at #1pt %tisc   at #1pt%
  \normallineskip=#1pt \divide\normallineskip by 10
  \normalbaselineskip=12\normallineskip
  \normallineskiplimit=\normallineskip
  \normalbaselines
  \rm
}