path: root/Master/texmf-dist/tex/plain/zztex/zzpage.tex

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Module:    ZzTeX Page Facilities
%
% Synopsis:  This module contains all the user facilities for
%            specifying things about the page layout.  It also
%            contains the output routines.
%
% Author:    Paul C. Anagnostopoulos
% Created:   7 March 1990
%
% Copyright 1989--2020 by Paul C. Anagnostopoulos
% under The MIT License (opensource.org/licenses/MIT)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                       Tracing Page Makeup
%                       ------- ---- ------


\def \tracepagemakeup #1{%
  \if \posp{\tracingpagemakeup}%
    \writelog{ZzTeX page \the\pagenumber: #1}%
  \fi}

%                       Initialize Page Parameters
%                       ---------- ---- ----------


% Here we assume that the type area width is the same on both pages.

\def \zpageinit {%
  \gcalculate \trimplusbleedheight = {\standardbleed,+,\trimheight,+,%
                                      \standardbleed}%
  \gcalculate \trimplusbleedwidth = {\standardbleed,+,\trimwidth,+,%
                                     \standardbleed}%
  \gcalculate \typeareawidth = {\oddlefttextmargin,+,\textmeasure,+,%
                                \oddrighttextmargin}%
  \gcalculate \evenoutermargin = {\trimwidth,-,\typeareawidth,-,%
                                  \eveninnermargin}%
  \gcalculate \evenbleedshift = {-\evenlefttextmargin,-,\evenoutermargin,-,%
                                 \standardbleed}%
  \gcalculate \oddoutermargin = {\trimwidth,-,\typeareawidth,-,%
                                 \oddinnermargin}%
  \gcalculate \oddbleedshift = {-\oddlefttextmargin,-,\oddinnermargin,-,%
                                 \standardbleed}}

%                       Page Number
%                       ---- ------


\countdef \pagenumber = 0

\declaresnapitem{\pagenumber}

\def \setpagenumber #1{%                                {number}
  \global\pagenumber = #1\relax
  \setcolumnnumber{1}}

\def \evenpagep {\evenp{\pagenumber}}
\def \oddpagep {\oddp{\pagenumber}}

\def \folio {}

