From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- info/digests/texline/no13/newtwo-column | 166 ++++++++++++++++++++++++++++++++ 1 file changed, 166 insertions(+) create mode 100644 info/digests/texline/no13/newtwo-column (limited to 'info/digests/texline/no13/newtwo-column') diff --git a/info/digests/texline/no13/newtwo-column b/info/digests/texline/no13/newtwo-column new file mode 100644 index 0000000000..fc32d1fa60 --- /dev/null +++ b/info/digests/texline/no13/newtwo-column @@ -0,0 +1,166 @@ + +%\hoffset=-0.1in +%\voffset=-2pc +%\raggedbottom +%\hsize=39pc %\vsize=59pc +%\maxdepth=2.2pt \parindent=1pc +%\vsize=720pt +%\hsize=6.5in +%\baselineskip12pt +%\parskip0pt +%\parindent1em +%\hfuzz1.5pt +%\tolerance2000 + +%\hyphenation{Post-Script} +% Page layout +\newdimen\pagewidth \newdimen\pageheight \newdimen\ruleht +\newdimen\colwidth \newdimen\bigcolheight\newdimen\gutter +\gutter=0.4in +%\colwidth=3.1in%19pc +\colwidth=\hsize +\advance\colwidth by-\gutter +\divide\colwidth by 2\relax +%\bigcolheight=1450pt%120pc +\bigcolheight=\vsize +\advance\bigcolheight by\bigcolheight +\advance\bigcolheight by 10pt +\pagewidth=\hsize \pageheight=\vsize \ruleht=0pt%.5pt +\abovedisplayskip=6pt plus 3pt minus 1pt +\belowdisplayskip=6pt plus 3pt minus 1pt +\abovedisplayshortskip=0pt plus 3pt +\belowdisplayshortskip=4pt plus 3pt + +\newinsert\botins +\def\afoot{\strut\egroup} +\def\botpic#1{\par + \insert\botins\bgroup\hsize=\pagewidth + \offinterlineskip + \interlinepenalty100 \let\par=\endgraf + \leftskip=0pt \rightskip=0pt + \splittopskip=10pt plus 1pt minus 1pt \floatingpenalty=20000 + \medskip{#1}\medskip\egroup} +\skip\botins=12pt plus 2pt minus 4pt % space added when footnote is present +\count\botins=2000 % footnote magnification factor (1 to 1) +\dimen\botins=36pc % maximum footnotes per page + +\def\toppic#1{\par + \insert\topins\bgroup\hsize=\pagewidth + \interlinepenalty100 \let\par=\endgraf + \offinterlineskip + \leftskip=0pt \rightskip=0pt + \splittopskip=10pt plus 1pt minus 1pt \floatingpenalty=20000 + \medskip{#1}\medskip\egroup} +\skip\topins=12pt plus 2pt minus 4pt % space added when footnote is present +\count\topins=2000 % footnote magnification factor (1 to 1) +\dimen\topins=36pc % maximum footnotes per page + +\newinsert\margin +\dimen\margin=\maxdimen +%\count\margin=0 \skip\margin=0pt % marginal inserts take up no space + +\newif\iftitle +\def\titlepage{\global\titletrue} % for pages without headlines +%\def\rhead{{}} + +\def\leftheadline{\hbox to \pagewidth{% + \vbox to 10pt{}% strut to position the baseline + \sl\rhead\hfil\lhead % running head flush left + }} +\def\rightheadline{\hbox to \pagewidth{% + \vbox to 10pt{}% strut to position the baseline + \sl\rhead\hfil\lhead % running head flush left + }} + +\def\onepageout#1{\shipout\vbox{ % here we define one page of output + \offinterlineskip % butt the boxes together + \vbox to 2pc{ % this part goes on top of the 44pc pages + \iftitle % the next is used for title pages + \global\titlefalse % reset the titlepage switch + \setcornerrules % for camera alignment + \else\ifodd\pageno \rightheadline\else\leftheadline\fi\fi + \vfill} % this completes the \vbox to 3pc + \vbox to \pageheight{ + \ifvoid\margin\else % marginal info is present + \rlap{\kern31pc\vbox to 0pt{\kern4pt\box\margin \vss}}\fi + \ifvoid\topins\else % top note info is present + \hrule height\ruleht width\pagewidth \kern-\ruleht \kern3pt + \unvbox\topins + \vskip\skip\topins \kern-3pt + \hrule height\ruleht width\pagewidth \kern-\ruleht \kern3pt + \vskip\skip\topins \kern-3pt + \fi + #1 % now insert the main information + \vfill + \ifvoid\botins\else % bot note info is present + \vskip\skip\botins \kern-3pt + \hrule height\ruleht width\pagewidth \kern-\ruleht \kern3pt + \unvbox\botins + \vskip\skip\botins \kern-3pt + \hrule height\ruleht width\pagewidth \kern-\ruleht \kern3pt + \fi + \boxmaxdepth=\maxdepth + } % this completes the \vbox to \pageheight + } + \advancepageno} + +\def\setcornerrules{\hbox to \pagewidth{\vrule width 1pc height\ruleht + \hfil \vrule width 1pc} + \hbox to \pagewidth{\llap{\sevenrm(page \folio)\kern1pc}% + \vrule height1pc width\ruleht depth 0pt + \hfil \vrule width\ruleht depth 0pt}} + +\output{\onepageout{\unvbox255}} + +\newbox\partialpage +\newdimen\savesize +\def\begindoublecolumns{\begingroup + \savesize=\vsize + \output={\global\setbox\partialpage=\vbox{\unvbox255\bigskip}}\eject + \output={\doublecolumnout} \hsize=\colwidth \vsize=\bigcolheight + \advance\vsize by -2\ht\partialpage + \advance\vsize by -2\ht\botins + \advance\vsize by -2\ht\topins + \pagegoal=\vsize} +\def\enddoublecolumns{\output={\balancecolumns}\eject + \global\output={\onepageout{\unvbox255}} + \global\vsize=\savesize + \endgroup \pagegoal=\vsize} + +\def\doublecolumnout{% +% \splitmaxdepth=\maxdepth + \dimen0=\pageheight + \advance\dimen0 by-\ht\partialpage + \advance\dimen0 by-\ht\botins + \advance\dimen0 by-\ht\topins + \splittopskip=\topskip + \setbox0=\vsplit255 to\dimen0 + \setbox2=\vsplit255 to\dimen0 + \onepageout\pagesofar + \global\vsize=\bigcolheight + \unvbox255 \penalty\outputpenalty} +\def\pagesofar{\unvbox\partialpage + \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}} +\def\balancecolumns{\setbox0=\vbox{\unvbox255} \dimen0=\ht0 + \advance\dimen0 by\topskip \advance\dimen0 by-\baselineskip + \divide\dimen0 by2 \splittopskip=\topskip + {\vbadness=10000 \loop \global\setbox3=\copy0 + \global\setbox1=\vsplit3 to\dimen0 + \ifdim\ht3>\dimen0 \global\advance\dimen0 by1pt \repeat} + \setbox0=\vbox to\dimen0{\unvbox1} + \setbox2=\vbox to\dimen0 +% {\unvbox3} + {\dimen2=\dp3 \unvbox3 \kern-\dimen2 \vfil} + \global\output={\balancingerror} + \pagesofar} +\newhelp\balerrhelp{Please change the page into one that works.} +\def\balancingerror{\errhelp=\balerrhelp + \errmessage{Page can't be balanced} + \onepageout{\unvbox255}} + + + + + + + -- cgit v1.2.3