summaryrefslogtreecommitdiff
path: root/info/examples/tip/figinpar.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tip/figinpar.tip')
-rw-r--r--info/examples/tip/figinpar.tip59
1 files changed, 0 insertions, 59 deletions
diff --git a/info/examples/tip/figinpar.tip b/info/examples/tip/figinpar.tip
deleted file mode 100644
index 4cc54ae60f..0000000000
--- a/info/examples/tip/figinpar.tip
+++ /dev/null
@@ -1,59 +0,0 @@
-% 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
- }
-}