summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/ola-1p.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/ola-1p.tip')
-rw-r--r--info/examples/tex-in-practice/ola-1p.tip91
1 files changed, 91 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ola-1p.tip b/info/examples/tex-in-practice/ola-1p.tip
new file mode 100644
index 0000000000..223c9d1124
--- /dev/null
+++ b/info/examples/tex-in-practice/ola-1p.tip
@@ -0,0 +1,91 @@
+% 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