% 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 12.3.2, p. II-116. % Original source in file "par3.TEX", starting line 558. \wlog{L: "figinpar.tip" ["par3.TEX," l. 558, p. II-116]}% % This file DOES belong to format "texip." \InputD{sumhd.tip} \InputD{box-mac.tip} \InputD{freespac.tip} \def\FigureInPar #1#2#3#4#5{% \par \message{\string\FigureInPar: start}% {% \setbox 0 = \vbox{#1} \OverallSize{\dimen0}{0}% \advance\dimen0 by #2 \advance\dimen0 by #3 \advance\dimen0 by #4 \advance\dimen0 by #4 \advance\dimen0 by \parskip \message{\string\FigureInPar: available space: \the\FreePageSpace}% \setbox 0 = \HboxR{\EmptyBox{#2}{0pt}{\hsize}}% \ifdim\FreeSpaceConditional < \dimen0 \message{\string\FigureInPar: insufficient space: make it a \string\topinsert.}% #1\unskip \space #5% \par \topinsert \box0 \endinsert \else \message{\string\FigureInPar: Sufficient space: put it here.}% #1\unskip \space \vadjust{% \vskip #4 \box0 \vskip #4 }% #5\par \fi } }