16-MEgal1/journal.cls

560 lines
20 KiB
TeX
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

% Syntaxe générale de \place
% \place x[largeur] position[align] \objet{...}
% \colonne x[largeur] position[align] {...}
% x: première colonne
% largeur: nombre de colonnes (ou 1 si non spécifié)
% position: t = top, b = bottom, rien = remplir la page
% align: n° de colonne sur laquelle aligner (libre par défaut)
%
% À faire :
% - pouvoir spécifier (taille) au lieu de [align] avec (taille) = une
% taille en unités standard
% - intertitres
% - utiliser keyval pour les options ?
% - XXX \endmakecols ne marche pas si \makecols est aligné
% - virer \colonne en bricolant \output
%
%
%
%
%<<<1 Introduction
% 2007/05/27 Adaptation à XeTeX
\XeTeXdefaultencoding utf-8
\RequirePackage{fontspec}
%\RequirePackage{bidi}
% Pour les tirets cadratins et demi-cadratins à base de -- et ---
\defaultfontfeatures{Mapping=tex-text}
%<<<2 Options de paquet
\RequirePackage[xetex]{color}
\let\J@color\color
\DeclareOption{a3paper}{\paperheight 420mm \paperwidth 297mm}%
\DeclareOption{a4paper}{\paperheight 297mm \paperwidth 210mm}%
\DeclareOption{a5paper}{\paperheight 210mm \paperwidth 148mm}%
\DeclareOption{letterpaper}{\paperheight 11in \paperwidth 8.5in}%
\DeclareOption{legalpaper}{\paperheight 14in \paperwidth 8.5in}%
\DeclareOption{executivepaper}{\paperheight 10.5in \paperwidth 7.25in}%
\DeclareOption{landscape}{%
\advance\paperheight\paperwidth
\advance\paperwidth-\paperheight \paperwidth-\paperwidth
\advance\paperheight-\paperwidth \paperheight-\paperheight}
\DeclareOption{10pt}{\def\@ptsize{10}}%
\DeclareOption{11pt}{\def\@ptsize{11}}%
\DeclareOption{12pt}{\def\@ptsize{12}}%
\DeclareOption*{\ClassWarning{journal}{Option \CurrentOption inconnue}}%
\ExecuteOptions{a4paper,10pt}%
\ProcessOptions
\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
\input{size\@ptsize.clo}%
%<<<2 Paramètres
% Nombre de colonnes
\newcount\columns \columns=3
% Séparation verticale entre les objets
\newdimen\objsep
% Tokens pour les objets
\newtoks\J@obj@toks
% Variables temporaires à volonté
\newdimen\J@dim@a
\newdimen\J@dim@b
\newdimen\J@dim@c
\newcount\J@cnt@a
\newcount\J@cnt@b
\newbox\J@box@a
% Un offset pour le recolonnage
\newdimen\J@offset
% Les dimensions pour le colonnage
\columnsep 5mm
\objsep 4mm
\topskip 0pt
% Les dimensions LaTeX
\arraycolsep 3pt \tabcolsep 3pt \arrayrulewidth .4pt
%<<<2 \ignorepar, c'est un genre de \ignorespaces, en mieux.
% Merci Knuth
\let\J@par=\\
\def\\{\let\stoken= }\\ % now \stoken is a space token
\let\\\J@par
\let\J@par=\par
\def\ignorepar{\futurelet\J@tmp@a\J@testpar}%
\def\J@testpar{\ifx\J@tmp@a\par \let\par=\ignorepar \else
\ifx\J@tmp@a\stoken\let\par=\ignorepar \ignorespaces \else
\let\par=\J@par\fi\fi}%
%<<<2 Allocation des registres pour les colonnes. Il y en a deux par colonne:
% \botcol@n taille verticale restant disponible
% \topcol@n ordonnée où commence la place libre
% On ne peut utiliser ici \J@obj@do car il faut justement construire le nom
% de topcol@i etc.
\def\J@alloc{%
\J@cnt@a=0 \loop \ifnum\J@cnt@a<\columns \advance\J@cnt@a by 1
\edef\J@tmp@a{\romannumeral\J@cnt@a}%
% On n'alloue des registres que s'il n'existent pas déjà
\expandafter\ifx\csname topcol@\J@tmp@a\endcsname\relax
\expandafter\newdimen\csname topcol@\J@tmp@a\endcsname\fi
\expandafter\ifx\csname botcol@\J@tmp@a\endcsname\relax
\expandafter\newdimen\csname botcol@\J@tmp@a\endcsname\fi
\repeat
}%
%<<<2 \newpage
% Il faut bien sûr redéfinir \newpage pour remettre en place l'espace
% libre dans les colonnes.
\let\J@newpage=\newpage
\def\J@columns{%
\J@dim@a=\hsize
\J@dim@b=\columnsep \multiply\J@dim@b by \columns
\advance\J@dim@b by -\columnsep
\advance\J@dim@a by -\J@dim@b
\divide\J@dim@a by \columns \columnwidth=\J@dim@a%
}%
\def\pageinit{%
\J@columns
\J@alloc
\J@dim@a=\z@
\J@dim@b=\vsize
\J@obj@first=1 \J@obj@span=\columns
\def\col@do{\topcol@\J@dim@a \botcol@\J@dim@b}\J@obj@do\col@do
\parindent\z@
}%
\def\newpage{\J@newpage \pageinit}%
%<<<1 Positionnement des objets
%<<<2 Algorithme de positionnement
%<<<3 Déclaration des registres
% Position logique d'un objet (en colonnes)
\newcount\J@obj@first \newcount\J@obj@span
% Taille physique d'un objet
\newdimen\J@obj@ht \newdimen\J@obj@wd \newdimen\J@obj@align
% Boîte où est rangée l'objet
\newbox\J@obj@box
%<<<3 Fonctions utiles
% \J@obj@do - Applique la fonction #1 sur l'étendue de colonnes
% [ \J@obj@first, \J@obj@first + \J@obj@span - 1 ]
\def\J@obj@do#1{\J@cnt@a=0 \J@cnt@b=\J@obj@first \loop
\ifnum\J@cnt@a<\J@obj@span \advance\J@cnt@a by 1
\expandafter\let\expandafter\topcol@
\csname topcol@\romannumeral\J@cnt@b\endcsname
\expandafter\let\expandafter\botcol@
\csname botcol@\romannumeral\J@cnt@b\endcsname
#1\advance\J@cnt@b by 1 \repeat}%
% \J@top, \J@bot - met dans \J@dim@a les bornes de l'espace disponible en
% haut (ou en bas).
\def\J@top{\J@dim@a=-1cm
\def\col@do{\ifdim\J@dim@a<\topcol@ \J@dim@a=\topcol@\fi}%
\J@obj@do\col@do}%
\def\J@bot{\J@dim@a=\vsize\advance\J@dim@a 1cm
\def\col@do{\ifdim\J@dim@a>\botcol@ \J@dim@a=\botcol@\fi}%
\J@obj@do\col@do}
%<<<3 Fonction de positionnement
\def\place{\@killglue \J@obj@ht\vsize
\def\J@calc@obj@ht{\ifdim\J@obj@ht>\J@dim@c \J@obj@ht\J@dim@c\fi}%
\let\J@obj@ex\ignorespaces\@J@obj@first}%
\def\J@calc@obj@x{\J@dim@a=\columnwidth \advance\J@dim@a by \columnsep
\advance\J@cnt@b by -1 \multiply \J@dim@a by \J@cnt@b
\advance\J@dim@a by\J@offset
\advance\J@cnt@b by 1}%
% Appeler l'objet pour qu'il calcule ce qui est nécessaire
\def\J@place{\J@obj@ht=\ht\J@obj@box\advance\J@obj@ht by\dp\J@obj@box
% Calculer les coordonnées (\J@dim@a, \J@dim@b) où placer l'objet
\J@obj@check
\ifx t\J@obj@dir
\J@dim@b=\z@
\def\calc@y{\J@dim@c=\topcol@ \advance\J@dim@c by \ht\J@obj@box
\ifdim\J@dim@c>\J@dim@b \J@dim@b=\J@dim@c\fi}%
\def\col@chk{\J@dim@c=-\topcol@ \advance\J@dim@c by -\ht\J@obj@box
\advance\J@dim@c by \J@dim@b
\ifdim\J@dim@c>\baselineskip \ClassWarning{journal}{%
\the\J@dim@c\space unused at top of column \the\J@cnt@b}\fi
}%
\def\adj@col{\topcol@=\J@dim@b
\advance\topcol@ by\dp\J@obj@box \advance\topcol@ by \objsep}%
\else
\ifx b\J@obj@dir
\J@dim@b=\vsize
\def\calc@y{\J@dim@c=\botcol@ \advance\J@dim@c by-\dp\J@obj@box
\ifdim\J@dim@b>\J@dim@c \J@dim@b=\J@dim@c\fi}%
\def\col@chk{\J@dim@c=\botcol@ \advance\J@dim@c by -\J@dim@b
\ifdim\J@dim@c>\baselineskip \ClassWarning{journal}{%
\the\J@dim@c\space unused at bottom of column \the\J@cnt@b}\fi
}%
\def\adj@col{\botcol@=\J@dim@b
\advance\botcol@ by -\ht\J@obj@box \advance\botcol@ by -\objsep}%
\else
\ifx p\J@obj@dir
\J@dim@b=\z@
\def\calc@y{\J@dim@c=\topcol@ \advance\J@dim@c by \ht\J@obj@box
\ifdim\J@dim@b<\J@dim@c \J@dim@b=\J@dim@c\fi}%
\def\adj@col{\botcol@ -1pt}%
\else \ClassError{journal}{Unknown object position: '\meaning\J@obj@dir'}{}%
\fi\fi\fi
\J@obj@do\calc@y
% Commented the too-verbose check
% \J@obj@do\col@chk
\J@dim@c=\J@dim@b
\J@cnt@b=\J@obj@first \J@calc@obj@x
\leavevmode\lower\J@dim@c\rlap{\kern\J@dim@a \copy\J@obj@box}%
\J@obj@do\adj@col \J@obj@ht\z@
\ignorepar}%
%<<<2 La fonction pour lire les positions d'objet
% La syntaxe est x[largeur] pos[align]
% Les variables remplies:
% \J@obj@first = première colonne
% \J@obj@span = deuxième colonne
% \J@obj@dir = t/b/p (tête/bas/page)
% \J@obj@ht = 0 ou hauteur de l'objet
\def\@J@obj@first#1{\J@obj@first=#1\@ifnextchar[\@J@obj@span{\@J@obj@span[1]}}%
\def\@J@obj@span[#1]{\J@obj@span=#1\afterassignment\@J@obj@dir\let\J@tmp@a}%
\def\@J@obj@dir{%
\ifcat x\J@tmp@a
\ifcat x\J@align \if\J@tmp@a\J@align\else
\ClassError{journal}{Alignment `\meaning\J@tmp@a' forbidden within
\string\makecols\space with alignment `\meaning\J@align'}{}
\fi\fi
\let\J@obj@dir\J@tmp@a\def\next{\@ifnextchar[\@J@obj@ht{\@J@obj@ht[]}}%
\else
\ifcat x\J@align \let\J@obj@dir\J@align \else \let\J@obj@dir p\fi
\let\next\J@tmp@a\@J@obj@ht[]%
\fi\next}%
\def\@J@obj@ht[#1]{\def\J@tmp@a{#1}%
\ifx\J@tmp@a\@empty
\ifx p\J@obj@dir
\def\col@do{\J@dim@c=\botcol@
\advance \J@dim@c by-\topcol@
\J@calc@obj@ht}\J@obj@do\col@do
\J@obj@align\z@
\else
\ifdim\J@obj@ht=\z@
% Colonne seulement !
% Au final, on trouvera \J@obj@align < 0
% et \J@obj@ht = la place disponible au total au sommet des colonnes
\ifx t\J@obj@dir
\J@top
\def\col@do{\J@dim@c=\J@dim@a
\advance \J@dim@c by-\topcol@\J@calc@obj@ht}\J@obj@do\col@do
\else \ifx b\J@obj@dir
\J@bot
\def\col@do{\J@dim@c=-\J@dim@a
\advance \J@dim@c by \botcol@\J@calc@obj@ht}\J@obj@do\col@do
\fi\fi
\J@obj@align -1pt
\else
\J@obj@ht\z@
\fi
\fi
\else
\ifx t\J@obj@dir
\J@obj@align \csname topcol@\romannumeral\J@tmp@a\endcsname
\advance\J@obj@align by -\objsep
\def\col@do{%
\J@dim@c=\J@obj@align
\advance \J@dim@c by -\topcol@
\J@calc@obj@ht
}\J@obj@do\col@do
\else \ifx b\J@obj@dir
\J@obj@align \csname botcol@\romannumeral\J@tmp@a\endcsname
\advance\J@obj@align by \objsep
\def\col@do{%
\J@dim@c=-\J@obj@align
\advance \J@dim@c by \botcol@
\J@calc@obj@ht
}\J@obj@do\col@do
\fi\fi
\fi
\J@obj@ex}%
%<<<2 Code commun aux objets
% Vérifications.
\def\J@obj@check{%
\def\col@do{\ifdim\botcol@<\z@\ClassError{journal}%
{Column \the\J@cnt@b\space is already filled}{}\fi}\J@obj@do\col@do
\J@cnt@b=\J@obj@first \advance \J@cnt@b by \J@obj@span
\advance \J@cnt@b by -1 \ifnum \J@cnt@b>\columns
\ClassError{journal}{Column \the\J@cnt@b\space does not exist (max is
\the\columns)}{}\fi
\ifnum \J@obj@first<0 \ClassError{journal}{Negative column numbers
(\the\J@obj@first) not allowed}{}\fi}%
\def\J@calc@obj@wd{%
\J@obj@wd=\columnsep \advance\J@obj@wd by\columnwidth
\multiply\J@obj@wd by\J@obj@span \advance\J@obj@wd by -\columnsep
}%
% \objbox est prévue pour être utilisée par les objets
% Un objet termine par une commande \objbox{ce qu'il y a dans l'objet}%
% Voir ci-dessous les exemples d'utilisations.
\def\objbox{\let\par\J@par
\def\objbox@{\J@calc@obj@wd\hsize=\J@obj@wd\aftergroup\J@place}%
\afterassignment\objbox@\setbox\J@obj@box=\vbox}%
%<<<1 Mise en page complexe
%<<<2 \borne
\def\borne #1#2{\begingroup\J@obj@first=1\J@obj@span=\columns
\edef\@borne{\romannumeral #2}%
\ifx t#1
\def\col@do{\topcol@=\csname botcol@\@borne\endcsname
\advance\topcol@ by \objsep}%
\xdef\col@res{\noexpand\botcol@=\csname botcol@\@borne\endcsname}%
\else
\ifx b#1
\def\col@do{\botcol@=\csname topcol@\@borne\endcsname
\advance\botcol@ by-\objsep}%
\xdef\col@res{\noexpand\topcol@=\csname topcol@\@borne\endcsname}%
\else
\fi\fi
\J@obj@do\col@do
\ignorepar}%
\def\endborne{\endgroup\J@obj@first=1\J@obj@span=\columns\J@obj@do\col@res}
%<<<2 \pushcols - empile les colonnes (et ce, pour pouvoir faire une
% sous-page)
% \def\pushcols{%
% \def\pop@cols{}%
% \J@obj@first=1 \J@obj@span=\columns
% \def\@do{%
% \xdef\pop@cols{\expandafter\noexpand\pop@cols
% \noexpand\global\expandafter\noexpand
% \csname topcol@\romannumeral\J@cnt@b\endcsname=\the\topcol@
% \noexpand\global\expandafter\noexpand
% \csname botcol@\romannumeral\J@cnt@b\endcsname=\the\topcol@
% }%
% }\J@obj@do\@do
% \aftergroup\pop@cols
% }%
%<<<2 \makecols
\let\J@sub\relax
\let\J@align\relax
\def\makecols#1{%
\let\J@sub=\J@obj@dir
\begingroup
\columns=#1 \J@calc@obj@wd \hsize=\J@obj@wd
\J@cnt@b=\J@obj@first \J@calc@obj@x \J@offset=\J@dim@a
\J@alloc \J@columns
\ifx t\J@sub \J@top
\ifdim\J@obj@ht>\z@ \J@dim@b\J@dim@a \advance\J@dim@b\J@obj@ht
\else \begingroup\J@bot\global\J@dim@b\J@dim@a\endgroup \fi
\else \J@bot \J@dim@b\J@dim@a
\ifdim\J@obj@ht>\z@ \J@dim@a\J@dim@b \advance\J@dim@a-\J@obj@ht
\else \J@top \fi
\fi
\J@obj@first=1\J@obj@span\columns
\def\col@do{\topcol@\J@dim@a \botcol@\J@dim@b}\J@obj@do\col@do
}%
\def\endmakecols{%
\ifx t\J@sub\J@top \else\J@bot\fi \global\J@dim@a\J@dim@a
\endgroup
\ifdim\J@obj@ht>\z@ \espace{\J@obj@ht}\espace{\objsep}%
\else
\ifx t\J@sub \def\col@do{\topcol@\J@dim@a}\else
\def\col@do{\botcol@\J@dim@a}\fi
\J@obj@do\col@do
\fi
\let\J@sub\relax\ignorepar
}%
%<<<1 Définition des objets
%<<<2 \espace et \jointif
\def\espace#1{%
\ifx t\J@obj@dir \def\col@do{\advance\topcol@ by #1}\else
\ifx b\J@obj@dir \def\col@do{\advance\botcol@ by-#1}\fi\fi
% Le \ignorepar est nécessaire puisqu'on n'utilise pas \objbox
\J@obj@do\col@do\ignorepar}%
\def\jointif{\espace{-\objsep}}
%<<<2 \texte
\def\texte{\afterassignment\texte@\J@obj@toks=}%
\def\texte@{%
\ifdim\J@obj@ht=\z@ \def\J@obj@extra{}\else
\edef\J@obj@extra{to \the\J@obj@ht}\fi
\objbox\J@obj@extra{\begingroup\leavevmode\J@@txt@init\the\J@obj@toks\J@@txt@init\endgroup}}%
%<<<2 \gencadre
% Merci Knuth
\def\futurenonspacelet#1{\def\cs{#1}%
\afterassignment\fnslet@i\let\fnslet@next= }
\def\fnslet@i{\expandafter\futurelet\cs\fnslet@ii}
\def\fnslet@ii{\expandafter\ifx\cs\stoken\let\next=\fnslet@three
\else\let\next=\fnslet@next\fi \next}
\def\fnslet@three{\afterassignment\fnslet@i\let\next= }
\newif\if@J@jointif\@J@jointiffalse
\def\intjointif{\@J@jointiftrue}
% \gencadre{bordure}{marge}{couleur bordure}{couleur fond}{texte}
\newif\if@J@cadre
\def\gencadre#1#2#3#4{\def\J@cadre@{\J@cadre{#1}{#2}{#3}{#4}}%
\afterassignment\J@cadre@@\J@obj@toks=}%
\def\J@cadre@@{\futurenonspacelet\@tmq\J@cadre@}
\def\J@cadre#1#2#3#4{%
\J@dim@a=#1 \J@dim@b=#2
\def\J@tmp@a{#3}\ifx\J@tmp@a\@empty\def\J@tmp@a{black}\fi
\def\J@tmp@b{#4}\ifx\J@tmp@b\@empty\def\J@tmp@b{white}\fi
\advance \J@dim@b by \J@dim@a
\ifdim\J@obj@ht=\z@ \def\J@obj@extra{}\else
\advance\J@obj@ht by -2\J@dim@b \edef\J@obj@extra{to \the\J@obj@ht}\fi
\setbox\J@box@a=\vbox\J@obj@extra{\J@calc@obj@wd\hsize=\J@obj@wd
\advance\hsize by -2\J@dim@b
\vskip \J@dim@b\begingroup
\let\@tmp\undefined
\J@dim@c=\J@dim@b \let\jointif\intjointif \@J@cadretrue
\J@obj@ht \z@
\J@@txt@init \the\J@obj@toks \J@@txt@end \vskip\J@dim@b\endgroup}%
\fboxrule #1 \fboxsep #2
\if@J@cadre \par
\if@J@jointif\vskip -\ht\strutbox\else\vskip\dp\strutbox\fi
\leavevmode \hskip-\J@dim@c \fcolorbox{\J@tmp@a}{\J@tmp@b}{\box\J@box@a}\par
\ifx\@tmq\jointif\vskip-\dp\strutbox\fi
\global\@J@jointiffalse
\else
\objbox{\fcolorbox{\J@tmp@a}{\J@tmp@b}{\box\J@box@a}}%
\fi
\ignorepar
}
%<<<2 \genfilet
% \genfilet{epaisseur}{marge}{couleur}
\def\genfilet#1#2#3{%
\objbox{\J@dim@a=\hsize \advance\J@dim@a by -#2
\hbox to\hsize{\color{#3}\hss\vrule depth \z@ height #1 width \J@dim@a\hss}}%
\ignorepar
}%
%<<<1 Remplissage des colonnes
%<<<2 Fonction \colonne
% On utilise def, même si ce n'est pas un objet au sens strict.
\def\colonne{\@killglue \J@obj@ht\z@
\def\J@calc@obj@ht{\advance\J@obj@ht by\J@dim@c}%
\let\J@obj@ex\J@colonne\@J@obj@first}%
\def\J@colonne{\afterassignment\J@colonne@\J@obj@toks=}%
\def\J@colonne@{\@killglue
% Arrivé ici, on a la hauteur totale dans \J@obj@ht, il suffit de répartir
\J@obj@check
% Traçage de la boîte
\J@obj@wd=\columnwidth
\setbox\J@obj@box=\vbox{%
\hsize=\J@obj@wd
\begingroup \J@@txt@init \the\J@obj@toks \J@@txt@end \endgroup}%
\J@dim@b=\ht\J@obj@box
\ifdim\J@obj@align<\z@
% Le cas où on a le droit d'ajuster autant qu'on veut. Dans ce cas, on
% calcule à quelle hauteur on va ajuster, ce qui permet de reprendre
% tel quel l'algorithme suivant.
\J@obj@align= \J@dim@b \advance\J@obj@align by -\J@obj@ht
\ifdim \J@obj@align<\z@ \ClassError{journal}{%
Pas assez de texte pour remplir les \the\J@obj@span\space colonnes.^^J}\fi
\divide\J@obj@align by\J@obj@span \J@obj@ht=\J@dim@b
\ifx t\J@obj@dir \J@top \advance\J@obj@align by\J@dim@a
\else \J@bot \J@obj@align=-\J@obj@align \advance\J@obj@align by\J@dim@a
\fi
\fi
% Répartition de l'espace
\J@dim@c=1pt % Pour des raisons de précision de la division
\divide \J@obj@ht by\J@dim@c \divide \J@dim@b by\J@dim@c
\def\put@col{%
\ifx t\J@obj@dir \J@dim@a=\J@obj@align \else \J@dim@a=\botcol@ \fi
\ifx b\J@obj@dir \J@dim@c=\J@obj@align \else \J@dim@c=\topcol@ \fi
% Maintenant \J@dim@a contient la place libre sur cette colonne
\advance\J@dim@a by -\J@dim@c \J@dim@c=\J@dim@a
\divide\J@dim@c by\J@obj@ht \multiply\J@dim@c by \J@dim@b
% Maintenant \J@dim@c contient la taille qu'on attribue à cette colonne
\splittopskip\z@
\setbox\J@box@a=\vsplit\J@obj@box to\J@dim@c
\setbox\J@box@a=\vbox to\J@dim@a{\unvbox\J@box@a}%
\ifx t\J@obj@dir \J@dim@c=\J@obj@align\else \J@dim@c=\botcol@ \fi
\J@calc@obj@x % maintenant dans \J@dim@a
\begingroup % Filet gauche
\ifnum \J@cnt@b>1
% Calcul de l'abscisse
\ifnum\J@cnt@b=\J@obj@first\let\J@tmp@a\J@vsep@l@c\let\J@tmp@b\J@vsep@l@w
\else \let\J@tmp@a\J@vsep@i@c \let\J@tmp@b\J@vsep@i@w \fi
\expandafter\J@dim@b\J@tmp@b \advance\J@dim@b by \columnsep
\divide\J@dim@b by 2\advance\J@dim@a by -\J@dim@b
% Calcul de l'ordonnée
\ifnum \J@cnt@b=\J@obj@first \J@dim@b=\ht\J@box@a
\else \J@dim@b=\J@dim@c \advance\J@dim@b by -\ht\J@box@a
\J@vsep@recalc \J@dim@b=-\J@dim@b \advance\J@dim@b by \J@dim@c \fi
\leavevmode \lower\J@dim@c \rlap{\kern \J@dim@a
\ifx\J@tmp@a\@empty\else\color{\J@tmp@a}\fi
\vrule height \J@dim@b width \J@tmp@b}%
\fi \endgroup
\begingroup % Filet droit
\advance\J@obj@first by\J@obj@span \advance\J@obj@first by -1
\ifnum \J@cnt@b<\columns
\ifnum\J@cnt@b=\J@obj@first % droit
\expandafter\J@dim@b\J@vsep@r@w \advance\J@dim@b by-\columnsep
\divide\J@dim@b by2\advance\J@dim@a by -\J@dim@b
\leavevmode \lower \J@dim@c \rlap{\kern\J@dim@a \kern\columnwidth
\ifx\J@vsep@r@c\@empty\else\color{\J@vsep@r@c}\fi
\vrule height \ht\J@box@a width \J@vsep@r@w}%
\else % intérieur
% Le filet intérieur rejoint les _plus petites_ sous-boîtes communes
% aux deux colonnes
\J@dim@b=\J@dim@c \advance\J@dim@b by -\ht\J@box@a
\xdef\J@vsep@recalc{%
\noexpand\ifdim\noexpand\J@dim@c>\the\J@dim@c
\noexpand\J@dim@c=\the\J@dim@c\noexpand\fi
\noexpand\ifdim\noexpand\J@dim@b<\the\J@dim@b
\noexpand\J@dim@b=\the\J@dim@b\noexpand\fi}%
\fi\fi \endgroup
\leavevmode \lower\J@dim@c \rlap{\kern\J@dim@a \box\J@box@a}%
\ifx t\J@obj@dir \topcol@=\J@obj@align \advance \topcol@ by \objsep\else
\ifx b\J@obj@dir \botcol@=\J@obj@align \advance \botcol@ by -\objsep\else
\botcol@= -1pt\fi\fi
}\J@obj@do\put@col
\ignorepar}% end \J@colonne@
%<<<2 Séparateurs verticaux
\def\separateur#1#2#3{\J@sep@def{#2}{#3}#1.\ignorepar}
\def\J@sep@def#1#2#3{\edef\J@tmp@b{.}\def\next{\J@sep@def{#1}{#2}}%
\ifx .#3\let\next\relax \else
\edef\J@tmp@a{#1}\ifx\J@tmp@b\J@tmp@a\else
\expandafter\def\csname J@vsep@#3@w\endcsname{#1}\fi
\edef\J@tmp@a{#2}\ifx\J@tmp@b\J@tmp@a\else
\expandafter\def\csname J@vsep@#3@c\endcsname{#2}\fi
\fi\next
}%
\J@sep@def{\z@}{}lri.
%<<<2 Styles de texte
% Faut-il mettre un filet dans le texte?
\newif\if@J@filet
\def\txtgenfilet#1#2#3{%
\J@footnotes
% take care of footins
\if@J@filet \J@dim@b=#2
\J@dim@a=\hsize \advance \J@dim@a by -2\J@dim@b
\bigbreak
\cleaders\hbox{{\hskip\J@dim@b \color{#3}%
\vrule width \J@dim@a height #1 depth \z@}}\vskip #1
\leavevmode\fi
\@J@filettrue
}%
% Les notes de bas d'article
\def\J@@txt@init{%
\linewidth\hsize
\@J@filetfalse
\leavevmode
\setcounter{footnote}0%
\def\J@fns{}%
\let\par\J@par % restore it to prevent wrapfigure from being confused
\J@txt@init
}%
\def\J@@txt@end{%
\J@footnotes
\J@txt@end
}%
\let\J@txt@init\relax % hook for derived classes
\let\J@txt@end \relax % hook for derived classes
%<<<2 Footnotes
% On ne peut pas utiliser de registre token pour les footnotes, car il
% faut expander la valeur de \@thefnmark.
\long\def\@footnotetext#1{%
\long\edef\J@tmp@a##1##2{\noexpand\def\noexpand\J@fns{%
\expandafter\noexpand\J@fns##1\noexpand\hbox to 1.4em{%
\noexpand\hss\@thefnmark. }##2}}%
\J@tmp@a{\noindent\interlinepenalty\interfootnotelinepenalty}{#1\par}%
}
\def\J@footnotes{\ifnum\c@footnote>0
\penalty 150 \medskip \footnoterule
\begingroup\reset@font\footnotesize\J@fns\endgroup
\def\J@fns{}\c@footnote=0
\fi}
\def\footnoterule{\kern -3pt\hrule width .4\hsize \kern 2.6pt}
\let\J@@footnotes\J@footnotes
\def\skipfootnotes{\def\J@footnotes{\let\J@footnotes\J@@footnotes}}
% vim: fdm=marker fmr=<<<,>>>
\AtBeginDocument{\pageinit}%