From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- info/examples/tip/boxing7.tip | 113 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 113 insertions(+) create mode 100644 info/examples/tip/boxing7.tip (limited to 'info/examples/tip/boxing7.tip') diff --git a/info/examples/tip/boxing7.tip b/info/examples/tip/boxing7.tip new file mode 100644 index 0000000000..a231a4985e --- /dev/null +++ b/info/examples/tip/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 -- cgit v1.2.3