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