blob: a4622c497dfa3845a0d711d403f8ee906eb1af50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
%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
}
%
%ALTERNATIVE FOLDING GUIDES:
%
%For NO printed folding guide, comment out other \def\vdecor's and uncomment:
%\def\vdecor{\hskip .2in plus1fil}
%
%For SOLID LINE folding guide, comment out other \def\vdecor's and uncomment:
%\def\vdecor{\hskip .1in plus1fil \vrule width .1pt \hskip .1in plus1fil}
%
%For SMALL MARKS NEAR TOP AND BOTTOM as folding guide,
%comment out other \def\vdecor's and uncomment:
\def\vdecor{\hskip .1in plus1fil
\vbox to \vsize{\hbox to .1pt{\vrule height 2pt width .1pt}\vfill
\hbox to .1pt{\vrule height 2pt width .1pt}}
\hskip .1in plus1fil}
%
%END OF ALTERNATIVES FOR FOLDING GUIDES
%
\def\tripleformat{\shipout\vbox{\fulline{\box\leftcolumn\vdecor
\box\centercolumn\vdecor
\columnbox}
}
\advancepageno}
\def\columnbox{\leftline{\pagebody}}
\def\bye{\par\vfill
\supereject
\if R\lcr \null\vfill\eject\fi
\end}
|
