1 9847210b 2005-09-13 devnull .\" 10/22/92 activate next line before installing
2 9847210b 2005-09-13 devnull .pi /usr/local/plan9/bin/auxpm
4 9847210b 2005-09-13 devnull . \" IZ - initialization
6 9847210b 2005-09-13 devnull .fp 10 S \" force a font out into prefix
7 9847210b 2005-09-13 devnull .nr PS 10 \" point size
8 9847210b 2005-09-13 devnull .nr VS 12 \" line spacing
9 9847210b 2005-09-13 devnull .ps \\n(PS
10 9847210b 2005-09-13 devnull .ie \\n(VS>=41 .vs \\n(VSu
11 9847210b 2005-09-13 devnull .el .vs \\n(VSp
12 9847210b 2005-09-13 devnull .nr LL 6i \" line length
13 9847210b 2005-09-13 devnull .ll \\n(LLu
14 9847210b 2005-09-13 devnull .nr LT \\n(.l \" title length
15 9847210b 2005-09-13 devnull .lt \\n(LTu
16 9847210b 2005-09-13 devnull .if !\\n(HM .nr HM 1i \" top of page
17 9847210b 2005-09-13 devnull .if !\\n(FM .nr FM 1i \" footer margin
18 9847210b 2005-09-13 devnull .if !\\n(FO .nr FO \\n(.p-\\n(FM \" bottom of page
19 9847210b 2005-09-13 devnull . \" to set text ht to N, set FO to N + \n(HM. default is 10i
20 9847210b 2005-09-13 devnull .pl 32767u \" safety first: big pages for pm
21 9847210b 2005-09-13 devnull .if !\\n(PO .nr PO \\n(.ou \" page offset
22 9847210b 2005-09-13 devnull .nr PI 5n \" .PP paragraph indent
23 9847210b 2005-09-13 devnull .nr QI 5n \" .QS indent
24 9847210b 2005-09-13 devnull .nr DI 5n \" .DS indent
25 9847210b 2005-09-13 devnull .nr PD 0.3v \" paragraph vertical separation
26 9847210b 2005-09-13 devnull .nr TS 0.5v \" space around tables
27 9847210b 2005-09-13 devnull .nr Kf 0.5v \" space around .KF/.KE
28 9847210b 2005-09-13 devnull .nr Ks 0.5v \" space around .KS/.KE
30 9847210b 2005-09-13 devnull .nr P1 .4i \" indent for .P1/.P2
31 9847210b 2005-09-13 devnull .nr dP 1 \" delta point size for programs in .P1/.P2
32 9847210b 2005-09-13 devnull .nr dV 2p \" delta vertical for programs
33 9847210b 2005-09-13 devnull .nr dT 8 \" delta tab stop for programs
34 9847210b 2005-09-13 devnull .nr DV .5v \" space before start of program
35 9847210b 2005-09-13 devnull .nr IP 0 \" ?
36 9847210b 2005-09-13 devnull .nr IR 0 \" ?
37 9847210b 2005-09-13 devnull .nr I1 \\n(PIu
39 9847210b 2005-09-13 devnull .if !\\n(FL .nr FL \\n(LLu \" footnote length
40 9847210b 2005-09-13 devnull .ll \\n(FLu
41 9847210b 2005-09-13 devnull .ps 8 \" text size & leading in footnote
44 9847210b 2005-09-13 devnull .if \\*(CH .ds CH "\(hy \\\\n(PN \(hy
45 9847210b 2005-09-13 devnull .ds # #\\\\n(.c \\\\n(.F
48 9847210b 2005-09-13 devnull .ME \" initialize date strings
50 9847210b 2005-09-13 devnull . \" accents: \*'e \*`e \*:u \*^e \*~n \*va \*,c
51 9847210b 2005-09-13 devnull .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
52 9847210b 2005-09-13 devnull .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
53 9847210b 2005-09-13 devnull .ds : \\v'-0.6m'\\h'(1u-(\\\\n(.fu%2u))*0.13m+0.00m'\\z.\\h'0.2m'\\z.\\h'-((1u-(\\\\n(.fu%2u))*0.13m+0.20m)'\\v'0.6m'
54 9847210b 2005-09-13 devnull .ds ^ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z^\\h'|\\\\n:u'
55 9847210b 2005-09-13 devnull .ds ~ \\\\k:\\h'-\\\\n(.fu+1u/2u*2u+\\\\n(.fu-1u*0.13m+0.06m'\\z~\\h'|\\\\n:u'
56 9847210b 2005-09-13 devnull .ds v \\\\k:\\\\h'+\\\\w'e'u/4u'\\\\v'-0.6m'\\\\s6v\\\\s0\\\\v'0.6m'\\\\h'|\\\\n:u'
57 9847210b 2005-09-13 devnull .ds , \\\\k:\\\\h'\\\\w'c'u*0.4u'\\\\z,\\\\h'|\\\\n:u'
61 9847210b 2005-09-13 devnull . \" SP - generate paddable space
65 9847210b 2005-09-13 devnull .if \\n(.$ .nr X \\$1v
66 9847210b 2005-09-13 devnull .ie '\\$2'exactly' \{\
67 9847210b 2005-09-13 devnull \v'\\nXu'\ \h'-\w'\ 'u'\c
68 9847210b 2005-09-13 devnull .sp \\$1\}
69 9847210b 2005-09-13 devnull .el .X "SP \\nX \\$2"
71 9847210b 2005-09-13 devnull . \" NE - need space on this page
74 9847210b 2005-09-13 devnull .if \\n(.$ .nr X \\$1v
75 9847210b 2005-09-13 devnull .X "NE \\nX \\$2"
77 9847210b 2005-09-13 devnull . \" BP, FL, FC - begin page, flush figures, flush column
80 9847210b 2005-09-13 devnull .X CMD BP
84 9847210b 2005-09-13 devnull .X CMD FL
88 9847210b 2005-09-13 devnull .X CMD FC
90 9847210b 2005-09-13 devnull . \" X - generate an x X ... command in the output
92 9847210b 2005-09-13 devnull ....ie '\\n(.z'' \\!x X \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
93 9847210b 2005-09-13 devnull ....el \\!.X "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
95 9847210b 2005-09-13 devnull .if !'\\n(.z'' .if \\n(.$=1 \\!.X "\\$1
96 9847210b 2005-09-13 devnull .if !'\\n(.z'' .if \\n(.$=2 \\!.X "\\$1 \\$2
97 9847210b 2005-09-13 devnull .if !'\\n(.z'' .if \\n(.$=3 \\!.X "\\$1 \\$2 \\$3
98 9847210b 2005-09-13 devnull .if !'\\n(.z'' .if \\n(.$>3 \\!.X "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
99 9847210b 2005-09-13 devnull .if '\\n(.z'' .if \\n(.$=1 \\!x X \\$1 \\*#
100 9847210b 2005-09-13 devnull .if '\\n(.z'' .if \\n(.$=2 \\!x X \\$1 \\$2 \\*#
101 9847210b 2005-09-13 devnull .if '\\n(.z'' .if \\n(.$=3 \\!x X \\$1 \\$2 \\$3 \\*#
102 9847210b 2005-09-13 devnull .if '\\n(.z'' .if \\n(.$=4 \\!x X \\$1 \\$2 \\$3 \\$4 \\*#
103 9847210b 2005-09-13 devnull .if '\\n(.z'' .if \\n(.$>4 \\!x X \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 \\*#
105 9847210b 2005-09-13 devnull . \" DA - force date
107 9847210b 2005-09-13 devnull .if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
108 9847210b 2005-09-13 devnull .ds CF \\*(DY
110 9847210b 2005-09-13 devnull . \" ND - set new or no date
112 9847210b 2005-09-13 devnull .ds DY \\$1 \\$2 \\$3 \\$4
115 9847210b 2005-09-13 devnull .de ME \" ME - set month strings
116 9847210b 2005-09-13 devnull .if \\n(mo-0 .ds MO January
117 9847210b 2005-09-13 devnull .if \\n(mo-1 .ds MO February
118 9847210b 2005-09-13 devnull .if \\n(mo-2 .ds MO March
119 9847210b 2005-09-13 devnull .if \\n(mo-3 .ds MO April
120 9847210b 2005-09-13 devnull .if \\n(mo-4 .ds MO May
121 9847210b 2005-09-13 devnull .if \\n(mo-5 .ds MO June
122 9847210b 2005-09-13 devnull .if \\n(mo-6 .ds MO July
123 9847210b 2005-09-13 devnull .if \\n(mo-7 .ds MO August
124 9847210b 2005-09-13 devnull .if \\n(mo-8 .ds MO September
125 9847210b 2005-09-13 devnull .if \\n(mo-9 .ds MO October
126 9847210b 2005-09-13 devnull .if \\n(mo-10 .ds MO November
127 9847210b 2005-09-13 devnull .if \\n(mo-11 .ds MO December
128 9847210b 2005-09-13 devnull .if \\n(dw-0 .ds DW Sunday
129 9847210b 2005-09-13 devnull .if \\n(dw-1 .ds DW Monday
130 9847210b 2005-09-13 devnull .if \\n(dw-2 .ds DW Tuesday
131 9847210b 2005-09-13 devnull .if \\n(dw-3 .ds DW Wednesday
132 9847210b 2005-09-13 devnull .if \\n(dw-4 .ds DW Thursday
133 9847210b 2005-09-13 devnull .if \\n(dw-5 .ds DW Friday
134 9847210b 2005-09-13 devnull .if \\n(dw-6 .ds DW Saturday
135 9847210b 2005-09-13 devnull .if "\\*(DY"" .ds DY \\*(MO \\n(dy, 19\\n(yr
137 9847210b 2005-09-13 devnull . \" FP - font position for a family
139 9847210b 2005-09-13 devnull .if '\\$1'palatino'\{\
140 9847210b 2005-09-13 devnull . fp 1 PA
141 9847210b 2005-09-13 devnull . fp 2 PI
142 9847210b 2005-09-13 devnull . fp 3 PB
143 9847210b 2005-09-13 devnull . fp 4 PX\}
144 9847210b 2005-09-13 devnull .if '\\$1'lucidasans'\{\
145 9847210b 2005-09-13 devnull . fp 1 R LucidaSans
146 9847210b 2005-09-13 devnull . fp 2 I LucidaSansI
147 9847210b 2005-09-13 devnull . fp 3 B LucidaSansB
148 9847210b 2005-09-13 devnull . fp 5 CW LucidaCW\}
149 9847210b 2005-09-13 devnull .if '\\$1'century'\{\
150 9847210b 2005-09-13 devnull . ie '\\*(.T'202'\{\
151 9847210b 2005-09-13 devnull . fp 1 NR Centsb
152 9847210b 2005-09-13 devnull . fp 2 NI CentI
153 9847210b 2005-09-13 devnull . fp 3 NB CentB
154 9847210b 2005-09-13 devnull . fp 4 NX CentBI\}
155 9847210b 2005-09-13 devnull . el \{\
156 9847210b 2005-09-13 devnull . fp 1 NR
157 9847210b 2005-09-13 devnull . fp 2 NI
158 9847210b 2005-09-13 devnull . fp 3 NB
159 9847210b 2005-09-13 devnull . fp 4 NX\}\}
160 9847210b 2005-09-13 devnull .if '\\$1'helvetica'\{\
161 9847210b 2005-09-13 devnull . fp 1 H
162 9847210b 2005-09-13 devnull . fp 2 HI
163 9847210b 2005-09-13 devnull . fp 3 HB
164 9847210b 2005-09-13 devnull . fp 4 HX\}
165 9847210b 2005-09-13 devnull .if '\\$1'bembo'\{\
166 9847210b 2005-09-13 devnull . ie '\\*(.T'202'\{\
167 9847210b 2005-09-13 devnull . fp 1 B1 Bembo
168 9847210b 2005-09-13 devnull . fp 2 B2 BemboI
169 9847210b 2005-09-13 devnull . fp 3 B3 BemboB
170 9847210b 2005-09-13 devnull . fp 4 B4 BemboBI\}
171 9847210b 2005-09-13 devnull . el \{\
172 9847210b 2005-09-13 devnull . fp 1 B1
173 9847210b 2005-09-13 devnull . fp 2 B2
174 9847210b 2005-09-13 devnull . fp 3 B3
175 9847210b 2005-09-13 devnull . fp 4 B4\}\}
176 9847210b 2005-09-13 devnull .if '\\$1'optima'\{\
177 9847210b 2005-09-13 devnull . fp 1 R Optima
178 9847210b 2005-09-13 devnull . fp 2 I OptimaI
179 9847210b 2005-09-13 devnull . fp 3 B OptimaB
180 9847210b 2005-09-13 devnull . fp 4 BI OptimaBI\}
181 9847210b 2005-09-13 devnull .if '\\$1'souvenir'\{\
182 9847210b 2005-09-13 devnull . fp 1 R Souvenir
183 9847210b 2005-09-13 devnull . fp 2 I SouvenirI
184 9847210b 2005-09-13 devnull . fp 3 B SouvenirB
185 9847210b 2005-09-13 devnull . fp 4 BI SouvenirBI\}
186 9847210b 2005-09-13 devnull .if '\\$1'melior'\{\
187 9847210b 2005-09-13 devnull . fp 1 R Melior
188 9847210b 2005-09-13 devnull . fp 2 I MeliorI
189 9847210b 2005-09-13 devnull . fp 3 B MeliorB
190 9847210b 2005-09-13 devnull . fp 4 BI MeliorBI\}
191 9847210b 2005-09-13 devnull .if '\\$1'times'\{\
192 9847210b 2005-09-13 devnull . fp 1 R
193 9847210b 2005-09-13 devnull . fp 2 I
194 9847210b 2005-09-13 devnull . fp 3 B
195 9847210b 2005-09-13 devnull . fp 4 BI\}
197 9847210b 2005-09-13 devnull . \" TL - title
200 9847210b 2005-09-13 devnull .if !\\n(1T .BG
201 9847210b 2005-09-13 devnull ....hy 0
203 9847210b 2005-09-13 devnull .ps \\n(PS+2p
204 9847210b 2005-09-13 devnull .vs \\n(VS+2p
205 9847210b 2005-09-13 devnull .ll \\n(LLu
206 9847210b 2005-09-13 devnull .ce 100 \" turned off in .RT
209 9847210b 2005-09-13 devnull . \" AU - remember author(s)
212 9847210b 2005-09-13 devnull .ps \\n(PS
213 9847210b 2005-09-13 devnull .ie \\n(VS>=41 .vs \\n(VSu
214 9847210b 2005-09-13 devnull .el .vs \\n(VSp
217 9847210b 2005-09-13 devnull . \" AI - author's institution
222 9847210b 2005-09-13 devnull . \" AB - begin abstract
224 9847210b 2005-09-13 devnull .nr AB 1 \" we're in abstract
225 9847210b 2005-09-13 devnull .if !\\n(1T .BG
227 9847210b 2005-09-13 devnull .ps \\n(PS
228 9847210b 2005-09-13 devnull .vs \\n(VSp
230 9847210b 2005-09-13 devnull .in +\\n(.lu/12u
231 9847210b 2005-09-13 devnull .ll -\\n(.lu/12u
233 9847210b 2005-09-13 devnull .ie \\n(.$ \\$1
234 9847210b 2005-09-13 devnull .el ABSTRACT
238 9847210b 2005-09-13 devnull . \" AE - end of abstract
241 9847210b 2005-09-13 devnull .nr AB 0
243 9847210b 2005-09-13 devnull .ll \\n(LLu
244 9847210b 2005-09-13 devnull .ps \\n(PS
245 9847210b 2005-09-13 devnull .ie \\n(VS>=41 .vs \\n(VSu
246 9847210b 2005-09-13 devnull .el .vs \\n(VSp
249 9847210b 2005-09-13 devnull . \" 2C - 2 columns
253 9847210b 2005-09-13 devnull . \" 1C - 1 column
257 9847210b 2005-09-13 devnull . \" MC - multiple columns
260 9847210b 2005-09-13 devnull .if \\n(1T .RT
261 9847210b 2005-09-13 devnull .if \\n(1T .NP
262 9847210b 2005-09-13 devnull .if !\\n(OL .nr OL \\n(LL
263 9847210b 2005-09-13 devnull .if \\n(CW=0 .nr CW \\n(LL*7/15
264 9847210b 2005-09-13 devnull .if \\n(GW=0 .nr GW \\n(LL-(2*\\n(CW)
265 9847210b 2005-09-13 devnull .nr x \\n(CW+\\n(GW
266 9847210b 2005-09-13 devnull .if "\\$1"" .MC 2
267 9847210b 2005-09-13 devnull .if \\$1=1 \{\
268 9847210b 2005-09-13 devnull . X MC 1 0
269 9847210b 2005-09-13 devnull . nr LL \\n(OLu\}
270 9847210b 2005-09-13 devnull .if \\$1=2 \{\
271 9847210b 2005-09-13 devnull . X MC 2 \\nx
272 9847210b 2005-09-13 devnull . nr LL \\n(CWu\}
273 9847210b 2005-09-13 devnull .ll \\n(LLu
274 9847210b 2005-09-13 devnull .if \\$1>2 .tm -mpm can't handle more than two columns
275 9847210b 2005-09-13 devnull .if \\n(1T .RT
277 9847210b 2005-09-13 devnull . \" TS - table start, TE - table end; also TC, TQ, TH
280 9847210b 2005-09-13 devnull .if !\\n(1T .RT
281 9847210b 2005-09-13 devnull .SP \\n(TSu TS
282 9847210b 2005-09-13 devnull .X "US TS
283 9847210b 2005-09-13 devnull .if \\$1H .TQ
284 9847210b 2005-09-13 devnull .nr IX 1
287 9847210b 2005-09-13 devnull .nr TZ \\n(.lu
288 9847210b 2005-09-13 devnull .if \\n(.$ .nr TZ \\$1n
289 9847210b 2005-09-13 devnull .ta \\n(TZuR
293 9847210b 2005-09-13 devnull .nr TZ 0
297 9847210b 2005-09-13 devnull .nr IT 1
300 9847210b 2005-09-13 devnull .if \\n(.d>0.5v \{\
301 9847210b 2005-09-13 devnull . nr T. 0
302 9847210b 2005-09-13 devnull . T# 0\}
304 9847210b 2005-09-13 devnull .nr TQ \\n(.i
305 9847210b 2005-09-13 devnull .nr HT 1
314 9847210b 2005-09-13 devnull .in \\n(TQu
317 9847210b 2005-09-13 devnull . \" TE - table end
319 9847210b 2005-09-13 devnull .nr IX 0
320 9847210b 2005-09-13 devnull .if \\n(IT .if !\\n(HT \{\
322 9847210b 2005-09-13 devnull . nr EF \\n(.u
325 9847210b 2005-09-13 devnull . if \\n(EF .fi\}
326 9847210b 2005-09-13 devnull .nr IT 0
327 9847210b 2005-09-13 devnull .nr HT 0
328 9847210b 2005-09-13 devnull .rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
329 9847210b 2005-09-13 devnull .rr 32 33 34 35 36 37 38 40 79 80 81 82
330 9847210b 2005-09-13 devnull .rr a| b| c| d| e| f| g| h| i| j| k| l| m|
331 9847210b 2005-09-13 devnull .rr a- b- c- d- e- f- g- h- i- j- k- l- m-
332 9847210b 2005-09-13 devnull .X "END US TE
333 9847210b 2005-09-13 devnull .SP \\n(TSu TE
336 9847210b 2005-09-13 devnull . \" EQ - equation, breakout and display
338 9847210b 2005-09-13 devnull .nr EF \\n(.u
340 9847210b 2005-09-13 devnull .nr LE 1 \" 1 is center
341 9847210b 2005-09-13 devnull .ds EL \\$1
342 9847210b 2005-09-13 devnull .if "\\$1"L" \{\
343 9847210b 2005-09-13 devnull . ds EL \\$2
344 9847210b 2005-09-13 devnull . nr LE 0\}
345 9847210b 2005-09-13 devnull .if "\\$1"C" .ds EL \\$2
346 9847210b 2005-09-13 devnull .if "\\$1"R" \{\
347 9847210b 2005-09-13 devnull . ds EL \\$2 \" 2 is right adjust
348 9847210b 2005-09-13 devnull . nr LE 2\}
349 9847210b 2005-09-13 devnull .if "\\$1"I" \{\
350 9847210b 2005-09-13 devnull . nr LE 0
351 9847210b 2005-09-13 devnull . if "\\$3"" .ds EE \\h'|10n'
352 9847210b 2005-09-13 devnull . el .ds EE \\h'\\$3'
353 9847210b 2005-09-13 devnull . ds EL \\$2\}
354 9847210b 2005-09-13 devnull .if \\n(YE .nf
357 9847210b 2005-09-13 devnull . \" EN - end of equation
362 9847210b 2005-09-13 devnull .nr ZN \\n(dn
363 9847210b 2005-09-13 devnull .if \\n(ZN .if !\\n(YE .LP
364 9847210b 2005-09-13 devnull .if !\\n(ZN .if !"\\*(EL"" .nr ZN 1
365 9847210b 2005-09-13 devnull .if \\n(ZN \{\
366 9847210b 2005-09-13 devnull . SP .5v EQ
367 9847210b 2005-09-13 devnull . X "US EQ"\}
369 9847210b 2005-09-13 devnull .if \\n(BD .nr LE 0 \" don't center if block display or mark/lineup
370 9847210b 2005-09-13 devnull .if \\n(MK \{\
371 9847210b 2005-09-13 devnull . if \\n(LE=1 .ds EE \\h'|10n'
372 9847210b 2005-09-13 devnull . nr LE 0\}
373 9847210b 2005-09-13 devnull 'lt \\n(.lu
374 9847210b 2005-09-13 devnull .if !\\n(EP .if \\n(ZN \{\
375 9847210b 2005-09-13 devnull . if \\n(LE=1 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
376 9847210b 2005-09-13 devnull . if \\n(LE=2 .tl \(ts\(ts\(ts\\*(10\\*(EL\(ts
377 9847210b 2005-09-13 devnull . if !\\n(LE \{\
378 9847210b 2005-09-13 devnull . if !\\n(BD .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
379 9847210b 2005-09-13 devnull . if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
380 9847210b 2005-09-13 devnull . if \\n(BD \!\\*(10\\t\\*(EL\}\}
381 9847210b 2005-09-13 devnull .if \\n(EP .if \\n(ZN \{\
382 9847210b 2005-09-13 devnull . if \\n(LE=1 .tl \(ts\\*(EL\(ts\\*(10\(ts\(ts
383 9847210b 2005-09-13 devnull . if \\n(LE=2 .tl \(ts\\*(EL\(ts\(ts\\*(10\(ts
384 9847210b 2005-09-13 devnull . if !\\n(LE \{\
385 9847210b 2005-09-13 devnull . if !\\n(BD .tl \(ts\\*(EL\\*(EE\\*(10\(ts\(ts\(ts
386 9847210b 2005-09-13 devnull . if \\n(BD .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
387 9847210b 2005-09-13 devnull . if \\n(BD \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10\}\}
388 9847210b 2005-09-13 devnull 'lt \\n(LLu
390 9847210b 2005-09-13 devnull .if \\n(YE .if \\n(EF .fi
391 9847210b 2005-09-13 devnull .if \\n(ZN .X "END US EQ"
392 9847210b 2005-09-13 devnull .if \\n(ZN .SP .5v EN
393 9847210b 2005-09-13 devnull .if \\n(ZN .bp
395 9847210b 2005-09-13 devnull . \" PS - start picture
396 9847210b 2005-09-13 devnull .de PS \" $1 is height, $2 is width, in inches
398 9847210b 2005-09-13 devnull .nr X 0.35v
399 9847210b 2005-09-13 devnull .if \\$1>0 .X "SP \\nX PS"
400 9847210b 2005-09-13 devnull .ie \\$1>0 .nr $1 \\$1
401 9847210b 2005-09-13 devnull .el .nr $1 0
402 9847210b 2005-09-13 devnull .X "US PS \\$1
403 9847210b 2005-09-13 devnull .in (\\n(.lu-\\$2)/2u
405 9847210b 2005-09-13 devnull . \" PE - end of picture
408 9847210b 2005-09-13 devnull .X "END US PE
409 9847210b 2005-09-13 devnull .nr X .65v
410 9847210b 2005-09-13 devnull .if \\n($1>0 .X "SP \\nX PE"
413 9847210b 2005-09-13 devnull .de IS \" for -mpm only
420 9847210b 2005-09-13 devnull . \" NP - new page
424 9847210b 2005-09-13 devnull .if \\n(KF=0 \{\
425 9847210b 2005-09-13 devnull . nr PX \\n(.s
426 9847210b 2005-09-13 devnull . nr PF \\n(.f
427 9847210b 2005-09-13 devnull . nr PV \\n(.v
428 9847210b 2005-09-13 devnull . lt \\n(LTu
429 9847210b 2005-09-13 devnull . ps \\n(PS
430 9847210b 2005-09-13 devnull . vs \\n(PS+2
432 9847210b 2005-09-13 devnull . if \\n(PO .po \\n(POu \" why isn't this reset???
433 9847210b 2005-09-13 devnull . PT \\$1
438 9847210b 2005-09-13 devnull . nr %# +1
439 9847210b 2005-09-13 devnull . ps \\n(PX
440 9847210b 2005-09-13 devnull . vs \\n(PVu
441 9847210b 2005-09-13 devnull . ft \\n(PF \}
445 9847210b 2005-09-13 devnull .ds %e .tl '\\*(LH'\\*(CH'\\*(RH'
446 9847210b 2005-09-13 devnull .ds %o .tl '\\*(LH'\\*(CH'\\*(RH'
447 9847210b 2005-09-13 devnull .ds %E .tl '\\*(LF'\\*(CF'\\*(RF'
448 9847210b 2005-09-13 devnull .ds %O .tl '\\*(LF'\\*(CF'\\*(RF'
450 9847210b 2005-09-13 devnull . \" PT - page title
452 9847210b 2005-09-13 devnull .nr PN \\n(%#
453 9847210b 2005-09-13 devnull .X "PT \\n(%#
454 9847210b 2005-09-13 devnull .sp \\n(HMu/2u
455 9847210b 2005-09-13 devnull .if \\n(OL .lt \\n(OLu \" why isn't this reset???
456 9847210b 2005-09-13 devnull .if \\n(BT>0 .if \\n(%#%2 \\*(%o
457 9847210b 2005-09-13 devnull .if \\n(BT>0 .if !\\n(%#%2 \\*(%e
458 9847210b 2005-09-13 devnull .if \\n(BT=0 .tl '\0''' \" put out something or spacing is curdled
459 9847210b 2005-09-13 devnull .X "END PT \\n(%#
461 9847210b 2005-09-13 devnull . \" BT - bottom title
463 9847210b 2005-09-13 devnull .X "BT \\n(%#
464 9847210b 2005-09-13 devnull .sp |\\n(FMu/2u+\\n(FOu-1v
465 9847210b 2005-09-13 devnull .if \\n(%#%2 \\*(%O
466 9847210b 2005-09-13 devnull .if !\\n(%#%2 \\*(%E
467 9847210b 2005-09-13 devnull .nr BT \\n(BT+1
468 9847210b 2005-09-13 devnull .X "END BT \\n(%#
470 9847210b 2005-09-13 devnull . \" KS - non-floating keep
473 9847210b 2005-09-13 devnull .if "\\n(.z"" .NP \" defends poorly against including ht of page stuff in diversion for .B1
474 9847210b 2005-09-13 devnull .X "US KS 0
475 9847210b 2005-09-13 devnull .nr KS +1
476 9847210b 2005-09-13 devnull .SP \\n(Ksu
478 9847210b 2005-09-13 devnull . \" KF - floating keep
482 9847210b 2005-09-13 devnull .if \\n(KS>0 .tm KF won't work inside KS, line \\n(.c, file \\n(.F
483 9847210b 2005-09-13 devnull .if \\n(KF>0 .tm KF won't work inside KF, line \\n(.c, file \\n(.F
484 9847210b 2005-09-13 devnull .nr KF 1
485 9847210b 2005-09-13 devnull .nr 10 0
486 9847210b 2005-09-13 devnull . if !'\\$1'' .nr 10 \\$1u
487 9847210b 2005-09-13 devnull . if '\\$1'bottom' .nr 10 \\n(FOu-1u
488 9847210b 2005-09-13 devnull . if '\\$1'top' .nr 10 \\n(HM
489 9847210b 2005-09-13 devnull . if \\n(10 .X "UF \\n(10 KF"
490 9847210b 2005-09-13 devnull . if !\\n(10 .X "UF \\n(HM KF"
491 9847210b 2005-09-13 devnull . nr X \\n(FOu-2u
492 9847210b 2005-09-13 devnull . if \\n(10 .X "UF \\n(10 KF"
493 9847210b 2005-09-13 devnull . if !\\n(10 .X "UF \\nX KF"
494 9847210b 2005-09-13 devnull .nr SJ \\n(.u
495 9847210b 2005-09-13 devnull .ps \\n(PS
496 9847210b 2005-09-13 devnull .if \\n(VS>40 .vs \\n(VSu
497 9847210b 2005-09-13 devnull .if \\n(VS<=39 .vs \\n(VSp
498 9847210b 2005-09-13 devnull .ll \\n(LLu
499 9847210b 2005-09-13 devnull .lt \\n(LTu
500 9847210b 2005-09-13 devnull .SP \\n(Kfu
502 9847210b 2005-09-13 devnull . \" KE - end of KS/KF
505 9847210b 2005-09-13 devnull .ie \\n(KS>0 \{\
506 9847210b 2005-09-13 devnull . SP \\n(Ksu
507 9847210b 2005-09-13 devnull . X "END US KS
508 9847210b 2005-09-13 devnull . nr KS -1 \}
509 9847210b 2005-09-13 devnull .el .ie \\n(KF>0 \{\
510 9847210b 2005-09-13 devnull . SP \\n(Kfu
511 9847210b 2005-09-13 devnull . nr KF 0
512 9847210b 2005-09-13 devnull . X "END UF KF"
513 9847210b 2005-09-13 devnull . if \\n(SJ .fi
515 9847210b 2005-09-13 devnull .el .tm .KE without preceding .KS or .KF, line \\n(.c, file \\n(.F
518 9847210b 2005-09-13 devnull . \" DS - display. .DS C center; L left-adjust; I indent (default)
519 9847210b 2005-09-13 devnull .de DS \" $2 = amount of indent
522 9847210b 2005-09-13 devnull .\\$1D \\$2 \\$1
524 9847210b 2005-09-13 devnull .if !\\n(IF \{\
525 9847210b 2005-09-13 devnull . ps \\n(PS
526 9847210b 2005-09-13 devnull . if \\n(VS>40 .vs \\n(VSu
527 9847210b 2005-09-13 devnull . if \\n(VS<=39 .vs \\n(VSp\}
530 9847210b 2005-09-13 devnull .ID \\$1
534 9847210b 2005-09-13 devnull .ce 1000
538 9847210b 2005-09-13 devnull .if \\n(.$=0 .in +\\n(DIu
539 9847210b 2005-09-13 devnull .if \\n(.$=1 .if "\\$1"I" .in +\\n(DIu
540 9847210b 2005-09-13 devnull .if \\n(.$=1 .if !"\\$1"I" .in +\\$1n
541 9847210b 2005-09-13 devnull .if \\n(.$>1 .in +\\$2n
542 9847210b 2005-09-13 devnull .....in +0.5i
543 9847210b 2005-09-13 devnull .....if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(DIu
544 9847210b 2005-09-13 devnull .....if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
551 9847210b 2005-09-13 devnull .nr OI \\n(.i
552 9847210b 2005-09-13 devnull .SP \\n(DVu
554 9847210b 2005-09-13 devnull . \" BD - block display: save everything, then center it.
557 9847210b 2005-09-13 devnull .nr BD 1
559 9847210b 2005-09-13 devnull .in \\n(OIu
562 9847210b 2005-09-13 devnull . \" DE - display end
565 9847210b 2005-09-13 devnull .if \\n(BD>0 .XF
566 9847210b 2005-09-13 devnull .nr BD 0
567 9847210b 2005-09-13 devnull .in \\n(OIu
568 9847210b 2005-09-13 devnull .SP \\n(DVu
572 9847210b 2005-09-13 devnull . \" XF - finish a block display to be recentered.
575 9847210b 2005-09-13 devnull .if \\n(dl>\\n(BD .nr BD \\n(dl
576 9847210b 2005-09-13 devnull .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
577 9847210b 2005-09-13 devnull .nr EI \\n(.l-\\n(.i
578 9847210b 2005-09-13 devnull .ta \\n(EIuR
581 9847210b 2005-09-13 devnull .in \\n(OIu
585 9847210b 2005-09-13 devnull . \" SH - (unnumbered) section heading
588 9847210b 2005-09-13 devnull .nr X 1v
589 9847210b 2005-09-13 devnull .nr Y 3v
590 9847210b 2005-09-13 devnull .if \\n(1T .NP
591 9847210b 2005-09-13 devnull .if \\n(1T .X "NE \\nY SH" \" should these be reversed, change Y to 4v
592 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\nX SH
595 9847210b 2005-09-13 devnull . \" NH - numbered heading
598 9847210b 2005-09-13 devnull .nr X 1v
599 9847210b 2005-09-13 devnull .nr Y 3v
600 9847210b 2005-09-13 devnull .if \\n(1T .NP
601 9847210b 2005-09-13 devnull .if \\n(1T .X "NE \\nY NH" \" should these be reversed, change Y to 4v
602 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\nX NH
604 9847210b 2005-09-13 devnull .nr NS \\$1
605 9847210b 2005-09-13 devnull .if !\\n(.$ .nr NS 1
606 9847210b 2005-09-13 devnull .if !\\n(NS .nr NS 1
607 9847210b 2005-09-13 devnull .nr H\\n(NS +1
608 9847210b 2005-09-13 devnull .if !\\n(NS-4 .nr H5 0
609 9847210b 2005-09-13 devnull .if !\\n(NS-3 .nr H4 0
610 9847210b 2005-09-13 devnull .if !\\n(NS-2 .nr H3 0
611 9847210b 2005-09-13 devnull .if !\\n(NS-1 .nr H2 0
612 9847210b 2005-09-13 devnull .if !\\$1 .if \\n(.$ .nr H1 1
613 9847210b 2005-09-13 devnull .ds SN \\n(H1.
614 9847210b 2005-09-13 devnull .if \\n(NS-1 .as SN \\n(H2.
615 9847210b 2005-09-13 devnull .if \\n(NS-2 .as SN \\n(H3.
616 9847210b 2005-09-13 devnull .if \\n(NS-3 .as SN \\n(H4.
617 9847210b 2005-09-13 devnull .if \\n(NS-4 .as SN \\n(H5.
620 9847210b 2005-09-13 devnull . \" RT - reset at beginning of each PP, LP, etc.
622 9847210b 2005-09-13 devnull .if !\\n(AB .if !\\n(1T .BG
624 9847210b 2005-09-13 devnull .if !\\n(AB .if !\\n(KF .if !\\n(IF .if !\\n(IX .if !\\n(BE .di
625 9847210b 2005-09-13 devnull .if \\n(QP \{\
626 9847210b 2005-09-13 devnull . ll +\\n(QIu
627 9847210b 2005-09-13 devnull . in -\\n(QIu
628 9847210b 2005-09-13 devnull . nr QP -1\}
629 9847210b 2005-09-13 devnull .if !\\n(AB \{\
630 9847210b 2005-09-13 devnull . ll \\n(LLu\}
631 9847210b 2005-09-13 devnull .if !\\n(IF .if !\\n(AB \{\
632 9847210b 2005-09-13 devnull . ps \\n(PS
633 9847210b 2005-09-13 devnull . ie \\n(VS>=41 .vs \\n(VSu
634 9847210b 2005-09-13 devnull . el .vs \\n(VSp\}
635 9847210b 2005-09-13 devnull .ie \\n(IP \{\
636 9847210b 2005-09-13 devnull . in \\n(I\\n(IRu
637 9847210b 2005-09-13 devnull . nr IP -1\}
638 9847210b 2005-09-13 devnull .el .if !\\n(IR \{\
639 9847210b 2005-09-13 devnull . nr I1 \\n(PIu
640 9847210b 2005-09-13 devnull . nr I2 0
641 9847210b 2005-09-13 devnull . nr I3 0
642 9847210b 2005-09-13 devnull . nr I4 0
643 9847210b 2005-09-13 devnull . nr I5 0\}
644 9847210b 2005-09-13 devnull .if !\\n(AB .ft 1
645 9847210b 2005-09-13 devnull .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
648 9847210b 2005-09-13 devnull . \" BG - begin, execute at first TL, AB, NH, SH, PP, etc.
649 9847210b 2005-09-13 devnull .de BG \" IZ has been called, so registers have some value
651 9847210b 2005-09-13 devnull .if \\n(CW>0 .if \\n(LL=0 .nr LL \\n(CW+\\n(CW+\\n(GW
652 9847210b 2005-09-13 devnull .ll \\n(LLu
653 9847210b 2005-09-13 devnull .lt \\n(LLu
654 9847210b 2005-09-13 devnull .po \\n(POu
655 9847210b 2005-09-13 devnull .nr YE 1 \" ok to cause break in .EQ (earlier ones won't)
665 9847210b 2005-09-13 devnull .nr 1T 1
666 9847210b 2005-09-13 devnull .X "PARM NP \\n(HM
667 9847210b 2005-09-13 devnull .X "PARM FO \\n(FO
668 9847210b 2005-09-13 devnull .if !\\n(%# .nr %# 1
670 9847210b 2005-09-13 devnull . \" PP - paragraph
673 9847210b 2005-09-13 devnull .if \\n(1T .NP
674 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\n(PD PP"
675 9847210b 2005-09-13 devnull .if \\n(1T .X "BS 2 PP"
676 9847210b 2005-09-13 devnull .ti +\\n(PIu
678 9847210b 2005-09-13 devnull . \" LP - left aligned paragraph
681 9847210b 2005-09-13 devnull .if \\n(1T .NP
682 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\n(PD LP"
683 9847210b 2005-09-13 devnull .if \\n(1T .X "BS 2 LP"
685 9847210b 2005-09-13 devnull . \" IP - indented paragraph
688 9847210b 2005-09-13 devnull .if !\\n(IP .nr IP +1
689 9847210b 2005-09-13 devnull .if \\n(1T .NP
690 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\n(PD PP"
691 9847210b 2005-09-13 devnull .if \\n(1T .X "BS 2 IP"
692 9847210b 2005-09-13 devnull .nr IU \\n(IR+1
693 9847210b 2005-09-13 devnull .if \\n(.$>1 .nr I\\n(IU \\$2n+\\n(I\\n(IRu
694 9847210b 2005-09-13 devnull .if \\n(I\\n(IU=0 .nr I\\n(IU \\n(PIu+\\n(I\\n(IRu
695 9847210b 2005-09-13 devnull .in \\n(I\\n(IUu
696 9847210b 2005-09-13 devnull .nr TY \\n(TZ-\\n(.i
697 9847210b 2005-09-13 devnull .nr JQ \\n(I\\n(IU-\\n(I\\n(IR
698 9847210b 2005-09-13 devnull .ta \\n(JQu \\n(TYuR
699 9847210b 2005-09-13 devnull .if \\n(.$ \{\
700 9847210b 2005-09-13 devnull .ti \\n(I\\n(IRu
701 9847210b 2005-09-13 devnull \&\\$1\t\c\}
703 9847210b 2005-09-13 devnull . \" QP - quoted paragraph (within IP)
706 9847210b 2005-09-13 devnull .if \\n(1T .NP
707 9847210b 2005-09-13 devnull .if \\n(1T .X "SP \\n(PD QP"
708 9847210b 2005-09-13 devnull .if \\n(1T .X "BS 2 QP"
709 9847210b 2005-09-13 devnull .nr QP 1
710 9847210b 2005-09-13 devnull .in +\\n(QIu
711 9847210b 2005-09-13 devnull .ll -\\n(QIu
712 9847210b 2005-09-13 devnull .ti \\n(.iu
714 9847210b 2005-09-13 devnull . \" RS - prepare for double indenting
716 9847210b 2005-09-13 devnull .nr IS \\n(IP
718 9847210b 2005-09-13 devnull .nr IP \\n(IS
719 9847210b 2005-09-13 devnull .nr IU \\n(IR
720 9847210b 2005-09-13 devnull .nr IR +1
721 9847210b 2005-09-13 devnull .if !\\n(I\\n(IR .nr I\\n(IR \\n(I\\n(IU+\\n(PIu
722 9847210b 2005-09-13 devnull .in \\n(I\\n(IRu
723 9847210b 2005-09-13 devnull .nr TY \\n(TZ-\\n(.i
724 9847210b 2005-09-13 devnull .ta \\n(TYuR
726 9847210b 2005-09-13 devnull . \" RE - retreat to the left
728 9847210b 2005-09-13 devnull .nr IS \\n(IP
730 9847210b 2005-09-13 devnull .nr IP \\n(IS
731 9847210b 2005-09-13 devnull .if \\n(IR>0 .nr IR -1
732 9847210b 2005-09-13 devnull .in \\n(I\\n(IRu
734 9847210b 2005-09-13 devnull . \" B - bold font
736 9847210b 2005-09-13 devnull .nr PQ \\n(.f
738 9847210b 2005-09-13 devnull .if \\n(.$ \&\\$1\\f\\n(PQ\\$2
740 9847210b 2005-09-13 devnull . \" BI - bold italic
742 9847210b 2005-09-13 devnull .nr PQ \\n(.f
744 9847210b 2005-09-13 devnull .if \\n(.$ \&\\$1\\f\\n(PQ\\$2
746 9847210b 2005-09-13 devnull . \" R - Roman font
748 9847210b 2005-09-13 devnull .nr PQ \\n(.f
750 9847210b 2005-09-13 devnull .if \\n(.$ \&\\$1\f\\n(PQ\\$2
752 9847210b 2005-09-13 devnull . \" I - italic font
754 9847210b 2005-09-13 devnull .nr PQ \\n(.f
756 9847210b 2005-09-13 devnull .if \\n(.$ \&\\$1\^\f\\n(PQ\\$2
758 9847210b 2005-09-13 devnull . \" CW - constant width font from -ms
760 9847210b 2005-09-13 devnull .nr PQ \\n(.f
761 9847210b 2005-09-13 devnull .if \\n(.$=0 .ft CW
762 9847210b 2005-09-13 devnull .if \\n(.$>0 \%\&\\$3\f(CW\\$1\\f\\n(PQ\\$2
764 9847210b 2005-09-13 devnull .de IT \" ditto to italicize argument
765 9847210b 2005-09-13 devnull .nr Sf \\n(.f
766 9847210b 2005-09-13 devnull \%\&\\$3\f2\\$1\f\\n(Sf\&\\$2
768 9847210b 2005-09-13 devnull . \" TA - tabs set in ens or chars
770 9847210b 2005-09-13 devnull .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
772 9847210b 2005-09-13 devnull . \" SM - make smaller size
774 9847210b 2005-09-13 devnull .ie \\n(.$ \&\\$3\s-2\\$1\s0\\$2
775 9847210b 2005-09-13 devnull .el .ps -2
777 9847210b 2005-09-13 devnull . \" LG - make larger size
779 9847210b 2005-09-13 devnull .ie \\n(.$ \&\\$3\s+2\\$1\s0\\$2
780 9847210b 2005-09-13 devnull .el .ps +2
782 9847210b 2005-09-13 devnull . \" NL - return to normal size
784 9847210b 2005-09-13 devnull .ps \\n(PS
786 9847210b 2005-09-13 devnull . \" FS - begin footnote
788 9847210b 2005-09-13 devnull .if \\n(IF>0 .tm .FS within .FS/.FE, line \\n(.c, file \\n(.F
789 9847210b 2005-09-13 devnull .if \\n(KF>0 .tm .FS won't work inside .KF, line \\n(.c, file \\n(.F
790 9847210b 2005-09-13 devnull .if \\n(KS>0 .tm .FS won't work inside .KS, line \\n(.c, file \\n(.F
791 9847210b 2005-09-13 devnull .nr IF 1
793 9847210b 2005-09-13 devnull .ps \\n(PS-2
794 9847210b 2005-09-13 devnull .ie \\n(VS>=41 .vs \\n(VSu-2p
795 9847210b 2005-09-13 devnull .el .vs \\n(VSp-2p
796 9847210b 2005-09-13 devnull .ll \\n(LLu
798 9847210b 2005-09-13 devnull .nr X \\n(FOu
799 9847210b 2005-09-13 devnull .X "BF \\nX FS
801 9847210b 2005-09-13 devnull ....FA \" deleted by authority of cvw, 10/17/88
803 9847210b 2005-09-13 devnull . \" FE - end footnote
805 9847210b 2005-09-13 devnull .if !\\n(IF .tm .FE without .FS, line \\n(.c, file \\n(.F
807 9847210b 2005-09-13 devnull .X "END BF FE
810 9847210b 2005-09-13 devnull .nr IF 0
812 9847210b 2005-09-13 devnull . \" FA - the line for a footnote
817 9847210b 2005-09-13 devnull . \" Tm - message to be passed on
820 9847210b 2005-09-13 devnull .if \\n(.$=1 .X "TM \\$1
821 9847210b 2005-09-13 devnull .if \\n(.$=2 .X "TM \\$1 \\$2
822 9847210b 2005-09-13 devnull .if \\n(.$=3 .X "TM \\$1 \\$2 \\$3
823 9847210b 2005-09-13 devnull .if \\n(.$=4 .X "TM \\$1 \\$2 \\$3 \\$4
824 9847210b 2005-09-13 devnull .if \\n(.$=5 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5
825 9847210b 2005-09-13 devnull .if \\n(.$=6 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6
826 9847210b 2005-09-13 devnull .if \\n(.$=7 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7
827 9847210b 2005-09-13 devnull .if \\n(.$=8 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
828 9847210b 2005-09-13 devnull .if \\n(.$=9 .X "TM \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
833 9847210b 2005-09-13 devnull AT&T Bell Laboratories
834 9847210b 2005-09-13 devnull Murray Hill, New Jersey 07974
837 9847210b 2005-09-13 devnull AT&T Bell Laboratories
838 9847210b 2005-09-13 devnull Holmdel, New Jersey 07733
841 9847210b 2005-09-13 devnull AT&T Bell Laboratories
842 9847210b 2005-09-13 devnull Whippany, New Jersey 07981
845 9847210b 2005-09-13 devnull AT&T Bell Laboratories
846 9847210b 2005-09-13 devnull Naperville, Illinois 60540
848 9847210b 2005-09-13 devnull . \" UL - underline argument, don't italicize
850 9847210b 2005-09-13 devnull \\$1\l'|0\(ul'\\$2
852 9847210b 2005-09-13 devnull . \" UX - print $2 UNIX $1
854 9847210b 2005-09-13 devnull .ie \\n(UX \\$2\s-1UNIX\s0\\$1
856 9847210b 2005-09-13 devnull \\$2\s-1UNIX\\s0\\$1\(rg
857 9847210b 2005-09-13 devnull .nr UX 1\}
859 9847210b 2005-09-13 devnull . \" QS - start quote
863 9847210b 2005-09-13 devnull .in +\\n(QIu
864 9847210b 2005-09-13 devnull .ll -\\n(QIu
866 9847210b 2005-09-13 devnull . \" QE - end quote
869 9847210b 2005-09-13 devnull .ll +\\n(QIu
870 9847210b 2005-09-13 devnull .in -\\n(QIu
873 9847210b 2005-09-13 devnull . \" B1 - begin boxed stuff
877 9847210b 2005-09-13 devnull .nr BC 0
878 9847210b 2005-09-13 devnull .if "\\$1"C" .nr BC 1
879 9847210b 2005-09-13 devnull .nr BE 1
881 9847210b 2005-09-13 devnull . \" B2 - end boxed stuff
884 9847210b 2005-09-13 devnull .nr BI 1n
885 9847210b 2005-09-13 devnull .if \\n(.$>0 .nr BI \\$1n
887 9847210b 2005-09-13 devnull .nr BE 0
888 9847210b 2005-09-13 devnull .nr BW \\n(dl
889 9847210b 2005-09-13 devnull .nr BH \\n(dn
890 9847210b 2005-09-13 devnull .ne \\n(BHu+\\n(.Vu
891 9847210b 2005-09-13 devnull .nr BQ \\n(.j
894 9847210b 2005-09-13 devnull .if \\n(BC>0 .in +(\\n(.lu-\\n(BWu)/2u
895 9847210b 2005-09-13 devnull .in +\\n(BIu
899 9847210b 2005-09-13 devnull .in -\\n(BIu
900 9847210b 2005-09-13 devnull .nr BW +2*\\n(BI
902 9847210b 2005-09-13 devnull \l'\\n(BWu\(ul'\L'-\\n(BHu'\l'|0\(ul'\h'|0'\L'\\n(BHu'
903 9847210b 2005-09-13 devnull .if \\n(BC>0 .in -(\\n(.lu-\\n(BWu)/2u
904 9847210b 2005-09-13 devnull .if \\n(BQ .fi
907 9847210b 2005-09-13 devnull . \" BX - boxed stuff
909 9847210b 2005-09-13 devnull \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
912 9847210b 2005-09-13 devnull . \" macros for programs, etc.
915 9847210b 2005-09-13 devnull programs are displayed between .P1/.P2 pairs
916 9847210b 2005-09-13 devnull default is to indent by 1/2 inch, nofill, dP smaller
917 9847210b 2005-09-13 devnull .P1 x causes an indent of x instead.
919 9847210b 2005-09-13 devnull .P3 can be used to specify optional page-break points
920 9847210b 2005-09-13 devnull inside .P1/.P2
923 9847210b 2005-09-13 devnull . \" P1 - start of program
925 9847210b 2005-09-13 devnull .nr $1 \\n(P1
926 9847210b 2005-09-13 devnull .if \\n(.$ .nr $1 \\$1n
928 9847210b 2005-09-13 devnull .X "SP \\n(DV P1"
929 9847210b 2005-09-13 devnull .X "US P1"
930 9847210b 2005-09-13 devnull .in \\n($1u
932 9847210b 2005-09-13 devnull .nr v \\n(.v
933 9847210b 2005-09-13 devnull .ps -\\n(dP
934 9847210b 2005-09-13 devnull .vs -\\n(dVu
936 9847210b 2005-09-13 devnull .nr t \\n(dT*\\w'x'u
937 9847210b 2005-09-13 devnull .ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
939 9847210b 2005-09-13 devnull . \" P2 - end of program
942 9847210b 2005-09-13 devnull .ps \\n(PS
943 9847210b 2005-09-13 devnull .vs \\nvu
946 9847210b 2005-09-13 devnull .X "END US P1
947 9847210b 2005-09-13 devnull .X "SP \\n(DV P2"
950 9847210b 2005-09-13 devnull . \" P3 - provides optional unpadded break in P1/P2
952 9847210b 2005-09-13 devnull .nr x \\n(DV
953 9847210b 2005-09-13 devnull .nr DV 0
955 9847210b 2005-09-13 devnull .P1 \\n($1u
956 9847210b 2005-09-13 devnull .nr DV \\nx
966 9847210b 2005-09-13 devnull .so /usr/local/plan9/tmac/tmac.srefs