%%

%% This is file `ltxgrid.sty',

%% generated with the docstrip utility.

%%

%% The original source files were:

%%

%% ltxgrid.dtx  (with options: `ltxgrid,ltxgrid-krn')

%% 

%% This is a generated file;

%% altering it directly is inadvisable;

%% instead, modify the original source file.

%% See the URL in the file 00readme.txt.

%% 

%% Copyright notice.

%% 

%%    These files are distributed

%%    WITHOUT ANY WARRANTY; without even the implied warranty of

%%    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

%% 

%%%  @LaTeX-file{

%%%     filename        = "ltxgrid.dtx",

%%%     version         = "1.0rc5",

%%%     date            = "2001/07/26",

%%%     time            = "12:23:00 GMT+8",

%%%     checksum        = "4234",

%%%     author          = "Arthur Ogawa (mailto:ogawa@teleport.com),

%%%                        commissioned by the American Physical Society.

%%%                        ",

%%%     copyright       = "Copyright (C) 1999, 2000 Arthur Ogawa,

%%%                        distributed under the terms of the

%%%                        LaTeX Project Public License, see

%%%                        ftp://ctan.tug.org/macros/latex/base/lppl.txt

%%%                        ",

%%%     address         = "Arthur Ogawa,

%%%                        USA",

%%%     telephone       = "",

%%%     FAX             = "",

%%%     email           = "ogawa@teleport.com",

%%%     codetable       = "ISO/ASCII",

%%%     keywords        = "latex, page grid, main vertical list",

%%%     supported       = "yes",

%%%     abstract        = "package to change page grid, MVL",

%%%     docstring       = "The checksum field above generated by ltxdoc",

%%%  }

\NeedsTeXFormat{LaTeX2e}[1995/12/01]%

\ProvidesFile{ltxgrid.sty}%

 [2001/07/26 1.0rc5 page grid package]% \fileversion

\def\package@name{ltxgrid}%

\expandafter\PackageInfo\expandafter{\package@name}{%

 Page grid for \protect\LaTeXe,

 by A. Ogawa (ogawa@teleport.com)%

}%

\RequirePackage{ltxutil}%

\typeout{%

 ltxgrid: portions licensed from W. E. Baxter (web@superscript.com)%

}%

\newcounter{linecount}

\def\lineloop#1{%

 \loop

 \ifnum\c@linecount<#1\relax

  \global\advance\c@linecount\@ne

  \par

  \hb@xt@\hsize{%

   \ifnum\c@linecount<100 0\fi\ifnum\c@linecount<10 0\fi\number\c@linecount

   \vrule depth2.5\p@

   \leaders\hrule\hfil

  }%

  \penalty\interlinepenalty

 \repeat

}%

\let\@@mark\mark

\let\@@topmark\topmark

\let\@@firstmark\firstmark

\let\@@botmark\botmark

\let\@@splitfirstmark\splitfirstmark

\let\@@splitbotmark\splitbotmark

\def\@themark{{}{}{}{}}%

\def\nul@mark{{}{}{}{}\@@nul}%

\def\set@mark@netw@#1#2#3#4#5#6#7{\gdef#1{{#6}{#7}{#4}{#5}}\do@mark}%

\def\set@marktw@#1#2#3#4#5#6{\gdef#1{{#2}{#6}{#4}{#5}}\do@mark}%

\def\set@markthr@@#1#2#3#4#5#6{\gdef#1{{#2}{#3}{#6}{#5}}\do@mark}%

\def\get@mark@@ne#1#2#3#4#5\@@nul{#1}%

\def\get@mark@tw@#1#2#3#4#5\@@nul{#2}%

\def\get@mark@thr@@#1#2#3#4#5\@@nul{#3}%

\def\get@mark@f@ur#1#2#3#4#5\@@nul{#4}%

\def\mark@netw@{\expandafter\set@mark@netw@\expandafter\@themark\@themark}%

\def\marktw@{\expandafter\set@marktw@\expandafter\@themark\@themark}%

