![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vmca.src CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff / macros.d|
Return to vmca.src CVS log | Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff / macros.d |
1.1 ! root 1: '''\" PWB View Graph and Slide Macros - 1.9 of @(#)vmca.src 1.9 ! 2: '''\" Nroff/Troff Version @(#)1.9 ! 3: ''\" For Tektronix 4014 scope, use "... troff -rX1 -t..." and pipe into tc. ! 4: ''\" Macro names used: )I )P )V )Z )e )g )j )m )t )z A AD B BR C CE D DF ! 5: ''\" FI HY I NA NF NH NX S SH SP SW Sh SO Sw T TA ! 6: ''\" TI U VH VS VW Vh Vw ! 7: ''\" String names used: )B )C )D )F )N )Y )f ]A ]B ]C ]D Tm ! 8: ''\" Number register names used: )A )E )G )H )J )K )L )M )O )Q )R )S )T ! 9: ''\" )U )W )X )a )b )c )d )i )k )l )n )o )p )q )r )s )u )v ! 10: ''\" )w )x )y ]a ]b ]c ]d ]x X ! 11: ''\" names of the form )? not used: none ! 12: ''\" names of the form ]? USED: ]A ]B ]C ]D ]a ]b ]c ]d ]x ! 13: '''\" Tm: Trademark indicator ! 14: .if n .ds Tm \uTM\d ! 15: .if t .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m' ! 16: '\" FOIL-SIZE DEFINITION MACROS ! 17: '\" .VS - foil start (V_iew graph: 7 * 7 S_quare) E-7351 or E-7351-R ! 18: .de VS ! 19: .)j\" clean-up, a "troff -a" advisory, and a fresh start ! 20: .nr )K 0i\" left margin bias ! 21: .nr )L 0i\" cross-hair bias ! 22: .nr )U 8i\" page length minus 1.5 inches ! 23: .nr )X 18\" default point size ! 24: .nr )H 0\" high flag ! 25: .nr )W 0\" wide flag ! 26: .nr )O 0i\" 35mm slide cut offset ! 27: .nr )M 0\" 35mm slide flag ! 28: .if !\\n(.$ .)V ! 29: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 30: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 31: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 32: .. ! 33: '\" .Vh - foil start (V_iew graph: 5 wide * 7 h_igh) E-7351-A ! 34: .de Vh ! 35: .)j ! 36: .nr )K 0.9i ! 37: .nr )L 1i ! 38: .nr )U 8i ! 39: .nr )X 14 ! 40: .nr )H 1 ! 41: .nr )W 0 ! 42: .nr )O 0.2i ! 43: .nr )M 0 ! 44: .if !\\n(.$ .)V ! 45: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 46: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 47: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 48: .. ! 49: '\" .Sh - foil start (S_lide [35mm]: 5 wide * 7 h_igh) E-7351-A ! 50: .de Sh ! 51: .)j ! 52: .nr )K 1.1i ! 53: .nr )L 1i ! 54: .nr )U 8i ! 55: .nr )X 14 ! 56: .nr )H 1 ! 57: .nr )W 0 ! 58: .nr )O 0.2i ! 59: .nr )M 1 ! 60: .if !\\n(.$ .)V ! 61: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 62: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 63: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 64: .. ! 65: '\" .Vw - foil start (V_iew graph: 7 w_ide * 5 high) E-7351-B ! 66: .de Vw ! 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 0 ! 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: '\" .Sw - foil start (S_lide [35mm]: 7 w_ide * 5 high) E-7351-B ! 82: .de Sw ! 83: .)j ! 84: .nr )K 0i ! 85: .nr )L 0i ! 86: .nr )U 6i ! 87: .nr )X 14 ! 88: .nr )H 0 ! 89: .nr )W 1 ! 90: .nr )O 0.2i ! 91: .nr )M 1 ! 92: .if !\\n(.$ .)V ! 93: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 94: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 95: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 96: .. ! 97: '\" .VH - foil start (V_iew graph: 7 wide * 9 H_igh) E-8814 ! 98: .de VH ! 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: '\" .SH - foil start (S_lide [35mm]: 7 wide * 9 H_igh) E-8814 ! 114: .de SH ! 115: .)j ! 116: .nr )K 0.5i ! 117: .nr )L 0i ! 118: .nr )U 10i ! 119: .nr )X 18 ! 120: .nr )H 1 ! 121: .nr )W 0 ! 122: .nr )O 0.5i ! 123: .nr )M 1 ! 124: .if !\\n(.$ .)V ! 125: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 126: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 127: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 128: .. ! 129: '\" .VW - foil start (V_iew graph: 9 W_ide * 7 high) E-8814 ! 130: .de VW ! 131: .)j ! 132: .nr )K 0i\" (This one produces foils that are ! 133: .nr )L 0i\" 7 * 5.44 inches, and therefore must ! 134: .nr )U 6.44i\" be enlarged to 9 * 7 before use.) ! 135: .nr )X 14 ! 136: .nr )H 0 ! 137: .nr )W 1 ! 138: .nr )O 0.4i ! 139: .nr )M 0 ! 140: .if !\\n(.$ .)V ! 141: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 142: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 143: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 144: .. ! 145: '\" .SW - foil start (S_lide [35mm]: 9 W_ide * 7 high) E-8814 ! 146: .de SW ! 147: .)j ! 148: .nr )K 0i\" (This one produces foils that are ! 149: .nr )L 0i\" 7 * 5.44 inches, and therefore must ! 150: .nr )U 6.44i\" be enlarged to 9 * 7 before use.) ! 151: .nr )X 14 ! 152: .nr )H 0 ! 153: .nr )W 1 ! 154: .nr )O 0.4i ! 155: .nr )M 1 ! 156: .if !\\n(.$ .)V ! 157: .if \\n(.$ .if !\\n(.$-1 .)V "\\$1" ! 158: .if \\n(.$-1 .if !\\n(.$-2 .)V "\\$1" "\\$2" ! 159: .if \\n(.$-2 .)V "\\$1" "\\$2" "\\$3" ! 160: .. ! 161: .de )V\" common part of foil start macro ! 162: .fc\" in case tbl left them on ! 163: .wh 0i\" remove page shortener trap ! 164: .if \\nX .wh -0.5i\" remove Tek scope trap ! 165: .nr )o 0u ! 166: .if \\n()i .nr )o 10p ! 167: .nr )U +\\n()ou ! 168: .pl \\n()Uu+1.5i\" set page length ! 169: .if \\nX .if \\n(.pu-\\n()Gu .pl \\n()Gu ! 170: .na ! 171: .fi ! 172: .nh ! 173: .lg 0 ! 174: .ta 0.5i 1i 1.5i 2i 2.5i 3i 3.5i 4i 4.5i 5i 5.5i 6i ! 175: .ce 0 ! 176: .in 0i ! 177: .ll 7.54i ! 178: .po 0i\" start off clean ! 179: .lt 7.68i\" this overflows on purpose ! 180: .if \\n()i .)t "'\(da cut \(da''\(da cut \(da'" 1 ! 181: .nr )i 0\" reset first foil flag ! 182: .)t "'\l'0.38i'''\l'0.38i''" 1\" put out cut marks ! 183: .sp 0.5v ! 184: .po 0.48i ! 185: .lt 7.06i ! 186: .if \\n(.$-1 .ds )N "\\$2 ! 187: .if \\n(.$-2 .ds )Y "\\$3 ! 188: .tl @@@\\*()Y@ ! 189: .tl @@@\\*()N@ ! 190: .if \\n(.$ .tl @@@\\*()F \\$1@ ! 191: .if !\\n(.$ .tl @@@\\*()F %@ ! 192: .po ! 193: .sp |0.68i+\\n()ou ! 194: .po 0.51i+\\n()Lu+\\n()Ou ! 195: .lt 7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou ! 196: .if \\n()H .)t "'|''|'" ! 197: .po ! 198: .sp |1i+\\n()Ou+\\n()ou ! 199: .if !\\n(.A .)e \" force to left margin ! 200: .po 0.1i ! 201: .lt 7.54i\" this overflows on purpose ! 202: .if \\n()W .)t "'_''_'" ! 203: .po ! 204: .sp |1i+\\n()ou ! 205: .if !\\n(.A .)e \" force to left margin ! 206: .po 0.48i+\\n()Lu ! 207: .lt 7.06i-\\n()Lu-\\n()Lu ! 208: .tl @+@@+@ ! 209: .sp -3p ! 210: .if \\n()M .if \\n()W .sp \\n()Ou ! 211: .po ! 212: .nr )J \\n()Uu ! 213: .if \\n()M .if \\n()W .nr )J \\n()Uu-\\n()Ou ! 214: .nr )E \\n()Ju\" set trap for end of foil ! 215: .wh \\n()Eu )Z\" plant end trap ! 216: .S \\n()X 6i-\\n()Ku-\\n()Ku ! 217: .I "" A no-space ! 218: .sp .5v\" so it's independent of .DV ! 219: .nr )n \\n(nlu ! 220: .. ! 221: .de )Z\" end foil ! 222: .wh \\n()Eu\" remove end trap to avoid infinite loop ! 223: .nr )w 0\" set overflow flag ! 224: .ev 1 ! 225: .)g ! 226: 'sp |\\n()Uu ! 227: .if !\\n(.A .)e \" force to left margin ! 228: .po 0.48i+\\n()Lu ! 229: .lt 7.06i-\\n()Lu-\\n()Lu ! 230: .tl @+@@+@ ! 231: .po ! 232: 'sp |\\n()Uu-\\n()Ou ! 233: .if !\\n(.A .)e \" force to left margin ! 234: .po 0.1i ! 235: .lt 7.54i\" this overflows on purpose ! 236: .if \\n()W .)t "'_''_'" ! 237: .po ! 238: 'sp |\\n()Uu+0.32i ! 239: .po 0.51i+\\n()Lu+\\n()Ou ! 240: .lt 7.03i-\\n()Lu-\\n()Lu-\\n()Ou-\\n()Ou ! 241: .if \\n()H .)t "'|''|'" ! 242: .po ! 243: .if !\\n()H 'sp 1v ! 244: 'sp 1v ! 245: .ev ! 246: .if \\nX .pl \\n()Gu ! 247: .if \\nX .wh -0.5i )m\" plant Tek scope overflow flag ! 248: .wh 0i )P\" shorten page for overflow ! 249: .. ! 250: .de )m\" page break for Tek scope ! 251: .bp ! 252: .. ! 253: .de )z\" end of last foil (called by .em) ! 254: .pl \\n(.pu+2i\" to avoid the .em effect ! 255: .br ! 256: .if \\n()i \{ .ps 10 ! 257: . lt 6i ! 258: . tl @@*** No input or no ``foil start'' macro in input.@@ \} ! 259: .if !\\n()i \{ .nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu ! 260: . nr )v \\n()w ! 261: . sp |\\n(.pu-2.8i\" force a trap to )Z if no overflow ! 262: . if \\nX .wh -0.5i\" remove Tek trap, if any ! 263: . if \\nX .pl \\n(.pu+2i\" avoid .em effect ! 264: \&\" force out any garbage ! 265: . br ! 266: . )g ! 267: . po 0i\" for the last time ! 268: . ll 6i ! 269: . ce 0 ! 270: . in 0i ! 271: . if \\n(.A .sp -1.1v ! 272: . if \\n(.A .sp 0.1v ! 273: . if \\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \ ! 274: left to bottom of previous foil. ! 275: . if \\n(.A .if !\\n()v ==> *** Previous foil full; \ ! 276: check for overflow. ! 277: . sp |\\n(.pu-2i ! 278: . lt 7.68i\" this overflows on purpose ! 279: . )t "'\l'0.38i'''\l'0.38i''" 1\" put out cut marks ! 280: . )t "'\(ua cut \(ua''\(ua cut \(ua'" 1 \} ! 281: .. ! 282: .de )t\" for cut marks invisible in "troff -a" mode ! 283: .if !\\n(.A .if \\n(.$-1 .)e ! 284: .if !\\n(.A .tl \\$1 ! 285: .. ! 286: .de )e\" force to left margin ! 287: .po 0i\" this macro gets around a ! 288: .lt 1i\" typesetter ugly. ! 289: .tl '~''' ! 290: 'sp -1v ! 291: .po ! 292: .lt ! 293: .. ! 294: .de )P\" page shortener ! 295: .pl 2i ! 296: .if \\nX .pl \\n()Gu ! 297: .. ! 298: .de )j\" clean-up and defaults ! 299: .br ! 300: .if \\n()i .if \\n(nl \{ .ps 10 ! 301: . lt 6i ! 302: . tl @@*** Text before ``foil start'' macro in input.@@ \} ! 303: .if !\\n()i \{ .nr )x \\n(.vu+\\n()Eu-\\n(nlu/\\n(.vu ! 304: . nr )v \\n()w ! 305: . sp |\\n(.pu-0.8i ! 306: \&\" force out any garbage ! 307: . br \} ! 308: .)g ! 309: .if !\\n()i \{ .po 0i ! 310: . ll 6i ! 311: . ce 0 ! 312: . in 0i ! 313: . if \\n(.A .sp -1.1v ! 314: . if \\n(.A .sp 0.1v ! 315: . if \\n(.A .if \\n()v ==> Approximately \\n()x blank line(s) \ ! 316: left to bottom of previous foil. ! 317: . if \\n(.A .if !\\n()v ==> *** Previous foil full; \ ! 318: check for overflow. ! 319: . br ! 320: . ll ! 321: . po \} ! 322: .if \\n(nl .bp ! 323: .nr )w 1\" reset overflow flag ! 324: .. ! 325: .de )g\" default setter ! 326: .ft \\*()f ! 327: .cs \\*()f ! 328: .ps 8 ! 329: .vs 10p ! 330: .ss 16 ! 331: .tr ~ ! 332: .. ! 333: '\" FORMATTING MACROS ! 334: '\" .T - large, centered title ! 335: .de T ! 336: .br ! 337: .if \\n(nlu-\\n()nu .sp .5v ! 338: .nr ]a \\n(.s\" save prevailing current & previous point sizes ! 339: .ps ! 340: .nr ]b \\n(.s ! 341: .ps ! 342: .nr )u \\n(.iu\" save prevailing indent ! 343: .in 0i ! 344: .ps +4 ! 345: .ce ! 346: \&\\$1 ! 347: .in \\n()uu\" restore prevailing indent ! 348: .ps \\n(]b\" restore prevailing current & previous point sizes ! 349: .ps \\n(]a ! 350: .sp .5v ! 351: .nr )n \\n(nlu ! 352: .. ! 353: '\" .S - point size, spacing, line length, margins, & indents ! 354: .de S ! 355: .if !\w@\\$1@ .ps\" if arg1 null, use previous ps; ! 356: .if \w@\\$1@ .if !\\$1+1 .ps \\$1\" if arg1<0, use as decr. on current ps; ! 357: .if \w@\\$1@ .if \\$1 .nr )y \\n(.s\" save current ps; ! 358: .if \w@\\$1@ .if \\$1 .nr )y \\$1\" if arg1>0, use as incr. on current ps, ! 359: '\" or as new ps; ! 360: .if \w@\\$1@ .if \\$1-99 .nr )y \\n()X\" if arg1>99, use default ps; ! 361: .if \w@\\$1@ .if \\$1 .ps \\n()y\" set new ps; ! 362: '\" if arg1=0, don't change ps. ! 363: .vs \\n(.sp*5u/4u ! 364: .ss 16 ! 365: .nr )a 1i+\\n()Ku\" first level (left margin) ! 366: .nr ]c \\n(.s\" save prevailing current & previous point sizes ! 367: .ps ! 368: .nr ]d \\n(.s ! 369: .ps ! 370: .if \\n(.s-35 .nr )A \\n(.s-\\n()Q-\\n()Q-\\n()Q-\\n()Q ! 371: .if \\n(.s-19 .if !\\n(.s-35 .nr )A \\n(.s-\\n()Q-\\n()Q ! 372: .if !\\n(.s-19 .nr )A \\n(.s-\\n()Q ! 373: .ps \\n()A ! 374: .nr )b \w@\\*()B~@u\" second level indent for normal case (large bullet) ! 375: .ps ! 376: .if \\n(.s-35 .nr )A \\n(.s-\\n()R-\\n()R-\\n()R-\\n()R ! 377: .if \\n(.s-19 .if !\\n(.s-35 .nr )A \\n(.s-\\n()R-\\n()R ! 378: .if !\\n(.s-19 .nr )A \\n(.s-\\n()R ! 379: .ps \\n()A ! 380: .nr )c \\n()bu+\w@\\*()C~@u\" 3rd level indent for normal case (dash) ! 381: .ps ! 382: .if \\n(.s-35 .nr )A \\n(.s-\\n()S-\\n()S-\\n()S-\\n()S ! 383: .if \\n(.s-19 .if !\\n(.s-35 .nr )A \\n(.s-\\n()S-\\n()S ! 384: .if !\\n(.s-19 .nr )A \\n(.s-\\n()S ! 385: .ps \\n()A ! 386: .nr )d \\n()cu+\w@\\*()D~@u\" 4th level ind. for normal case (small bullet) ! 387: .ps \\n(]d\" restore prevailing current & previous point sizes ! 388: .ps \\n(]c ! 389: '\" TROUBLE if arg2<8u or arg2>7 ! 390: .if \\n(.$-1 .nr )u \\$2\" default for arg2 is inches ! 391: .if \\n(.$-1 .if !\\n()uu-7u .nr )p \\$2i\" arg2 not dimensioned ! 392: .if \\n(.$-1 .if \\n()uu-7u .nr )p \\$2\" arg2 dimensioned ! 393: .nr )q \\n()pu-0i\" change the "0i" to pull in B right margin ! 394: .nr )r \\n()qu-0i\" change the "0i" to pull in C right margin ! 395: .nr )s \\n()ru-0i\" change the "0i" to pull in D right margin ! 396: .nr )T \\n(.sp*5u/4u\" try to protect bottom margin ! 397: .nr )E \\n()Ju-\\n()Tu\" move up end of foil trap ! 398: .ch )Z \\n()Eu ! 399: .. ! 400: '\" .I - indent for levels .A, .B, .C, & .D ! 401: .de I ! 402: .if !\w@\\$1@u .nr )k 0i ! 403: .if \w@\\$1@u .if !\\$1 .nr )u 0i-\\$1\" arg1 default is inches ! 404: .if \w@\\$1@u .if \\$1 .nr )u \\$1\" TROUBLE if arg1<8u or arg1>7 ! 405: .if \w@\\$1@u .if !\\n()uu-7u .nr )k \\$1i\" arg1 not dimensioned ! 406: .if \w@\\$1@u .if \\n()uu-7u .nr )k \\$1\" arg1 dimensioned ! 407: .if \\n(.$-1 .A \\$3\" force to new left margin ! 408: '\" suppress space if \\$3 not null. ! 409: .. ! 410: '\" .A - first level (left margin) ! 411: .de A ! 412: .br ! 413: .if !\\n(.$ .if \\n(nlu-\\n()nu .sp \\*(]Au ! 414: .nr )n \\n(nlu ! 415: .po \\n()au ! 416: .in 0u+\\n()ku ! 417: .ll \\n()pu ! 418: .lt \\n()pu ! 419: .. ! 420: '\" .B - second level (normally large bullet) ! 421: .de B ! 422: .br ! 423: .if \\n(nlu-\\n()nu .sp \\*(]Bu ! 424: .nr )n \\n(nlu ! 425: .in \\n()bu+\\n()ku ! 426: .ll \\n()qu ! 427: .lt \\n()qu ! 428: .nr )l 0 ! 429: .nr ]x \\n()bu\" set standard stub outdent amount ! 430: .if !\\n(.$ .)I \\*()B -\\n()Q ! 431: .if \\n(.$ .if !\\n(.$-1 .)I "\\$1" -0 ! 432: .if \\n(.$-1 .if \\$2-99 .)I "\\$1~\|" -\\n()Q ! 433: .if \\n(.$-1 .if !\\$2-99 .nr )l 1 ! 434: .if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2" ! 435: .. ! 436: '\" .C - third level (normally em dash) ! 437: .de C ! 438: .br ! 439: .if \\n(nlu-\\n()nu .sp \\*(]Cu ! 440: .nr )n \\n(nlu ! 441: .in \\n()cu+\\n()ku ! 442: .ll \\n()ru ! 443: .lt \\n()ru ! 444: .nr )l 0 ! 445: .nr ]x \\n()cu-\\n()bu\" set standard stub outdent amount ! 446: .if !\\n(.$ .)I \\*()C -\\n()R ! 447: .if \\n(.$ .if !\\n(.$-1 .)I "\\$1" -0 ! 448: .if \\n(.$-1 .if \\$2-99 .)I "\\$1~\|" -\\n()R ! 449: .if \\n(.$-1 .if !\\$2-99 .nr )l 1 ! 450: .if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2" ! 451: .. ! 452: '\" .D - fourth level (normally small bullet) ! 453: .de D ! 454: .br ! 455: .if \\n(nlu-\\n()nu .sp \\*(]Du ! 456: .nr )n \\n(nlu ! 457: .in \\n()du+\\n()ku ! 458: .ll \\n()su ! 459: .lt \\n()su ! 460: .nr )l 0 ! 461: .nr ]x \\n()du-\\n()cu\" set standard stub outdent amount ! 462: .if !\\n(.$ .)I \\*()D -\\n()S ! 463: .if \\n(.$ .if !\\n(.$-1 .)I "\\$1" -0 ! 464: .if \\n(.$-1 .if \\$2-99 .)I "\\$1~\|" -\\n()S ! 465: .if \\n(.$-1 .if !\\$2-99 .nr )l 1 ! 466: .if \\n(.$-1 .if !\\$2-99 .)I "\\$1" "\\$2" ! 467: .. ! 468: .de )I\" common part of level macros ! 469: .nr ]a \\n(.s\" save prevailing current & previous point sizes ! 470: .ps ! 471: .nr ]b \\n(.s ! 472: .ps ! 473: .if !\\n()l .if \\n(.s-35 .nr )A \\n(.s+\\$2+\\$2+\\$2+\\$2 ! 474: .if !\\n()l .if \\n(.s-19 .if !\\n(.s-35 .nr )A \\n(.s+\\$2+\\$2 ! 475: .if !\\n()l .if !\\n(.s-19 .nr )A \\n(.s+\\$2 ! 476: .if \\n()l .nr )A \\n(.s+\\$2 ! 477: .ps \\n()A ! 478: .ti -\w@\\$1~@u ! 479: \&\\$1~\&\c ! 480: .ps \\n(]b\" restore prevailing current & previous point sizes ! 481: .ps \\n(]a ! 482: .. ! 483: '\" .U - underline first of two concatenated strings ! 484: .de U ! 485: .if !\w@\\$[email protected] \&\\$1\v'.55m'\l'|0\(hy'\v'-.55m'\\$2 ! 486: .if \w@\\$[email protected] \&\\$1\v'.09m'\l'|0\(ul'\v'-.09m'\\$2 ! 487: .. ! 488: '\" .DV - default vertical pre-spacing ! 489: '\" Only dimensioned args!! ! 490: .de DV ! 491: .if \w@\\$1@ .ds ]A \\$1 ! 492: .if \w@\\$2@ .ds ]B \\$2 ! 493: .if \w@\\$3@ .ds ]C \\$3 ! 494: .if \w@\\$4@ .ds ]D \\$4 ! 495: .. ! 496: '\" .DF - default fonts ! 497: .de DF ! 498: .if \\n(.$-1 .ds )f "\\$2 ! 499: .if \\n(.$-1 .fp \\$1 \\$2 ! 500: .if \\n(.$-1 .ft \\$2 ! 501: .if \\n(.$-3 .fp \\$3 \\$4 ! 502: .if \\n(.$-5 .fp \\$5 \\$6 ! 503: .if \\n(.$-7 .fp \\$7 \\$8 ! 504: .. ! 505: '\" UPPER-CASE SYNONYMS FOR TROFF REQUESTS ! 506: '\" .SP ! 507: .de SP ! 508: .sp \\$1 ! 509: .. ! 510: '\" .BR ! 511: .de BR ! 512: .br ! 513: .. ! 514: '\" .TA ! 515: .de TA ! 516: 'ta \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 ! 517: .. ! 518: '\" .CE ! 519: .de CE ! 520: .ce \\$1 ! 521: .. ! 522: '\" .TI ! 523: .de TI ! 524: .ti \\$1 ! 525: .. ! 526: '\" .FI ! 527: .de FI ! 528: .fi ! 529: .. ! 530: '\" .NF ! 531: .de NF ! 532: .nf ! 533: .. ! 534: '\" .AD ! 535: .de AD ! 536: 'ad \\$1 ! 537: .. ! 538: '\" .NA ! 539: .de NA ! 540: 'na ! 541: .. ! 542: '\" .HY ! 543: .de HY ! 544: 'hy \\$1 ! 545: .. ! 546: '\" .NH ! 547: .de NH ! 548: 'nh ! 549: .. ! 550: '\" .SO ! 551: .de SO ! 552: 'so \\$1 ! 553: .. ! 554: '\" .NX ! 555: .de NX ! 556: 'nx \\$1 ! 557: .. ! 558: .ds )F \(bs FOIL ! 559: .if \n(.A .ds )F FOIL ! 560: .ds )N BTL ! 561: .ds )Y \n(mo/\n(dy/\n(yr ! 562: .ds )B \(bu~\| ! 563: .ds )C \(em~\| ! 564: .ds )D \(bu~\| ! 565: .ds ]A .5v\" level A pre-space ! 566: .ds ]B .5v\" level B pre-space ! 567: .ds ]C .5v\" level C pre-space ! 568: .ds ]D 0v\" level D pre-space ! 569: .nr )G 11i-7.5p\" page length for Tek scope ! 570: .nr )Q 2\" second level reduction ! 571: .nr )R 2\" third level reduction ! 572: .nr )S 4\" fourth level reduction ! 573: .nr )i 1\" first foil flag ! 574: .nr )w 0\" previous foil overflow flag (set=0) ! 575: .em )z \" plant an EOF trap ! 576: .DF 1 G\" set default font ! 577: '\" End of view graph & slide macros
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.