harvey/sys/lib/tmac/tmac.v

'\"		Copyright (c) 1984 AT&T
'\"		  All Rights Reserved
'\"#ident	"@(#)macros:vmca.src	1.17"
.if n .ds Tm \uTM\d
.if t .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
.
.de VS\"	foil-# foil-id date: start 7" wide × 7" high foil
.)j
.nr )K 0i
.nr )L 0i
.nr )U 8i
.nr )X 18
.nr )H 0
.nr )W 0
.nr )O 0i
.nr )M 0
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de Vh\"	.VS but 5" wide × 7" high
.)j
.nr )K 0.9i
.nr )L 1i
.nr )U 8i
.nr )X 14
.nr )H 1
.nr )W 0
.nr )O 0.2i
.nr )M 0
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de Sh\"	.VS but 5" wide × 7" high
.)j
.nr )K 1.1i
.nr )L 1i
.nr )U 8i
.nr )X 14
.nr )H 1
.nr )W 0
.nr )O 0.2i
.nr )M 1
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de Vw\"	.VS but 7" wide × 5" high
.)j
.nr )K 0i
.nr )L 0i
.nr )U 6i
.nr )X 14
.nr )H 0
.nr )W 1
.nr )O 0.2i
.nr )M 0
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de Sw\"	.VS but 7" wide × 5" high
.)j
.nr )K 0i
.nr )L 0i
.nr )U 6i
.nr )X 14
.nr )H 0
.nr )W 1
.nr )O 0.2i
.nr )M 1
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de VH\"	.VS but 7" wide × 9" high
.)j
.nr )K 0i
.nr )L 0i
.nr )U 10i
.nr )X 18
.nr )H 1
.nr )W 0
.nr )O 0.5i
.nr )M 0
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de SH\"	.VS but 7" wide × 9" high
.)j
.nr )K 0.5i
.nr )L 0i
.nr )U 10i
.nr )X 18
.nr )H 1
.nr )W 0
.nr )O 0.5i
.nr )M 1
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de VW\"	.VS but 7" wide × 5.4" high
.)j
.nr )K 0i
.nr )L 0i
.nr )U 6.44i
.nr )X 14
.nr )H 0
.nr )W 1
.nr )O 0.4i
.nr )M 0
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.de SW\"	.VS but 7" wide × 5.4" high
.)j
.nr )K 0i
.nr )L 0i
.nr )U 6.44i
.nr )X 14
.nr )H 0
.nr )W 1
.nr )O 0.4i
.nr )M 1
.if !\\n(.$ .)V
.if \\n(.$ .if !\\n(.$-1 .)V "\\$1"
.if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
.if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
..
.
.de )V
.fc
.wh 0i
.if \\nX .wh -0.5i
.nr )o 0u
.if \\n()i .nr )o 10p
.nr )U +\\n()ou
.pl \\n()Uu+1.5i
.if \\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu
.na
.fi
.nh
.lg 0
.ta 0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
.ce 0
.in 0i
.ll 7.54i
.po 0i
.lt 7.68i
.if \\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1
.nr )i 0
.)t "'\l'0.38i'''\l'0.38i''" 1
.sp 0.5v
.po 0.23i
.lt 7.06i
.if \\n(.$-1 .ds )N "\\$2
.if \\n(.$-2 .ds )Y "\\$3
.tl \\*()Y
.tl \\*()N
.if \\n(.$ .tl \\*()F \\$1
.if !\\n(.$ .tl \\*()F %
.po
.sp |0.68i+\\n()ou
.po 0.26i+\\n()Lu+\\n()Ou
.lt 7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
.if \\n()H .)t "'|''|'"
.po
.sp |1i+\\n()Ou+\\n()ou
.if !\\n(.A .)e
.po 0.1i
.lt 7.4i
.if \\n()W .)t "'_''_'"
.po
.sp |1i+\\n()ou
.if !\\n(.A .)e
.po 0.23i+\\n()Lu
.lt 7.06i-\\n()Lu-\\n()Lu
.tl ++
.sp -3p
.if \\n()M .if \\n()W .sp \\n()Ou
.po
.nr )J \\n()Uu
.if \\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou
.nr )E \\n()Ju
.wh \\n()Eu )Z
.S \\n()X 6i-\\n()Ku-\\n()Ku
.I "" A no-space
.sp .5v
.nr )n \\n(nlu
..
.de )Z
.wh \\n()Eu
.nr )w 0
.ev 1
.)g
'sp |\\n()Uu
.if !\\n(.A .)e
.po 0.23i+\\n()Lu
.lt 7.06i-\\n()Lu-\\n()Lu
.tl ++
.po
'sp |\\n()Uu-\\n()Ou
.if !\\n(.A .)e
.po 0.1i
.lt 7.4i
.if \\n()W .)t "'_''_'"
.po
'sp |\\n()Uu+0.32i
.po 0.26i+\\n()Lu+\\n()Ou
.lt 7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
.if \\n()H .)t "'|''|'"
.po
.if !\\n()H 'sp 1v
'sp 1v
.ev
.if \\nX .pl \\n()Gu
.if \\nX .wh -0.5i )m
.wh 0i )P
..
.de )m
.bp
..
.de )z
.pl \\n(.pu+2i
.br
.if \\n()i \{.ps 10
.lt 6i
.tl *** No input or no ``foil start'' macro in input. \}
.if !\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
.nr )v \\n()w
.sp |\\n(.pu-2.8i
.if \\nX .wh -0.5i
.if \\nX .pl \\n(.pu+2i
\&
.br
.)g
.po 0i
.ll 6i
.ce 0
.in 0i
.if \\n(.A .sp -1.1v
.if \\n(.A .sp 0.1v
.if \\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
left to bottom of previous foil.
.if \\n(.A .if !\\n()v ==> *** Previous foil full; \
check for overflow.
.sp |\\n(.pu-2i
.lt 7.68i
.)t "'\l'0.38i'''\l'0.38i''" 1
.)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}
..
.de )t
.if !\\n(.A .if \\n(.$-1 .)e
.if !\\n(.A .tl \\$1
..
.de )e
.po 0i
.lt 1i
.tl '\ '''
'sp -1v
.po
.lt
..
.de )P
.pl 2i
.if \\nX .pl \\n()Gu
..
.de )j
.br
.if \\n()i .if \\n(nl \{.ps 10
.lt 6i
.tl *** Text before ``foil start'' macro in input. \}
.if !\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
.nr )v \\n()w
.sp |\\n(.pu-0.8i
\&
.br\}
.)g
.if !\\n()i \{.po 0i
.ll 6i
.ce 0
.in 0i
.if \\n(.A .sp -1.1v
.if \\n(.A .sp 0.1v
.if \\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
left to bottom of previous foil.
.if \\n(.A .if !\\n()v ==> *** Previous foil full; \
check for overflow.
.br
.ll
.po\}
.if \\n(nl .bp
.nr )w 1
..
.de )g
.ft \\*()f
.cs \\*()f
.ps 8
.vs 10p
.ss 16
..
.
.de T\"		string: title
.br
.if \\n(nlu-\\n()nu .sp .5v
.nr ]a \\n(.s
.ps
.nr ]b \\n(.s
.ps
.nr )u \\n(.iu
.in 0i
.ps +4
.ce
\&\\$1
.in \\n()uu
.ps \\n(]b
.ps \\n(]a
.sp .5v
.nr )n \\n(nlu
..
.de S\"		ps line-length: set point size & line length
.if !\w\\$1 .ps
.if \w\\$1 .if !\\$1+1 .ps \\$1
.if \w\\$1 .if \\$1 .nr )y \\n(.s
.if \w\\$1 .if \\$1 .nr )y \\$1
.if \w\\$1 .if \\$1-99 .nr )y \\n()X
.if \w\\$1 .if \\$1 .ps \\n()y
.vs \\n(.sp*5u/4u
.ss 16
.nr )a .8i+\\n()Ku
.nr ]c \\n(.s
.ps
.nr ]d \\n(.s
.ps
.nr )A \\n(.s*\\n()Q/\\n(]X
.ps \\n()A
.nr )b \w\\*()B\ u
.ps
.nr )A \\n(.s*\\n()R/\\n(]X
.ps \\n()A
.nr )c \\n()bu+\w\\*()C\ u
.ps
.nr )A \\n(.s*\\n()S/\\n(]X
.ps \\n()A
.nr )d \\n()cu+\w\\*()D\ u
.ps \\n(]d
.ps \\n(]c
.if \\n(.$-1 .nr )u \\$2
.if \\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i
.if \\n(.$-1 .if \\n()uu-7u .nr )p \\$2
.nr )q \\n()pu-0i
.nr )r \\n()qu-0i
.nr )s \\n()ru-0i
.nr )T \\n(.sp*5u/4u
.nr )E \\n()Ju-\\n()Tu
.ch )Z \\n()Eu
..
.de I\"		in a a-arg: set text indent
.if !\w\\$1u .nr )k 0i
.if \w\\$1u .if !\\$1 .nr )u 0i-\\$1
.if \w\\$1u .if \\$1 .nr )u \\$1
.if \w\\$1u .if !\\n()uu-7u .nr )k \\$1i
.if \w\\$1u .if \\n()uu-7u .nr )k \\$1
.if \\n(.$-1 .A \\$3
..
.de A\"		nospace: 1st indentation level
.br
.if !\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
.nr )n \\n(nlu
.po \\n()au
.in 0u+\\n()ku
.ll \\n()pu
.lt \\n()pu
..
.de B\"		mark ±ps: 2nd indentation level
.br
.if \\n(nlu-\\n()nu .sp \\*(]Bu
.nr )n \\n(nlu
.in \\n()bu+\\n()ku
.ll \\n()qu
.lt \\n()qu
.nr )l 0
.nr ]x \\n()bu
.if !\\n(.$ .)I \\*()B \\n()Q
.if \\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if \\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q
.if \\n(.$-1 .if !\\$2-99 .nr )l 1
.if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.de C\"		mark ±ps: 3rd indentation level
.br
.if \\n(nlu-\\n()nu .sp \\*(]Cu
.nr )n \\n(nlu
.in \\n()cu+\\n()ku
.ll \\n()ru
.lt \\n()ru
.nr )l 0
.nr ]x \\n()cu-\\n()bu
.if !\\n(.$ .)I \\*()C \\n()R
.if \\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if \\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R
.if \\n(.$-1 .if !\\$2-99 .nr )l 1
.if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.de D\"		mark ±ps: 4th indentation level
.br
.if \\n(nlu-\\n()nu .sp \\*(]Du
.nr )n \\n(nlu
.in \\n()du+\\n()ku
.ll \\n()su
.lt \\n()su
.nr )l 0
.nr ]x \\n()du-\\n()cu
.if !\\n(.$ .)I \\*()D \\n()S
.if \\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
.if \\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S
.if \\n(.$-1 .if !\\$2-99 .nr )l 1
.if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
..
.de )I
.nr ]a \\n(.s
.ps
.nr ]b \\n(.s
.ps
.if !\\n()l .if !\\$2 .nr )A \\n(.s
.if !\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X
.if \\n()l .nr )A \\n(.s+\\$2
.ps \\n()A
.ti -\w\\$1\ u
\&\\$1\ \&\c
.ps \\n(]b
.ps \\n(]a
..
.de U\"		string suffix: underline string
.if !\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2
.if \w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2
..
.de DV\"	a b c d: set vertical spacing for indent levels
.if \w\\$1 .ds ]A \\$1
.if \w\\$2 .ds ]B \\$2
.if \w\\$3 .ds ]C \\$3
.if \w\\$4 .ds ]D \\$4
..
.de DF\"	num font ...: define font positions
.if \\n(.$-1 .ds )f "\\$2
.if \\n(.$-1 .fp \\$1 \\$2
.if \\n(.$-1 .ft \\$2
.if \\n(.$-3 .fp \\$3 \\$4
.if \\n(.$-5 .fp \\$5 \\$6
.if \\n(.$-7 .fp \\$7 \\$8
..
.
.de SP
.sp \\$1
..
.de BR
.br
..
.de TA
'ta \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
..
.de CE
.ce \\$1
..
.de TI
.ti \\$1
..
.de FI
.fi
..
.de NF
.nf
..
.de AD
'ad \\$1
..
.de NA
'na
..
.de HY
'hy \\$1
..
.de NH
'nh
..
.de SO
'so \\$1
..
.de NX
'nx \\$1
..
.
.ds )F FOIL
.if \n(.A .ds )F FOIL
.ds )N Bell\ Labs
.ds )Y \n(mo/\n(dy/\n(yr
.ds )B \(bu\ \|
.ds )C \(em\ \|
.ds )D \(bu\ \|
.ds ]A .5v
.ds ]B .5v
.ds ]C .5v
.ds ]D 0v
.nr )G 11i-7.5p
.nr )Q 5
.nr )R 5
.nr )S 3
.nr ]X 6
.nr )i 1
.nr )w 0
.em )z
.DF 1 H