blob: 97904c01bbfa6ef0e40c6f3a123b2510a1c32da4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
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
|