tmac.w - tgtimes - The Gopher Times
(HTM) git clone git://bitreich.org/tgtimes git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/tgtimes
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) 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 is over
56 . \}
57 . el \{ .
58 . ch #B \\n(nlu+\\$1 \"enough room before the bottom
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 footnotes
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 more text
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