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