\def\markthr@@{\expandafter\set@markthr@@\expandafter\@themark\@themark}%

\def\do@mark{\do@@mark\@themark\nobreak@mark}%

\def\do@@mark#1{%

 \begingroup

  \let@mark

  \@@mark{#1}%

 \endgroup

}%

\def\let@mark{%

 \let\protect\@unexpandable@protect

 \let\label\relax

 \let\index\relax

 \let\glossary\relax

}%

\def\nobreak@mark{%

 \@if@sw\if@nobreak\fi{\@ifvmode{\nobreak}{}}{}%

}%

\def\mark@envir{\markthr@@}%

\def\bot@envir{%

 \expandafter\expandafter

 \expandafter\get@mark@thr@@

 \expandafter\@@botmark

             \nul@mark

}%

\def\markboth{\mark@netw@}%

\def\markright{\marktw@}%

\def\leftmark{%

 \expandafter\expandafter

 \expandafter\get@mark@@ne

 \expandafter\saved@@botmark

             \nul@mark

}%

\def\rightmark{%

 \expandafter\expandafter

 \expandafter\get@mark@tw@

 \expandafter\saved@@firstmark

             \nul@mark

}%

\let\primitive@output\output

\long\def\@tempa#1\@@nil{#1}%

\toks@

\expandafter\expandafter

\expandafter{%

\expandafter \@tempa

             \the\output

             \@@nil

             }%

\newtoks\output

\output\expandafter{\the\toks@}%

\primitive@output{\dispatch@output}%

\def\dispatch@output{%

 \let\par\@@par

 \expandafter\let\expandafter\@tempa\csname output@\the\outputpenalty\endcsname

 \outputdebug@sw{%

  \saythe\badness

  \saythe\outputpenalty

  \saythe\holdinginserts

  \say\thepagegrid

  \saythe\pagegrid@col

  \saythe\pagegrid@cur

 %\say\bot@envir

  \saythe\insertpenalties

 %\say\@@topmark

 %\say\saved@@topmark

 %\say\@@firstmark

 %\say\saved@@firstmark

  \say\@@botmark

 %\say\saved@@botmark

  \saythe\pagegoal

  \saythe\pagetotal

  \saythe{\badness\@cclv}%

  \expandafter\@ifx\expandafter{\csname output@-\the\execute@message@pen\endcsname\@tempa}{%

   \say\@message@saved

  }{%

   \expandafter\say\csname output@\the\outputpenalty\endcsname

  }%

  \say\@toplist

  \say\@botlist

  \say\@dbltoplist

  \say\@deferlist

  {\tracingall\scrollmode

   \showbox\@cclv

   \showbox\@cclv@saved

   \showbox\pagesofar

   \showbox\footbox

   \showbox\footins@saved

   \showbox\footins

   \showlists

  }%

 }{}%

 \@ifnotrelax\@tempa{\@tempa}{\the\output}%

}%

\@ifxundefined{\outputdebug@sw}{%

 \@booleanfalse\outputdebug@sw

}{}%

\output={\toggle@insert\output@holding\output@moving}%

\def\output@holding{%

\csname output@init@\bot@envir\endcsname

\@if@exceed@pagegoal{\unvcopy\@cclv}{%

  \setbox\z@\vbox{\unvcopy\@cclv}%

\outputdebug@sw{{\tracingall\scrollmode\showbox\z@}}{}%

\dimen@\ht\@cclv\advance\dimen@-\ht\z@

\dead@cycle@repair\dimen@

}{%

\dead@cycle

}%

}%

