Subversion Repositories planix.SVN

'\"		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