\def \setfoliostyle #1{%                                {\style}
  \ztoksa = \expandaftertwice{\name{#1folio}}%
  \xdef \folio {\the\ztoksa}}

\def \chapterpagefolio {\the\chaptercomptext-\number\pagenumber}
\def \arabicfolio {\number\pagenumber}
\let \decimalfolio = \arabicfolio
\def \letterfolio {\ucletter\pagenumber}
\def \partpagefolio {\the\partcomptext-\number\pagenumber}
\def \romanfolio {\romannumeral\pagenumber}

%                       Marks
%                       -----


% These macros hold the five parts of the current mark, each part having
% three subparts.  When a part is saved, the first subpart is expanded and
% the second and third subparts are not.

\definetoks{\zmarki}   \zmarki = {{???}{???}{???}}
\definetoks{\zmarkii}  \zmarkii = {{???}{???}{???}}
\definetoks{\zmarkiii} \zmarkiii = {{???}{???}{???}}
\definetoks{\zmarkiv}  \zmarkiv = {{???}{???}{???}}
\definetoks{\zmarkv}   \zmarkv = {{???}{???}{???}}


\def \setmarkinfothree #1#2#3#4{%       {part}{text1}{text2}{text3}
  {\tcounta = #1\relax
   \edef \znext {{#2}}%
   \global\name{\zmark\romannumeral\tcounta} = \expandafter{\znext{#3}{#4}}%
   \mark{\noexpand\or \the\zmarki \noexpand\or \the\zmarkii
         \noexpand\or \the\zmarkiii \noexpand\or \the\zmarkiv
         \noexpand\or \the\zmarkv}}%
  \if \vmodep \repeatpenalty \fi} % In case glue follows the mark.

\def \setmarkinfo #1#2#3{%                      {part}{text1}{text2}
  \setmarkinfothree{#1}{#2}{#3}{???}}


\let \firstnewmark = \firstmark
\let \bottommark = \botmark

\def \markinfo #1#2#3{%                         {mark}{part}{subpart}
  \ifcase #3%
    \relax
  \or
    \expandafter\zoneofthree
      \ifcase #2\expandafter\relax #1\else {???}{???}{???}\fi
  \or
    \expandafter\ztwoofthree
      \ifcase #2\expandafter\relax #1\else {???}{???}{???}\fi
  \or
    \expandafter\zthreeofthree
      \ifcase #2\expandafter\relax #1\else {???}{???}{???}\fi
  \else
    \error{invsubpart}{The subpart `#3' is invalid}%
  \fi}

%                       Page Screen
%                       ---- ------


\def \fullpagescreen #1{%                               {color}
  \if \inbackground
    \vskip -\standardbleed
    \moveleft \standardbleed \vbox{%
      \colorrule{#1}{width \trimplusbleedwidth height \trimplusbleedheight}}%
  \else
    \hrule width 0pt
    \vsinkfromtrim{-\standardbleed}
    \smashbox{%
      \colorparrule{#1}
        {\if \evenp{\pagenumber}\evenbleedshift \else \oddbleedshift \fi}
        {width \trimplusbleedwidth height 0pt depth \trimplusbleedheight}}%
  \fi}

%                       New Headers & Footers Scheme
%                       --- ------- - ------- ------


% Most of the definitions are in zzrunner.tex, but these need to be in
% here so they can be used in design files.


\def \headerblindformat {}

\def \footerblindformat {}

\def \headercornermarkformat {%
  \line{\vrule height .5pt depth 0pt width 6pt \hfil
        \vrule height .5pt depth 0pt width 6pt}%
  \nointerlineskip
  \line{\vrule height 6pt depth 0pt width .5pt \hfil
        \vrule height 6pt depth 0pt width .5pt}%
  \vfil}

\def \footercornermarkformat {%
  \vfil
  \line{\vrule height 6pt depth 0pt width .5pt \hfil
        \vrule height 6pt depth 0pt width .5pt}%
  \nointerlineskip
  \line{\vrule height .5pt width 6pt \hfil
        \vrule height .5pt width 6pt}}

%                       Old Headers & Footers Scheme
%                       --- ------- - ------- ------


\def \zcurheader{\normalheader}
\def \zcurfooter{\normalfooter}

\setflag \zoverrunners = \false
\let \zsaveheader = \relax
\let \zsavefooter = \relax


\def \setrunners #1#2{%                                 {header}{footer}
  \if \zoverrunners
    \gdef \zsaveheader {#1}%
    \gdef \zsavefooter {#2}%
  \else
    \gdef \zcurheader {#1}%
    \gdef \zcurfooter {#2}%
  \fi}

\def \overriderunners #1#2{%                            {header}{footer}
  \if \notp{\zoverrunners}%
    \global\let \zsaveheader = \zcurheader
    \global\let \zsavefooter = \zcurfooter
    \global\setflag \zoverrunners = \true
  \fi
  \gdef \zcurheader {#1}%
  \gdef \zcurfooter {#2}}

\def \blindrunners {%
  \overriderunners{\blindheader}{\blindfooter}}

\def \zsetrunnerstoks #1{%                              {tokens}
  \expandafter\overriderunners \the#1}

\def \zoverriderunnerstoks #1{%                              {tokens}
  \expandafter\overriderunners \the#1}

% The following macro is used to initialize the \runners parameter.

\def \zoldrunners #1{%
  \runners = {#1}}

% The following macro is called from the output routine.

\def \znextpagerunners {%
  \if \zoverrunners
    \global\let \zcurheader = \zsaveheader
    \global\let \zcurfooter = \zsavefooter
    \global\setflag \zoverrunners = \false
  \fi}


% The following macros provide some standard, simple header and footer
% formats.

\def \blindheader {}

\def \blindfooter {}

\def \cornermarkheader {\headercornermarkformat}

\def \cornermarkfooter {\footercornermarkformat}

% The following header and footer formats are provided by the design.
% Just in case they are forgotten:

\def \normalheader {%
  \warning{noheadfoot}{No normal header format has been specified}}
\def \normalfooter {%
  \warning{noheadfoot}{No normal footer format has been specified}}
\def \chapterheader {%
  \warning{noheadfoot}{No chapter header format has been specified}}
\def \chapterfooter {%
  \warning{noheadfoot}{No chapter footer format has been specified}}

%                       Multiple Columns
%                       -------- -------


% The following parameters are calculated by the \setpagecolumns command:

\setflag \zdofullbreak = \false         % True if doing a full break.
\setflag \zusetypewidth = \false        % True if using type area width.

\definecount{\columncount}{0}           % Number of columns on page.
\definecount{\columnnumber}{0}          % Current column number.
% \hsize
% \vsize


% The \setpagecolumns command accepts the following options:
%
%   \fullbreak
%   \shortbreak
%   \usetextmeasure
%   \usetextwidth
%   \usetypewidth

\def \setpagecolumns #1#2#3{%           {options}{columns}{gutter-width}
  \endgraf
  {\def \fullbreak {\global\setflag \zdofullbreak = \true}%
   \def \shortbreak {\global\setflag \zdofullbreak = \false}%
   \def \usetextmeasure {\global\setflag \zutw = \false}%
   \def \usetextwidth {\global\setflag \zutw = \false}%
   \def \usetypewidth {\global\setflag \zutw = \true}%
   \global\setflag \zdofullbreak = \false
   \global\setflag \zutw = \false
   #1}%
  \if \andp{\zusetypewidth}{\notp{\zutw}}%
    \zejectcolpage
  \else\if \onep{\columncount}%
    \if \orp{\gtrp{#2}{1}}{\zutw}\penalty \zpenoneton \fi
  \else\if \neqlp{#2}{\columncount}%
    \zejectcolpage
  \fi\fi\fi
  \global\columncount = #2\relax
  \global\setflag \zusetypewidth = \zutw
  \tdimena = \if \zusetypewidth \typeareawidth \else \textmeasure \fi
  \calculate \tdimenb = {-#3,*,\columncount,+,#3,+,\tdimena,/,\columncount}%
  \settextwidth{\tdimenb}%
  \global\hsize = \hsize                % Make these two parameters global.
  \global\parfillskip = \parfillskip
  \setcolumnnumber{1}%
  \tracepagemakeup{Columns: \the\columncount; width: \the\hsize; gutter: #3.}}

\def \zejectcolpage {%
  \if \zdofullbreak
    \freshpage{\full\floats\any}%
  \else
    \freshpage{\short\floats\any}%
  \fi
  \global\vsize = \textareaheight}      % Needed even if no page eject.


\def \setcolumnnumber #1{%                              {number}
  \global\columnnumber = #1\relax
  \if \andp{\oddpagep}{\lastcolumnp}%
    \global\brokenpenalty = \oddbrokenpenalty
  \else
    \global\brokenpenalty = \evenbrokenpenalty
  \fi}

\def \firstcolumnp {\eqlp{\columnnumber}{1}}
\def \lastcolumnp  {\eqlp{\columnnumber}{\columncount}}


%-----------------------------------------------------------------------------
%
% This old command is deprecated, although it will work forever.


\def \setcolumns #1#2#3{%               {count}{gutter-width}{use-type-area}
  \endgraf
  \if \andp{\zusetypewidth}{\notp{#3}}%
    \freshpage{\short\floats\any}%
    \global\vsize = \textareaheight % Needed even if no page eject.
  \else \if \eqlp{\columncount}{1}%
    \if \orp{\gtrp{#1}{1}}{#3}%
      \penalty \zpenoneton
    \fi
  \else \if \neqlp{#1}{\columncount}%
    \freshpage{\short\floats\any}%
    \global\vsize = \textareaheight % Needed even if no page eject.
  \fi\fi\fi
  \global\columncount = #1\relax
  \global\setflag \zusetypewidth = #3\relax
  {\zpageinit
   \tdimena = #2\relax
   \multiply \tdimena by \columncount
   \advance \tdimena by -#2\relax
   \if \zusetypewidth
     \advance \tdimena by -\typeareawidth
   \else
     \advance \tdimena by -\textmeasure
   \fi
   \divide \tdimena by -\columncount
   \settextwidth{\tdimena}%
   \global\hsize = \hsize               % Make these two parameters global.
   \global\parfillskip = \parfillskip}%
  \setcolumnnumber{1}%
  \tracepagemakeup{Columns: \the\columncount; width: \the\hsize; gutter: #2.}}

%                       Column Breaks
%                       ------ ------


\def \columnbreak #1{%                          {penalty}
  \penalty #1\relax}

\def \freshcolumn #1{%                          {options}
  {\let \zfill = \relax
   \let \full = \relax \def \short {\def \zfill {\vfill}}%
   #1\relax%
   \if \notp{\dimzerop{\lastskip}}\vskip -\lastskip \fi
   \zfill
   \penalty \zpenfreshcol}}

\def \fullcolumnbreak {\freshcolumn{\full}}
\def \shortcolumnbreak {\freshcolumn{\short}}

\def \blankcolumn {%
  \line{}%
  \shortcolumnbreak}

%                       Page Breaks
%                       ---- ------


%~ This command starts a new page. The options specify the
%~ exact behavior:
%~ & |\any|& Start an even or odd page.
%~ & |\even|&  Start an even page.
%~ & |\floats|& Place all floats before new page.
%~ & |\full|& Current page is bottomed out.
%~ & |\nofloats|& No need to place all floats.
%~ & |\odd|& Start an odd page.
%~ & |\short|& Run current page short.
%~ &.

\def \freshpage #1{%                            {options} %^page_makeup
  \if \vmodep
    {\let \zfill = \vfill
     \let \short = \relax \def \full {\let \zfill = \relax}%
     \let \zflush = \zpenfreshpage
     \let \nofloats = \relax \def \floats {\let \zflush = \zpenflushpage}%
     \let \zpage = \relax
     \let \any = \relax
     \def \odd {\def \zpage {\if \evenpagep \blankpage \fi}}%
     \def \even {\def \zpage {\if \oddpagep \blankpage \fi}}%
     #1\relax%
     \if \notp{\dimzerop{\lastskip}}\vskip -\lastskip \fi
     \zfill
     \if \notp{\lastcolumnp}%
       \penalty \zpenfreshcol
       \if \notp{\lastcolumnp}%
         \loop
           \blankcolumn
         \if \notp{\lastcolumnp}\repeat
       \fi
       \line{}%
       \vfill
     \fi
     \penalty \zflush
     \zpage}%
  \else
    \error{pagepar}{Page break requested in the middle of a paragraph}%
  \fi}

%~ This command starts a new page, bottoming out the current page.

\def \fullpagebreak {\freshpage{\full\nofloats\any}}    %^page_makeup

%~ This command starts a new page, leaving the current page short.
%~ The argument specifies the number of lines short, or, if 
%~ specified as |\asap|, runs the page as short as possible.

\def \shortpagebreak #1{%                               {lines} %^page_makeup
  {\def \zarg {#1}\def \zasap {\asap}%
   \if \tokeqlp{\zarg}{\zasap}%
     \freshpage{\short\nofloats\any}%
   \else
     \kern -\dp\strutbox
     \kern #1\baselineskip
     \fullpagebreak
   \fi}}

\def \blankpage {%
  \blindrunners
  \pagehint{(blank)}%
  \hrule width 0pt
  \freshpage{\short\nofloats\any}}

\def \blankleaf {%
  \freshpage{\short\floats\odd}
  \blankpage
  \freshpage{\short\even}
  \blankpage}

%                       Overriding Text Area Height
%                       ---------- ---- ---- ------


\definedimen{\zortahsave}{0pt}          % Saved normal text area height.
\definecount{\zortahcount}{0}           % Number of overridden pages.


%~ This command changes the number of lines on the specified number
%~ of pages, beginning with the current page. The nominal line count
%~ is increased or decreased by the specified number of lines,
%~ which should be coded with a plus or minus sign. A fractional
%~ number of lines is allowed. It is best to change two pages (a spread)
%~ with each command.

\def \overridetextareaheight #1#2{%             {pages}{lines} %^page_makeup
  \if \posp{\zortahcount}%
    \warning{overortah}{Text area height overridden during previous override}%
    \zresetortah
  \fi
  {\global\zortahsave = \textareaheight
   \global\zortahcount = #1\relax
   \global\advance \textareaheight by #2\baselineskip
   \global\vsize = \textareaheight
   \if \dimneqlp{\pagegoal}{\maxdimen}%
     \tdimena = \textareaheight
     \advance \tdimena by -\zortahsave
     \advance \tdimena by \pagegoal
     \global\pagegoal = \tdimena
   \fi}%
  \tracepagemakeup{Overriding text area height: pages: #1, vsize: \the\vsize, 
                   goal: \the\pagegoal.}}

\def \zresetortah {%
  \global\zortahcount = 0
  \global\textareaheight = \zortahsave
  \global\vsize = \textareaheight
%%%  \global\pagegoal = \vsize
  \tracepagemakeup{Un-overriding text area height: vsize: \the\vsize.}}

\def \zortahdivfinal {%
  \if \posp{\zortahcount}%
    \warning{divortah}{Text area height overridden across a division}%
    \zresetortah
  \fi}

%                       Text Margins
%                       ---- -------


% The following two macros are really bogus, because TeX doesn't
% always know what page it's on, except in the output routine.

\def \thislefttextmargin {%
  \if \evenpagep \evenlefttextmargin \else \oddlefttextmargin \fi}

\def \thisrighttextmargin {%
  \if \evenpagep \evenrighttextmargin \else \oddrighttextmargin \fi}

\definedimen{\typeareashift}{0pt}
\definecount{\ztaspage}{0}

\def \determinetypeareashift #1{%                               {page}
  \global\typeareashift = \if \evenp{#1}-\evenlefttextmargin \else
                                        -\oddlefttextmargin \fi}

%                       Layout Summary
%                       ------ -------


{\catcode`\_ = \catactive

\gdef \zlayoutsummary {%
  {\def _{\space}%
   \writelog{}%
   \writelog{Layout:}%
   \writelog{}%
   \tdimena = .013837\trimwidth
   \tdimenb = .013837\trimheight
   \writelog{Trim: \thefactor\tdimena"_x_\thefactor\tdimenb"}%
   \tdimena = .013837\headmargin
   \writelog{Head margin: \thefactor\tdimena"}%
   \tdimena = .083333\typeareawidth
   \tdimenb = .083333\typeareaheight
   \writelog{Type area: \thefactor\tdimena pc_x_\thefactor\tdimenb pc}%
   \tdimena = .013837\eveninnermargin
   \tdimenb = .013837\oddinnermargin
   \writelog{Inside margins: even \thefactor\tdimena", odd \thefactor\tdimenb"}%
   \tdimena = .013837\evenoutermargin
   \tdimenb = .013837\oddoutermargin
   \writelog{Outside margins: even \thefactor\tdimena", odd \thefactor\tdimenb"}%
   \tdimena = .083333\evenlefttextmargin
   \tdimenb = .083333\oddlefttextmargin
   \writelog{Left text margins: even \thefactor\tdimena pc,
                                odd \thefactor \tdimenb pc}%
   \tdimena = .083333\evenrighttextmargin
   \tdimenb = .083333\oddrighttextmargin
   \writelog{Right text margins: even \thefactor\tdimena pc,
                                 odd \thefactor\tdimenb pc}%
   \tdimena = .083333\textmeasure
   \tdimenb = .083333\textareaheight
   \writelog{Text area: \thefactor\tdimena pc_x_\thefactor\tdimenb pc}%
   \writelog{Top skip: \the\topskip, delta: \the\topdelta}%
   \writelog{}}}

}% \catcode

%                       Debugging
%                       ---------


\def \zlogoutf {-1}                     % First page to log.
\def \zlogoutl {-1}                     % Last page to log.


\def \logoutput #1#2{%                  {first-page}{last-page}
  \global\def \zlogoutf {#1}%
  \global\def \zlogoutl {#2}}

%                       Output Routine
%                       ------ -------


% The following definitions are for special penalties that control
% page makeup:

\def \zpennormal    {-10000\relax}      % Normal page break.
\def \zpenoneton    {-10001\relax}      % Switch from 1 to n columns.
\def \zpenfreshcol  {-10002\relax}      % Fresh column.
\def \zpenfreshpage {-10003\relax}      % Fresh page.
\def \zpenflushpage {-10004\relax}      % Fresh page, and flush floats.
\def \zpenfloatpage {-10005\relax}      % Page of floats scheduled.

% We need to put the depth of box 255 in a convenient place.

\definedimen{\zoutputcoldepth}{0pt}

% We must save \mathdisplayprevgraf across the output routine.

\definecount{\zsavemdpg}{0}

% The following boxes hold parts of the page:

\definebox{\zcolbox}            % One column's worth.
\definebox{\zbodybox}           % The body, multiple columns' worth.
\definebox{\zonetonbox}         % Stuff preceding 1- to n-column switch.
\setflag \zonetontype = \false  % True if 1-to-n text uses type area width.

% This toks register is invoked at the beginning of every column, so that
% things like index carryovers can be performed.

\definetoks{\everycolumn}
\everycolumn = {\relax}


\output = {\zoutput}

\def \zoutput {%
  \if \andp{\notp{\lssp{\pagenumber}{\zlogoutf}}}%
           {\notp{\gtrp{\pagenumber}{\zlogoutl}}}%
    \tracingoutput = 1
    \showboxdepth = 1000 \showboxbreadth = 1000\relax
  \fi
  \tracepagemakeup{[Output routine invoked for column \the\columnnumber;
                    penalty: \the\outputpenalty.}%
  \tracepagemakeup{Vsize: \the\vsize;
                   Box 255: \the\ht255+\the\dp255 \space x \the\wd255.}%
  \zoutputcoldepth = \dp255\relax
  \let \zsavewith = \zwith              % Save these items across the
  \let \zsavevariant = \zvariant        % output routine in case they
  \zsavemdpg = \mathdisplayprevgraf     % are altered within it.
  \normalbaselines
  \let \par = \endgraf
  \everyparagraph = {}%
  \spaceskip = 0pt
  \tcounta = \outputpenalty
  \if \eqlp{\tcounta}{-'10000000000}\tcounta = \zpenflushpage \fi
  \if \gtrp{\tcounta}{-10000}\tcounta = -10000\relax \fi
  \negate \tcounta
  \advance \tcounta by -10000\relax
  \ifcase \tcounta
    \zpagenormal \or
    \zpageoneton \or
    \zpagefreshcol \or
    \zpagefreshpage \or
    \zpageflushpage \or
    \zpagefloatpage \else
    \zzerror{Invalid page break penalty: \the\outputpenalty}%
  \fi
  \global\let \zvariant = \zsavevariant
  \global\let \zwith = \zsavewith
  \global\mathdisplayprevgraf = \zsavemdpg
  \tracepagemakeup{Output routine complete.]}}

\def \zpagenormal {%
  \tracepagemakeup{Process normal column.}%
  \zcolumnsave
  \if \lastcolumnp
    \zpagecontents
    \setcolumnnumber{1}%
  \else
    \tcounta = \columnnumber \increment \tcounta
    \setcolumnnumber{\tcounta}%
  \fi
  \zfloatinit
  \zschedulefloats{\zfloatcount}{\true}{\false}%
  \if \gtrp{\zfloatcount}{99}%
    \zfltpage{\zpenfloatpage}%
  \else
    \zeverycol
  \fi}

\def \zpageoneton {%
  \tracepagemakeup{Process 1- to n-column transition.}%
  \zonetoncolumnbody
  \global\setflag \zonetontype = \zusetypewidth
  \global\advance \vsize by -\ht\zonetonbox
  \global\advance \vsize by -\dp\zonetonbox
  \tracepagemakeup{Space remaining on page: \the\vsize.}}

\def \zpagefreshcol {%
  \tracepagemakeup{Process `fresh column' request.}%
  \zpagenormal}

\def \zpagefreshpage {%
  \tracepagemakeup{Process `fresh page' request.}%
  \zpagenormal}

\def \zpageflushpage {%
  \tracepagemakeup{Process `fresh page, flush floats' request.}%
  \zcolumnsave
  \if \lastcolumnp
    \zpagecontents
    \setcolumnnumber{1}%
  \else
    \tcounta = \columnnumber \increment \tcounta
    \setcolumnnumber{\tcounta}%
  \fi
  \zfloatinit
  \zschedulefloats{\zfloatcount}{\true}{\true}%
  \if \posp{\zfloatcount}%
    \zfltpage{\zpenflushpage}%
  \else
    \zeverycol
  \fi}

\def \zpagefloatpage {%
  \tracepagemakeup{Process page of floats.}%
  \zcolumnsave
  \if \lastcolumnp
    \zpagecontents
    \setcolumnnumber{1}%
  \else
    \tcounta = \columnnumber \increment \tcounta
    \setcolumnnumber{\tcounta}%
  \fi
  \zfloatinit
  \zschedulefloats{\zfloatcount}{\true}{\false}%
  \if \gtrp{\zfloatcount}{99}%
    \zfltpage{\zpenfloatpage}%
  \fi}

\def \zfltpage #1{%                                     {penalty}
  \if \notp{\emptytoksp{\zfltrunners}}%
    \zoverriderunnerstoks{\zfltrunners}%
  \fi
  {\leftskip = 0pt \rightskip = 0pt
   \line{}}%
  \kern -\topskip               % Why bother to do this?
  \nobreak \vfill
  \penalty #1}

\def \zeverycol {%
  {\zadjtitle = \zadjtitlemark          % \adjusttitle should adjust mark.
   \def \zadjloc {\mark}%
   \the\everycolumn}}

%                       Page Makeup: Column
%                       ---- ------- ------


\def \zcolumnsave {%
  \zcolumnbody
  \if \firstcolumnp
    \global\setbox \zbodybox = \hbox to \zbodyboxwidth {\box\zcolbox \hss}%
    \ztoksa = \expandafter{\topmark}%
    \xdef \topmarki {\the\ztoksa}%
    \ztoksa = \expandafter{\firstnewmark}%
    \xdef \firstnewmarki {\the\ztoksa}%
    \ztoksa = \expandafter{\bottommark}%
    \xdef \bottommarki {\the\ztoksa}%
  \else
    \global\setbox \zbodybox = \hbox to \zbodyboxwidth {%
      \unhbox\zbodybox \hfill \box\zcolbox}%
  \fi}

\def \zbodyboxwidth {%
  \if \zusetypewidth \typeareawidth \else \textmeasure \fi}

\def \zcolumnbody {%
  \tracepagemakeup{Wrapping up the column; hsize: \the\hsize.}%
  {\vbadness = 10000\relax
   \global\setbox \zcolbox = \vbox to \vsize {%
     \setindentation{0pt}{0pt}%
     \boxmaxdepth = \maxdepth
     \if \notp{\voidboxp{\ztopcolinsert}}\unvbox \ztopcolinsert \fi
     \unvbox 255 % Page built by TeX.
     \if \risingfootnotes
       \if \notp{\voidboxp{\zfninsert}}\zfootnoteformat{\zoutputcoldepth}\fi
     \fi
     \if \risingbottomfloats
       \if \notp{\voidboxp{\zbotcolinsert}}\unvbox \zbotcolinsert \fi
     \fi
     \if \raggedbottom
       \kern -\zoutputcoldepth \vfill
     \fi
     \if \notp{\risingfootnotes}%
       \if \notp{\voidboxp{\zfninsert}}\zfootnoteformat{\zoutputcoldepth}\fi
     \fi
     \if \notp{\risingbottomfloats}%
       \if \notp{\voidboxp{\zbotcolinsert}}\unvbox \zbotcolinsert \fi
     \fi}}}

% This is a special version of \zcolumnbody for the 1- to n-column
% transition.

\def \zonetoncolumnbody {%
  \global\setbox \zonetonbox = \vbox{%
    \setindentation{0pt}{0pt}%
    \boxmaxdepth = \maxdepth
    \if \notp{\voidboxp{\ztopcolinsert}}\unvbox \ztopcolinsert \fi
    \unvbox 255 % Page built by TeX.
    \vskip \baselineskip
    \vskip -\topskip
    % Ignore footnotes.
    % Ignore bottom style.
    % Ignore bottom floats.
    % Don't produce text area bottom rule.
    }}

%                       Page Makeup: Page
%                       ---- ------- ----


\def \zpagecontents {%
  \tracepagemakeup{Shipping out the final page.}%
  \shipout \vbox to \trimheight {%
    \parskip = 0pt \parindent = 0pt
    \setindentation{0pt}{0pt}%
    \zpageheadmargin
    \nointerlineskip
    \zpagetypearea
    \vfil
    \nointerlineskip
    \zpageoverlay}%
  \if \posp{\zortahcount}%             % If overriding text area height:
    \global\decrement \zortahcount
    \if \zerop{\zortahcount}\zresetortah \fi
  \fi
  \tcounta = \pagenumber \increment \tcounta
  \setpagenumber{\tcounta}%
  \global\vsize = \textareaheight % In case it was reset for this page.
  \znextpagerunners}

\def \zpagelengthmarks {%
  \tdimena = \headmargin
  \advance \tdimena by \typeareaheight
  \advance \tdimena by -\footerheight
  \vskip \tdimena
  \vbox to 0pt{%
    \hbox to \trimwidth{%
      \llap{\vrule height .5pt width .75pc}\hfil
      \rlap{\vrule height .5pt width .75pc}}%
    \vss}
  \vskip -\tdimena
  \nointerlineskip}

\setflag \inbackground = \false

\def \zpageheadmargin {%
  \vbox to \headmargin {%
    \hrule height 0pt width \trimwidth
    \nointerlineskip
    \smashbox{%
      \setflag \inbackground = \true
      \zcurback}%
    \nointerlineskip
    \vfil
    \zmakeuprule{\trimwidth}{.5pt}}}

\def \zpagetypearea {%
  \if \evenpagep
    \negate \eveninnermargin
    \advance \eveninnermargin by \trimwidth
    \advance \eveninnermargin by -\evenlefttextmargin
    \advance \eveninnermargin by -\textmeasure
    \advance \eveninnermargin by -\evenrighttextmargin
  \fi
  \moveright \if \oddpagep \oddinnermargin \else \eveninnermargin \fi
  \vbox to \typeareaheight {%
    \zadjtitle = \zadjtitlemark         % \adjusttitle should adjust mark.
    \def \zadjloc {\mark}%
    \zpageheader
    \nointerlineskip
    \ztextandmargins
    \zmakeuprule{\typeareawidth}{.5pt}%
    \vss                                % Allows text area height to vary.
    \vbox to \footerheight{%
      \vss
      \zpagefooter}}}

\def \zpageheader {%
  \vbox to \headerheight {%
    \hsize = \typeareawidth
    \zoutputbeginblack
    \zcurheader
    \zoutputendblack
    \vfil
    \zmakeuprule{\typeareawidth}{.5pt}}}

\def \ztextandmargins {%
  \hbox to \typeareawidth {%
    \if \notp{\zusetypewidth}%
      \hbox to \thislefttextmargin{\hss}%
    \fi
    \vbox{%
      \boxmaxdepth = \maxdepth
      \if \andp{\zusetypewidth}{\notp{\zonetontype}}%
        \moveright \thislefttextmargin
      \fi
      \box\zonetonbox
      \nointerlineskip
      \vbox{\box\zbodybox}}%
    \hss}}

\def \zpagefooter {%
  \hsize = \typeareawidth
  \zoutputbeginblack
  \zcurfooter
  \zoutputendblack
  \if \PDFhyperlinks \PDFmark{P:\folio}\fi}

% This macro invokes the page overlay after positioning to the
% upper-left corner of the trim.

\def \zpageoverlay {%
  \vbox to 0pt{%
    \offinterlineskip
    \kern -\trimheight
    \name{\pageoverlay\the\zoverlay}%
    \vss}}

\def \zmakeuprule #1#2{%                                {width}{height}
  \if \DVIWindoinuse
    \colorspecial{ifview color push rgb 0 1 0}%
    \tdimena = #1\tcounta = \tdimena
    \tdimena = #2\tcountb = \tdimena
    \special{viewrule: \the\tcounta\space \the\tcountb}%
    \colorspecial{ifview color pop}%
  \fi}