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/ts-shead.tip | 83 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 83 insertions(+) create mode 100644 info/examples/tip/ts-shead.tip (limited to 'info/examples/tip/ts-shead.tip') diff --git a/info/examples/tip/ts-shead.tip b/info/examples/tip/ts-shead.tip new file mode 100644 index 0000000000..97904c01bb --- /dev/null +++ b/info/examples/tip/ts-shead.tip @@ -0,0 +1,83 @@ +% 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 31.2.9, p. III-604. +% Original source in file "pp2.TEX", starting line 940. +\wlog{L: "ts-shead.tip" ["pp2.TEX," l. 940, p. III-604]}% +% This file DOES belong to format "texip." +\InputD{genhead.tip} +\InputD{compst.tip} +\InputD{dblarg.tip} +\catcode`\@ = 11 +\NewCounter{SectionNo}{\arabic}% + {\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}% + {\PrintCounter{ChapterNo}.\TheCounter{SectionNo}}% +\NewCounter{SubSectionNo}{\arabic}% + {\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}% + {\PrintCounter{SectionNo}.\TheCounter{SubSectionNo}}% +\NewCounter{SubSubSectionNo}{\arabic}% + {\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}% + {\PrintCounter{SubSectionNo}.\TheCounter{SubSubSectionNo}}% +\NewCounter{CloseByReferenceCount}{\arabic}% + {\PrintCounter{CloseByReferenceCount}}% + {\PrintCounter{CloseByReferenceCount}}% +\AddCounterToResetList{SectionNo}{ChapterNo}% +\AddCounterToResetList{SubSectionNo}{SectionNo}% +\AddCounterToResetList{SubSubSectionNo}{SubSectionNo}% +\def\Section{\DblArg{\@Section}}% +\def\@Section [#1]#2{% + \StepCounter{SectionNo}% + \def\Label ##1{\@Label{##1}{\RefCounter{SectionNo}}{1}}% + \GenericHeading{2}{36pt plus 10pt minus 2pt}% + {1}{1}{1}{24pt}{0}% + {\Large\baselineskip = 15pt}{-13pt}% + {\PrintCounter{SectionNo}}{#2}{#1}% + \gdef\EveryParB{% + {% + \@MakeRobustMacros + \def\LineBreakToc{ }% + \def\LineBreakHeading{ }% + \def\IgnoreInRunningHead ####1{% + \relax$\ldots$% + }% + \mark{#2}% + }% + }% +} +\def\SubSection{\DblArg{\@SubSection}}% +\def\@SubSection [#1]#2{% + \StepCounter{SubSectionNo}% + \def\Label ##1{\@Label{##1}{\RefCounter{SubSectionNo}}{1}}% + \GenericHeading{3}{30pt plus 8pt minus 2pt}% + {1}{1}{1}{18pt}{0}% + {\large\baselineskip = 14pt}{-12pt}% + {\PrintCounter{SubSectionNo}}{#2}{#1}% +} +\def\SubSubSection{\DblArg{\@SubSubSection}}% +\def\@SubSubSection [#1]#2{% + \ifnum\TheCounter{SubSectionNo} = 0 + \errhelp = {The reason is probably that \string\Section + occurred directly followed by \string\SubSubSection + (that is you forgot a \string\SubSection in between).}% + \errmessage{\string\@SubSubSection: Counter "SubSectionNo" + is zero.}% + \fi + \StepCounter{SubSubSectionNo}% + \def\Label ##1{\@Label{##1}{\RefCounter{SubSubSectionNo}}{1}}% + \GenericHeading{4}{24pt plus 6pt minus 1pt}% + {1}{1}{1}{18pt}{0}% + {\normalsize}{-10pt}% + {\PrintCounter{SubSubSectionNo}}{#2}{#1}% +} +\catcode`\@ = 12 -- cgit v1.2.3