summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/boxing7.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/boxing7.tip')
-rw-r--r--info/examples/tex-in-practice/boxing7.tip113
1 files changed, 113 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/boxing7.tip b/info/examples/tex-in-practice/boxing7.tip
new file mode 100644
index 0000000000..a231a4985e
--- /dev/null
+++ b/info/examples/tex-in-practice/boxing7.tip
@@ -0,0 +1,113 @@
+% 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 9.3.9.1, p. I-335.
+% Original source in file "boxit.TEX", starting line 1131.
+\wlog{L: "boxing7.tip" ["boxit.TEX," l. 1131, p. I-335]}%
+% This file DOES belong to format "texip."
+\InputD{boxing6.tip}
+\InputD{vcentx.tip}
+\catcode`\@ = 11
+\newdimen\@BoxRDimen
+\newbox\@BoxRBox
+\newcount\@BoxRNumber
+\def\HboxR{%
+ \hbox\bgroup
+ \def\@WhichBox{\hbox}%
+ \def\@WhichBoxDimen{}%
+ \@BoxRaa
+}
+\def\VboxR{%
+ \vbox\bgroup
+ \def\@WhichBox{\vbox}%
+ \def\@WhichBoxDimen{}%
+ \@BoxRaa
+}
+\def\VtopR{%
+ \vtop\bgroup
+ \def\@WhichBox{\vtop}%
+ \def\@WhichBoxDimen{}%
+ \@BoxRaa
+}
+\def\VcenterXR{%
+ \hbox\bgroup
+ \def\@WhichBox{\VcenterX}%
+ \def\@WhichBoxDimen{}%
+ \@BoxRaa
+}
+\def\BoxR{%
+ \hbox\bgroup
+ \def\@WhichBox{\hbox}%
+ \def\@WhichBoxDimen{}%
+ \afterassignment\@BoxRB
+ \@BoxRNumber =
+}
+\def\@BoxRB{%
+ \HboxR{\box\@BoxRNumber}%
+ \egroup
+}
+\def\CopyR{%
+ \hbox\bgroup
+ \def\@WhichBox{\hbox}%
+ \def\@WhichBoxDimen{}%
+ \afterassignment\@CopyRbb
+ \@BoxRNumber =
+}
+\def\@CopyRbb{%
+ \HboxR{\copy\@BoxRNumber}%
+ \egroup
+}
+\def\@BoxRaa{%
+ \futurelet\@BoxRSymbol\@BoxRA
+}
+\def\@BoxRA{%
+ \ifx\@BoxRSymbol\bgroup
+ \let\@BoxitNext = \@BoxRb
+ \else
+ \if\@BoxRSymbol t%
+ \let\@BoxitNext = \@BoxRbTo
+ \else
+ \let\@BoxitNext = \@BoxRbSpread
+ \fi
+ \fi
+ \@BoxitNext
+}
+\def\@BoxRb{%
+ \afterassignment\@BoxRbTwo
+ \let\@BoxDrop =
+}
+\def\@BoxRbTwo{%
+ \setbox\@BoxRBox = \expandafter\@WhichBox\@WhichBoxDimen\bgroup
+ \aftergroup\@BoxRbThree
+}
+\def\@BoxRbThree{%
+ \BoxingE{\box\@BoxRBox}%
+ \egroup
+}
+\def\@BoxRbTo to{%
+ \def\@WhichBoxDimen{to}%
+ \afterassignment\@BoxRbMoreSpreadTo
+ \@BoxRDimen =
+}
+\def\@BoxRbSpread spread{%
+ \def\@WhichBoxDimen{spread}%
+ \afterassignment\@BoxRbMoreSpreadTo
+ \@BoxRDimen =
+}
+\def\@BoxRbMoreSpreadTo{%
+ \edef\@WhichBoxDimen{\@WhichBoxDimen \the\@BoxRDimen}%
+ \afterassignment\@BoxRbTwo
+ \let\@BoxDrop =
+}
+\catcode`\@ = 12