1 '\" Copyright (c
) 1984 AT
&T
2 '\" All Rights Reserved
3 '\"#ident
"@(#)macros:vmca.src 1.17"
5 .
if t .ds Tm
\v'-0.5m'\s
-8TM\s
+8\v'0.5m'
7 .de VS
\" foil
-# foil
-id date
: start
7" wide × 7" high foil
18 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
19 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
20 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
22 .de Vh
\" .VS but
5" wide × 7" high
33 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
34 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
35 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
37 .de Sh
\" .VS but
5" wide × 7" high
48 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
49 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
50 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
52 .de Vw
\" .VS but
7" wide × 5" high
63 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
64 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
65 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
67 .de Sw
\" .VS but
7" wide × 5" high
78 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
79 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
80 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
82 .de VH
\" .VS but
7" wide × 9" high
93 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
94 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
95 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
97 .de SH
\" .VS but
7" wide × 9" high
108 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
109 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
110 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
112 .de VW
\" .VS but
7" wide × 5.4" high
123 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
124 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
125 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
127 .de SW
\" .VS but
7" wide × 5.4" high
138 .
if \\n(.$ .
if !\\n(.$
-1 .
)V
"\\$1"
139 .
if \\n(.$
-1 .
if !\\n(.$
-2 .
)V
"\\$1" "\\$2"
140 .
if \\n(.$
-2 .
)V
"\\$1" "\\$2" "\\$3"
148 .
if \\n()i .nr
)o
10p
151 .
if \\nX .
if \\n(.pu
-\\n()Gu .pl
\\n()Gu
156 .ta
0.5i
1i
1.5i
2i
2.5i
3i
3.5i
4i
4.5i
5i
5.5i
6i
162 .
if \\n()i .
)t
"'\(da cut \(da''\(da cut \(da'" 1
164 .
)t
"'\l'0.38i'''\l'0.38i''" 1
168 .
if \\n(.$
-1 .ds
)N
"\\$2
169 .if \\n(.$-2 .ds )Y "\\$3
172 .
if \\n(.$ .tl
\a\a\a\\*()F
\\$1\a
173 .
if !\\n(.$ .tl
\a\a\a\\*()F
%\a
176 .po
0.26i
+\\n()Lu
+\\n()Ou
177 .lt
7.03i
-\\n()Lu
-\\n()Lu
-\\n()Ou
-\\n()Ou
178 .
if \\n()H .
)t
"'|''|'"
180 .sp |
1i
+\\n()Ou
+\\n()ou
184 .
if \\n()W .
)t
"'_''_'"
189 .lt
7.06i
-\\n()Lu
-\\n()Lu
192 .
if \\n()M .
if \\n()W .sp
\\n()Ou
195 .
if \\n()M .
if \\n()W .nr
)J
\\n()Uu
-\\n()Ou
198 .S
\\n()X
6i
-\\n()Ku
-\\n()Ku
211 .lt
7.06i
-\\n()Lu
-\\n()Lu
218 .
if \\n()W .
)t
"'_''_'"
221 .po
0.26i
+\\n()Lu
+\\n()Ou
222 .lt
7.03i
-\\n()Lu
-\\n()Lu
-\\n()Ou
-\\n()Ou
223 .
if \\n()H .
)t
"'|''|'"
229 .
if \\nX .wh
-0.5i
)m
240 .tl
\a\a*** No
input or no
``foil start'' macro in input.\a\a \}
241 .
if !\\n()i \
{.nr
)x
\\n(.vu
+\\n()Eu
-\\n(nlu
/\\n(.vu
245 .
if \\nX .pl
\\n(.pu
+2i
255 .
if \\n(.A .
if \\n()v
==> Approximately
\\n()x blank
line(s
) \
256 left to bottom of previous foil.
257 .
if \\n(.A .
if !\\n()v
==> *** Previous foil full
; \
261 .
)t
"'\l'0.38i'''\l'0.38i''" 1
262 .
)t
"'\(ua cut \(ua''\(ua cut \(ua'" 1 \
}
265 .
if !\\n(.A .
if \\n(.$
-1 .
)e
282 .
if \\n()i .
if \\n(nl \
{.ps
10
284 .tl
\a\a*** Text before
``foil start'' macro in input.\a\a \}
285 .
if !\\n()i \
{.nr
)x
\\n(.vu
+\\n()Eu
-\\n(nlu
/\\n(.vu
297 .
if \\n(.A .
if \\n()v
==> Approximately
\\n()x blank
line(s
) \
298 left to bottom of previous foil.
299 .
if \\n(.A .
if !\\n()v
==> *** Previous foil full
; \
315 .de T
\" string
: title
317 .
if \\n(nlu
-\\n()nu .sp
.5v
333 .de S
\" ps line
-length
: set point size
& line length
335 .
if \w
\a\\$1\a .
if !\\$1+1 .ps
\\$1
336 .
if \w
\a\\$1\a .
if \\$1 .nr
)y
\\n(.s
337 .
if \w
\a\\$1\a .
if \\$1 .nr
)y
\\$1
338 .
if \w
\a\\$1\a .
if \\$1-99 .nr
)y
\\n()X
339 .
if \w
\a\\$1\a .
if \\$1 .ps
\\n()y
347 .nr
)A
\\n(.s
*\\n()Q
/\\n(]X
349 .nr
)b \w
\a\\*()B\
\au
351 .nr
)A
\\n(.s
*\\n()R
/\\n(]X
353 .nr
)c
\\n()bu
+\w
\a\\*()C\
\au
355 .nr
)A
\\n(.s
*\\n()S
/\\n(]X
357 .nr
)d
\\n()cu
+\w
\a\\*()D\
\au
360 .
if \\n(.$
-1 .nr
)u
\\$2
361 .
if \\n(.$
-1 .
if !\\n()uu
-7u .nr
)p
\\$2i
362 .
if \\n(.$
-1 .
if \\n()uu
-7u .nr
)p
\\$2
367 .nr
)E
\\n()Ju
-\\n()Tu
370 .de I
\" in a a
-arg
: set text indent
371 .
if !\w
\a\\$1\au .nr
)k
0i
372 .
if \w
\a\\$1\au .
if !\\$1 .nr
)u
0i
-\\$1
373 .
if \w
\a\\$1\au .
if \\$1 .nr
)u
\\$1
374 .
if \w
\a\\$1\au .
if !\\n()uu
-7u .nr
)k
\\$1i
375 .
if \w
\a\\$1\au .
if \\n()uu
-7u .nr
)k
\\$1
378 .de A
\" nospace
: 1st indentation level
380 .
if !\\n(.$ .
if \\n(nlu
-\\n()nu .sp
\\*(]Au
387 .de B
\" mark ±ps
: 2nd indentation level
389 .
if \\n(nlu
-\\n()nu .sp
\\*(]Bu
396 .
if !\\n(.$ .
)I
\\*()B
\\n()Q
397 .
if \\n(.$ .
if !\\n(.$
-1 .
)I
"\\$1" 0
398 .
if \\n(.$
-1 .
if \\$2-99 .
)I
"\\$1\ \|" \\n()Q
399 .
if \\n(.$
-1 .
if !\\$2-99 .nr
)l
1
400 .
if \\n(.$
-1 .
if !\\$2-99 .
)I
"\\$1" "\\$2"
402 .de C
\" mark ±ps
: 3rd indentation level
404 .
if \\n(nlu
-\\n()nu .sp
\\*(]Cu
410 .nr
]x
\\n()cu
-\\n()bu
411 .
if !\\n(.$ .
)I
\\*()C
\\n()R
412 .
if \\n(.$ .
if !\\n(.$
-1 .
)I
"\\$1" 0
413 .
if \\n(.$
-1 .
if \\$2-99 .
)I
"\\$1\ \|" \\n()R
414 .
if \\n(.$
-1 .
if !\\$2-99 .nr
)l
1
415 .
if \\n(.$
-1 .
if !\\$2-99 .
)I
"\\$1" "\\$2"
417 .de D
\" mark ±ps
: 4th indentation level
419 .
if \\n(nlu
-\\n()nu .sp
\\*(]Du
425 .nr
]x
\\n()du
-\\n()cu
426 .
if !\\n(.$ .
)I
\\*()D
\\n()S
427 .
if \\n(.$ .
if !\\n(.$
-1 .
)I
"\\$1" 0
428 .
if \\n(.$
-1 .
if \\$2-99 .
)I
"\\$1\ \|" \\n()S
429 .
if \\n(.$
-1 .
if !\\$2-99 .nr
)l
1
430 .
if \\n(.$
-1 .
if !\\$2-99 .
)I
"\\$1" "\\$2"
437 .
if !\\n()l .
if !\\$2 .nr
)A
\\n(.s
438 .
if !\\n()l .
if \\$2 .nr
)A
\\n(.s
*\\$2/\\n(]X
439 .
if \\n()l .nr
)A
\\n(.s
+\\$2
446 .de U
\" string suffix
: underline string
447 .
if !\w
\a\\$1\au
-.46m \
&\\$1\v'.55m'\l
'|
0\
(hy
'\v'-.55m'\\$2
448 .
if \w
\a\\$1\au
-.46m \
&\\$1\v'.09m'\l
'|
0\
(ul
'\v'-.09m'\\$2
450 .de DV
\" a b c d
: set vertical spacing
for indent levels
451 .
if \w
\a\\$1\a .ds
]A
\\$1
452 .
if \w
\a\\$2\a .ds
]B
\\$2
453 .
if \w
\a\\$3\a .ds
]C
\\$3
454 .
if \w
\a\\$4\a .ds
]D
\\$4
456 .de DF
\" num font ...
: define font positions
457 .
if \\n(.$
-1 .ds
)f
"\\$2
458 .if \\n(.$-1 .fp \\$1 \\$2
459 .if \\n(.$-1 .ft \\$2
460 .if \\n(.$-3 .fp \\$3 \\$4
461 .if \\n(.$-5 .fp \\$5 \\$6
462 .if \\n(.$-7 .fp \\$7 \\$8
472 'ta \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
506 .if \n(.A .ds )F FOIL
508 .ds )Y \n(mo/\n(dy/\n(yr