%
%   	Style pour faire des C.R.A.S.
%
%    (c) T. Lachand-Robert, 7/07/97. Version 1.2
%
\input latex2tex
\catcode`\@=11
%%%%%%%%%%%%%   Parametres a regler
\newtoks \Date
\newtoks \TitreCourt
\TitreCourt{\the\TitreFrancais}
\newtoks \TitreFrancais
\newtoks \TitreAnglais 
\newtoks \SerieFrancais
\newtoks \SerieAnglais
\newtoks \Auteur
\newtoks \Adresse
\newtoks \PresentePar
%
\magnification1035
%%%%%%%%%%%%  font definitions
\ifx \OToneAccents\undefined
\lccode`\'=`\'  % l'apostrophe est une lettre en fran�ais
%
\def \go{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\langle\!\langle\,$}}
\def \gf{\leavevmode\raise.3ex\hbox{$\scriptscriptstyle\,\rangle\!\rangle$}}
\def \frenchpunctuation{%
 \catcode`\;=\active \catcode`\:=\active
 \catcode`\!=\active \catcode`\?=\active}
\def \nonfrenchpunctuation{%
 \catcode`\;=12 \catcode`\:=12
 \catcode`\!=12 \catcode`\?=12 }
\frenchpunctuation
\def;{\relax\ifhmode\ifdim\lastskip>\z@\unskip\fi \kern.2em\fi\string;}
\def:{\relax\ifhmode\ifdim\lastskip>\z@\unskip\fi \kern.3em\fi\string:}
\def!{\relax\ifhmode\ifdim\lastskip>\z@\unskip\fi \kern.3em\fi\string!}
\def?{\relax\ifhmode\ifdim\lastskip>\z@\unskip\fi \kern.3em\fi\string?}
%
\def \french{\frenchspacing \frenchpunctuation \language1 }
\def \english{\nonfrenchspacing \nonfrenchpunctuation \language0 }
%
\xdef \Fonterm/{cmr10 }
\xdef \Fontebf/{cmbx10 }
\xdef \Fontebi/{cmbxti10 }
\xdef \Fonteit/{cmti10 }
\xdef \Fontesfbi/{cmssbx10 }
\else
\OToneAccents  %% temporaire
\chardef\i="10
\gdef \go{\char"C7 \kern,3em }
\gdef \gf{\kern,3em \char"C8 }
\xdef \Fonterm/{Times}
\xdef \Fontebf/{\Fonterm/B}
\xdef \Fontebi/{\Fonterm/BI}
\xdef \Fonteit/{\Fonterm/I}
\xdef \Fontesfbi/{HelveticaBI}
\fi
\nonfrenchpunctuation
\font\twelverm=\Fonterm/ at 12pt
\font\tenrm=\Fonterm/ at 10pt
\font\ninerm=\Fonterm/ at 9pt
\font\eightrm=\Fonterm/ at 8,5pt
\font\titrefr=\Fontebf/ at 17,8 true pt
\font\twelvebf=\Fontebf/ at 12pt
\font\tenbf=\Fontebf/ at 10pt
\font\ninebf=\Fontebf/ at 9pt
\font\eightbf=\Fonterm/ at 8,5pt
\font\tenit=\Fonteit/ at 10pt
\font\nineit=\Fonteit/ at 9pt
\font\eightit=\Fonteit/ at 8,5pt
\def \sl{\it}
\font\tensc=cmcsc10
\font\ninesc=cmcsc10 at 9pt
\font\eightsc=cmcsc10 at 8,5pt
\font\tenbi=\Fontebi/ at 10pt
\font\eightbi=\Fontebi/ at 8,5pt
\font\twelvebi=\Fontebi/ at 12pt
\def \eightpt{\baselineskip=10pt 
     \let\sc\eightsc \let\rm\eightrm \let\it\eightit \let\bf\eightbf \rm}
\def \ninept{\baselineskip=10pt 
     \let\sc\ninesc \let\rm\ninerm \let\it\nineit \let\bf\ninebf \rm}
\font\tensfbi=\Fontesfbi/ at 10  pt
\font\fontauteurs=\Fontebf/ at 10,7pt
\font\fontresume=cmssdc10
\font\fontresumeeight=cmssdc10 at 8pt
\let\t@xtrm\tenrm
\let\t@xtit\tenit
\let\t@xtbf\tenbf
\let\t@xtsc\tensc
%
%%%%%%%%%%%%%%%%%%  macros du CRAS
\def \CaseLanguage#1#2{\relax  % choix anglais / francais
     \ifnum\language=0 #1\else#2\fi}
\headline{\vbox{\let\\=\allowbreak 
     \line{\fontresumeeight 
     \ifnum\pageno=1
     \vbox{\baselineskip\z@ \hsize115truemm
           \noindent Projet de Note aux Comptes Rendus (\the\Date)\par
           \noindent \the\SerieFrancais\unskip~/~\the\SerieAnglais\par}\hss
     \else
     \ifodd\pageno \hfil\the\TitreCourt\else
              \the\Auteur\hfil\fi\fi}
     \vskip2.5 truemm}}
\footline{\tenrm\ifodd\pageno \hfill\folio\else \folio\hfill\fi}
\def \centervbox#{%
     \vbox\bgroup \leftskip= 0pt plus 0.5\hsize 
     \rightskip\leftskip \def\\{\penalty-100}%
     \parindent\z@ \parfillskip\z@ \hyphenpenalty800 \exhyphenpenalty500 
     \let\next= }          
\def \maketitle{{\par  
     \def\\{\penalty-50 }
     \ifnum\language=0 % Titre anglais
      \noindent\hskip2truecm \vbox{\parindent\z@ \hsize115truemm
      \rightskip0pt plus 0,3\hsize
      \twelvebi \baselineskip16pt \the\TitreAnglais}\par
     \else % Titre francais + auteur
     \rm\
     \vfootnote{}{\ninept
           Note pr\'esent\'ee par \sc \the\PresentePar}
     \vskip9truemm
     \vbox{\rightskip0pt plus 0,5\hsize
          \titrefr \baselineskip19pt \parindent\z@ \the\TitreFrancais} 
     \vskip5truemm
     \vbox{\parindent\z@ \fontauteurs
          \let\@=\ \def~{\nobreak\@}%
          %\def\ {\unskip~\ignorespaces}%
          \def\&{\unskip~\fontauteurs\char`\&\penalty-50 \@\ignorespaces}% 
          \def\,{\unskip\fontauteurs\char`\,\penalty-50 \@\ignorespaces}% 
          \the\Auteur} 
     \edef\next{\the\Adresse}%
     \ifx\next\empty \else \vskip4truemm
     \vbox{\rightskip0pt plus 0,2\hsize \def\\{\hfill\break}%
          \parindent\z@ \eightpt \the\Adresse }
     \fi \vskip4truemm
     \fi}}
\def \begin@abstract{\begingroup
     \baselineskip\z@ \lineskip\z@ \vskip4truemm
     \CaseLanguage{}{\noindent \hskip2truecm
        \vrule height .1truemm width 11.5truecm}
     \vskip4truemm 
     \line\bgroup
           \rlap{\fontresume\CaseLanguage{Abstract.}{R\'esum\'e.}}%
           \hskip2truecm
           \vtop\bgroup
             \parindent\z@ \hsize=115truemm
             \baselineskip=3.5truemm
             \footnotesize \eightpt 
             \CaseLanguage{\let\it\rm \let\rm\sl \let\sl\it }{}\rm
     \ignorespaces}
\def \end@abstract{\par
     \CaseLanguage{\vskip5truemm \hrule height .1truemm}{\vskip7truemm}
     \egroup \hfil\egroup
     \CaseLanguage{\vskip1truecm}{}\endgroup}
\def \end@document{\bye}
\def \begin@document{\@@relax
     \if@uxiliary \xdef\file@uxiliary{\jobname.aux}%
     \check@file\file@uxiliary
            \ifresult \input \file@uxiliary\@@relax
            \else \message{No file \file@uxiliary.}\fi
     \fi}
\def \begin@englishversion{\begingroup \english
     \smallskip 
     \noindent{\tensfbi Abridged English Version}\bigskip
     \rm \ignorespaces}
\def \end@englishversion{\nobreak \smallskip
     \line{\hss\vrule width 2true cm height.1truemm\hss}
     \endgroup \french 
     \bigbreak}
\def \bye{\closeout\f@uxiliary 
     \vfill\supereject\@@end}  
% bibliographie
\newcounter{biblio}
\def \begin@thebibliography#{\begingroup\eightpt
     \goodbreak\vskip1cm plus 1cm
     \setcounter{biblio}{0}%
     \indent{\sc R\eightrm \'EF\'ERENCES BIBLIOGRAPHIQUES}%
     \smallskip \rm \def\next}
\def \end@thebibliography{\par\endgroup\bigskip}     
\def \bibitem#1#2\par{\par\rm
     \if@uxiliary \stepcounter{biblio}
     \expandafter\xdef\csname bib #1\endcsname{\thebiblio}
     \store@ux{\string\bibcite{#1}{\csname bib #1\endcsname}}
     \else \def\thebiblio{#1}\fi
     \noindent\hbox to \parindent{\hss[\thebiblio]\ }#2\par}
\def \bibcite#1#2{\expandafter\xdef\csname bib #1\endcsname{#2}}     
\def \cite#1{\@@relax 
     [\if@uxiliary 
      \expandafter\ifx\csname bib #1\endcsname\@@relax
      \@error{Bibliographic reference `#1' undefined}\string?\string?%
      \else\csname bib #1\endcsname\fi
     \else#1\fi]}     
% fichier auxiliaire facultatif
\newif \if@uxiliary \@uxiliaryfalse
\newwrite \f@uxiliary 
\let \useauxiliary\@uxiliarytrue
\def \open@ux{\@imm\openout\f@uxiliary=\file@uxiliary 
     \global\let\open@ux\@@relax}
\def \store@ux#1{\open@ux\@imm\write\f@uxiliary{#1}}
%%%%%%%%%%% autres macros
%  fontes msam, msbm
\newfam\msbmfam
\font\tenmsbm=msbm10 \textfont\msbmfam=\tenmsbm
\font\sevenmsbm=msbm7 \scriptfont\msbmfam=\sevenmsbm
\font\fivemsbm=msbm5 \scriptscriptfont\msbmfam=\fivemsbm
\def\Bbb{\fam\msbmfam}\let\mathbb\Bbb
\newfam\msamfam 
\font\tenmsam=msam10 \textfont\msamfam=\tenmsam
\font\sevenmsam=msam7 \scriptfont\msamfam=\sevenmsam
\font\fivemsam=msam5 \scriptscriptfont\msamfam=\fivemsam
\def\msam{\fam\msamfam}
%
\xdef\msa@{\hex@number\msamfam}
\xdef\msb@{\hex@number\msbmfam}
\mathchardef\leqslant="3\msa@36
\mathchardef\geqslant="3\msa@3E
\mathchardef\R="0\msb@52 % ensembles mathŽmatiques
\mathchardef\C="0\msb@43 
\mathchardef\N="0\msb@4E 
\mathchardef\Q="0\msb@51 
\mathchardef\Z="0\msb@5A 
\mathchardef\whitesquare="1\msa@03
%%%%%%%%%%% skips
\abovedisplayskip=2 true mm plus 1truemm minus .5true mm
\belowdisplayskip=2 true mm plus 1truemm minus .5true mm
\abovedisplayshortskip=1 true mm plus 1truemm minus .5true mm
\belowdisplayshortskip=1 true mm plus 1truemm minus .5true mm
\advance\medskipamount by -2truept
\advance\smallskipamount by -2truept
\advance\bigskipamount by -2truept
%%%%%%%%%%%%%  reglages finaux
\voffset=.8truein
\hoffset=.2truein
\hsize=14.95 true cm
\vsize=20.6 true cm
\parindent=3 true mm
\baselineskip=4.4truemm
\rm
\french
\catcode`\@=12