![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to shell.lib CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / postscript / devpost|
Return to shell.lib CVS log | Up to [Research Unix] / researchv10no / cmd / postscript / devpost |
1.1 ! root 1: # ! 2: # Shell library - for building devpost tables. Original collection was ! 3: # built on a Version 47.0 PS-810. ! 4: # ! 5: ! 6: RESOLUTION=720 ! 7: UNITWIDTH=10 ! 8: ! 9: # ! 10: # BuiltinTables returns command lines that generate PostScript programs ! 11: # for building a typesetter description file and font width tables for ! 12: # a relatively standard collection of fonts. Use awk to select a command ! 13: # line or modify an existing command to build a width table for a new ! 14: # font. ! 15: # ! 16: ! 17: BuiltinTables() { ! 18: cat <<-'//End of BuiltinTables' ! 19: Proportional R Times-Roman ! 20: Proportional I Times-Italic ! 21: Proportional B Times-Bold ! 22: Proportional BI Times-BoldItalic ! 23: Proportional AB AvantGarde-Demi ! 24: Proportional AI AvantGarde-BookOblique ! 25: Proportional AR AvantGarde-Book ! 26: Proportional AX AvantGarde-DemiOblique ! 27: Proportional H Helvetica ! 28: Proportional HB Helvetica-Bold ! 29: Proportional HI Helvetica-Oblique ! 30: Proportional HX Helvetica-BoldOblique ! 31: Proportional Hb Helvetica-Narrow-Bold ! 32: Proportional Hi Helvetica-Narrow-Oblique ! 33: Proportional Hr Helvetica-Narrow ! 34: Proportional Hx Helvetica-Narrow-BoldOblique ! 35: Proportional KB Bookman-Demi ! 36: Proportional KI Bookman-LightItalic ! 37: Proportional KR Bookman-Light ! 38: Proportional KX Bookman-DemiItalic ! 39: Proportional NB NewCenturySchlbk-Bold ! 40: Proportional NI NewCenturySchlbk-Italic ! 41: Proportional NR NewCenturySchlbk-Roman ! 42: Proportional NX NewCenturySchlbk-BoldItalic ! 43: Proportional PA Palatino-Roman ! 44: Proportional PB Palatino-Bold ! 45: Proportional PI Palatino-Italic ! 46: Proportional PX Palatino-BoldItalic ! 47: Proportional ZI ZapfChancery-MediumItalic ! 48: FixedWidth C Courier ! 49: FixedWidth CB Courier-Bold ! 50: FixedWidth CI Courier-Oblique ! 51: FixedWidth CO Courier ! 52: FixedWidth CW Courier ! 53: FixedWidth CX Courier-BoldOblique ! 54: Dingbats ZD ZapfDingbats ! 55: Greek GR Symbol ! 56: Symbol S Symbol ! 57: Special S1 Times-Roman ! 58: Description DESC --- ! 59: //End of BuiltinTables ! 60: } ! 61: ! 62: # ! 63: # AllTables prints the complete list of builtin font names. ! 64: # ! 65: ! 66: AllTables() { ! 67: BuiltinTables | awk '{print $2}' ! 68: } ! 69: ! 70: # ! 71: # Charset functions generate keyword/value pairs (as PostScript objects) ! 72: # that describe the character set available in a font. The keyword is a ! 73: # PostScript string that represents troff's name for the character. The ! 74: # value is usually the literal name (i.e. begins with a /) assigned to ! 75: # the character in the PostScript font. The value can also be an integer ! 76: # or a PostScript string. An integer value is used as an index in the ! 77: # current font's Encoding array. A string value is returned to the host ! 78: # unchanged when the entry for the character is constructed. Entries that ! 79: # have (") as their value are synonyms for the preceeding character. ! 80: # ! 81: ! 82: StandardCharset() { ! 83: cat <<-'//End of StandardCharset' ! 84: (!) /exclam ! 85: (") /quotedbl ! 86: (#) /numbersign ! 87: ($) /dollar ! 88: (%) /percent ! 89: (&) /ampersand ! 90: (') /quoteright ! 91: (\() /parenleft ! 92: (\)) /parenright ! 93: (*) /asterisk ! 94: (+) /plus ! 95: (,) /comma ! 96: (hy) /hyphen ! 97: (-) (") % synonym ! 98: (.) /period ! 99: (/) /slash ! 100: (0) /zero ! 101: (1) /one ! 102: (2) /two ! 103: (3) /three ! 104: (4) /four ! 105: (5) /five ! 106: (6) /six ! 107: (7) /seven ! 108: (8) /eight ! 109: (9) /nine ! 110: (:) /colon ! 111: (;) /semicolon ! 112: (<) /less ! 113: (=) /equal ! 114: (>) /greater ! 115: (?) /question ! 116: (@) /at ! 117: (A) /A ! 118: (B) /B ! 119: (C) /C ! 120: (D) /D ! 121: (E) /E ! 122: (F) /F ! 123: (G) /G ! 124: (H) /H ! 125: (I) /I ! 126: (J) /J ! 127: (K) /K ! 128: (L) /L ! 129: (M) /M ! 130: (N) /N ! 131: (O) /O ! 132: (P) /P ! 133: (Q) /Q ! 134: (R) /R ! 135: (S) /S ! 136: (T) /T ! 137: (U) /U ! 138: (V) /V ! 139: (W) /W ! 140: (X) /X ! 141: (Y) /Y ! 142: (Z) /Z ! 143: ([) /bracketleft ! 144: (\\) /backslash ! 145: (]) /bracketright ! 146: (^) /asciicircum ! 147: (_) /underscore ! 148: (`) /quoteleft ! 149: (a) /a ! 150: (b) /b ! 151: (c) /c ! 152: (d) /d ! 153: (e) /e ! 154: (f) /f ! 155: (g) /g ! 156: (h) /h ! 157: (i) /i ! 158: (j) /j ! 159: (k) /k ! 160: (l) /l ! 161: (m) /m ! 162: (n) /n ! 163: (o) /o ! 164: (p) /p ! 165: (q) /q ! 166: (r) /r ! 167: (s) /s ! 168: (t) /t ! 169: (u) /u ! 170: (v) /v ! 171: (w) /w ! 172: (x) /x ! 173: (y) /y ! 174: (z) /z ! 175: ({) /braceleft ! 176: (|) /bar ! 177: (}) /braceright ! 178: (~) /asciitilde ! 179: (---) /exclamdown ! 180: (ct) /cent ! 181: (ps) /sterling ! 182: (fr) /fraction ! 183: (yn) /yen ! 184: (fn) /florin ! 185: (sc) /section ! 186: (cr) /currency ! 187: (---) /quotesingle ! 188: (``) /quotedblleft ! 189: (---) /guillemotleft ! 190: (---) /guilsinglleft ! 191: (---) /guilsinglright ! 192: (fi) /fi ! 193: (fl) /fl ! 194: (en) /endash ! 195: (\\-) (") ! 196: (dg) /dagger ! 197: (dd) /daggerdbl ! 198: (---) /periodcentered ! 199: (pg) /paragraph ! 200: (---) /bullet ! 201: (---) /quotesinglbase ! 202: (---) /quotedblbase ! 203: ('') /quotedblright ! 204: (---) /guillemotright ! 205: (---) /ellipsis ! 206: (---) /perthousand ! 207: (---) /questiondown ! 208: (ga) /grave ! 209: (\\`) (") ! 210: (aa) /acute ! 211: (\\') (") ! 212: (^a) /circumflex ! 213: (~a) /tilde ! 214: (-a) /macron ! 215: (Ua) /breve ! 216: (.a) /dotaccent ! 217: (:a) /dieresis ! 218: (oa) /ring ! 219: (,a) /cedilla ! 220: ("a) /hungarumlaut ! 221: (Ca) /ogonek ! 222: (va) /caron ! 223: (em) /emdash ! 224: (---) /AE ! 225: (---) /ordfeminine ! 226: (---) /Lslash ! 227: (---) /Oslash ! 228: (---) /OE ! 229: (---) /ordmasculine ! 230: (---) /ae ! 231: (---) /dotlessi ! 232: (---) /lslash ! 233: (---) /oslash ! 234: (---) /oe ! 235: (---) /germandbls ! 236: //End of StandardCharset ! 237: } ! 238: ! 239: SymbolCharset() { ! 240: cat <<-'//End of SymbolCharset' ! 241: (---) /exclam ! 242: (fa) /universal ! 243: (---) /numbersign ! 244: (te) /existential ! 245: (---) /percent ! 246: (---) /ampersand ! 247: (st) /suchthat ! 248: (---) /parenleft ! 249: (---) /parenright ! 250: (**) /asteriskmath ! 251: (pl) /plus ! 252: (---) /comma ! 253: (mi) /minus ! 254: (---) /period ! 255: (sl) /slash ! 256: (---) /zero ! 257: (---) /one ! 258: (---) /two ! 259: (---) /three ! 260: (---) /four ! 261: (---) /five ! 262: (---) /six ! 263: (---) /seven ! 264: (---) /eight ! 265: (---) /nine ! 266: (---) /colon ! 267: (---) /semicolon ! 268: (<) /less ! 269: (eq) /equal ! 270: (>) /greater ! 271: (---) /question ! 272: (cg) /congruent ! 273: (*A) /Alpha ! 274: (*B) /Beta ! 275: (*X) /Chi ! 276: (*D) /Delta ! 277: (*E) /Epsilon ! 278: (*F) /Phi ! 279: (*G) /Gamma ! 280: (*Y) /Eta ! 281: (*I) /Iota ! 282: (---) /theta1 ! 283: (*K) /Kappa ! 284: (*L) /Lambda ! 285: (*M) /Mu ! 286: (*N) /Nu ! 287: (*O) /Omicron ! 288: (*P) /Pi ! 289: (*H) /Theta ! 290: (*R) /Rho ! 291: (*S) /Sigma ! 292: (*T) /Tau ! 293: (*U) /Upsilon ! 294: (ts) /sigma1 ! 295: (*W) /Omega ! 296: (*C) /Xi ! 297: (*Q) /Psi ! 298: (*Z) /Zeta ! 299: (---) /bracketleft ! 300: (tf) /therefore ! 301: (---) /bracketright ! 302: (pp) /perpendicular ! 303: (ul) /underscore ! 304: (_) (") % synonym ! 305: (rn) /radicalex ! 306: (*a) /alpha ! 307: (*b) /beta ! 308: (*x) /chi ! 309: (*d) /delta ! 310: (*e) /epsilon ! 311: (*f) /phi ! 312: (*g) /gamma ! 313: (*y) /eta ! 314: (*i) /iota ! 315: (---) /phi1 ! 316: (*k) /kappa ! 317: (*l) /lambda ! 318: (*m) /mu ! 319: (*n) /nu ! 320: (*o) /omicron ! 321: (*p) /pi ! 322: (*h) /theta ! 323: (*r) /rho ! 324: (*s) /sigma ! 325: (*t) /tau ! 326: (*u) /upsilon ! 327: (---) /omega1 ! 328: (*w) /omega ! 329: (*c) /xi ! 330: (*q) /psi ! 331: (*z) /zeta ! 332: (---) /braceleft ! 333: (or) /bar ! 334: (---) /braceright ! 335: (ap) /similar ! 336: (---) /Upsilon1 ! 337: (fm) /minute ! 338: (<=) /lessequal ! 339: (---) /fraction ! 340: (if) /infinity ! 341: (---) /florin ! 342: (---) /club ! 343: (---) /diamond ! 344: (---) /heart ! 345: (---) /spade ! 346: (ab) /arrowboth ! 347: (<-) /arrowleft ! 348: (ua) /arrowup ! 349: (->) /arrowright ! 350: (da) /arrowdown ! 351: (de) /degree ! 352: (+-) /plusminus ! 353: (---) /second ! 354: (>=) /greaterequal ! 355: (mu) /multiply ! 356: (pt) /proportional ! 357: (pd) /partialdiff ! 358: (bu) /bullet ! 359: (di) /divide ! 360: (!=) /notequal ! 361: (==) /equivalence ! 362: (~~) /approxequal ! 363: (el) /ellipsis ! 364: (av) /arrowvertex ! 365: (ah) /arrowhorizex ! 366: (CR) /carriagereturn ! 367: (af) /aleph ! 368: (If) /Ifraktur ! 369: (Rf) /Rfraktur ! 370: (ws) /weierstrass ! 371: (Ox) /circlemultiply ! 372: (O+) /circleplus ! 373: (es) /emptyset ! 374: (ca) /intersection ! 375: (cu) /union ! 376: (sp) /propersuperset ! 377: (ip) /reflexsuperset ! 378: (!b) /notsubset ! 379: (sb) /propersubset ! 380: (ib) /reflexsubset ! 381: (mo) /element ! 382: (!m) /notelement ! 383: (an) /angle ! 384: (gr) /gradient ! 385: (rg) /registerserif ! 386: (co) /copyrightserif ! 387: (tm) /trademarkserif ! 388: (---) /product ! 389: (sr) /radical ! 390: (c.) /dotmath ! 391: (no) /logicalnot ! 392: (l&) /logicaland ! 393: (l|) /logicalor ! 394: (---) /arrowdblboth ! 395: (---) /arrowdblleft ! 396: (---) /arrowdblup ! 397: (---) /arrowdblright ! 398: (---) /arrowdbldown ! 399: (lz) /lozenge ! 400: (b<) /angleleft ! 401: (RG) /registersans ! 402: (CO) /copyrightsans ! 403: (TM) /trademarksans ! 404: (---) /summation ! 405: (LT) /parenlefttp ! 406: (br) /parenleftex ! 407: (LX) (") % synonym ! 408: (LB) /parenleftbt ! 409: (lc) /bracketlefttp ! 410: (lx) /bracketleftex ! 411: (lf) /bracketleftbt ! 412: (lt) /bracelefttp ! 413: (lk) /braceleftmid ! 414: (lb) /braceleftbt ! 415: (bv) /braceex ! 416: (|) (") % synonym ! 417: (b>) /angleright ! 418: (is) /integral ! 419: (---) /integraltp ! 420: (---) /integralex ! 421: (---) /integralbt ! 422: (RT) /parenrighttp ! 423: (RX) /parenrightex ! 424: (RB) /parenrightbt ! 425: (rc) /bracketrighttp ! 426: (rx) /bracketrightex ! 427: (rf) /bracketrightbt ! 428: (rt) /bracerighttp ! 429: (rk) /bracerightmid ! 430: (rb) /bracerightbt ! 431: (~=) (55 0 1) % charlib ! 432: //End of SymbolCharset ! 433: } ! 434: ! 435: SpecialCharset() { ! 436: cat <<-'//End of SpecialCharset' ! 437: (ru) /underscore ! 438: (ff) (60 2 1) % charlib ! 439: (Fi) (84 2 1) % charlib ! 440: (Fl) (84 2 1) % charlib ! 441: (14) (75 2 1) % charlib ! 442: (12) (75 2 1) % charlib ! 443: (34) (75 2 1) % charlib ! 444: (bx) (50 2 1) % charlib ! 445: (ob) (38 2 1) % charlib ! 446: (ci) (75 0 1) % charlib ! 447: (sq) (50 2 1) % charlib ! 448: (Sl) (50 2 1) % charlib ! 449: (L1) (110 1 2) % charlib ! 450: (LA) (110 1 2) % charlib ! 451: (LV) (110 3 1) % charlib ! 452: (LH) (210 1 1) % charlib ! 453: (lh) (100 0 1) % charlib ! 454: (rh) (100 0 1) % charlib ! 455: (lH) (100 0 1) % charlib ! 456: (rH) (100 0 1) % charlib ! 457: (PC) (220 2 1) % charlib ! 458: (DG) (185 2 1) % charlib ! 459: //End of SpecialCharset ! 460: } ! 461: ! 462: DingbatsCharset() { ! 463: cat <<-'//End of DingbatsCharset' ! 464: (!) 33 ! 465: (") 34 ! 466: (#) 35 ! 467: ($) 36 ! 468: (%) 37 ! 469: (&) 38 ! 470: (') 39 ! 471: (\() 40 ! 472: (\)) 41 ! 473: (*) 42 ! 474: (+) 43 ! 475: (,) 44 ! 476: (-) 45 ! 477: (.) 46 ! 478: (/) 47 ! 479: (0) 48 ! 480: (1) 49 ! 481: (2) 50 ! 482: (3) 51 ! 483: (4) 52 ! 484: (5) 53 ! 485: (6) 54 ! 486: (7) 55 ! 487: (8) 56 ! 488: (9) 57 ! 489: (:) 58 ! 490: (;) 59 ! 491: (<) 60 ! 492: (=) 61 ! 493: (>) 62 ! 494: (?) 63 ! 495: (@) 64 ! 496: (A) 65 ! 497: (B) 66 ! 498: (C) 67 ! 499: (D) 68 ! 500: (E) 69 ! 501: (F) 70 ! 502: (G) 71 ! 503: (H) 72 ! 504: (I) 73 ! 505: (J) 74 ! 506: (K) 75 ! 507: (L) 76 ! 508: (M) 77 ! 509: (N) 78 ! 510: (O) 79 ! 511: (P) 80 ! 512: (Q) 81 ! 513: (R) 82 ! 514: (S) 83 ! 515: (T) 84 ! 516: (U) 85 ! 517: (V) 86 ! 518: (W) 87 ! 519: (X) 88 ! 520: (Y) 89 ! 521: (Z) 90 ! 522: ([) 91 ! 523: (\\) 92 ! 524: (]) 93 ! 525: (^) 94 ! 526: (_) 95 ! 527: (`) 96 ! 528: (a) 97 ! 529: (b) 98 ! 530: (c) 99 ! 531: (d) 100 ! 532: (e) 101 ! 533: (f) 102 ! 534: (g) 103 ! 535: (h) 104 ! 536: (i) 105 ! 537: (j) 106 ! 538: (k) 107 ! 539: (l) 108 ! 540: (m) 109 ! 541: (n) 110 ! 542: (o) 111 ! 543: (p) 112 ! 544: (q) 113 ! 545: (r) 114 ! 546: (s) 115 ! 547: (t) 116 ! 548: (u) 117 ! 549: (v) 118 ! 550: (w) 119 ! 551: (x) 120 ! 552: (y) 121 ! 553: (z) 122 ! 554: ({) 123 ! 555: (|) 124 ! 556: (}) 125 ! 557: (~) 126 ! 558: (hy) 161 ! 559: (em) 162 ! 560: (de) 163 ! 561: (\\-) 164 ! 562: (en) 165 ! 563: (ff) 166 ! 564: (fi) 167 ! 565: (fl) 168 ! 566: (Fi) 169 ! 567: (Fl) 170 ! 568: (fm) 171 ! 569: (ru) 172 ! 570: (dg) 173 ! 571: (bu) 174 ! 572: (14) 175 ! 573: (34) 176 ! 574: (12) 177 ! 575: (ct) 178 ! 576: (rg) 179 ! 577: (sq) 180 ! 578: (sl) 181 ! 579: (ul) 182 ! 580: (or) 183 ! 581: (no) 184 ! 582: (->) 185 ! 583: (<-) 186 ! 584: (da) 187 ! 585: (lh) 188 ! 586: (ua) 189 ! 587: (ab) 190 ! 588: (!b) 191 ! 589: (aa) 192 ! 590: (!m) 193 ! 591: (ga) 194 ! 592: (pl) 195 ! 593: (mi) 196 ! 594: (mu) 197 ! 595: (di) 198 ! 596: (eq) 199 ! 597: (==) 200 ! 598: (>=) 201 ! 599: (<=) 202 ! 600: (!=) 203 ! 601: (+-) 204 ! 602: (-+) 205 ! 603: (ap) 206 ! 604: (~=) 207 ! 605: (gr) 208 ! 606: (is) 209 ! 607: (pd) 210 ! 608: (if) 211 ! 609: (sr) 212 ! 610: (rn) 213 ! 611: (sb) 214 ! 612: (sp) 215 ! 613: (cu) 216 ! 614: (ca) 217 ! 615: (ib) 218 ! 616: (ip) 219 ! 617: (mo) 220 ! 618: (es) 221 ! 619: (sc) 222 ! 620: (dd) 223 ! 621: (lc) 224 ! 622: (rc) 225 ! 623: (lf) 226 ! 624: (rf) 227 ! 625: (bv) 228 ! 626: (**) 229 ! 627: (br) 230 ! 628: (ci) 231 ! 629: (ts) 232 ! 630: (co) 233 ! 631: (lt) 234 ! 632: (rt) 235 ! 633: (lb) 236 ! 634: (rb) 237 ! 635: (lk) 238 ! 636: (rk) 239 ! 637: (rh) 241 ! 638: (tm) 242 ! 639: (Sl) 243 ! 640: (ps) 244 ! 641: (cs) 245 ! 642: (cy) 246 ! 643: (as) 247 ! 644: (os) 248 ! 645: (=.) 249 ! 646: (ld) 250 ! 647: (rd) 251 ! 648: (le) 252 ! 649: (ge) 253 ! 650: (pp) 254 ! 651: //End of DingbatsCharset ! 652: } ! 653: ! 654: # ! 655: # Generating functions output PostScript programs that build font width ! 656: # tables or a typesetter description file. Send the program to a printer ! 657: # and the complete table will come back on the serial port. All write on ! 658: # stdout and assume the prologue and other required PostScript files are ! 659: # all available. ! 660: # ! 661: ! 662: Proportional() { ! 663: echo "/unitwidth $UNITWIDTH def" ! 664: echo "/resolution $RESOLUTION def" ! 665: echo "/charset [" ! 666: # Get <>_ and | from S. Use accents for ascii ^ and ~. ! 667: StandardCharset | awk ' ! 668: $1 == "(<)" && $2 == "/less" {$1 = "(---)"} ! 669: $1 == "(>)" && $2 == "/greater" {$1 = "(---)"} ! 670: $1 == "(_)" && $2 == "/underscore" {$1 = "(---)"} ! 671: $1 == "(|)" && $2 == "/bar" {$1 = "(---)"} ! 672: $1 == "(^)" && $2 == "/asciicircum" {$1 = "(---)"} ! 673: $1 == "(~)" && $2 == "/asciitilde" {$1 = "(---)"} ! 674: {printf "%s\t%s\n", $1, $2} ! 675: $2 == "/circumflex" {printf "(^)\t(\")\n"} ! 676: $2 == "/tilde" {printf "(~)\t(\")\n"} ! 677: ' ! 678: echo "] def" ! 679: ! 680: echo "/$2 SelectFont" ! 681: echo "(opO) SetAscender" ! 682: ! 683: echo "(name $1\\\\n) Print" ! 684: echo "(fontname $2\\\\n) Print" ! 685: echo "/$1 NamedInPrologue" ! 686: echo "(ligatures fi fl 0\\\\n) Print" ! 687: echo "(spacewidth ) Print 32 GetWidth Print (\n) Print" ! 688: echo "(charset\\\\n) Print" ! 689: echo "BuildFontCharset" ! 690: } ! 691: ! 692: FixedWidth() { ! 693: echo "/unitwidth $UNITWIDTH def" ! 694: echo "/resolution $RESOLUTION def" ! 695: echo "/charset [" ! 696: # awk is not important - it's only here for compatibility ! 697: StandardCharset | awk ' ! 698: $1 == "(fi)" || $1 == "(fl)" {next} ! 699: {printf "%s\t%s\n", $1, $2} ! 700: $2 == "/circumflex" {printf "(^)\t(\")\n"} ! 701: $2 == "/tilde" {printf "(~)\t(\")\n"} ! 702: ' ! 703: echo "] def" ! 704: ! 705: echo "/$2 SelectFont" ! 706: echo "(opO) SetAscender" ! 707: ! 708: echo "(name $1\\\\n) Print" ! 709: echo "(fontname $2\\\\n) Print" ! 710: echo "/$1 NamedInPrologue" ! 711: echo "(spacewidth ) Print 32 GetWidth Print (\n) Print" ! 712: echo "(charset\\\\n) Print" ! 713: echo "BuildFontCharset" ! 714: } ! 715: ! 716: Dingbats() { ! 717: echo "/unitwidth $UNITWIDTH def" ! 718: echo "/resolution $RESOLUTION def" ! 719: echo "/charset [" ! 720: DingbatsCharset ! 721: echo "] def" ! 722: ! 723: echo "/$2 SelectFont" ! 724: echo "( ) SetAscender" ! 725: ! 726: echo "(name $1\\\\n) Print" ! 727: echo "(fontname $2\\\\n) Print" ! 728: echo "/$1 NamedInPrologue" ! 729: echo "(charset\\\\n) Print" ! 730: echo "BuildFontCharset" ! 731: } ! 732: ! 733: Greek() { ! 734: echo "/unitwidth $UNITWIDTH def" ! 735: echo "/resolution $RESOLUTION def" ! 736: echo "/charset [" ! 737: SymbolCharset | awk '$1 ~ /\(\*[a-zA-Z]\)/' ! 738: echo "] def" ! 739: ! 740: echo "/$2 SelectFont" ! 741: echo "(orO) SetAscender" ! 742: ! 743: echo "(name $1\\\\n) Print" ! 744: echo "(fontname $2\\\\n) Print" ! 745: echo "/$1 NamedInPrologue" ! 746: echo "(spacewidth ) Print 32 GetWidth Print (\n) Print" ! 747: echo "(charset\\\\n) Print" ! 748: echo "BuildFontCharset" ! 749: } ! 750: ! 751: Symbol() { ! 752: echo "/unitwidth $UNITWIDTH def" ! 753: echo "/resolution $RESOLUTION def" ! 754: echo "/charset [" ! 755: SymbolCharset ! 756: echo "] def" ! 757: ! 758: echo "ChangeMetrics" ! 759: echo "/S SelectFont" ! 760: echo "(orO) SetAscender" ! 761: ! 762: echo "(name $1\\\\n) Print" ! 763: echo "(fontname $2\\\\n) Print" ! 764: echo "/$1 NamedInPrologue" ! 765: echo "(special\\\\n) Print" ! 766: echo "(charset\\\\n) Print" ! 767: echo "BuildFontCharset" ! 768: } ! 769: ! 770: Special() { ! 771: echo "/unitwidth $UNITWIDTH def" ! 772: echo "/resolution $RESOLUTION def" ! 773: echo "/charset [" ! 774: SpecialCharset ! 775: echo "] def" ! 776: ! 777: echo "ChangeMetrics" ! 778: echo "/S1 SelectFont" ! 779: ! 780: echo "(# Times-Roman special font\\\\n) Print" ! 781: echo "(name $1\\\\n) Print" ! 782: echo "(fontname $2\\\\n) Print" ! 783: echo "/$1 NamedInPrologue" ! 784: echo "(special\\\\n) Print" ! 785: echo "(charset\\\\n) Print" ! 786: echo "BuildFontCharset" ! 787: } ! 788: ! 789: # ! 790: # The DESC file doesn't have to be built on a printer. It's only here for ! 791: # consistency. ! 792: # ! 793: ! 794: Description() { ! 795: echo "/charset [" # awk - so the stack doesn't overflow ! 796: StandardCharset | awk '$1 != "(---)" {print $1}' ! 797: SymbolCharset | awk '$1 != "(---)" {print $1}' ! 798: SpecialCharset | awk '$1 != "(---)" {print $1}' ! 799: DingbatsCharset | awk '$1 != "(---)" {print $1}' ! 800: echo "] def" ! 801: ! 802: cat <<-//DESC ! 803: (#Device Description - original PostScript character set ! 804: ! 805: PDL PostScript ! 806: ! 807: fonts 10 R I B BI CW H HI HB S1 S ! 808: sizes 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ! 809: 23 24 25 26 27 28 29 30 31 32 33 34 35 36 38 40 42 44 46 ! 810: 48 50 52 54 56 58 60 64 68 72 78 84 90 96 100 105 110 115 ! 811: 120 125 130 135 140 145 150 155 160 0 ! 812: ! 813: res $RESOLUTION ! 814: hor 1 ! 815: vert 1 ! 816: unitwidth $UNITWIDTH ! 817: ! 818: ) Print ! 819: //DESC ! 820: echo "(charset\\\\n) Print" ! 821: echo "BuildDescCharset" ! 822: echo "(\\\\n) Print" ! 823: } ! 824:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.