% 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 7.5.5, p. I-249. % Original source in file "vboxes1.TEX", starting line 2107. \wlog{L: "vcentx.tip" ["vboxes1.TEX," l. 2107, p. I-249]}% % This file DOES belong to format "texip." \catcode`\@ = 11 \newbox\@VcenterXBox \newdimen\@VcenterDimen \def\VcenterX{% \hbox\bgroup \mathsurround = 0pt \futurelet\@VCenterXToken\@VCenterXA } \def\@VCenterXA{% \ifx\@VCenterXToken\bgroup \let\@VcenterXNext = \@VcenterXOrdinary \else \ifx\@VCenterXToken t% \let\@VcenterXNext = \@VcenterXTo \else \let\@VcenterXNext = \@VcenterXSpread \fi \fi \@VcenterXNext } \def\@VcenterXOrdinary{% \def\@VcenterCommand{\vcenter}% \afterassignment\@VcenterXB \let\@VcenterDrop = } \def\@VcenterXTo to{% \def\@VcenterCommand{to}% \afterassignment\@VcenterXToSpread \@VcenterDimen = } \def\@VcenterXSpread spread{% \def\@VcenterCommand{spread}% \afterassignment\@VcenterXToSpread \@VcenterDimen = } \def\@VcenterXToSpread{% \edef\@VcenterCommand{% \vcenter\@VcenterCommand \the\@VcenterDimen }% \afterassignment\@VcenterXB \let\@VcenterDrop = } \def\@VcenterXB{% \setbox\@VcenterXBox = \hbox\bgroup $% \@VcenterCommand\bgroup \aftergroup\@VcenterXC } \def\@VcenterXC{% $% \egroup \box\@VcenterXBox \egroup } \catcode`\@ = 12