summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/ts-shead.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/ts-shead.tip')
-rw-r--r--info/examples/tex-in-practice/ts-shead.tip83
1 files changed, 83 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ts-shead.tip b/info/examples/tex-in-practice/ts-shead.tip
new file mode 100644
index 0000000000..97904c01bb
--- /dev/null
+++ b/info/examples/tex-in-practice/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