summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/ola-comm.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/ola-comm.tip')
-rw-r--r--info/examples/tex-in-practice/ola-comm.tip75
1 files changed, 75 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ola-comm.tip b/info/examples/tex-in-practice/ola-comm.tip
new file mode 100644
index 0000000000..2f5ea1014f
--- /dev/null
+++ b/info/examples/tex-in-practice/ola-comm.tip
@@ -0,0 +1,75 @@
+% 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 36.2.3, p. IV-139.
+% Original source in file "o3.TEX", starting line 321.
+\wlog{L: "ola-comm.tip" ["o3.TEX," l. 321, p. IV-139]}%
+% This file DOES NOT belong to format "texip."
+\InputD{box-mac.tip}
+\topskip = 10pt
+\vsize = 6.0in
+\newdimen\LeftPageShift
+\LeftPageShift = 0.25in
+\newdimen\RightPageShift
+\RightPageShift= -0.25in
+\hsize = 24pc
+
+\newdimen\PageWidth
+\PageWidth = 29pc
+
+\newdimen\DiffWidth
+\DiffWidth = \PageWidth
+\advance\DiffWidth by -\hsize
+\def\PageLine{\hbox to \PageWidth}
+\def\SetHeader #1{
+ \def\RightHeader {\PageLine{\it\hfil #1}}
+ \def\LeftHeader {\PageLine{\it #1\hfil}}
+}
+\SetHeader{Some Header}
+\def\SetFooter #1{
+ \def\RightFooter {%
+ \PageLine{%
+ \hfil
+ \it #1%
+ \hskip 0.5in
+ \bf \the\pageno
+ }%
+ }
+ \def\LeftFooter {%
+ \PageLine{%
+ \bf \the\pageno
+ \hskip 0.5in
+ \it #1%
+ \hfil
+ }%
+ }
+}
+\SetFooter{Some Footer}
+\newinsert\FigureIns
+\count\FigureIns = 1000
+\dimen\FigureIns = \vsize
+\skip\FigureIns = 12pt
+\def\PrepareFigureBoxes #1#2#3{%
+ \setbox 0 = \VboxR to #2{
+ \vfil
+ \centerline{\tt Figure~#1}
+ \vfil
+ }
+ \setbox 1 = \VboxR{
+ \hsize = \DiffWidth
+ \raggedright
+ \noindent
+ \strut #3
+ }
+}