 |
tmac.w - tgtimes - The Gopher Times |
 |
git clone git://bitreich.org/tgtimes git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
--- |
|
tmac.w (3041B) |
|
--- |
|
1 .de #- \"horizontal ruler |
|
2 . #r |
|
3 . ad c |
|
4 . if \\n(.A=0 \l'\\n($Wu-' |
|
5 . if \\n(.A=1 \l'\\n($Wu_' |
|
6 . #r |
|
7 .. |
|
8 . |
|
9 .de #r \"reset paragraph properties |
|
10 . ps 12p |
|
11 . vs 14p |
|
12 . ft 1 |
|
13 . in 0 |
|
14 . mc |
|
15 . rs |
|
16 . ad b |
|
17 . hy 1 |
|
18 . fi |
|
19 .. |
|
20 . |
|
21 .de #p \"terminate a paragraph |
|
22 . br |
|
23 . #r |
|
24 . it |
|
25 . sp \\$2 |
|
26 . ne 2v |
|
27 .. |
|
28 . |
|
29 .de 2C \"two-column mode, $1 for vertical length of column |
|
30 . sp 0 |
|
31 . #- |
|
32 . if \\n(.A=0 .#2 \\$1 |
|
33 .. |
|
34 . |
|
35 .de 1C |
|
36 . #1 |
|
37 . #- |
|
38 .. |
|
39 . |
|
40 .de #1 \"single-column mode |
|
41 . sp 0 |
|
42 . if \\n($C>1 ' sp \\n(.tu \"run into the trap |
|
43 . ll \\n($Lu |
|
44 . po \\n($Mu |
|
45 . ch #B -\\n($Mu \"bottom trap |
|
46 . nr $C 0 \"1st column begins |
|
47 . #E |
|
48 .. |
|
49 . |
|
50 .de #2 \"two-column mode |
|
51 . mk |
|
52 . ll (\\n($Lu-\\n($Mu)/2u \"decrease line length |
|
53 . ie \\n(nlu+\\$1>\\n(.pu \{ . |
|
54 . ch #B -\\n($Mu \"span over multiple pages |
|
55 . nr $c \\$1-\\n(.tu \"height after the next trap … |
|
56 . \} |
|
57 . el \{ . |
|
58 . ch #B \\n(nlu+\\$1 \"enough room before the bott… |
|
59 . \} |
|
60 . nr $C 1 \"1st column begins |
|
61 .. |
|
62 . |
|
63 .de #B \"bottom of page trap |
|
64 . ie \\n($C=0 \{ . \"no column |
|
65 ' bp |
|
66 ' sp \\n($Mu |
|
67 . ch #B (-\\n($Mu) \"reset bottom trap |
|
68 . \} |
|
69 . el .ie \\n($C=1 \{ . \"1st column ends |
|
70 . nr $C 2 \"2st column begins |
|
71 . po (\\n($Wu+\\n($Mu)/2u |
|
72 . rt |
|
73 . \} |
|
74 . el .if \\n($C=2 \{ . \"2nd column ends |
|
75 . nr $C 1 \"1st column begins |
|
76 . po \\n($Mu |
|
77 . |
|
78 . \"if we are at the bottom of a page |
|
79 . if (\\n(nlu+2v)>(\\n(.pu-\\n($Mu) \{ . |
|
80 ' bp |
|
81 . #2 \\n($cu |
|
82 . \} |
|
83 . \} |
|
84 ' sp \\n($Vu |
|
85 .. |
|
86 . |
|
87 .de #E \"expand footnotes |
|
88 . nf |
|
89 . nh |
|
90 . in 0n |
|
91 . #F \"include acumulated footnotes |
|
92 . rm #F \"flush accumulated footno… |
|
93 . nr $F 0 \"reset footnote number |
|
94 .. |
|
95 . |
|
96 .de #s \"font-size |
|
97 . if \\n(.A=0 \{ . \"smaller font in troff to fit … |
|
98 . ps \\$1 |
|
99 . vs \\$1 |
|
100 . \} |
|
101 .. |
|
102 . |
|
103 .de TL \"title |
|
104 . #r |
|
105 . ps 30p |
|
106 . ft 3 |
|
107 . ad c |
|
108 . po 0u |
|
109 . ll \\n($Wu |
|
110 . sp 3v |
|
111 .. |
|
112 . |
|
113 .de AB \"abstract beginning |
|
114 . if \\n(.A=1 .sp \"if nroff, fix the ruler |
|
115 . #- |
|
116 . #p 4v \\n($Vu |
|
117 . ft 2 |
|
118 . ad c |
|
119 .. |
|
120 . |
|
121 .de AE \"abstract end |
|
122 . #- |
|
123 .. |
|
124 . |
|
125 .de SH \"section heading |
|
126 . #1 |
|
127 . #p 10v \\n($Hu |
|
128 . ne 2v |
|
129 . |
|
130 . ad r |
|
131 \\$1 |
|
132 . ft 3 |
|
133 . ps 16p |
|
134 . vs 17p |
|
135 . sp -1 |
|
136 . ad l |
|
137 .. |
|
138 . |
|
139 .de PP \"paragraph |
|
140 . #p 4v \\n($Vu |
|
141 .. |
|
142 . |
|
143 .de IP \"indented paragraph |
|
144 . #p 4v \\n($Vu |
|
145 . in 2n |
|
146 . ta 2n |
|
147 . ti -2n |
|
148 \fB\\$1 \fR\t\c |
|
149 .. |
|
150 . |
|
151 .de QP \"start quoted paragraph |
|
152 . #p 4v \\n($Vu |
|
153 . in 1n |
|
154 . ti -1n |
|
155 >> |
|
156 .. |
|
157 . |
|
158 .de DS \"start literal "display" paragraph |
|
159 . #p 2v \\n($Vu |
|
160 . ft 5u |
|
161 . cs 5u |
|
162 . #s 9p |
|
163 . in 0n |
|
164 . nf |
|
165 . nh |
|
166 .. |
|
167 . |
|
168 .de DE \"end of literal "display" |
|
169 . sp 0 |
|
170 . #r |
|
171 .. |
|
172 . |
|
173 .de FS \"footnote start |
|
174 . nr $F \\n($Fu+1u |
|
175 [\\n($F] |
|
176 . da #F |
|
177 . ev 1 |
|
178 . ll \\n($Lu |
|
179 . nf |
|
180 . sp 0.5v |
|
181 . ft 5 |
|
182 . #s 8p |
|
183 . |
|
184 . in 2.5n |
|
185 . ti -2.5n |
|
186 \\n($F \c |
|
187 .. |
|
188 . |
|
189 .de FE \"footnote end |
|
190 . #r |
|
191 . ev |
|
192 . di |
|
193 . nr $B (\\n($Bu-\\n(dnu) |
|
194 .. |
|
195 . |
|
196 .if \n(.A=0 .nr $W 6i \"paper width in troff |
|
197 .if \n(.A=1 .nr $W 60m \"paper width in nroff |
|
198 .if \n(.A=0 .pl 9i \"paper height in troff |
|
199 .if \n(.A=1 .pl 900i \"paper height in nroff |
|
200 .if \n(.A=0 .nr $H 2v \"header space in troff |
|
201 .if \n(.A=1 .nr $H 3v \"header space in nroff |
|
202 .if \n(.A=0 .nr $V 0.6v \"half space in troff |
|
203 .if \n(.A=1 .nr $V 1v \"half space in nroff |
|
204 .nr $M 0.3i \"page margins |
|
205 .nr $L \n($Wu-\n($Mu-\n($Mu \"line length |
|
206 .nr $B -\n($Mu |
|
207 . |
|
208 .wh -\n($Mu #B |
