Retour

Source de plus.tex

Fichier 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 }}%
%
%