1
0

tmac.v 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519
  1. '\" Copyright (c) 1984 AT&T
  2. '\" All Rights Reserved
  3. '\"#ident "@(#)macros:vmca.src 1.17"
  4. .ifn .ds Tm \uTM\d
  5. .ift .ds Tm \v'-0.5m'\s-8TM\s+8\v'0.5m'
  6. .deVS
  7. .)j
  8. .nr)K 0i
  9. .nr)L 0i
  10. .nr)U 8i
  11. .nr)X 18
  12. .nr)H 0
  13. .nr)W 0
  14. .nr)O 0i
  15. .nr)M 0
  16. .if!\\n(.$ .)V
  17. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  18. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  19. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  20. ..
  21. .deVh
  22. .)j
  23. .nr)K 0.9i
  24. .nr)L 1i
  25. .nr)U 8i
  26. .nr)X 14
  27. .nr)H 1
  28. .nr)W 0
  29. .nr)O 0.2i
  30. .nr)M 0
  31. .if!\\n(.$ .)V
  32. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  33. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  34. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  35. ..
  36. .deSh
  37. .)j
  38. .nr)K 1.1i
  39. .nr)L 1i
  40. .nr)U 8i
  41. .nr)X 14
  42. .nr)H 1
  43. .nr)W 0
  44. .nr)O 0.2i
  45. .nr)M 1
  46. .if!\\n(.$ .)V
  47. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  48. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  49. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  50. ..
  51. .deVw
  52. .)j
  53. .nr)K 0i
  54. .nr)L 0i
  55. .nr)U 6i
  56. .nr)X 14
  57. .nr)H 0
  58. .nr)W 1
  59. .nr)O 0.2i
  60. .nr)M 0
  61. .if!\\n(.$ .)V
  62. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  63. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  64. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  65. ..
  66. .deSw
  67. .)j
  68. .nr)K 0i
  69. .nr)L 0i
  70. .nr)U 6i
  71. .nr)X 14
  72. .nr)H 0
  73. .nr)W 1
  74. .nr)O 0.2i
  75. .nr)M 1
  76. .if!\\n(.$ .)V
  77. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  78. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  79. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  80. ..
  81. .deVH
  82. .)j
  83. .nr)K 0i
  84. .nr)L 0i
  85. .nr)U 10i
  86. .nr)X 18
  87. .nr)H 1
  88. .nr)W 0
  89. .nr)O 0.5i
  90. .nr)M 0
  91. .if!\\n(.$ .)V
  92. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  93. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  94. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  95. ..
  96. .deSH
  97. .)j
  98. .nr)K 0.5i
  99. .nr)L 0i
  100. .nr)U 10i
  101. .nr)X 18
  102. .nr)H 1
  103. .nr)W 0
  104. .nr)O 0.5i
  105. .nr)M 1
  106. .if!\\n(.$ .)V
  107. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  108. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  109. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  110. ..
  111. .deVW
  112. .)j
  113. .nr)K 0i
  114. .nr)L 0i
  115. .nr)U 6.44i
  116. .nr)X 14
  117. .nr)H 0
  118. .nr)W 1
  119. .nr)O 0.4i
  120. .nr)M 0
  121. .if!\\n(.$ .)V
  122. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  123. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  124. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  125. ..
  126. .deSW
  127. .)j
  128. .nr)K 0i
  129. .nr)L 0i
  130. .nr)U 6.44i
  131. .nr)X 14
  132. .nr)H 0
  133. .nr)W 1
  134. .nr)O 0.4i
  135. .nr)M 1
  136. .if!\\n(.$ .)V
  137. .if\\n(.$ .if !\\n(.$-1 .)V "\\$1"
  138. .if\\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2"
  139. .if\\n(.$-2 .)V "\\$1" "\\$2" "\\$3"
  140. ..
  141. .de)V
  142. .fc
  143. .wh0i
  144. .if\\nX .wh -0.5i
  145. .nr)o 0u
  146. .if\\n()i .nr )o 10p
  147. .nr)U +\\n()ou
  148. .pl\\n()Uu+1.5i
  149. .if\\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu
  150. .na
  151. .fi
  152. .nh
  153. .lg0
  154. .ta0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i
  155. .ce0
  156. .in0i
  157. .ll7.54i
  158. .po0i
  159. .lt7.68i
  160. .if\\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1
  161. .nr)i 0
  162. .)t "'\l'0.38i'''\l'0.38i''" 1
  163. .sp0.5v
  164. .po0.23i
  165. .lt7.06i
  166. .if\\n(.$-1 .ds )N "\\$2
  167. .if\\n(.$-2 .ds )Y "\\$3
  168. .tl\\*()Y
  169. .tl\\*()N
  170. .if\\n(.$ .tl \\*()F \\$1
  171. .if!\\n(.$ .tl \\*()F %
  172. .po
  173. .sp|0.68i+\\n()ou
  174. .po0.26i+\\n()Lu+\\n()Ou
  175. .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
  176. .if\\n()H .)t "'|''|'"
  177. .po
  178. .sp|1i+\\n()Ou+\\n()ou
  179. .if!\\n(.A .)e
  180. .po0.1i
  181. .lt7.4i
  182. .if\\n()W .)t "'_''_'"
  183. .po
  184. .sp|1i+\\n()ou
  185. .if!\\n(.A .)e
  186. .po0.23i+\\n()Lu
  187. .lt7.06i-\\n()Lu-\\n()Lu
  188. .tl++
  189. .sp-3p
  190. .if\\n()M .if \\n()W .sp \\n()Ou
  191. .po
  192. .nr)J \\n()Uu
  193. .if\\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou
  194. .nr)E \\n()Ju
  195. .wh\\n()Eu )Z
  196. .S \\n()X 6i-\\n()Ku-\\n()Ku
  197. .I "" A no-space
  198. .sp.5v
  199. .nr)n \\n(nlu
  200. ..
  201. .de)Z
  202. .wh\\n()Eu
  203. .nr)w 0
  204. .ev1
  205. .)g
  206. 'sp|\\n()Uu
  207. .if!\\n(.A .)e
  208. .po0.23i+\\n()Lu
  209. .lt7.06i-\\n()Lu-\\n()Lu
  210. .tl++
  211. .po
  212. 'sp|\\n()Uu-\\n()Ou
  213. .if!\\n(.A .)e
  214. .po0.1i
  215. .lt7.4i
  216. .if\\n()W .)t "'_''_'"
  217. .po
  218. 'sp|\\n()Uu+0.32i
  219. .po0.26i+\\n()Lu+\\n()Ou
  220. .lt7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou
  221. .if\\n()H .)t "'|''|'"
  222. .po
  223. .if!\\n()H 'sp 1v
  224. 'sp1v
  225. .ev
  226. .if\\nX .pl \\n()Gu
  227. .if\\nX .wh -0.5i )m
  228. .wh0i )P
  229. ..
  230. .de)m
  231. .bp
  232. ..
  233. .de)z
  234. .pl\\n(.pu+2i
  235. .br
  236. .if\\n()i \{.ps 10
  237. .lt6i
  238. .tl*** No input or no ``foil start'' macro in input. \}
  239. .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
  240. .nr)v \\n()w
  241. .sp|\\n(.pu-2.8i
  242. .if\\nX .wh -0.5i
  243. .if\\nX .pl \\n(.pu+2i
  244. \&
  245. .br
  246. .)g
  247. .po0i
  248. .ll6i
  249. .ce0
  250. .in0i
  251. .if\\n(.A .sp -1.1v
  252. .if\\n(.A .sp 0.1v
  253. .if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
  254. left to bottom of previous foil.
  255. .if\\n(.A .if !\\n()v ==> *** Previous foil full; \
  256. check for overflow.
  257. .sp|\\n(.pu-2i
  258. .lt7.68i
  259. .)t "'\l'0.38i'''\l'0.38i''" 1
  260. .)t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \}
  261. ..
  262. .de)t
  263. .if!\\n(.A .if \\n(.$-1 .)e
  264. .if!\\n(.A .tl \\$1
  265. ..
  266. .de)e
  267. .po0i
  268. .lt1i
  269. .tl'\ '''
  270. 'sp-1v
  271. .po
  272. .lt
  273. ..
  274. .de)P
  275. .pl2i
  276. .if\\nX .pl \\n()Gu
  277. ..
  278. .de)j
  279. .br
  280. .if\\n()i .if \\n(nl \{.ps 10
  281. .lt6i
  282. .tl*** Text before ``foil start'' macro in input. \}
  283. .if!\\n()i \{.nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu
  284. .nr)v \\n()w
  285. .sp|\\n(.pu-0.8i
  286. \&
  287. .br\}
  288. .)g
  289. .if!\\n()i \{.po 0i
  290. .ll6i
  291. .ce0
  292. .in0i
  293. .if\\n(.A .sp -1.1v
  294. .if\\n(.A .sp 0.1v
  295. .if\\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \
  296. left to bottom of previous foil.
  297. .if\\n(.A .if !\\n()v ==> *** Previous foil full; \
  298. check for overflow.
  299. .br
  300. .ll
  301. .po\}
  302. .if\\n(nl .bp
  303. .nr)w 1
  304. ..
  305. .de)g
  306. .ft\\*()f
  307. .cs\\*()f
  308. .ps8
  309. .vs10p
  310. .ss16
  311. ..
  312. .deT
  313. .br
  314. .if\\n(nlu-\\n()nu .sp .5v
  315. .nr]a \\n(.s
  316. .ps
  317. .nr]b \\n(.s
  318. .ps
  319. .nr)u \\n(.iu
  320. .in0i
  321. .ps+4
  322. .ce
  323. \&\\$1
  324. .in\\n()uu
  325. .ps\\n(]b
  326. .ps\\n(]a
  327. .sp.5v
  328. .nr)n \\n(nlu
  329. ..
  330. .deS
  331. .if!\w\\$1 .ps
  332. .if\w\\$1 .if !\\$1+1 .ps \\$1
  333. .if\w\\$1 .if \\$1 .nr )y \\n(.s
  334. .if\w\\$1 .if \\$1 .nr )y \\$1
  335. .if\w\\$1 .if \\$1-99 .nr )y \\n()X
  336. .if\w\\$1 .if \\$1 .ps \\n()y
  337. .vs\\n(.sp*5u/4u
  338. .ss16
  339. .nr)a .8i+\\n()Ku
  340. .nr]c \\n(.s
  341. .ps
  342. .nr]d \\n(.s
  343. .ps
  344. .nr)A \\n(.s*\\n()Q/\\n(]X
  345. .ps\\n()A
  346. .nr)b \w\\*()B\ u
  347. .ps
  348. .nr)A \\n(.s*\\n()R/\\n(]X
  349. .ps\\n()A
  350. .nr)c \\n()bu+\w\\*()C\ u
  351. .ps
  352. .nr)A \\n(.s*\\n()S/\\n(]X
  353. .ps\\n()A
  354. .nr)d \\n()cu+\w\\*()D\ u
  355. .ps\\n(]d
  356. .ps\\n(]c
  357. .if\\n(.$-1 .nr )u \\$2
  358. .if\\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i
  359. .if\\n(.$-1 .if \\n()uu-7u .nr )p \\$2
  360. .nr)q \\n()pu-0i
  361. .nr)r \\n()qu-0i
  362. .nr)s \\n()ru-0i
  363. .nr)T \\n(.sp*5u/4u
  364. .nr)E \\n()Ju-\\n()Tu
  365. .ch)Z \\n()Eu
  366. ..
  367. .deI
  368. .if!\w\\$1u .nr )k 0i
  369. .if\w\\$1u .if !\\$1 .nr )u 0i-\\$1
  370. .if\w\\$1u .if \\$1 .nr )u \\$1
  371. .if\w\\$1u .if !\\n()uu-7u .nr )k \\$1i
  372. .if\w\\$1u .if \\n()uu-7u .nr )k \\$1
  373. .if\\n(.$-1 .A \\$3
  374. ..
  375. .deA
  376. .br
  377. .if!\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au
  378. .nr)n \\n(nlu
  379. .po\\n()au
  380. .in0u+\\n()ku
  381. .ll\\n()pu
  382. .lt\\n()pu
  383. ..
  384. .deB
  385. .br
  386. .if\\n(nlu-\\n()nu .sp \\*(]Bu
  387. .nr)n \\n(nlu
  388. .in\\n()bu+\\n()ku
  389. .ll\\n()qu
  390. .lt\\n()qu
  391. .nr)l 0
  392. .nr]x \\n()bu
  393. .if!\\n(.$ .)I \\*()B \\n()Q
  394. .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
  395. .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()Q
  396. .if\\n(.$-1 .if !\\$2-99 .nr )l 1
  397. .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
  398. ..
  399. .deC
  400. .br
  401. .if\\n(nlu-\\n()nu .sp \\*(]Cu
  402. .nr)n \\n(nlu
  403. .in\\n()cu+\\n()ku
  404. .ll\\n()ru
  405. .lt\\n()ru
  406. .nr)l 0
  407. .nr]x \\n()cu-\\n()bu
  408. .if!\\n(.$ .)I \\*()C \\n()R
  409. .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
  410. .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()R
  411. .if\\n(.$-1 .if !\\$2-99 .nr )l 1
  412. .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
  413. ..
  414. .deD
  415. .br
  416. .if\\n(nlu-\\n()nu .sp \\*(]Du
  417. .nr)n \\n(nlu
  418. .in\\n()du+\\n()ku
  419. .ll\\n()su
  420. .lt\\n()su
  421. .nr)l 0
  422. .nr]x \\n()du-\\n()cu
  423. .if!\\n(.$ .)I \\*()D \\n()S
  424. .if\\n(.$ .if !\\n(.$-1 .)I "\\$1" 0
  425. .if\\n(.$-1 .if \\$2-99 .)I "\\$1\ \|" \\n()S
  426. .if\\n(.$-1 .if !\\$2-99 .nr )l 1
  427. .if\\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2"
  428. ..
  429. .de)I
  430. .nr]a \\n(.s
  431. .ps
  432. .nr]b \\n(.s
  433. .ps
  434. .if!\\n()l .if !\\$2 .nr )A \\n(.s
  435. .if!\\n()l .if \\$2 .nr )A \\n(.s*\\$2/\\n(]X
  436. .if\\n()l .nr )A \\n(.s+\\$2
  437. .ps\\n()A
  438. .ti-\w\\$1\ u
  439. \&\\$1\ \&\c
  440. .ps\\n(]b
  441. .ps\\n(]a
  442. ..
  443. .deU
  444. .if!\w\\$1u-.46m \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2
  445. .if\w\\$1u-.46m \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2
  446. ..
  447. .deDV
  448. .if\w\\$1 .ds ]A \\$1
  449. .if\w\\$2 .ds ]B \\$2
  450. .if\w\\$3 .ds ]C \\$3
  451. .if\w\\$4 .ds ]D \\$4
  452. ..
  453. .deDF
  454. .if\\n(.$-1 .ds )f "\\$2
  455. .if\\n(.$-1 .fp \\$1 \\$2
  456. .if\\n(.$-1 .ft \\$2
  457. .if\\n(.$-3 .fp \\$3 \\$4
  458. .if\\n(.$-5 .fp \\$5 \\$6
  459. .if\\n(.$-7 .fp \\$7 \\$8
  460. ..
  461. .deSP
  462. .sp\\$1
  463. ..
  464. .deBR
  465. .br
  466. ..
  467. .deTA
  468. 'ta\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  469. ..
  470. .deCE
  471. .ce\\$1
  472. ..
  473. .deTI
  474. .ti\\$1
  475. ..
  476. .deFI
  477. .fi
  478. ..
  479. .deNF
  480. .nf
  481. ..
  482. .deAD
  483. 'ad\\$1
  484. ..
  485. .deNA
  486. 'na
  487. ..
  488. .deHY
  489. 'hy\\$1
  490. ..
  491. .deNH
  492. 'nh
  493. ..
  494. .deSO
  495. 'so\\$1
  496. ..
  497. .deNX
  498. 'nx\\$1
  499. ..
  500. .ds)F FOIL
  501. .if\n(.A .ds )F FOIL
  502. .ds)N Bell\ Labs
  503. .ds)Y \n(mo/\n(dy/\n(yr
  504. .ds)B \(bu\ \|
  505. .ds)C \(em\ \|
  506. .ds)D \(bu\ \|
  507. .ds]A .5v
  508. .ds]B .5v
  509. .ds]C .5v
  510. .ds]D 0v
  511. .nr)G 11i-7.5p
  512. .nr)Q 5
  513. .nr)R 5
  514. .nr)S 3
  515. .nr]X 6
  516. .nr)i 1
  517. .nr)w 0
  518. .em)z
  519. .DF 1 H