summaryrefslogtreecommitdiff
path: root/info/examples/tip/ts-shead.tip
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