% liv.mac  d:\travlivr 4 janvier 96 18h16 version 29 d‚cembre  96 9h34
\input newvidiani.mac %\input carnot.mac
\font\gros=cmbx10 scaled \magstep5
\font\Gros=cminch                              % ou 171 172?
\font \gras=msam10  %{\gras \char'168 et 169 } orthogonaux de dualit‚
\font \Gras=msam10 scaled\magstep5 \hskip -18mm %{\Gras \char'106} Etoile
\font \goth=eufm10 scaled \magstep 0
%\font \etoile=zd scaled\magstep0 % 5 ne se voit pas en PS zd et non ZD % dans visite ext
\def\para#1{{\tenbf( \S\kern .15em #1)}}   % symbole paragraphe
%\font \prover=prover at 10mm
\let\prover\relax
\def\essai#1#2{\leavevmode\cadrefin{\vbox{\halign{\hfil##\hfil\cr
\carnot#1#2\cr\tt$\backslash$carnot #1#2\cr}}}}  % initialement dans carnot.tex


\def\makeheadline{\rm
\ifodd\pageno\titreimpair\else\titrepair\fi
\vskip 2mm\hrule\vskip 1mm \hrule \vskip3mm}
%\def\makefootline{} % enlŠve le folio du bas

\def\trait{\vskip 2mm\hrule\vskip 2mm}
\def\traitgras{\vskip 2mm\hrule height 2pt depth 2pt \vskip 2mm}

%\def\titreimpair{\line{ {\fiverm d:-emtex-tipe tipelist.tex \hskip 3mm}
%{\bf LISTE DES T.I.P.E. 96-97
%\hskip 3mm\Carre \hfil Mr VIDIANI Sp‚ M1 CARNOT  \hskip 2mm\liond\ \folio}}  }

%\def\titrepair{\line{\bf\folio  \hfill %{\fiverm  \ \ \  }   %Underfull hbox si  ce { mˆme vide mais avec fonte} pas mis
                                    % en fait line demande une ligne complŠte : il faut hfill
%{\bf LISTE DES T.I.P.E
%\hskip 3mm\Carre Mr VIDIANI \hskip 2mm\liong}}  }
\null\vskip -12mm\noindent\leavevmode{\fiverm (version \date\ : \heure )}   %XXXXXX DATE ET HEURE
%\cadrefin{\vbox to 10mm {\hsize 30mm\leftskip 0mm\noindent\fiverm nom :
%\hfill\vfill\noindent sp‚ M1 carnot DIJON}}\hskip 1cm

% LETTRINE (Larchand Robert p 378 ,+ S‚roul p 83) attention
%           hangindent  ne marche pas Truite.tex en deux colonnes

%\font\lettrinefont=cmr10 scaled \magstep 5 % CORPS de la lettrine cmr10,cmbx10
%\font\lettrinefont=cmr10 at 55pt % CORPS de la lettrine cmr10,cmbx10

\font\lettrinefont=cmr10 at 55pt % CORPS de la lettrine cmr10,cmbx10

\font\smallcaps=cmcsc10         % fonte des petites capitales
\newdimen\approche \approche=10pt

\def\lettrine#1{%                  #1 est la lettrine+premiŠres lettres
    \lettrineaux#1\end}

\def\lettrineaux#1#2\end{\par\noindent
     \setbox0\hbox{\prover #1} % Marche avec gros Gros lettrinefont
     \setbox0\hbox{\lower\baselineskip\vbox{\box0}}
     \dimen0=\wd0 \advance\dimen0 by\approche
     \hangafter-2  \hangindent=\dimen0 \kern-\dimen0
     \dp0=0pt \box0 {\smallcaps #2}}