summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/misc/threecol.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/plain/contrib/misc/threecol.tex')
-rw-r--r--macros/plain/contrib/misc/threecol.tex47
1 files changed, 47 insertions, 0 deletions
diff --git a/macros/plain/contrib/misc/threecol.tex b/macros/plain/contrib/misc/threecol.tex
new file mode 100644
index 0000000000..bc8dde3523
--- /dev/null
+++ b/macros/plain/contrib/misc/threecol.tex
@@ -0,0 +1,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}}