%----------------------------------------------------------- Réduction A4 -> A5

\chardef\TheAtCode=\catcode64
\catcode64=11

\magnification 707         % ceci assure la réduction
\hsize   = 11.30 true cm   % redéfinit les dimensions
\vsize   = 16.50 true cm

\newbox\@gauche             % la demi-page gauche
\newbox\@droite             % sa voisine
\let\@numero=\@droite       % numéro de la dernière demi-page
\let\@shipout=\shipout      % détourne la routine de sortie
\let\@afterassignment\afterassignment

\def\shipout#1#2{%          % constitue une demipage
   \ifx\@numero\@droite
	\global\let\@numero\@gauche
   \else
	\global\let\@numero\@droite
   \fi
   \global\setbox\@numero=#1{#2}%
   \ifx\@numero\@gauche
      \ifnum\outputpenalty<-20000
         \@shipout\hbox{\box\@gauche}%
      \fi
   \else
      \@shipout\hbox{\box\@gauche\kern2true cm\box\@droite}% assemble les dp
   \fi
}

\special{landscape}

\catcode64=\TheAtCode

