summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/2columns.mac
blob: 2f36486164dca103ec3d02c682c291aaf2217af0 (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
%
% This is the two column output format from Chapter 23 of the TeXbook.
%
%
\hoffset=-.5in
\newdimen\fullhsize
\fullhsize=7.5in \hsize=3.6in
\def\fullline{\hbox to \fullhsize}
%
\def\makeheadline{%
 \vbox to 0pt{\vskip-22.5pt
  \fullline{\vbox to8.5pt{}\the\headline}\vss}
 \nointerlineskip
}
%
\def\makefootline{%
 \baselineskip=2\normalbaselineskip
 \fullline{\the\footline}
}
%
\let\lr=L \newbox\leftcolumn
\output={\if L\lr
    \global\setbox\leftcolumn=\columnbox \global\let\lr=R
  \else \doubleformat \global\let\lr=L\fi
  \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
\def\doubleformat{\shipout\vbox{\makeheadline
    \fullline{\box\leftcolumn\hfil\vrule\hfil\columnbox}
    \makefootline}
  \advancepageno}
\def\columnbox{\leftline{\pagebody}}
%
\def\endtwocol{%
 \vfill\supereject
 \if R\lr \null\vfill\eject\fi
}