summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/threecol.tex
blob: bc8dde35239589abed1e836f3a0cfe74df58ff2e (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
47
% Definitions to produce threecolumn output in TeX from
% the TeXbook.
%
        % this is threecolumn for a newsletter. All of the pages have
        % an 8 inch form size, the first page is offset 1.5 inches from
        % the top, the rest are offset one inch from the top. The first
        % page has an extra-high, two line headline.
 
\tenrm
\hoffset=-.5in
\voffset=-.02in 
\parindent=0pt
\tolerance=10000
\vsize=9.04in 
\nopagenumbers
 
\newbox\midcolumn
\newbox\leftcolumn
\newdimen\fullhsize 
\newdimen\partialhsize
\fullhsize=8.5in \hsize=2.8in
\def\fullline{\hbox to\fullhsize}
\def\columnbox{\leftline{\pagebody}}
 
\let\lr=L 
\let\nextvskip=N 
 
\def\tripleformat
 {\shipout\vbox
 {\fullline{\box\leftcolumn\hfil\box\midcolumn\hfil\columnbox}
 }           
 \advancepageno
 }
 
\output={\if L\lr
 \global\setbox\leftcolumn=\columnbox \global\let\lr=M 
 \else\if M\lr
 \global\setbox\midcolumn=\columnbox \global\let\lr=R 
 \else \tripleformat \global\let\lr=L\fi\fi
 
 \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
\font\bigrm=CMSS10 at 10pt
\bigrm

\obeylines
\def\label#1{\vbox to .98in{\vfill #1}}
\def\zip#1{\line{\hfill #1\hfill}}