\def\@if@exceed@pagegoal#1{%

 \begingroup

  \setbox\z@\vbox{#1}%

 \dimen@\ht\z@\advance\dimen@\dp\z@

  \outputdebug@sw{\saythe\dimen@}{}%

  \@ifdim{\dimen@>\pagegoal}{%

  \setbox\z@\vbox{\@@mark{}\unvbox\z@}%

   \splittopskip\topskip

   \splitmaxdepth\maxdepth

   \vbadness\@M

   \vfuzz\maxdimen

   \setbox\tw@\vsplit\z@ to\pagegoal

  \outputdebug@sw{{\tracingall\scrollmode\showbox\tw@\showbox\z@}}{}%

  \setbox\tw@\vbox{\unvbox\tw@}%

  \@ifdim{\ht\tw@=\z@}{%

   \ltxgrid@info{Found overly large chunk while preparing to move insertions. Attempting repairs}%

    \aftergroup\true@sw

  }{%

    \aftergroup\false@sw

  }%

 }{%

 \aftergroup\false@sw

 }%

\endgroup

}%

%% \item

%%  Put down the same interrupts as for the non-trivial case above.

\def\output@moving{%

 \set@top@firstmark

 \@ifnum{\outputpenalty=\do@newpage@pen}{%

  \setbox\@cclv\vbox{%

   \unvbox\@cclv

   \setbox\z@\lastbox

   \@ifdim{\ht\z@=\ht\@protection@box}{\box\lastbox}{\unskip}%

  }%

 }{}%

 \@cclv@nontrivial@sw{%

  \csname output@prep@\bot@envir \endcsname

  \@makecol\csname output@column@\thepagegrid\endcsname

  \protect@penalty\do@startcolumn@pen

  \clearpage@sw{%

   \protect@penalty\do@endpage@pen

  }{}%

  \csname output@post@\bot@envir \endcsname

 }{%

  {\setbox\z@\box\@cclv}%

 }%

 \set@colroom

 \global\@mparbottom\z@

 \global\@textfloatsheight\z@ %FIXME: this legacy LaTeX variable is set, but never queried!

}%

\def\@cclv@nontrivial@sw{%

\@ifx@empty\@toplist{%

\@ifx@empty\@botlist{%

\@ifvoid\footins{%

 \@ifvoid\@cclv{%

  \false@sw

 }{%

\setbox\z@\vbox{\unvcopy\@cclv}%

\@ifdim{\ht\z@=\topskip}{%

\setbox\z@\vbox{%

\unvbox\z@

\setbox\z@\lastbox\dimen@\lastskip\unskip

\@ifdim{\ht\z@=\ht\@protection@box}{%

\advance\dimen@\ht\z@

\@ifdim{\dimen@=\topskip}{%

\aftergroup\true@sw

}{%

\aftergroup\false@sw

}%

}{%

\aftergroup\false@sw

}%

}%

{%

\false@sw % Normal for \clearpage

}{%

\true@sw

}%

}{%

\@ifdim{\ht\z@=\z@}{%

\ltxgrid@info{Found trivial column. Discarding it}%

\outputdebug@sw{{\tracingall\scrollmode\showbox\@cclv}}{}%

\false@sw

}{%

\true@sw

}%

}%

 }%

}{%

\true@sw

}%

}{%

\true@sw

}%

}{%

\true@sw

}%

}%

\def\protect@penalty#1{\protection@box\penalty-#1\relax}%

\newbox\@protection@box

\setbox\@protection@box\vbox to1986sp{\vfil}%

\def\protection@box{\nointerlineskip\copy\@protection@box}%

\def\dead@cycle@repair#1{%

\expandafter\do@@mark

\expandafter{%

\@@botmark

}%

\unvbox\@cclv

\nointerlineskip

\vbox to#1{\vss}%

\@ifnum{\outputpenalty<\@M}{\penalty\outputpenalty}{}%

}%

\def\dead@cycle@repair@protected#1{%

\expandafter\do@@mark

\expandafter{%

\@@botmark

}%

\begingroup

  \unvbox\@cclv

  \setbox\z@\lastbox % Remove protection box

 \nointerlineskip

  \advance#1-\ht\@protection@box

 \vbox to#1{\vss}%

  \protection@box % Reinsert protection box

 \@ifnum{\outputpenalty<\@M}{\penalty\outputpenalty}{}%

