plus.tex

%% fichier 'plus.tex'
% macros en cours de developpement
 
\catcode`\@ = 11
 
%% % ============== corrige des exos =============
%% 
%% 
%% \newif \ifwithcorrigb@dy   % corps de l'exercice~?
%% \withcorrigb@dytrue        % oui, par défaut
%% \def \withcorrigbody {\withcorrigb@dytrue }
%% \def \withoutcorrigbody {\withcorrigb@dyfalse }
%% 
%% %% ===== modif (30/11/98) ========
%% %% \def \withoutcorrigbody {\let \corrige \endinput }
%% 
%% 
%% \newskip \corrigskipafter \corrigskipafter = 3pt plus 3pt minus 1pt
%% 
%% \def \corrige{%
%%    \initexo
%%    \ifwithcorrigb@dy
%% 	 \ifwithexob@dy
%% 	    \centerline{\hbox to 50mm{\hrulefill}}
%% 	    \vskip \corrigskipafter
%% 	 \fi
%%    \else
%% 	 \setbox0=\vbox
%%    \fi
%%    \bgroup}
%% \def \fincorrige{%
%% 	 \centerline{\hbox to 50mm{\hrulefill}}
%%    \egroup}
 
\newdimen \resultatboxsp
\resultatboxsp = 3pt
 
%% 'math resultat' 
\def \mresultat#1{%
   \boxit{\resultatboxsp }{$#1$}}
%% 'display math resultat'
\def \dresultat#1{%
   \boxit{\resultatboxsp }{$\displaystyle#1$}}
%% 'text resultat'
\def \tresultat#1{%
   \boxit{\resultatboxsp }{#1}}
%% 'math resultat' par defaut
\let \resultat \mresultat
 
%% NE MARCHE PAS !!!
%% superboxresultat
\def \tsresultat#1{%
   \superboxit{\resultatboxsp }{\hbox{#1}}}
 
%% %% 'math resultat' par defaut
%% \let \resultat \mresultat
 
\catcode`\@ = 12
 
% =============== assert ======================
 
\long\def \assert#1 #2.{%
   \removelastskip
   \bgroup
   \narrower
   \narrower
   \medskip
   \noindent
   {\bf #1} {\sl #2}
   \par
   \nobreak
   \smallskip}
\def \endassert{%
   \hfill\bull
   \medskip
   \egroup}
 
%% % =============== exo ===============
%% 
%% \exoskipafter=\medskipamount
%% \def \exotitle#1{%
%%    \setbox \titleexobox \hbox{#1}}
 
% =========== tableau de vars ========================
 
\def \doublevrule{%
   \vrule \hskip.31em \vrule }
 
%% \def \buup#1{%
%%    \vbox to 14pt{%
%% 	 \kern 2pt
%% 	 \hbox{#1} 
%% 	 \vfil
%%    }}
 
% ========== divers =================
 
% pour les dates historiques 
\def \epitaphe#1#2{%
   ($\oldstyle#1 - #2$)}
 
% pour les limites \downto{x}{0} ecrit x --> 0 verticalement
\def \downto#1#2{%
   \setbox \tmpbox \hbox{$\underbrace{#1}$}
   \vtop{\hsize = \wd \tmpbox
      \eightpoint \rm
      \box \tmpbox
      \centerline{$\downarrow$}
      \centerline{$#2$}}
   }
 
% dessiner des points en geometrie
 
\newdimen \unit
 
\def \point#1 #2 #3.{%
   \rlap{\kern #1 \unit
   \raise #2 \unit
   \hbox{$\times \; #3$}}}
 
% =================
 
\newcount \footno \footno 0
 
\def \footnum#1{%
   \advance \footno by 1
   \footnote{$^{(\the \footno)}$}{#1}%
}%
 
% =================
 
\let \saveRe \Re
\def \Re{%
   \saveRe {\rm e}}%
\let \saveIm \Im
\def \Im{%
   \saveIm {\rm m}}%
 
% ===== numerotation des figures ==========
 
\newcount \figno \figno = 0
\def \fignum{%
   \global \advance \figno by 1
   fig. \the \figno }
 
% ========== filigrane 'brouillon' =========
 
\newbox \filigranebox 
 
\def \brouillon {%
   \def \epspath {%
      $HOME/tex_doc/format/}
   \epsfxsize = \hsize
   \setbox \filigranebox = \vbox{%
      \epsillustrate {brouillon.ps}}
   \ht \filigranebox = 0pt
   \headline = {%
      \copy \filigranebox }
}
 
\def \copie {%
   \def \epspath {%
      $HOME/tex_doc/format/}
   \epsfxsize = \hsize
   \setbox \filigranebox = \vbox{%
      \epsillustrate {copie.ps}}
   \ht \filigranebox = 0pt
   \headline = {%
      \copy \filigranebox }
}
 
% ========= les macros pour tableaux ==============
 
\def \tvi {%   trait vertical invisible
   \vrule height 12pt depth 5pt width 0pt}
\def \tv {%   trait vertical taille reglable
   \tvi \vrule}
\def \hfq {%   hfill quad -> un separateur
   \hfill
   \quad }
\def \cc#1{%   case centree
   \hfq
   #1%
   \hfq}
%% \def \trait {%   trait horizontal sur tout le tableau
%%    \noalign {\hrule }}%
%
%