1 2' # month name 3.if t .tr ~\(ap 4.if "\nd"0" .nr m \n(mo-1 5.if "\nm"0" .ds ]m January 6.if "\nm"1" .ds ]m February 7.if "\nm"2" .ds ]m March 8.if "\nm"3" .ds ]m April 9.if "\nm"4" .ds ]m May 10.if "\nm"5" .ds ]m June 11.if "\nm"6" .ds ]m July 12.if "\nm"7" .ds ]m August 13.if "\nm"8" .ds ]m September 14.if "\nm"9" .ds ]m October 15.if "\nm"10" .ds ]m November 16.if "\nm"11" .ds ]m December 17' # set the date 18.if n \{.nr m \nm+1 19. ie \nd .ds ]W Modified \nm/\nd/\ny 20. el .ds ]W Printed \n(mo/\n(dy/\n(yr\} 21.if t \{.ie \nd .ds ]W \*(]m \nd, 19\ny 22. el .ds ]W \*(]m \n(dy, 19\n(yr\} 23.de UC 24.if t .ds ]W 1990 DECWRL/Livermore Magic 25.. 26' # reset the basic page layout 27.de }E 28.}f 29.in \\n()Ru+\\n(INu 30.ll \\n(LLu 31.. 32' # default tabs 33.de DT 34'ta .5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i 6.5i 35.. 36' # set type font and size 37.de }f 38.ps 10 39.ft 1 40.. 41' # handle the head of the page 42.de }H 43.ev 1 44.}C 45'sp .5i 46.ft 1 47.ps 10 48.tl @\\*(]H@\\*(]D@\\*(]H@ 49'sp .5i 50.ev 51.ns 52.. 53' # handle the foot of the page 54.de }F 55.ev 1 56.ft 1 57.ps 10 58'sp .5i 59.tl @\\*(]W@\\*(]L@%@ 60'bp 61.ev 62.. 63' # the cut mark 64.if n .ig 65.de }C 66.po .1i 67.tl '-' 68.po 69.. 70' # the final cut mark 71.de }M 72.}N 73.wh -1p }C 74.ll \\n(LLu 75.. 76' # no runout unless there was a .TH 77.de }K 78.}N 79.pl 1 80.ll \\n(LLu 81.. 82.em }K 83' # set title and heading 84.de TH 85.if t .ds ]W 1990 DECWRL/Livermore Magic 86.PD 87.if n .nr IN .5i 88.if t .nr IN .5i 89.nr LL \\n(.l 90.ds ]H \\$1\|(\|\\$2\|) 91.ds ]D CAD Tool User's Manual 92.wh 0 }H 93.if t .wh -1i }F 94.if n .wh -1.167i }F 95.em }M 96.if \\n(nl .bp 1 97.ds ]L \\$3 98.}E 99.DT 100.nr )I .5i 101.nr )R 0 102.if n .na 103.. 104' # section heading 105.de SH 106.}X 0 107.nr )E 2 108\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 109.. 110' # sub section heading 111.de SS 112.}X \\n()Ru+\\n(INu 113\&\\$1 \|\\$2 \|\\$3 \|\\$4 \|\\$5 \|\\$6 114.br 115.. 116' # subroutine for section heading 117.de }X 118.}E 119.ti \\$1 120.sp \\n()Pu 121.ne 2 122.nr )R 0 123.fi 124.it 1 }N 125.SM 126.B 127.. 128' # end of SH (cf }X above and }N below) 129.de }2 130.nr )E 0 131.}E 132.nr )I .5i 133.ns 134.. 135' # italic 136.de I 137.ft 2 138.it 1 }N 139.if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 140.. 141' # bold 142.de B 143.ft 3 144.it 1 }N 145.if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 146.. 147' # small 148.de SM 149.ps 9 150.it 1 }N 151.if !"\\$1"" \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 152.. 153' # combinations of Roman, italic, bold 154.de RI 155.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 156.. 157.de RB 158.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 159.. 160.de IR 161.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 162.. 163.de IB 164.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 165.. 166.de BR 167.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 168.. 169.de BI 170.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" 171.. 172' # make special case of shift out of italic 173.de }S 174.ds ]F 175.if "\\$1"2" .if !"\\$5"" .ds ]F\^ 176.ie !"\\$4"" .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(]F" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9" 177.el \\$3 178.}f 179.. 180' # paragraph 181.de LP 182.PP 183.. 184.de PP 185.sp \\n()Pu 186.ne 2 187.}E 188.nr )I .5i 189.ns 190.. 191' # paragraph distance 192.de PD 193.if t .nr )P .4v 194.if n .nr )P 1v 195.if !"\\$1"" .nr )P \\$1v 196.. 197' # hanging indent 198.de HP 199.sp \\n()Pu 200.ne 2 201.if !"\\$1"" .nr )I \\$1n 202.ll \\n(LLu 203.in \\n()Ru+\\n(INu+\\n()Iu 204.ti \\n()Ru+\\n(INu 205.}f 206.. 207' # indented paragraph 208.de IP 209.TP \\$2 210\&\\$1 211.. 212' # hanging label 213.de TP 214.if !"\\$1"" .nr )I \\$1n 215.sp \\n()Pu 216.in \\n()Ru 217.nr )E 1 218.ns 219.it 1 }N 220.di ]B 221.. 222' # end of TP (cf }N below) 223.de }1 224.ds ]X \&\\*(]B\\ 225.nr )E 0 226.if !"\\$1"" .nr )I \\$1n 227.}f 228.ll \\n(LLu 229.in \\n()Ru+\\n(INu+\\n()Iu 230.ti \\n(INu 231.ie !\\n()Iu+\\n()Ru-\w@\\*(]X@u-3p \{\\*(]X 232.br\} 233.el \\*(]X\h@|\\n()Iu+\\n()Ru@\c 234.}f 235.. 236' # handle end of 1-line features 237.de }N 238.if \\n()E .br 239.di 240.if "\\n()E"0" .}f 241.if "\\n()E"1" .}1 242.if "\\n()E"2" .}2 243.nr )E 0 244.. 245' # increase relative indent 246.de RS 247.nr ]\\n+()p \\n()I 248.nr )\\n()p \\n()R 249.ie !"\\$1"" .nr )R +\\$1n 250.el .nr )R +\\n()I 251.nr )I .5i 252.}E 253.. 254' # decrease relative indent 255.de RE 256.if !"\\$1"" \{.ie "\\$1"0" .nr )p 1 1 257. el .nr )p \\$1 1\} 258.ds ]i \\*(]I\\n()p 259.ds ]r \\*(]R\\n()p 260.nr )I \\*(]i 261.nr )R \\*(]r 262.if \\n()p .nr )p -1 263.}E 264.. 265.nr )p 0 1 266.ds ]I \\\\n(] 267.ds ]R \\\\n() 268.bd S 3 3 269.if t .ds R \(rg 270.if n .ds R (Reg.) 271.ds S \s10 272.hy 14 273