\endgroup

}%

\def\dead@cycle{%

 \expandafter\do@@mark

 \expandafter{%

              \@@botmark

             }%

 \unvbox\@cclv

 \@ifnum{\outputpenalty<\@M}{\penalty\outputpenalty}{}%

}%

\def\output@init@document{%

 \@ifvoid\footbox{}{%

  \global\advance\vsize-\ht\footbox

  \global\advance\vsize-\dp\footbox

 }%

}%

\def\output@prep@document{%

 \@ifvoid\footbox{}{%

  \setbox\footins\vbox{\unvbox\footbox\unvbox\footins}%

 }%

}%

\def\output@post@document{}%

\let\@opcol\@undefined

\def\@makecol{%

 \setbox\@outputbox\vbox{%

  \boxmaxdepth\@maxdepth

  \@tempdima\dp\@cclv

  \unvbox\@cclv

  \vskip-\@tempdima

 }%

 \xdef\@freelist{\@freelist\@midlist}\global\let\@midlist\@empty

 \@combinefloats

 \@combineinserts\@outputbox\footins

  \set@adj@colht\dimen@

  \count@\vbadness

  \vbadness\@M

  \setbox\@outputbox\vbox to\dimen@{%

   \@texttop

   \dimen@\dp\@outputbox

   \unvbox\@outputbox

   \vskip-\dimen@

   \@textbottom

  }%

  \vbadness\count@

 \global\maxdepth\@maxdepth

}%

\let\@makespecialcolbox\@undefined

\def\@combineinserts#1#2{%

 \setbox#1\vbox{%

  \unvbox#1%

  \vbox{%

   \@ifvoid#2{}{%

    \vskip\skip\footins

    \color@begingroup

    \normalcolor

    \footnoterule

    \nointerlineskip

    \box#2%

    \color@endgroup

   }{}%

  }%

 }%

}%

\appdef\@floatplacement{%

 \global\@fpmin\@fpmin

}%

\mathchardef\pagebreak@pen=\@M

\expandafter\let\csname output@-\the\pagebreak@pen\endcsname\relax

\mathchardef\do@startcolumn@pen=10005

\@namedef{output@-\the\do@startcolumn@pen}{\do@startcolumn}%

\def\do@startcolumn{%

 \setbox\@cclv\vbox{\unvbox\@cclv\setbox\z@\lastbox\unskip}%

 \clearpage@sw{\@clearfloatplacement}{\@floatplacement}%

 \set@colroom

 \@booleanfalse\pfloat@avail@sw

 \begingroup

  \@colht\@colroom

  \@booleanfalse\float@avail@sw

  \@tryfcolumn\test@colfloat

  \float@avail@sw{\aftergroup\@booleantrue\aftergroup\pfloat@avail@sw}{}%

 \endgroup

 \fcolmade@sw{%

  \setbox\@cclv\vbox{\unvbox\@outputbox\unvbox\@cclv}%

  \outputpenalty-\pagebreak@pen % ask for a return visit, this time with insertions and all.

  \dead@cycle

 }{%

  \begingroup

   \let\@elt\@scolelt

   \let\reserved@b\@deferlist\global\let\@deferlist\@empty\reserved@b

  \endgroup

  \clearpage@sw{%

   \outputpenalty\@M

  }{%

   \outputpenalty\do@newpage@pen

  }%

  \dead@cycle

 }%

 \check@deferlist@stuck\do@startcolumn

 \set@vsize

}%

\def\@scolelt#1{\def\@currbox{#1}\@addtonextcol}%

\def\test@colfloat#1{%

 \csname @floatselect@sw@\thepagegrid\endcsname#1{}{\@testtrue}%

 \@if@sw\if@test\fi{}{\aftergroup\@booleantrue\aftergroup\float@avail@sw}%

}%

