28 lines
1 KiB
TeX
Executable file
28 lines
1 KiB
TeX
Executable file
%Three-column format for landscape printing on 8.5x11 paper
|
|
%pesch 1990 december 31
|
|
%We want output .25 inch *from paper edge*; i.e. -.75in from TeX default
|
|
\hoffset=-0.8in \voffset=-0.75in
|
|
\newdimen\fullhsize
|
|
\fullhsize=10.5in \hsize=3.3in
|
|
\def\fulline{\hbox to \fullhsize}
|
|
\let\lcr=L \newbox\leftcolumn\newbox\centercolumn
|
|
\output={\if L\lcr
|
|
\global\setbox\leftcolumn=\columnbox \global\let\lcr=C
|
|
\else
|
|
\if C\lcr
|
|
\global\setbox\centercolumn=\columnbox \global\let\lcr=R
|
|
\else \tripleformat \global\let\lcr=L
|
|
\fi
|
|
\fi
|
|
% \ifnum\outputpenalty>-20000 \else\dosupereject\fi
|
|
}
|
|
\def\tripleformat{\shipout\vbox{\fulline{\box\leftcolumn\hskip .2in plus1fil
|
|
\box\centercolumn\hskip .2in plus1fil
|
|
\columnbox}
|
|
}
|
|
\advancepageno}
|
|
\def\columnbox{\leftline{\pagebody}}
|
|
\def\bye{\par\vfill
|
|
\supereject
|
|
\if R\lcr \null\vfill\eject\fi
|
|
\end}
|