diff options
Diffstat (limited to 'info/examples/tex-in-practice/ts-enum.tip')
-rw-r--r-- | info/examples/tex-in-practice/ts-enum.tip | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ts-enum.tip b/info/examples/tex-in-practice/ts-enum.tip new file mode 100644 index 0000000000..7bdfa97789 --- /dev/null +++ b/info/examples/tex-in-practice/ts-enum.tip @@ -0,0 +1,69 @@ +% 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 11.3.2, p. II-75. +% Original source in file "par2.TEX", starting line 1351. +\wlog{L: "ts-enum.tip" ["par2.TEX," l. 1351, p. II-75]}% +% This file DOES belong to format "texip." +\InputD{enumlist.tip} +\InputD{ts-fonts.tip} +\InputD{widestc.tip} +\catcode`\@ = 11 +\newdimen\@WidthLevelOneLabels +\FindWidestChar{\@WidthLevelOneLabels}{\normalsize\rm}% + {`\0}{`\9} +\setbox 0 = \hbox{.\hskip 1em} +\advance\@WidthLevelOneLabels by \wd0 +\def\@BeginEnumerateLevelOne{% + \BeginAList{\@WidthLevelOneLabels}{0pt}{1em}% + {12pt}{0pt}% + {0pt}{15pt}% +} +\newdimen\@WidthLevelTwoLabels +\FindWidestChar{\@WidthLevelTwoLabels}{\normalsize\rm}% + {`\a}{`\j} +\setbox 0 = \hbox{()\hskip 1em} +\advance\@WidthLevelTwoLabels by \wd0 +\def\@BeginEnumerateLevelTwo{% + \BeginAList{\@WidthLevelTwoLabels}{0pt}{10pt}% + {6pt}{0pt}% + {0pt}{15pt}% +} +\newdimen\@WidthLevelThreeLabels +\setbox 0 = \hbox{viii.\hskip 1em} +\@WidthLevelThreeLabels = \wd0 +\def\@BeginEnumerateLevelThree{% + \BeginAList{\@WidthLevelThreeLabels}{0pt}{10pt}% + {6pt}{0pt}% + {0pt}{15pt}% +} +\newdimen\@WidthLevelFourLabels +\FindWidestChar{\@WidthLevelFourLabels}{\normalsize\rm}% + {`\A}{`\J} +\setbox0 = \hbox{()\hskip 1em} +\advance\@WidthLevelFourLabels by \wd0 +\def\@BeginEnumerateLevelFour{% + \BeginAList{\@WidthLevelFourLabels}{0pt}{10pt}% + {6pt}{0pt}% + {0pt}{15pt}% +} +\def\EnumerateLevelOneExtended{% + \par + \FindWidestChar{\@WidthLevelOneLabels}{\normalsize\rm}% + {`\0}{`\9} + \multiply\@WidthLevelOneLabels by 2 + \setbox 0 = \hbox{.\hskip 1em}% + \advance\@WidthLevelOneLabels by \wd0 +} +\catcode`\@ = 12 |