From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- info/examples/tip/orsimple.tip | 104 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100644 info/examples/tip/orsimple.tip (limited to 'info/examples/tip/orsimple.tip') diff --git a/info/examples/tip/orsimple.tip b/info/examples/tip/orsimple.tip new file mode 100644 index 0000000000..a49920d5c2 --- /dev/null +++ b/info/examples/tip/orsimple.tip @@ -0,0 +1,104 @@ +% 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 34.4.1, p. IV-62. +% Original source in file "o1.TEX", starting line 249. +\wlog{L: "orsimple.tip" ["o1.TEX," l. 249, p. IV-62]}% +% This file DOES NOT belong to format "texip." +\InputD{box-mac.tip} +\InputD{pmtime.tip} +\InputD{graphmac.tip} +\newdimen\LeftPageShift \LeftPageShift = -10pt +\newdimen\RightPageShift \RightPageShift= -40pt +\def\HeadLine{% + \ifodd\PageNo + \HboxR to \hsize{% + \strut + \the\month/\the\day/\the\year, \PrintMilTime + \hfil + {\tt\jobname.tip}% + }% + \else + \HboxR to \hsize{% + \strut + {\tt\jobname.tip}% + \hfil + \the\month/\the\day/\the\year, \PrintMilTime + }% + \fi +} +\countdef\ChapNo = 0 +\countdef\PageNo = 1 +\def\FootLine{% + \ifodd\PageNo + \HboxR to \hsize{% + \strut + \hfil + \bf \the\ChapNo--\the\PageNo + }% + \else + \HboxR to \hsize{% + \strut + \bf + \the\ChapNo--\the\PageNo + \hfil + }% + \fi +} +\newbox\CropMarksBox +\setbox\CropMarksBox = \vbox{% + \offinterlineskip + \SetScale{1in} + \SetLineThickness{0.5pt} + \DrawHLine(-0.8,0){0.2} + \DrawVLine(-0.7,-0.1){0.2} + \DrawHLine(3.4,0){0.2} + \DrawVLine(3.5,-0.1){0.2} + \DrawHLine(-0.8,-6.5){0.2} + \DrawVLine(-0.7,-6.6){0.2} + \DrawHLine(3.4,-6.5){0.2} + \DrawVLine(3.5,-6.6){0.2} +} +\ZeroBox{\CropMarksBox} +\def\SimpleOutputRoutine{% + \ifodd\PageNo + \dimen0 = \RightPageShift + \else + \dimen0 = \LeftPageShift + \fi + \shipout\vbox{% + \offinterlineskip + \copy\CropMarksBox + \moveright\dimen0 \vbox{% + \HeadLine + \vskip 12pt + \VboxR to \vsize{% + \unvbox 255 + } + \vskip 12pt + \FootLine + } + } + \global\advance\PageNo by 1 +} +\def\OutputWithRules{% + \output = {\SimpleOutputRoutine}% +} +\def\OutputWithoutRules{ + \output = {% + \EliminateRuledBoxes + \SimpleOutputRoutine + } +} +\OutputWithoutRules -- cgit v1.2.3