ref: 6eed7a47863553bab31c7f9b1b5b314989efc640
dir: /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