\def\@addtonextcol{%

 \begingroup

  \@insertfalse

  \@setfloattypecounts

  \csname @floatselect@sw@\thepagegrid\endcsname\@currbox{%

   \@ifnum{\@fpstype=8 }{}{%

     \@ifnum{\@fpstype=24 }{}{%

       \@flsettextmin

       \@reqcolroom \ht\@currbox

       \advance \@reqcolroom \@textmin

       \advance \@reqcolroom \vsize % take into account split insertions

       \advance \@reqcolroom -\pagegoal

       \@ifdim{\@colroom>\@reqcolroom}{%

         \@flsetnum \@colnum

         \@ifnum{\@colnum>\z@}{%

            \@bitor\@currtype\@deferlist

            \@if@sw\if@test\fi{}{%

              \@addtotoporbot

            }%

         }{}%

       }{}%

     }%

   }%

  }{}%

  \@if@sw\if@insert\fi{}{%

    \@cons\@deferlist\@currbox

  }%

 \endgroup

}%

\mathchardef\do@startpage@pen=10006

\@namedef{output@-\the\do@startpage@pen}{\do@startpage}%

\def\do@startpage{%

 \setbox\@cclv\vbox{\unvbox\@cclv\setbox\z@\lastbox\unskip}%

 \clearpage@sw{\@clearfloatplacement}{\@dblfloatplacement}%

 \set@colht

 \@booleanfalse\pfloat@avail@sw

 \begingroup

  \@booleanfalse\float@avail@sw

  \@tryfcolumn\test@dblfloat

  \float@avail@sw{\aftergroup\@booleantrue\aftergroup\pfloat@avail@sw}{}%

 \endgroup

 \fcolmade@sw{%

  \global\setbox\pagesofar\vbox{\unvbox\pagesofar\unvbox\@outputbox}%

  \@combinepage

  \@combinedblfloats

  \@outputpage

  \global\pagegrid@cur\@ne

  \protect@penalty\do@startpage@pen

 }{%

  \begingroup

   \@booleanfalse\float@avail@sw

   \let\@elt\@sdblcolelt

   \let\reserved@b\@deferlist\global\let\@deferlist\@empty\reserved@b

  \endgroup

  \@ifdim{\@colht=\textheight}{% No luck...

   \pfloat@avail@sw{% ...but a float *was* available!

    \forcefloats@sw{%

     \ltxgrid@warn{Forced dequeueing of floats stalled}%

    }{%

     \ltxgrid@warn{Dequeueing of floats stalled}%

    }%

   }{}%

  }{}%

  \outputpenalty\@M

  \dead@cycle

 }%

 \check@deferlist@stuck\do@startpage

 \set@colht

}%

\def\@sdblcolelt#1{\def\@currbox{#1}\@addtodblcol}%

\def\test@dblfloat#1{%

 \@if@notdblfloat{#1}{\@testtrue}{}%

 \@if@sw\if@test\fi{}{\aftergroup\@booleantrue\aftergroup\float@avail@sw}%

}%

\def\@if@notdblfloat#1{\@ifdim{\wd#1<\textwidth}}%

\@booleanfalse\forcefloats@sw

\def\@addtodblcol{%

 \begingroup

  \@if@notdblfloat{\@currbox}{%

   \false@sw

  }{%

   \@setfloattypecounts

   \@getfpsbit \tw@

   \@bitor \@currtype \@deferlist

   \@if@sw\if@test\fi{%

    \false@sw

   }{%

    \@ifodd\@tempcnta{%

     \aftergroup\@booleantrue\aftergroup\float@avail@sw

     \@flsetnum \@dbltopnum

     \@ifnum{\@dbltopnum>\z@}{%

       \@ifdim{\@dbltoproom>\ht\@currbox}{%

        \true@sw

       }{%

        \@ifnum{\@fpstype<\sixt@@n}{%

         \begingroup

          \advance \@dbltoproom \@textmin

          \@ifdim{\@dbltoproom>\ht\@currbox}{%

           \endgroup\true@sw

          }{%

           \endgroup\false@sw

          }%

        }{%

         \false@sw