diff options
Diffstat (limited to 'macros/plain/contrib/misc/threecol.tex')
-rw-r--r-- | macros/plain/contrib/misc/threecol.tex | 47 |
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}} |