% This macro source file is from the four volume series % "TeX in Practice" by Stephan von Bechtolsheim, published % 1993 by Springer-Verlag, New York. % Copyright 1993 Stephan von Bechtolsheim. % No warranty or liability is assumed. % This macro may be copied freely if no fees other than % media cost or shipping charges are charged and as long % as this copyright and the following source code itself % is not changed. Please see the series for further information. % % Version: 1.0 % Date: May 1, 1993 % % % This source code is documented in 36.2.5, p. IV-145. % Original source in file "o3.TEX", starting line 660. \wlog{L: "ola-1p.tip" ["o3.TEX," l. 660, p. IV-145]}% % This file DOES NOT belong to format "texip." \InputD{shboxes.tip} \catcode`\@ = 11 \newbox\InsertOtherBox \def\FBOnePass #1#2#3{% \PrepareFigureBoxes{#1}{#2}{#3} \setbox\InsertOtherBox = \vbox{% \offinterlineskip \unvbox\InsertOtherBox \penalty 0 \hbox{% \valign{% ##\vfil \cr \copy 0\cr \copy 1\cr }% } } \insert\FigureIns{% \hbox{% \valign{% ##\vfil \cr \copy 1\cr \copy 0\cr }% } } } \def\OutCaptionGameOnePass{% \setbox0 = \box\voidb@x \ifodd\pageno \dimen0 = 0pt \let\Header = \RightHeader \let\Footer = \RightFooter \ifvoid\FigureIns \else \dimen1 = \ht\FigureIns \setbox1 = \box\FigureIns \setbox0 = \vsplit\InsertOtherBox to \dimen1 \fi \else \dimen0 = \DiffWidth \let\Header = \LeftHeader \let\Footer = \LeftFooter \ifvoid\FigureIns \else \dimen1 = \ht\FigureIns \setbox1 = \vsplit\InsertOtherBox to \dimen1 \setbox0 = \box\FigureIns \fi \fi \shipout\vbox{% \hrule height 1pt \vskip 5pt \Header \vskip 12pt \ifvoid 0 \else \box 0 \vskip\skip\FigureIns \fi \moveright\dimen0 \BoxR 255 \vskip 12pt \Footer } \global\advance\pageno by 1 \ifnum\outputpenalty > -20000 \else \dosupereject \fi } \catcode`\@ = 12