% 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