% 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.4.3.1, p. I-239. % Original source in file "vboxes1.TEX", starting line 1639. \wlog{L: "setstrut.tip" ["vboxes1.TEX," l. 1639, p. I-239]}% % This file DOES belong to format "texip." \catcode`\@ = 11 \newdimen\@StrutBaseDimension \newdimen\@StrutSkipTemp \def\ComputeStrut{% \@StrutBaseDimension = \baselineskip \ifdim\baselineskip < 0pt \errhelp = {You probably called \string\offinterlineskip before \string\ComputeStrut} \errmessage{\string\ComputeStrut: negative \string\baselineskip (\the\baselineskip)}% \fi } \def\MyStrut{% \vrule height 0.7\@StrutBaseDimension depth 0.3\@StrutBaseDimension width 0pt } \def\HigherStrut #1{% \@StrutSkipTemp = 0.7\@StrutBaseDimension \advance\@StrutSkipTemp by #1% \vrule height \@StrutSkipTemp depth 0.3\@StrutBaseDimension width 0pt } \def\DeeperStrut #1{% \@StrutSkipTemp = 0.3\@StrutBaseDimension \advance\@StrutSkipTemp by #1% \vrule height 0.7\@StrutBaseDimension depth \@StrutSkipTemp width 0pt } \ComputeStrut \catcode`\@ = 12