(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) (FILECREATED "17-Mar-2026 20:19:19" ("compiled on " {WMEDLEY}POSTSCRIPTSTREAM.;67) "12-Mar-2026 00:11:01" recompiled exprs%: POSTSCRIPT.FONTCREATE in "FULL 12-Mar-2026 ..." dated "12-Mar-2026 00:11:10") (FILECREATED "17-Mar-2026 20:19:19" {WMEDLEY}POSTSCRIPTSTREAM.;67 258800 :EDIT-BY rmk :CHANGES-TO (FNS POSTSCRIPT.FONTCREATE) :PREVIOUS-DATE "12-Feb-2026 12:19:03" {WMEDLEY}POSTSCRIPTSTREAM.;66) POSTSCRIPT.INITA0044 :D8 (I 2 DIMENSION I 1 BITMAP I 0 STREAM) YBdgh@ A dgh@ A  h@ A h@ A B (86 \ILLEGAL.ARG 77 BITMAPHEIGHT 71 DSPSCALE 63 BITMAPWIDTH 57 DSPSCALE 46 BITMAPHEIGHT 40 DSPSCALE 22 BITMAPWIDTH 16 DSPSCALE) (30 HEIGHT 6 WIDTH) () POSTSCRIPT.INIT :D8 (P 15 A0169 P 14 A0170 P 13 A0168 P 12 x P 10 FP P 9 OLDPSCFD P 8 COPYFD P 7 CLASS P 3 FD F 16 FONTDEFS F 17 POSTSCRIPTFONTCACHE F 18 *POSTSCRIPT-NS-TRANSLATIONS*) 0W 4d0gKdMLh^L&NXIHZYJo YHd! O uO _eO O_gO_OgOd$OOd  OyW UdgK?d gO*OgOOOhh hhgdddg hc"ngi l~l  OdOgg `dgdgdgdgdg dgdg dg dgdgdgdgdgdgdgdgdgDdgdg"dgPdg0dg$dg&dg(dg*dg,dgdg@dgBdg2dg4dgLdgJdgNdgXdgRdgTdg^dg\dgZdgVdgFdg:dg8dg6dg.l W$ l(&Odl) dl\`!O_OOOOk_(845 \POSTSCRIPT.NSHASH 833 HARRAY 392 FONTPROFILE.ADDDEVICE 354 CL:MAKE-ARRAY 337 FLUSHFONTCACHE 305 \NCONC2 204 FONTUNPARSE 196 FONTUNPARSE 110 \EVALV1 101 BOUNDP 84 LAST 76 CL:REMOVE-DUPLICATES 71 \NCONC2) (871 \POSTSCRIPT.CHARTYPE 838 *POSTSCRIPT-NS-HASH* 826 \POSTSCRIPTIMAGEOPS 818 NILL 809 NILL 800 NILL 791 POSTSCRIPT.INITA0044 782 NILL 773 NILL 764 \MEDW.BLTCHAR 755 \MEDW.XOFFSET 746 \MEDW.YOFFSET 737 \DSPPOPSTATE.PSC 728 \DSPPUSHSTATE.PSC 719 \DRAWPOINT.PSC 710 \DSPTRANSLATE.PSC 701 \DSPROTATE.PSC 692 \DRAWARC.PSC 683 \CHARWIDTH.PSC 674 \STRINGWIDTH.PSC 665 \FILLPOLYGON.PSC 656 \DRAWPOLYGON.PSC 647 \DSPRESET.PSC 638 \DSPCLIPPINGREGION.PSC 629 POSTSCRIPT 620 \DSPSPACEFACTOR.PSC 611 \DSPBOTTOMMARGIN.PSC 602 \DSPTOPMARGIN.PSC 593 \TERPRI.PSC 584 \DSPCOLOR.PSC 575 \DSPSCALE2.PSC 566 \DSPSCALE.PSC 557 \NEWPAGE.PSC 548 \SCALEDBITBLT.PSC 539 \BITBLT.PSC 530 \BLTSHADE.PSC 521 \FILLCIRCLE.PSC 512 \DRAWELLIPSE.PSC 503 \DRAWCIRCLE.PSC 494 \DRAWCURVE.PSC 485 \DRAWLINE.PSC 476 \DSPLINEFEED.PSC 467 \DSPRIGHTMARGIN.PSC 458 \DSPLEFTMARGIN.PSC 449 \DSPFONT.PSC 440 \MOVETO.PSC 431 \DSPYPOSITION.PSC 422 \DSPXPOSITION.PSC 413 CLOSEPOSTSCRIPTSTREAM 404 POSTSCRIPT 397 |IMAGEOPSTYPE#| 387 INTERPRESS 382 POSTSCRIPT 359 \POSTSCRIPT.CHARTYPE 348 :INITIAL-ELEMENT 331 POSTSCRIPT 323 * 273 POSTSCRIPT 256 POSTSCRIPT 241 FONTPROFILE 212 FONTCLASS 173 POSTSCRIPT 168 FONTCLASS 154 FONTCLASS 147 POSTSCRIPT 137 FONTCLASS 126 FONTCLASS 117 FONTCLASS 19 FONTPROFILE) ( 66 (FONT7 FONT6 FONT5 FONT4 FONT3 FONT2 FONT1 BOLDFONT LITTLEFONT BIGFONT PRETTYCOMFONT COMMENTFONT USERFONT SYSTEMFONT CLISPFONT LAMBDAFONT CHANGEFONT DEFAULTFONT)) POSTSCRIPT.PUTRGBCOLOR :D8 (P 4 COLORSTR P 3 GRAY P 2 A0811 P 1 RGB P 0 A0810 I 2 EOL? I 1 COLOR I 0 STREAM) NAdJ@0 AHHZJI@LKooBg I(74 POSTSCRIPT.PUTCOMMAND 28 \MVLIST 23 \PSC.COLOR.TO.RGB) (69 :EOL 16 \POSTSCRIPTDATA 9 STREAM) ( 61 " setrgbcolor " 55 " setgray ") \PSC.COLOR.TO.RGB :D8 (P 1 STR P 0 RGB I 2 NOERRORFLG? I 1 DEFAULTRGB I 0 COLOR)  @dj dkd4o@)@do ljظhoH HddhX(@@d3 l@@doAX@B XHDI@HH"HHhoHob boHHH H@IHAh$(172 CL:FORMAT 148 CL:FORMAT 102 ENSURE.RGB 56 CL:FORMAT) NIL ( 157 "~D ~D ~D " 140 255.0 133 "~F " 89 16777215 50 "~F " 35 1.0 24 0.0) PSCFONT.READFONT :D8 (P 6 C P 4 W P 3 FID P 2 *PACKAGE* P 1 PF P 0 S I 0 FONTFILENAME F 7 POSTSCRIPTFONTCACHE) @gho hdddddddo #IHo [H lIKIH H IH H IH H IH H Ingjd \ljNMLNH H Nk^H InI@g IIIIIIIIWcI(216 L-CASE 211 FILENAMEFIELD 183 CLOSEF 169 SETA 143 ARRAY 61 READ 56 FIND-READTABLE 41 CL:FIND-PACKAGE 16 OPENSTREAM) (206 NAME 136 SMALLPOSP 5 INPUT) ( 51 "INTERLISP" 36 "INTERLISP" 11 ((SEQUENTIAL T))) PSCFONT.SPELLFILE :D8 (I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) )`"@`@ABjDj`` (38 \FINDFONTFILE) (32 POSTSCRIPTFONTEXTENSIONS 27 POSTSCRIPTFONTDIRECTORIES 12 POSTSCRIPT.FONT.ALIST 4 POSTSCRIPTFONTDIRECTORIES) () PSCFONT.COERCEFILE :D8 (I 6 DEVICE I 5 ROTATION I 4 EXPANSION I 3 SLOPE I 2 WEIGHT I 1 SIZE I 0 FAMILY) 1Dg@ABCghEF Cg@ABgDhEF Dg&Cg@ABgdhEF Bdg@AgCDhEF Bg&Dg@AgCghEF iBdg(Cg@AggDhEF :Bgh/Dgh$Cg@AggdhEF (302 PSCFONT.SPELLFILE 244 PSCFONT.SPELLFILE 197 PSCFONT.SPELLFILE 148 PSCFONT.SPELLFILE 110 PSCFONT.SPELLFILE 65 PSCFONT.SPELLFILE 29 PSCFONT.SPELLFILE) (289 REGULAR 284 MEDIUM 274 ITALIC 263 REGULAR 252 MEDIUM 231 REGULAR 226 MEDIUM 216 ITALIC 206 MEDIUM 185 REGULAR 179 MEDIUM 169 REGULAR 160 MEDIUM 134 MEDIUM 123 MEDIUM 97 REGULAR 86 ITALIC 77 REGULAR 52 REGULAR 41 ITALIC 17 REGULAR 5 REGULAR) () PSCFONTFROMCACHE.SPELLFILE :D8 (I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 1 POSTSCRIPTFONTCACHE) e@`@ABgj g QHd3HHHHHHH(39 L-CASE 34 FILENAMEFIELD 24 \FONTFILENAME) (29 NAME 17 PSCFONT 5 POSTSCRIPT.FONT.ALIST) () PSCFONTFROMCACHE.COERCEFILE :D8 (I 6 DEVICE I 5 ROTATION I 4 EXPANSION I 3 SLOPE I 2 WEIGHT I 1 SIZE I 0 FAMILY) 1Dg@ABCghEF Cg@ABgDhEF Dg&Cg@ABgdhEF Bdg@AgCDhEF Bg&Dg@AgCghEF iBdg(Cg@AggDhEF :Bgh/Dgh$Cg@AggdhEF (302 PSCFONTFROMCACHE.SPELLFILE 244 PSCFONTFROMCACHE.SPELLFILE 197 PSCFONTFROMCACHE.SPELLFILE 148 PSCFONTFROMCACHE.SPELLFILE 110 PSCFONTFROMCACHE.SPELLFILE 65 PSCFONTFROMCACHE.SPELLFILE 29 PSCFONTFROMCACHE.SPELLFILE) (289 REGULAR 284 MEDIUM 274 ITALIC 263 REGULAR 252 MEDIUM 231 REGULAR 226 MEDIUM 216 ITALIC 206 MEDIUM 185 REGULAR 179 MEDIUM 169 REGULAR 160 MEDIUM 134 MEDIUM 123 MEDIUM 97 REGULAR 86 ITALIC 77 REGULAR 52 REGULAR 41 ITALIC 17 REGULAR 5 REGULAR) () PSCFONT.WRITEFONT :D8 (P 14 C P 2 *READTABLE* P 1 W P 0 S I 1 PF I 0 FONTFILENAME) @gho Ao  AH Hj Hl HA[L KLl HA]N MNl HA__O OOl HA__O OOl ljOOH @HIO __O OOl Ok_(238 \BOUT 225 \BOUT 212 ELT 201 CLOSEF 181 \BOUT 168 \BOUT 146 \BOUT 133 \BOUT 112 \BOUT 101 \BOUT 85 \BOUT 74 \BOUT 60 BOUT 52 BOUT 45 PRIN3 34 FIND-READTABLE 16 OPENSTREAM) (5 OUTPUT) ( 29 "INTERLISP" 11 ((TYPE BINARY) (SEQUENTIAL T))) READ-AFM-FILE :D8 (P 18 CCODE P 17 CC P 10 FBBOX P 9 CMCOUNT P 8 HEIGHT P 7 SLOPE P 6 WEIGHT P 5 TOKEN P 4 W P 3 LCHAR P 2 FCHAR P 1 PSCFONT P 0 IFILE I 2 ITALICNESS I 1 BOLDNESS I 0 FILE F 19 WeightMenu F 20 SlopeMenu F 21 CWIDTH F 22 CNAME F 23 WeightMenuItems F 24 SlopeMenuItems F 25 *POSTSCRIPT-EXTRA-CHARACTERS*) n@g hdddddddnjngjd H oH H oH ] g W&L`dW.gl _dOdg dgjdndh_dO c&g W(L`dW0gl _dOdg dgjdndh_dO c(A^?i oi Ii oi W& ^i i B_@i oi Ii oi W( _i i IMNOghIOgNgMINOg H oM H H H H h_IO_jOOjOIOII_IInO IInO H oM BH _H l ILOkO"O H gH _$gH H c*O$jJO$0O$Z-H gH c,W2W,'_$JO$O$ZO$KO$LO$W* H l O"k_"lIJIKH I(874 CLOSEF 840 READCCODE 833 SETA 794 RATOM 780 RATOM 755 READ 748 RATOMS 734 READ 720 RATOM 681 READCCODE 672 RATOM 662 CL::SIMPLE-STRING-EQUAL 650 READCCODE 642 FIXR 636 CL::%%/ 613 FIXR 607 CL::%%/ 519 READ 513 READ 507 READ 501 READ 491 CL::SIMPLE-STRING-EQUAL 479 RSTRING 471 POSTSCRIPT.GETFONTID 417 TERPRI 410 PRIN1 402 MENU 394 PRIN1 382 PRIN1 374 PRIN1 362 TERPRI 350 TERPRI 343 PRIN1 336 MENU 328 PRIN1 316 PRIN1 308 PRIN1 296 TERPRI 236 FONTCREATE 202 BOUNDP 142 FONTCREATE 108 BOUNDP 96 CL::SIMPLE-STRING-EQUAL 90 RSTRING 78 READCCODE 70 CL::SIMPLE-STRING-EQUAL 65 RSTRING 53 READCCODE 44 ARRAY 10 OPENSTREAM) (785 N 742 WX 725 C 466 REGULAR 452 MEDIUM 444 REGULAR 428 REGULAR 260 DEFAULTMENUHELDFN 251 CLRPROMPT 229 HELVETICA 217 |MENUTYPE#| 210 MENU 197 SlopeMenu 166 DEFAULTMENUHELDFN 157 CLRPROMPT 135 HELVETICA 123 |MENUTYPE#| 116 MENU 103 WeightMenu 37 SMALLPOSP 5 INPUT) ( 656 "StartCharMetrics" 485 "FontBBox" 388 ": " 368 "Font SLOPE for " 322 ": " 302 "Font WEIGHT for " 84 "" 59 "FontName") CONVERT-AFM-FILES :D8 (P 9 SLOPE P 8 WEIGHT P 7 AFM-FILE P 3 FILENAME P 2 FONT P 1 FNAME P 0 FL I 0 FILE-LIST) } @8dHH!ooH3 N_M_L h_OOO IkOOghgj [J NML(111 PSCFONT.WRITEFONT 104 \FONTFILENAME 76 READ-AFM-FILE) (97 PSCFONT 88 REGULAR) ( 25 (MEDIUM MEDIUM BOLD BOLD) 20 (REGULAR ITALIC REGULAR ITALIC)) POSTSCRIPT.GETFONTID :D8 (P 0 FONTID I 3 EXPANSION I 2 SLOPE I 1 WEIGHT I 0 FID) n@oohX@dBBgHo@AAgHoCgHHCgooHNIL (91 COMPRESSED 77 REGULAR 60 BOLD 35 ITALIC) ( 104 1.618034 98 0.618034 69 1.1 45 0.12278454 14 0.0 9 1.0) POSTSCRIPT.FONTCREATEA0020 :D8 (P 4 BASECHAR P 3 CODE2 P 2 A1172 P 1 KIND P 0 A1171 I 1 CODE I 0 MAPPING F 23 FD F 24 PSCWIDTHSBLOCK F 25 SYMWIDTHS F 26 DINGWIDTHS) `@HHZJIQW.AW0KlO"O$]N#MNNM O(O*O,O,O$lO&O&gcW2W.AW2Kl O"O$__O'OOOO O(O*O,O,O$lO&O&IdgdW4W.AW4Kl O"O$__O'OOOO O(O*O,O,O$lO&O&gdW.AW0ȤoW01 O"O$__O'OOOO O(O*O,O,O$lO&O&IdgWW.AW0LO"O$__O'OOOO O(O*O,O,O$lO&O&gUW.AW0KO"O$_ _O 'OO O O O(O*O,O,O$lO&O&(575 \CREATECHARSET 483 \CREATECHARSET 388 \CREATECHARSET 343 FIXR 282 \CREATECHARSET 238 ELT 174 \CREATECHARSET 130 ELT 69 \CREATECHARSET) (561 FONTDESCRIPTOR 519 ACCENTPAIR 469 FONTDESCRIPTOR 426 ACCENT 374 FONTDESCRIPTOR 318 FUNCTION 268 FONTDESCRIPTOR 212 DINGBAT 160 FONTDESCRIPTOR 105 SYMBOL 58 FONTDESCRIPTOR) ( 333 1.3) POSTSCRIPT.FONTCREATEA0081 :D8 (I 1 CODE I 0 MAPPING F 8 FD) ]@gSWA@W@lH#HI[L!KLLK MNOOIlJJ(65 \CREATECHARSET) (54 FONTDESCRIPTOR 6 APPLY*) () POSTSCRIPT.FONTCREATE :D8 (P 29 DINGWIDTHS P 28 SYMWIDTHS P 27 TMP P 26 CH P 24 FS P 18 EXPANSION P 17 SLOPE P 16 WEIGHT P 15 DEVICE P 14 ROTATION P 13 FACE P 12 SIZE P 11 FAMILY P 10 FACECHANGED P 9 FD P 8 WIDTHSBLOCK P 7 PSCWIDTHSBLOCK P 6 FIXPWIDTHS P 5 DESCENT P 4 ASCENT P 3 PSCFD P 2 SCALEFONTP P 1 FULLNAME P 0 UNITFONT I 0 FONTSPEC) @O0O0g _0O0_O0_O0_O0_O0_O_ O_"O_$OkOOOOO [h_UOOOOO YOOO O"O$OO [i_% h_OOO O"O$OO YEKdo Ko OKKO O"O$  i_OkOOOi XCOOOOO OOOOO Yd [d+Kh<g'OKo OKo iZK`gKh_&dO&dlddOdOdOdOdj LM_(dO( dLdM @ _*dO*lli _,dO,dl _dg OOjO _.O._K^J8ljO4O2(OO4ONO4 o O4k_4(ljO4O2OO4NO4 O4k_4llk _ljO4O2OO4OO4O4k_4I HdO O6)OO6!OO6OO jOhgOOO gOOO `g `g O(901 MAPHASH 885 MAPHASH 867 \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 851 \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS 822 COPY 788 FONTSPECFROMFILENAME 728 \ALLOCBLOCK 703 ELT 663 FIXR 651 ELT 595 \CREATECHARSET 570 FONTPROP 542 \ALLOCBLOCK 522 MCCSMAPFN 424 FIXR 402 FIXR 345 PSCFONT.READFONT 337 PSCFONT.SPELLFILE 319 PSCFONTFROMCACHE.SPELLFILE 300 FONTCREATE 277 PSCFONT.READFONT 268 POSTSCRIPT.GETFONTID 246 FIXR 227 FIXR 202 PSCFONT.COERCEFILE 175 PSCFONT.READFONT 161 PSCFONTFROMCACHE.COERCEFILE 138 PSCFONT.SPELLFILE 114 PSCFONTFROMCACHE.SPELLFILE 29 FONTPROP) (896 POSTSCRIPT.FONTCREATEA0081 891 *POSTSCRIPT-NS-HASH* 880 POSTSCRIPT.FONTCREATEA0020 875 *POSTSCRIPT-NS-HASH* 856 ZAPFDINGBATS 840 SYMBOL 810 FONTDESCRIPTOR 778 FONTDESCRIPTOR 607 CHARSETINFO 585 FONTDESCRIPTOR 565 CHARENCODING 446 PSCFONT 440 |FONTDESCRIPTORTYPE#| 380 PSCFONT 373 FONTDESCRIPTOR 24 SPEC 16 FONTDESCRIPTOR) ( 657 0.1 418 0.1 396 0.1 240 0.1 221 0.1) \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS :D8 (P 6 CH P 4 NEWWIDTHS P 3 WIDTHS P 2 TYPEFONT P 1 FONTFILE P 0 SIZE I 3 DEVICE I 2 ROTATION I 1 FD I 0 TYPE) A@kABC gkoBC 2@kABC G@kABC Y-gkoBC gkoBC Yd ZdKd[@ngjd \ljNM$LNHKN o Nk^L(207 SETA 202 FIXR 190 ELT 168 ARRAY 138 PSCFONT.READFONT 130 PSCFONT.SPELLFILE 109 PSCFONTFROMCACHE.SPELLFILE 87 PSCFONT.SPELLFILE 67 PSCFONTFROMCACHE.SPELLFILE 46 PSCFONT.SPELLFILE 25 PSCFONT.SPELLFILE) (161 SMALLPOSP 116 SYMBOL 95 SYMBOL 77 FONTDESCRIPTOR 57 FONTDESCRIPTOR 32 SYMBOL 15 FONTDESCRIPTOR 5 FONTDESCRIPTOR) ( 196 0.1 122 (MEDIUM REGULAR REGULAR) 101 (MEDIUM REGULAR REGULAR) 38 (MEDIUM REGULAR REGULAR)) POSTSCRIPT.FONTSAVAILABLE :D8 (P 7 NFS P 6 S P 4 FS P 1 FONTSAVAILABLE P 0 SIZE I 0 FONTSPEC) @@ "I"dL@g hZhLHghIaLKKiJd`lLNLLLL_NMOI OINkԾIdHI(146 MEMBER 36 FONTDEVICEPROP 13 \SEARCHFONTFILES 8 COERCEFONTSPEC) (96 \POSTSCRIPT.MAX.WILD.FONTSIZE 60 * 31 FONTCOERCIONS) () POSTSCRIPT.FONTEXISTS? :D8 (P 8 FS P 7 EXPANSION P 6 SLOPE P 5 WEIGHT P 4 DEVICE P 3 ROTATION P 2 FACE P 1 SIZE P 0 FAMILY I 0 FONTSPEC) @OOg _OO_OO_OO_OO_O\J]J^J_HkJKL  HkMNOKL HkMNOKL (130 PSCFONT.COERCEFILE 114 PSCFONTFROMCACHE.COERCEFILE 98 PSCFONT.SPELLFILE 26 FONTPROP) (21 SPEC 13 FONTDESCRIPTOR) () OPENPOSTSCRIPTSTREAMA0013 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 STREAM F 1 BBOX F 2 USERNAME F 3 OPTIONS F 4 FILE) ,oh h QoP Qld P oP Qld P oP Qld P oP Qld P P oh Sg'T h h oh h oh h h Pg g"oh R h h oh h (297 TERPRI 291 PRIN1 279 TERPRI 272 PRIN1 266 MKSTRING 259 PRIN1 240 FILENAMEFIELD 229 TERPRI 223 PRIN1 217 DATE 212 PRIN1 201 TERPRI 195 PRIN1 184 TERPRI 178 PRIN1 172 MKSTRING 157 PRIN1 145 TERPRI 138 PRIN1 132 CL:CEILING 119 PRIN1 107 PRIN1 101 CL:CEILING 89 PRIN1 77 PRIN1 71 CL:FLOOR 60 PRIN1 48 PRIN1 42 CL:FLOOR 32 PRIN1 16 TERPRI 10 PRIN1) (245 LPT 235 HOST 163 DOCUMENT.NAME) ( 285 "%%%%EndComments" 253 "%%%%For: " 206 "%%%%CreationDate: " 189 "%%%%Creator: PostScript Driver Copyright (C) 1988-1992 Venue and others" 151 "%%%%Title: " 113 " " 83 " " 54 " " 26 "%%%%BoundingBox: " 4 "%%!PS-Adobe-2.0") OPENPOSTSCRIPTSTREAM :D8 (P 12 X P 11 SI::*RESETFORMS* P 8 REG P 7 CLIP P 6 IMAGESIZEFACTOR P 5 PAPER P 4 BBOX P 3 IMAGEDATA P 2 STREAM I 1 OPTIONS I 0 FILE F 13 POSTSCRIPT.IMAGESIZEFACTOR F 14 *POSTSCRIPT-FILE-TYPE* F 15 POSTSCRIPT.DEFAULT.PAGEREGION F 16 DEFAULTFONT)  @gi @G@g g@g@gg ghgWho `dj @ dkdj@l l@l @l Hk _IkjIkL OOhjOkj$OKKOOOjO&O$,JO(OO* O,k_,O&k_&O(k_(O*k_*O,_"lO"OO"_OO"_OO"_O"k_"jlO5@ dkdj@l l@l @l j_@lB @l3 nO"@lF @lF@MO"l @MO"l O"n_"Ol_dJO_ KOOjO0O."JO2O O4k_4O0k_0O2k_2O4_"lO"OO"_OO"_OO"_O"k_"jlO5@ dkdj@l l@l @l j_@lB @l2 nO"@lF @lF@MO"l @MO"l @MO l @MO l O"n_"Ol_BJO_ lO5@ dkdj@l l@l @l j_O lO lO l@lB @l4 Ol_@MO l @MO l Ok_Ok_Ok_Ol_,@ dkdj@l l@l @l JOOjK Ok_OjL_(1255 \MOVEBYTES 1240 \BOUT 1231 \BOUT 1161 BOUT 1147 BOUT 1121 BOUT 1112 BOUT 1080 \BOUT 1071 \BOUT 999 BOUT 985 BOUT 967 BOUT 953 BOUT 930 BOUT 914 BOUT 905 BOUT 892 \BOUT 883 \BOUT 712 BOUT 698 BOUT 675 BOUT 659 BOUT 650 BOUT 637 \BOUT 628 \BOUT 429 BITMAPCREATE 421 \BOUT 412 \BOUT 398 \BOUT 371 BOUT 363 BOUT 331 \BOUT 322 \BOUT 262 BOUT 248 BOUT 221 \BOUT 212 \BOUT 133 \BOUT 124 \BOUT 87 BOUT 79 BOUT) (1200 STREAM 1040 STREAM 852 STREAM 597 STREAM 434 BITMAP 377 STREAM 291 STREAM 181 STREAM 93 STREAM 57 ARRAYP 52 PS.BITMAPARRAY 42 BITMAP 25 BITMAP 16 BITMAP 5 BITMAP) () POSTSCRIPT.PUTCOMMAND :D8 (P 5 STR# P 3 S#S P 2 IMAGEDATA P 1 STREAM P 0 S.STRS) [eka!I0hJh4J$I J0IJ HlMdLha[gI IK Mk](82 POSTSCRIPT.OUTSTR 74 \BOUTEOL 45 \SETXFORM.PSC 33 POSTSCRIPT.SHOWACCUM) (66 :EOL 14 STREAM) () POSTSCRIPT.SET-FAKE-LANDSCAPE :D8 (P 10 MT P 9 MR P 8 MB P 7 ML P 6 P P 5 C P 4 P0 P 3 C0 P 2 LAND P 1 OLAND P 0 IMAGEDATA I 1 ROTATION I 0 STREAM)  @0 H"lZjhZ[\]^____AIj AA hZH"@ @jd HH2odKKhjdLLhJQMKMLKKH _LHk_H _LHkհSMLKKMKLH k_H_LH k_H_HMHN2HOHO HOHO HJ"Hi0@ (401 \DSPRESET.PSC 88 \DSPTRANSLATE.PSC 79 POSTSCRIPT.SHOWACCUM 59 \FZEROP) (391 \POSTSCRIPTDATA 381 \POSTSCRIPTDATA 370 \POSTSCRIPTDATA 359 \POSTSCRIPTDATA 348 \POSTSCRIPTDATA 337 \POSTSCRIPTDATA 327 \POSTSCRIPTDATA 317 \POSTSCRIPTDATA 306 \POSTSCRIPTDATA 292 \POSTSCRIPTDATA 276 \POSTSCRIPTDATA 262 \POSTSCRIPTDATA 220 \POSTSCRIPTDATA 205 \POSTSCRIPTDATA 191 \POSTSCRIPTDATA 176 \POSTSCRIPTDATA 104 \POSTSCRIPTDATA 95 \POSTSCRIPTDATA 68 \POSTSCRIPTDATA 16 \POSTSCRIPTDATA 5 STREAM) ( 112 -16383) POSTSCRIPT.SHOWACCUM :D8 (P 1 KERN P 0 IMAGEDATA I 0 STREAM) @0H$@g YHk I@oIo L@oD@o @H HC I!@ol oIoo @o @ Hh$h(150 \BOUTEOL 143 POSTSCRIPT.OUTSTR 131 CONCAT 97 POSTSCRIPT.OUTSTR 83 POSTSCRIPT.OUTSTR 62 CONCAT 40 EQP 30 STREAMPROP) (25 KERN 11 \POSTSCRIPTDATA) ( 138 " 0 32 4 -1 roll widthshow" 125 " 6 -1 roll awidthshow" 120 " 0 " 114 " " 107 " 0 " 78 ") " 70 ") S" 57 " 0 3 -1 roll ashow" 51 ") ") POSTSCRIPT.STARTPAGE :D8 (P 12 CH P 6 CH P 4 FONT P 3 A0121 P 1 NEW-PAGE P 0 IMAGEDATA I 0 STREAM) @0!Hh0HKkԺKJJY@goIoIgogogoogog @Hi Hi&Hi4HF@H @ HQ Mdj _Mdj _OmMl _Mdj lD_OO#OOOOO¾@N Ok_n j@ oI QOdj _Odj _OmOl _Odj lD_ OO&O OOOO_@O Ok_@ @ @L @ (488 \DSPRESET.PSC 481 \DSPFONT.PSC 474 \TERPRI.PSC 468 \TERPRI.PSC 452 \POSTSCRIPT.OUTCHARFN 408 %%ARRAY-TYPE-NUMBER 390 \GETBASEFIXP 370 %%ARRAY-BASE 350 %%ARRAY-OFFSET 333 CONCAT 322 RELMOVETO 302 \POSTSCRIPT.OUTCHARFN 261 %%ARRAY-TYPE-NUMBER 244 \GETBASEFIXP 225 %%ARRAY-BASE 206 %%ARRAY-OFFSET 182 \DSPRESET.PSC 173 \DSPFONT.PSC 129 \SETXFORM.PSC 121 POSTSCRIPT.PUTCOMMAND) (188 \POSTSCRIPTDATA 166 \POSTSCRIPTDATA 153 \POSTSCRIPTDATA 144 \POSTSCRIPTDATA 135 \POSTSCRIPTDATA 115 :EOL 105 :EOL 90 :EOL 80 :EOL 70 :EOL 53 :EOL 40 \POSTSCRIPTDATA 29 \POSTSCRIPTDATA 16 \POSTSCRIPTDATA 5 STREAM) ( 327 "Page " 110 "%%%%EndPageSetup" 100 " imagesizefactor mul dup scale" 95 0.01 85 "/savepage save def" 75 "%%%%BeginPageSetup" 64 " " 58 "%%%%Page: ") \POSTSCRIPTTAB :D8 (I 0 POSTSCRIPTDATA) l@H@@HNIL NIL () \PS.BOUTFIXP :D8 (L (1 N 0 STREAM)) jA@l- jAbl A@Al0 oA[@08lHIAl l0ǿAl bjImԹ@HIlIK @KLMNlJA d@Hl h(155 BOUT 138 CHCON 33 BOUT 11 BOUT) (120 FDEV 113 STREAM 63 ARRAYP 56 \POSTSCRIPTDATA 49 STREAM) ( 39 1000000000) \PS.SCALEHACK :D8 (P 3 REG P 2 FACTOR P 1 OLDSCALE P 0 IMAGEDATA I 1 SCALEFACTOR I 0 STREAM) g@0!H6hA3JIA ?@ IA HH2hDdKdJ KKJ KKJ KKJ HHJ HHJ HHJ HHJ HH J  HH J  HH,J ,HH.J .HA6Hi0I(333 FIXR 309 FIXR 285 FIXR 261 FIXR 237 FIXR 213 FIXR 189 FIXR 165 FIXR 138 FIXR 120 FIXR 104 FIXR 90 FIXR 53 CL::%%/ 45 POSTSCRIPT.SHOWACCUM 35 EQP) (352 \POSTSCRIPTDATA 342 \POSTSCRIPTDATA 324 \POSTSCRIPTDATA 318 \POSTSCRIPTDATA 300 \POSTSCRIPTDATA 294 \POSTSCRIPTDATA 276 \POSTSCRIPTDATA 270 \POSTSCRIPTDATA 252 \POSTSCRIPTDATA 246 \POSTSCRIPTDATA 228 \POSTSCRIPTDATA 222 \POSTSCRIPTDATA 204 \POSTSCRIPTDATA 198 \POSTSCRIPTDATA 180 \POSTSCRIPTDATA 174 \POSTSCRIPTDATA 156 \POSTSCRIPTDATA 150 \POSTSCRIPTDATA 68 \POSTSCRIPTDATA 60 \POSTSCRIPTDATA 16 \POSTSCRIPTDATA 5 STREAM) () \PS.SCALEREGION :D8 (I 1 REGION I 0 SCALE) 1@A @A @A @A h(41 FIXR 29 FIXR 18 FIXR 8 FIXR) NIL () \SCALEDBITBLT.PSC :D8 (P 6 TEMPBM P 5 BITMAPHEIGHT P 4 BITMAPWIDTH P 3 DESTREGION P 2 SCALE2 P 1 SCALE1 P 0 IMAGEDATA I 14 SCALE I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 STREAM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) hG3kbC0GHI`3kA@@hDHbEHb FGLb MbFLLb GMMbHDEIFIG [dGdG AjBjFL GM @^"FGk @ABNjdFGGg CoDoEoJFoJGoFoGGgooog CNh Cgog CDE i(356 \MOVETO.PSC 348 POSTSCRIPT.PUTCOMMAND 327 POSTSCRIPT.PUTBITMAPBYTES 319 POSTSCRIPT.PUTCOMMAND 239 BKBITBLT 216 BITMAPCREATE 202 EQP 193 EQP 170 REGIONSINTERSECTP 151 INTERSECTREGIONS 146 CREATEREGION) (343 :EOL 333 :EOL 313 :EOL 290 PAINT 233 REPLACE 130 \POSTSCRIPTDATA 89 \POSTSCRIPTDATA 76 \POSTSCRIPTDATA 63 BITMAP 54 BITMAP 39 POSTSCRIPT.BITMAP.SCALE 27 \POSTSCRIPTDATA 14 STREAM) ( 338 "bitbltsave restore" 308 " thebitimage" 303 " true" 297 " true" 281 " " 275 " scale " 266 " " 258 " translate " 252 " " 246 "/bitbltsave save def ") \SETPOS.PSC :D8 (I 1 IMAGEDATA I 0 STREAM) #@AoAo Ah(h(27 POSTSCRIPT.PUTCOMMAND) (6 \POSTSCRIPTDATA) ( 21 " M " 13 " ") \SETXFORM.PSC :D8 (P 0 CLIP I 2 NORESTORE I 1 IMAGEDATA I 0 STREAM) /A!Ah0B@o @og A6k @A6og A"@o @oAdg*@ @H HdL@LlM g@ @H @L L Al Adl @ H[l @ H[Adl 1IH [H@ HH ػ@KH rn`dIJ[H@ HJػ@ @ @gNNh @H @o @N IJ[H@ HJػlA@A AlbH$@H @l( Hi$@l\ Al(Al)Al\v@A(801 BOUT 787 BOUT 778 \UPDATE.PSC 756 \POSTSCRIPT.PRINTSLUG 737 \TERPRI.PSC 719 \DSPFONT.PSC 711 POSTSCRIPT.OUTSTR 699 \UPDATE.PSC 691 \DSPFONT.PSC 659 POSTSCRIPT.SHOWACCUM 652 \DSPFONT.PSC 639 \TERPRI.PSC 615 \MOVETO.PSC 603 \POSTSCRIPTTAB 593 \TERPRI.PSC 579 \POSTSCRIPTTAB 551 DSPNEWPAGE 527 \TERPRI.PSC 505 \ILLEGAL.ARG 495 POSTSCRIPT.OUTSTR 485 \UPDATE.PSC 477 POSTSCRIPT.SHOWACCUM 438 \UPDATE.PSC 430 POSTSCRIPT.SHOWACCUM 411 \POSTSCRIPT.SPECIALOUTCHARFN 384 \POSTSCRIPT.ACCENTPAIR 353 \POSTSCRIPT.ACCENTFN 333 \POSTSCRIPT.SPECIALOUTCHARFN 307 \POSTSCRIPT.SPECIALOUTCHARFN 287 \TERPRI.PSC 267 GETHASH 247 BOUT 217 BOUT 203 BOUT 186 BOUT 166 BOUT 141 BOUT 132 \UPDATE.PSC 113 \TERPRI.PSC 48 \POSTSCRIPT.CHANGECHARSET 5 MTOX$CODE) (680 FONTDESCRIPTOR 672 FONTDESCRIPTOR 666 ZAPFDINGBATS 558 \POSTSCRIPTDATA 534 \POSTSCRIPTDATA 468 FUNCTION 420 APPLY* 406 ZAPFDINGBATS 393 DINGBAT 362 ACCENTPAIR 341 ACCENT 328 SYMBOL 315 SYMBOL 262 *POSTSCRIPT-NS-HASH* 92 \POSTSCRIPT.CHARTYPE 24 \POSTSCRIPTDATA 13 STREAM) ( 706 " bboxchk ") \POSTSCRIPT.PRINTSLUG :D8 (L (1 CHAR 0 STREAM)) f@0n@HHH*AlHg @HH*AlH (99 \MOVETO.PSC 66 \BLTSHADE.PSC) (92 \POSTSCRIPTDATA 73 \POSTSCRIPTDATA 60 PAINT 53 FONTDESCRIPTOR 46 \POSTSCRIPTDATA 28 \POSTSCRIPTDATA 20 \POSTSCRIPTDATA 5 STREAM) () \POSTSCRIPT.SPECIALOUTCHARFN :D8 (L (2 FAMILY 1 CHAR 0 STREAM)) @0B@ Y@BIIh H$@H @l( Hi$l A:@l\ @l0Al @l0Al @l0AlذZlA:@l\ @l0Al @l0Al @l0AlذAl(Al)Al\@l\ @A I@I A(242 \DSPFONT.PSC 232 BOUT 224 BOUT 190 BOUT 173 BOUT 153 BOUT 128 BOUT 111 BOUT 91 BOUT 71 BOUT 62 \UPDATE.PSC 49 \DSPFONT.PSC 19 \DSPFONT.PSC) (38 FONTDESCRIPTOR 30 FONTDESCRIPTOR 5 STREAM) () \UPDATE.PSC :D8 (I 1 IMAGEDATA I 0 STREAM) &A0@A A&@A A( @A (35 \SETPOS.PSC 22 \SWITCHFONTS.PSC 10 \SETXFORM.PSC) NIL () \POSTSCRIPT.ACCENTFN :D8 (L (1 CHAR 0 STREAM)) @0H$@H @l( Hi$@l\ oA m QIdj Idj LmIl ػIdj lDLKNMLMLº@J Lk\A(164 BOUT 132 %%ARRAY-TYPE-NUMBER 117 \GETBASEFIXP 101 %%ARRAY-BASE 84 %%ARRAY-OFFSET 68 SUBSTRING 61 CONCAT 56 OCTALSTRING 45 BOUT 31 BOUT 22 \UPDATE.PSC) (5 STREAM) ( 50 "000") \POSTSCRIPT.ACCENTPAIR :D8 (L (3 UNDER-ACCENTS 2 ACCENTS 1 CHAR 0 STREAM))  @0QH@ @H @l( @l\ oA m Q Ndj _Ndj _OmNl _Ndj lD_OO&OOOOO_@O Ok_@l) @l( BhJK@o CL@l) laA@oIo o fJhJJ@l\ oK m Q Ndj _Ndj _OmNl _Ndj lD_OO&OOOOO_@O Ok_ LhLL@l\ oM m Q Ndj _Ndj _OmNl _Ndj lD_OO&OOOOO_@O Ok_o@o @oIg o @o A(681 POSTSCRIPT.PUTCOMMAND 670 POSTSCRIPT.PUTCOMMAND 660 FONTPROP 642 POSTSCRIPT.PUTCOMMAND 618 BOUT 574 %%ARRAY-TYPE-NUMBER 557 \GETBASEFIXP 538 %%ARRAY-BASE 519 %%ARRAY-OFFSET 503 SUBSTRING 496 CONCAT 491 OCTALSTRING 479 BOUT 446 BOUT 402 %%ARRAY-TYPE-NUMBER 385 \GETBASEFIXP 366 %%ARRAY-BASE 347 %%ARRAY-OFFSET 331 SUBSTRING 324 CONCAT 319 OCTALSTRING 307 BOUT 284 POSTSCRIPT.PUTCOMMAND 274 CL::%%/ 242 BOUT 225 POSTSCRIPT.PUTCOMMAND 207 BOUT 199 BOUT 181 BOUT 137 %%ARRAY-TYPE-NUMBER 120 \GETBASEFIXP 101 %%ARRAY-BASE 82 %%ARRAY-OFFSET 66 SUBSTRING 59 CONCAT 54 OCTALSTRING 43 BOUT 35 BOUT 27 \UPDATE.PSC 20 POSTSCRIPT.SHOWACCUM) (655 SIZE 262 FONTDESCRIPTOR 5 STREAM) ( 676 " accentor " 665 " " 649 " " 637 " 0 " 485 "000" 313 "000" 279 " " 269 3.0 256 " " 220 ") (" 48 "000") \PSC.SPACEDISP :D8 (I 1 WIDTH I 0 STREAM) @h@ A o (23 POSTSCRIPT.PUTCOMMAND 13 \PSC.SPACEWID 7 DSPFONT) NIL ( 18 " 0 rmoveto ") \PSC.SPACEWID :D8 (I 1 CHAR I 0 FONTDESC) (AdA @  @ (37 CHARWIDTH 31 CHARCODE.DECODE 25 FIXR 19 CHARWIDTH 13 CHARCODE.DECODE) NIL () \PSC.SYMBOLS :D8 (P 1 OLDFONT P 0 IMAGEDATA I 1 CHAR I 0 STREAM) Z@0@ @gIIh @ @H Ao@o @I (87 \DSPFONT.PSC 79 POSTSCRIPT.OUTSTR 60 \UPDATE.PSC 53 POSTSCRIPT.SHOWACCUM 47 \DSPFONT.PSC 13 \DSPFONT.PSC) (36 FONTDESCRIPTOR 28 FONTDESCRIPTOR 22 ZAPFDINGBATS 5 STREAM) ( 74 " bboxchk " 66 "0,161") \POSTSCRIPT.NSHASH :D8 (P 13 A0215 P 12 A0216 P 11 A0214 P 10 KIND P 9 A0211 P 8 CODE2 P 7 A0212 P 6 BASECHAR P 5 UNDERACCENTS P 4 A0210 P 3 CHARCODE P 1 MAPPING I 0 MAPPING-LIST) @!HhYdg𓿱 KIYa L_L__O_OOdgdddgO hvgOhiOgOdgO N Md h8g%IgIkJIIhoI ` Kl`! K_i_OOHX(226 PUTHASH 214 ERROR 154 CHARCODE.DECODE 145 CHARCODE.DECODE 139 CHARCODE.DECODE 94 CHARCODE.DECODE 30 CHARCODE.DECODE) (238 \POSTSCRIPT.CHARTYPE 221 *POSTSCRIPT-NS-HASH* 181 CL:IDENTITY 165 APPLY* 128 ACCENTPAIR 118 ACCENT 103 FUNCTION 84 DINGBAT 73 SYMBOL 18 *) ( 208 "UNRECOGNIZED POSTSCRIPT CHARACTER TYPE") (PRETTYCOMPRINT POSTSCRIPTSTREAMCOMS) (RPAQQ POSTSCRIPTSTREAMCOMS ((* ;; "PostScript printer support for Medley") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FONTID PSCFONT \POSTSCRIPTDATA POSTSCRIPTXFORM)) (INITRECORDS \POSTSCRIPTDATA) (FNS POSTSCRIPT.INIT POSTSCRIPT.PUTRGBCOLOR \PSC.COLOR.TO.RGB) (ADDVARS (DEFAULTFILETYPELIST (PS . BINARY) (PSC . BINARY) (PSF . BINARY) (PSCFONT . BINARY) (POSTSCRIPT . BINARY)) (*DISPLAY-FONT-NAME-MAP* ( AVANTGARDE-BOOK . AB) (AVANTGARDE-DEMI . AD) (BECKMAN . BM) (BOOKMAN-LIGHT . BL) (BOOKMAN-DEMI . BD) ( COURIER . CO) (HELVETICA-NARROW . HN) (NEWCENTURYSCHLBK . NC) (PALATINO . PA) (TIMES . TS) ( ZAPFCHANCERY-MEDIUM . ZM) (ZAPFCHANCERY . ZC) (ZAPFDINGBATS . ZD))) (* ;; "Font-reading code") (FNS PSCFONT.READFONT PSCFONT.SPELLFILE PSCFONT.COERCEFILE PSCFONTFROMCACHE.SPELLFILE PSCFONTFROMCACHE.COERCEFILE PSCFONT.WRITEFONT READ-AFM-FILE CONVERT-AFM-FILES POSTSCRIPT.GETFONTID POSTSCRIPT.FONTCREATE \POSTSCRIPT.SPECIALFONT.SCALEDWIDTHS POSTSCRIPT.FONTSAVAILABLE POSTSCRIPT.FONTEXISTS?) (FNS OPENPOSTSCRIPTSTREAM CLOSEPOSTSCRIPTSTREAM) (INITVARS ( *POSTSCRIPT-FILE-TYPE* (QUOTE BINARY))) (FNS POSTSCRIPT.HARDCOPYW POSTSCRIPT.TEDIT POSTSCRIPTFILEP MAKEEPSFILE) (FNS POSTSCRIPT.BITMAPSCALE POSTSCRIPT.CLOSESTRING POSTSCRIPT.ENDPAGE POSTSCRIPT.OUTSTR POSTSCRIPT.PUTBITMAPBYTES POSTSCRIPT.PUTCOMMAND POSTSCRIPT.SET-FAKE-LANDSCAPE POSTSCRIPT.SHOWACCUM POSTSCRIPT.STARTPAGE \POSTSCRIPTTAB \PS.BOUTFIXP \PS.SCALEHACK \PS.SCALEREGION \SCALEDBITBLT.PSC \SETPOS.PSC \SETXFORM.PSC \STRINGWIDTH.PSC \SWITCHFONTS.PSC \TERPRI.PSC) (* ;; "DIG operations: ") ( FNS \BITBLT.PSC \BLTSHADE.PSC \CHARWIDTH.PSC \CREATECHARSET.PSC \DRAWARC.PSC \DRAWCIRCLE.PSC \DRAWCURVE.PSC \DRAWELLIPSE.PSC \DRAWLINE.PSC \DRAWPOINT.PSC \DRAWPOLYGON.PSC \DSPBOTTOMMARGIN.PSC \DSPCLIPPINGREGION.PSC \DSPCOLOR.PSC \DSPFONT.PSC \DSPLEFTMARGIN.PSC \DSPLINEFEED.PSC \DSPPUSHSTATE.PSC \DSPPOPSTATE.PSC \DSPRESET.PSC \DSPRIGHTMARGIN.PSC \DSPROTATE.PSC \DSPSCALE.PSC \DSPSCALE2.PSC \DSPSPACEFACTOR.PSC \DSPTOPMARGIN.PSC \DSPTRANSLATE.PSC \DSPXPOSITION.PSC \DSPYPOSITION.PSC \FILLCIRCLE.PSC \FILLPOLYGON.PSC \FIXLINELENGTH.PSC \MOVETO.PSC \NEWPAGE.PSC) (COMS (* ;; "Character-output, plus special-cases:") (FNS \POSTSCRIPT.CHANGECHARSET \POSTSCRIPT.OUTCHARFN \POSTSCRIPT.PRINTSLUG \POSTSCRIPT.SPECIALOUTCHARFN \UPDATE.PSC \POSTSCRIPT.ACCENTFN \POSTSCRIPT.ACCENTPAIR) (* ;; "Spacing-character (M-quad, etc.) and ballot-box-check &c special-case functions") (FNS \PSC.SPACEDISP \PSC.SPACEWID \PSC.SYMBOLS) (* ;; "The mapping of NS characters to Postscript renderings, both as an AList and as a hashtable") (FNS \POSTSCRIPT.NSHASH) (VARS (*POSTSCRIPT-UNACCENTED-FONTS* (QUOTE (Dancer ZapfDingbats "Dancer" "ZapfDingbats"))) *POSTSCRIPT-NS-TRANSLATIONS*) (GLOBALVARS *POSTSCRIPT-NS-HASH*)) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \POSTSCRIPT.FRACTION)) (VARS (\POSTSCRIPT.ORIENTATION.MENU (create MENU ITEMS _ (QUOTE (("Landscape" T "Print this file/document/image in Landscape Orientation") ("Portrait" (QUOTE NIL) "Print this file/document/image in Portrait Orientation"))) TITLE _ "Orientation" CENTERFLG _ T MENUOFFSET _ (create POSITION XCOORD _ -1 YCOORD _ 0) CHANGEOFFSETFLG _ (QUOTE Y))) ( \POSTSCRIPT.ORIENTATION.OPTIONS.MENU (create MENU ITEMS _ (QUOTE (("Ask" (QUOTE ASK) "Always ask whether to print in Landscape or Portrait Orientation") ("Landscape" T "Default printing to Landscape Orientation") ("Portrait" (QUOTE NIL) "Default printing to Portrait Orientation"))) TITLE _ "Default Orientation" CENTERFLG _ T)) PS.BITMAPARRAY \POSTSCRIPT.JOB.SETUP SlopeMenuItems WeightMenuItems) (ADDVARS (BackgroundMenuCommands ("PS Orientation" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE (MENU \POSTSCRIPT.ORIENTATION.OPTIONS.MENU) )) "Select the default Orientation for PostScript output" (SUBITEMS ("Ask" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE (QUOTE ASK))) "Always ask whether to print in Landscape or Portrait Orientation") ("Landscape" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE T)) "Default printing to Landscape Orientation") ("Portrait" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE NIL)) "Default printing to Portrait Orientation"))))) (VARS ( BackgroundMenu NIL)) (CONSTANTS (GOLDEN.RATIO 1.618034) (\PS.SCALE0 100) (\PS.TEMPARRAYLEN 20)) ( GLOBALVARS POSTSCRIPTFONTEXTENSIONS POSTSCRIPTFONTDIRECTORIES) (INITVARS (POSTSCRIPT.BITMAP.SCALE 1) ( POSTSCRIPT.EOL (QUOTE CR)) (POSTSCRIPT.IMAGESIZEFACTOR 1) (POSTSCRIPT.PREFER.LANDSCAPE NIL) ( POSTSCRIPT.TEXTFILE.LANDSCAPE NIL) (POSTSCRIPT.DEFAULT.PAGEREGION (QUOTE (4800 4800 52800 70800))) ( POSTSCRIPT.TEXTURE.SCALE 4) (POSTSCRIPTFONTDIRECTORIES (LIST (COND ((EQ (MACHINETYPE) (QUOTE MAIKO)) "{dsk}/USR/LOCAL/LDE/FONTS/POSTSCRIPT/") (T "{DSK}POSTSCRIPT>")))) ( POSTSCRIPTFONTEXTENSIONS (QUOTE (PSCFONT PF PSC))) (POSTSCRIPTFONTCOERCIONS (QUOTE ((HELVETICA ( HELVETICA 1)) (HELVETICAD (HELVETICA 1)) (TIMESROMAN (TIMES 1)) (TIMESROMAND (TIMES 1)) (COURIER ( COURIER 1)) (GACHA (COURIER 1)) (CLASSIC (NEWCENTURYSCHLBK 1)) (MODERN (HELVETICA 1)) (CREAM ( HELVETICA 1)) (TERMINAL (COURIER 1)) (LOGO (HELVETICA 1)) (OPTIMA (PALATINO 1)) (TITAN (COURIER 1)) (* (* 1))))) (POSTSCRIPTCHARCOERCIONS NIL) (\POSTSCRIPT.MAX.WILD.FONTSIZE 72)) (ADDVARS ( POSTSCRIPT.FONT.ALIST (HELVETICA . HELVETICA) (HELVETICAD . HELVETICA) (TIMESROMAN . TIMES) ( TIMESROMAND . TIMES) (COURIER . COURIER) (GACHA . COURIER) (CLASSIC . NEWCENTURYSCHLBK) (MODERN . HELVETICA) (CREAM . HELVETICA) (TERMINAL . COURIER) (LOGO . HELVETICA) (OPTIMA . PALATINO) (TITAN . COURIER))) (ALISTS (PRINTFILETYPES POSTSCRIPT) (IMAGESTREAMTYPES POSTSCRIPT)) (INITVARS ( POSTSCRIPT.PAGETYPE (QUOTE LETTER))) (* ;; "NIL means initial clipping is same as paper size. Don't know why the other regions were specified--rmk" ) (APPENDVARS (POSTSCRIPT.PAGEREGIONS (LETTER (0 0 8.5 11) NIL (-0.1 -0.1 8.7 11.2)) (LEGAL (0 0 8.5 14) NIL (-0.1 -0.1 8.7 14.2)) (NOTE (0 0 8.5 11) NIL (-0.1 -0.1 8.7 11.2)))) (GLOBALVARS DEFAULTPRINTINGHOST POSTSCRIPT.BITMAP.SCALE POSTSCRIPT.EOL POSTSCRIPT.FONT.ALIST POSTSCRIPT.PREFER.LANDSCAPE POSTSCRIPT.TEXTFILE.LANDSCAPE POSTSCRIPT.TEXTURE.SCALE POSTSCRIPTFONTDIRECTORIES \POSTSCRIPT.JOB.SETUP \POSTSCRIPT.MAX.WILD.FONTSIZE \POSTSCRIPT.ORIENTATION.MENU \POSTSCRIPTIMAGEOPS POSTSCRIPT.PAGETYPE POSTSCRIPT.PAGEREGIONS) ( DECLARE%: DONTEVAL@LOAD DOCOPY (P (POSTSCRIPT.INIT))) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) POSTSCRIPTSTREAM) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA POSTSCRIPT.PUTCOMMAND))))) (/DECLAREDATATYPE (QUOTE \POSTSCRIPTDATA) (QUOTE (FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER BYTE WORD)) (QUOTE ((\POSTSCRIPTDATA 0 (FLAGBITS . 0)) (\POSTSCRIPTDATA 0 POINTER) (\POSTSCRIPTDATA 2 POINTER) (\POSTSCRIPTDATA 4 POINTER) (\POSTSCRIPTDATA 6 POINTER) ( \POSTSCRIPTDATA 8 POINTER) (\POSTSCRIPTDATA 10 POINTER) (\POSTSCRIPTDATA 12 POINTER) (\POSTSCRIPTDATA 14 POINTER) (\POSTSCRIPTDATA 16 POINTER) (\POSTSCRIPTDATA 18 POINTER) (\POSTSCRIPTDATA 20 POINTER) ( \POSTSCRIPTDATA 22 POINTER) (\POSTSCRIPTDATA 24 POINTER) (\POSTSCRIPTDATA 26 POINTER) (\POSTSCRIPTDATA 28 POINTER) (\POSTSCRIPTDATA 30 POINTER) (\POSTSCRIPTDATA 32 POINTER) (\POSTSCRIPTDATA 34 POINTER) ( \POSTSCRIPTDATA 36 POINTER) (\POSTSCRIPTDATA 38 POINTER) (\POSTSCRIPTDATA 40 POINTER) (\POSTSCRIPTDATA 42 POINTER) (\POSTSCRIPTDATA 44 POINTER) (\POSTSCRIPTDATA 46 POINTER) (\POSTSCRIPTDATA 48 POINTER) ( \POSTSCRIPTDATA 50 POINTER) (\POSTSCRIPTDATA 52 POINTER) (\POSTSCRIPTDATA 54 POINTER) (\POSTSCRIPTDATA 56 POINTER) (\POSTSCRIPTDATA 58 POINTER) (\POSTSCRIPTDATA 60 POINTER) (\POSTSCRIPTDATA 62 POINTER) ( \POSTSCRIPTDATA 64 POINTER) (\POSTSCRIPTDATA 66 (BITS . 7)) (\POSTSCRIPTDATA 67 (BITS . 15)))) (QUOTE 68)) (ADDTOVAR DEFAULTFILETYPELIST (PS . BINARY) (PSC . BINARY) (PSF . BINARY) (PSCFONT . BINARY) ( POSTSCRIPT . BINARY)) (ADDTOVAR *DISPLAY-FONT-NAME-MAP* (AVANTGARDE-BOOK . AB) (AVANTGARDE-DEMI . AD) (BECKMAN . BM) ( BOOKMAN-LIGHT . BL) (BOOKMAN-DEMI . BD) (COURIER . CO) (HELVETICA-NARROW . HN) (NEWCENTURYSCHLBK . NC) (PALATINO . PA) (TIMES . TS) (ZAPFCHANCERY-MEDIUM . ZM) (ZAPFCHANCERY . ZC) (ZAPFDINGBATS . ZD)) (RPAQ? *POSTSCRIPT-FILE-TYPE* (QUOTE BINARY)) (RPAQQ *POSTSCRIPT-UNACCENTED-FONTS* (Dancer ZapfDingbats "Dancer" "ZapfDingbats")) (RPAQQ *POSTSCRIPT-NS-TRANSLATIONS* ((* ;; "Mapping of NS characters to Postscript renderings.") (* ;; "First few are for control-codes in old Press fonts (Timesroman, etc.); not strictly NS, but undefined therein so should be OK." ) ("^S" NIL "2,320") (* ; "pressfont em dash") ("^V" NIL "2,261") (* ; "pressfont en dash") ("^G" NIL "0,140") ("0,244" NIL "2,250") (* ; "generic currency symbol") ("0,251" NIL "2,140") (* ; "left single quote") ("0,254" SYMBOL "2,254") (* ; "left arrow") ("0,255" SYMBOL "2,255") (* ; "uparrow") ("0,256" SYMBOL "2,256") (* ; "right arrow") ("0,257" SYMBOL "2,257") (* ; "down arrow") ( "0,260" SYMBOL "2,260") (* ; "degree") ("0,261" SYMBOL "2,261") (* ; "+/-") ("0,264" SYMBOL "2,264") ( * ; "times") ("0,267" NIL "2,264") (* ; "Center-dot") ("0,270" SYMBOL "2,270") (* ; "divide") ("0,271" NIL "2,047") (* ; "right single quote") ("0,274" FUNCTION " f14 ") (* ; "1/4") ("0,275" FUNCTION " f12 ") (* ; "1/2") ("0,276" FUNCTION " f34 ") (* ; "3/4") ("0,322" SYMBOL "2,342") (* ; "registered" ) ("0,323" SYMBOL "2,343") (* ; "copyright") ("0,324" SYMBOL "2,344") (* ; "tm") ("0,334" FUNCTION " f18 ") (* ; "1/8") ("0,335" FUNCTION " f38 ") (* ; "3/8") ("0,336" FUNCTION " f58 ") (* ; "5/8") ( "0,337" FUNCTION " f78 ") (* ; "7/8") ("0,342" NIL "2,235") (* ; "Eth (slashed D?)") ("0,354" NIL "2,237") (* ; "Thorn") ("0,363" NIL "2,236") (* ; "eth") ("0,374" NIL "2,240") (* ; "thorn") ("41,172" DINGBAT "0,110") (* ; "filled star") ("42,42" DINGBAT "0,161") (* ; "ballot-box") ("42,61" APPLY* "0,161" \PSC.SYMBOLS \PSC.SPACEWID NIL) (* ; "Checked ballot-box") ("357,44" NIL "2,261") (* ; "n dash") ("357,45" NIL "2,320") (* ; "m dash") ("357,55" APPLY* "M" \PSC.SPACEDISP \PSC.SPACEWID NIL) (* ; "M quad") ("357,54" APPLY* "N" \PSC.SPACEDISP \PSC.SPACEWID NIL) (* ; "N quad") ("357,56" APPLY* "1" \PSC.SPACEDISP \PSC.SPACEWID NIL) (* ; "FIGURE quad") ("357,57" APPLY* ("M" 0.2) \PSC.SPACEDISP \PSC.SPACEWID NIL) (* ; "This space (1/5M)") ("357,60" NIL "2,262") (* ; "dagger") ("357,61" NIL "2,263") (* ; "double dagger") ("357,062" SYMBOL "2,361") (* ; "angleright") ("357,063" SYMBOL "2,341" ) (* ; "angleleft") ("357,70" SYMBOL "2,315") (* ; "perpendicular") ("357,101" NIL "2,275") (* ; "per mil o/oo") ("357,104" ACCENTPAIR "<" NIL "/") (* ; "not less than") ("357,105" ACCENTPAIR ">" "/" ) (* ; "not greater than") ("357,110" SYMBOL "2,312") (* ; "parallel") ("357,111" SYMBOL "2,315") (* ; "not parallel") ("357,112" SYMBOL "2,316") (* ; "element") ("357,113" SYMBOL "2,317") (* ; "notelement") ("357,114" SYMBOL "2,047") (* ; "suchthat") ("357,115" SYMBOL "2,334") (* ; "implied by, double arrow left") ("357,116" SYMBOL "2,333") (* ; "iff, double arrow") ("357,117" SYMBOL "2,336") (* ; "implies, double arrow right") ("357,120" SYMBOL "2,253") (* ; "double arrow") ( "357,121" SYMBOL "2,333") (* ; "double arrow") ("357,122" SYMBOL "2,333") (* ; "l/r arrow") ("357,126" SYMBOL "2,307") (* ; "intersection") ("357,127" SYMBOL "2,310") (* ; "union") ("357,130" SYMBOL "2,312") (* ; "reflexsuperset") ("357,131" SYMBOL "2,315") (* ; "reflexsubset") ("357,132" SYMBOL "2,311") (* ; "propersuperset") ("357,133" SYMBOL "2,314") (* ; "propersubset") ("357,137" SYMBOL "2,313") (* ; "notsubset") ("357,141" SYMBOL "2,306") (* ; "emptyset") ("357,142" SYMBOL "2,305") (* ; "circleplus") ("357,144" SYMBOL "2,304") (* ; "circlemultiply") ("357,146" NIL "2,267") (* ; "bullet" ) ("357,147" SYMBOL "2,260") (* ; "center circle (composition), lowered degree") ("357,152" SYMBOL "2,330") (* ; "logicalnot") ("357,154" SYMBOL "2,320") (* ; "angle") ("357,160" SYMBOL "2,136") (* ; "perpendicular") ("357,161" SYMBOL "2,265") (* ; "proportional") ("357,162" SYMBOL "2,272") (* ; "equivalence") ("357,165" SYMBOL "2,362") (* ; "integral") ("357,167" SYMBOL "2,273") (* ; "approxequal") ("357,170" SYMBOL "2,100") (* ; "congruent") ("357,172" SYMBOL "2,345") (* ; "summation") ("357,173" SYMBOL "2,325") (* ; "product") ("357,174" SYMBOL "2,326") (* ; "radical") ( "357,242" SYMBOL "2,246") (* ; "florin") ("357,260" SYMBOL "2,351") (* ; "Ceiling, left ") ("357,261" SYMBOL "2,371") (* ; "Ceiling, right") ("357,262" SYMBOL "2,353") (* ; "Floor, left ") ("357,263" SYMBOL "2,373") (* ; "Floor, right") ("357,264" SYMBOL "2,44") (* ; "exists") ("357,265" SYMBOL "2,42" ) (* ; "forall") ("357,266" SYMBOL "2,331") (* ; "logicaland") ("357,267" SYMBOL "2,332") (* ; "logicalor") ("357,271" SYMBOL "2,321") (* ; "gradient") ("357,272" SYMBOL "2,266") (* ; "partialdiff" ) ("357,313" SYMBOL "2,252") (* ; "spade") ("357,317" DINGBAT "0,63") (* ; "check") ("357,375" FUNCTION " f13 ") (* ; "1/3") ("357,376" FUNCTION " f23 ") (* ; "2/3") ("361,041" ACCENT "0,4" A) ( "361,042" ACCENT "0,1" A) ("361,043" ACCENT "0,2" A) ("361,044" ACCENT "0,6" A) ("361,045" ACCENTPAIR A "0,305") (* ; "A-macron") ("361,046" ACCENTPAIR A "0,306") (* ; "A-breve") ("361,047" ACCENT "0,3" A ) ("361,050" ACCENT "0,5" A) ("361,055" ACCENT "0,7" C) ("361,060" ACCENT "0,13" E) ("361,061" ACCENT "0,10" E) ("361,062" ACCENT "0,11" E) ("361,063" ACCENTPAIR E "0,305") (* ; "E-macron") ("361,065" ACCENT "0,12" E) ("361,066" ACCENTPAIR E NIL "0,316") (* ; "E-ogonek") ("361,076" ACCENT "0,17" I) ( "361,077" ACCENT "0,14" I) ("361,100" ACCENT "0,15" I) ("361,102" ACCENTPAIR I "0,305") (* ; "I-macron") ("361,104" ACCENT "0,16" I) ("361,114" ACCENT "0,20" N) ("361,117" ACCENT "0,24" O) ( "361,120" ACCENT "0,21" O) ("361,121" ACCENT "0,22" O) ("361,122" ACCENT "0,25" O) ("361,123" ACCENTPAIR O "0,305") (* ; "O-macron") ("361,124" ACCENT "0,23" O) ("361,134" ACCENT "0,26" S) ( "361,137" ACCENT "0,32" U) ("361,140" ACCENT "0,27" U) ("361,141" ACCENT "0,30" U) ("361,143" ACCENTPAIR U "0,305") (* ; "U-macron") ("361,145" ACCENT "0,31" U) ("361,155" ACCENT "0,33" Y) ( "361,160" ACCENT "0,34" Z) ("361,165" ACCENTPAIR Y "0,305") (* ; "Y-macron") ("361,166" ACCENTPAIR "0,341" "0,305") (* ; "AE-macron") ("361,167" ACCENTPAIR "0,352" "0,305") (* ; "OE-macron") ("361,241" ACCENT "0,204" a) ("361,242" ACCENT "0,201" a) ("361,243" ACCENT "0,202" a) ("361,244" ACCENT "0,206" a) ("361,245" ACCENTPAIR a "0,305") (* ; "a-macron") ("361,246" ACCENTPAIR a "0,306") (* ; "a-breve") ("361,247" ACCENT "0,203" a) ("361,250" ACCENT "0,205" a) ("361,255" ACCENT "0,207" c) ("361,260" ACCENT "0,213" e) ("361,261" ACCENT "0,210" e) ("361,262" ACCENT "0,211" e) ("361,263" ACCENTPAIR e "0,305") (* ; "e-macron") ("361,265" ACCENT "0,212" e) ("361,266" ACCENTPAIR e NIL "0,316") (* ; "e-ogonek") ("361,267" ACCENTPAIR e "0,317") (* ; "e-caron") ("361,276" ACCENT "0,217" i) ("361,277" ACCENT "0,214" i) ("361,300" ACCENT "0,215" i) ("361,302" ACCENTPAIR "0,365" "0,305") (* ; "i-macron") ("361,304" ACCENT "0,216" i) ("361,314" ACCENT "0,220" n) ("361,317" ACCENT "0,224" o) ("361,320" ACCENT "0,221" o) ("361,321" ACCENT "0,222" o) ("361,322" ACCENT "0,225" o) ("361,323" ACCENTPAIR o "0,305") (* ; "o-macron") ("361,324" ACCENT "0,223" o) ("361,334" ACCENT "0,226" s) ("361,337" ACCENT "0,232" u) ("361,340" ACCENT "0,227" u) ("361,341" ACCENT "0,230" u) ("361,343" ACCENTPAIR u "0,305") (* ; "u-macron") ("361,344" ACCENTPAIR u "0,306") (* ; "u-breve") ("361,345" ACCENT "0,231" u) ( "361,355" ACCENT "0,233" y) ("361,360" ACCENT "0,234" z) ("361,365" ACCENTPAIR y "0,305") (* ; "y-macron") ("361,366" ACCENTPAIR "0,361" "0,305") (* ; "ae-macron") ("361,367" ACCENTPAIR "0,372" "0,305") (* ; "oe-macron") ("361,371" ACCENTPAIR a "0,317") (* ; "a-caron") ("361,375" ACCENTPAIR g "0,317") (* ; "g-caron") (* ;; "Special code assignments for Dictionary of Old English, UToronto:") ( "361,370" ACCENTPAIR a ("0,305" "0,306")) (* ; "a - breve-macron") ("361,372" ACCENTPAIR e "0,306") (* ; "e-breve") ("361,373" ACCENTPAIR e "0,305" "0,56") (* ; "e macron underdot") ("361,374" ACCENTPAIR e ("0,305" "0,306")) (* ; "e - breve-macron") ("361,376" ACCENTPAIR "0,365" "0,306") (* ; "i-breve") ( "362,242" ACCENTPAIR "0,365" "0,317") (* ; "i-caron") ("362,241" ACCENTPAIR "0,365" ("0,305" "0,306")) (* ; " i - breve-macron") ("362,243" ACCENTPAIR n "0,305") (* ; "n-macron") ("362,244" ACCENTPAIR m "0,305") (* ; "m-macron") ("362,245" ACCENTPAIR o "0,317") (* ; "o-caron") ("362,246" ACCENTPAIR o "0,306") (* ; "o-breve") ("362,247" ACCENTPAIR o ("0,305" "0,306")) (* ; "o - breve-macron") ( "362,250" ACCENTPAIR o "0,305" "0,56") (* ; "o-macron underdot") ("362,251" ACCENTPAIR o "0,316") (* ; "o-ogonek") ("362,252" ACCENTPAIR u "0,317") (* ; "u-caron") ("362,253" ACCENTPAIR u ("0,305" "0,306" )) (* ; "u - breve-macron") ("362,254" ACCENTPAIR y "0,306") (* ; "y-breve") ("362,256" ACCENTPAIR y "0,317") (* ; "y-caron") ("362,255" ACCENTPAIR y ("0,305" "0,306")) (* ; "y - breve-macron") (* ; "235 = Eth") (* ; "236 = eth") (* ; "237 = Thorn") (* ; "240 = thorn") (* ;; "NS Greek characters") ( "46,101" SYMBOL "2,101") (* ; "Alpha") ("46,102" SYMBOL "2,102") (* ; "Beta") ("46,103" SYMBOL 0) (* ; "--empty--") ("46,104" SYMBOL "2,107") (* ; "Gamma") ("46,105" SYMBOL "2,104") (* ; "Delta") ( "46,106" SYMBOL "2,105") (* ; "Epsilon") ("46,107" SYMBOL 0) (* ; "Stigma") ("46,110" SYMBOL 0) (* ; "Digamma") ("46,111" SYMBOL "2,132") (* ; "Zeta") ("46,112" SYMBOL "2,110") (* ; "Eta") ("46,113" SYMBOL "2,121") (* ; "Theta") ("46,114" SYMBOL "2,111") (* ; "Iota") ("46,115" SYMBOL "2,113") (* ; "Kappa") ("46,116" SYMBOL "2,114") (* ; "Lambda") ("46,117" SYMBOL "2,115") (* ; "Mu") ("46,120" SYMBOL "2,116") (* ; "Nu") ("46,121" SYMBOL "2,130") (* ; "Xi") ("46,122" SYMBOL "2,117") (* ; "Omicron") ("46,123" SYMBOL "2,120") (* ; "Pi") ("46,124" SYMBOL 0) (* ; "Koppa") ("46,125" SYMBOL "2,122") (* ; "Rho") ("46,126" SYMBOL "2,123") (* ; "Sigma") ("46,127" SYMBOL 0) (* ; "--empty--") ( "46,130" SYMBOL "2,124") (* ; "Tau") ("46,131" SYMBOL "2,125") (* ; "Upsilon") ("46,132" SYMBOL "2,106") (* ; "Phi") ("46,133" SYMBOL "2,103") (* ; "Chi") ("46,134" SYMBOL "2,131") (* ; "Psi") ( "46,135" SYMBOL "2,132") (* ; "Omega") ("46,141" SYMBOL "2,141") (* ; "alpha") ("46,142" SYMBOL "2,142") (* ; "beta") ("46,143" SYMBOL 0) (* ; "(md beta)") ("46,144" SYMBOL "2,147") (* ; "gamma") ( "46,145" SYMBOL "2,144") (* ; "delta") ("46,146" SYMBOL "2,145") (* ; "epsilon") ("46,147" SYMBOL "2,126") (* ; "stigma") ("46,150" SYMBOL 0) (* ; "digamma") ("46,151" SYMBOL "2,172") (* ; "zeta") ( "46,152" SYMBOL "2,150") (* ; "eta") ("46,153" SYMBOL "2,161") (* ; "theta") ("46,154" SYMBOL "2,151") (* ; "iota") ("46,155" SYMBOL "2,153") (* ; "kappa") ("46,156" SYMBOL "2,154") (* ; "lambda") ( "46,157" SYMBOL "2,155") (* ; "mu") ("46,160" SYMBOL "2,156") (* ; "nu") ("46,161" SYMBOL "2,170") (* ; "xi") ("46,162" SYMBOL "2,157") (* ; "omicron") ("46,163" SYMBOL "2,160") (* ; "pi") ("46,164" SYMBOL 0) (* ; "(koppa)") ("46,165" SYMBOL "2,162") (* ; "rho") ("46,166" SYMBOL "2,163") (* ; "sigma" ) ("46,167" SYMBOL "2,126") (* ; "(fl sigma)") ("46,170" SYMBOL "2,164") (* ; "tau") ("46,171" SYMBOL "2.165") (* ; "upsilon") ("46,172" SYMBOL "2,146") (* ; "phi") ("46,173" SYMBOL "2,143") (* ; "chi") ( "46,174" SYMBOL "2,171") (* ; "psi") ("46,175" SYMBOL "2,167") (* ; "omega") (* ;; "NS Miscellaneous symbols") ("041,142" SYMBOL "2,271") (* ; "notequal") ("041,145" SYMBOL "2,243") (* ; "lessequal") ("041,146" SYMBOL "2,263") (* ; "greaterequal") ("041,147" SYMBOL "2,245") (* ; "infinity") ("041,150" SYMBOL "2,134") (* ; "therefore") ("041,155" SYMBOL "2,262") (* ; "second") ( "356,055" SYMBOL "2,055") (* ; "minus") ("356,106" SYMBOL "2,340") (* ; "lozenge") ("356,163" SYMBOL "2,351") (* ; "topleftbracket") ("356,164" SYMBOL "2,353") (* ; "bottomleftbracket") ("356,165" SYMBOL "2,352") (* ; "centerbracket") ("356,166" SYMBOL "2,371") (* ; "toprightbracket") ("356,167" SYMBOL "2,373") (* ; "bottomrightbracket") ("356,176" SYMBOL "2,176") (* ; "similar") ("356,314" SYMBOL "2,251") (* ; "heart") ("356,340" SYMBOL "2,374") (* ; "toprightbracce") ("356,341" SYMBOL "2,357") (* ; "braceextend") ("356,342" SYMBOL "2,375") (* ; "centerrightbracce") ("356,343" SYMBOL "2,376") (* ; "bottomrightbracce") ("356,344" SYMBOL "2,354") (* ; "topleftbracce") ("356,345" SYMBOL "2,356") (* ; "bottomleftbracce") ("356,346" SYMBOL "2,355") (* ; "centerleftbracce") ("356,355" SYMBOL "2,363") (* ; "integraltop") ("356,356" SYMBOL "2,365") (* ; "integralbottom") ("356,357" SYMBOL "2,364") (* ; "integralcenter"))) (RPAQ \POSTSCRIPT.ORIENTATION.MENU (create MENU ITEMS _ (QUOTE (("Landscape" T "Print this file/document/image in Landscape Orientation") ("Portrait" (QUOTE NIL) "Print this file/document/image in Portrait Orientation"))) TITLE _ "Orientation" CENTERFLG _ T MENUOFFSET _ (create POSITION XCOORD _ -1 YCOORD _ 0) CHANGEOFFSETFLG _ (QUOTE Y))) (RPAQ \POSTSCRIPT.ORIENTATION.OPTIONS.MENU (create MENU ITEMS _ (QUOTE (("Ask" (QUOTE ASK) "Always ask whether to print in Landscape or Portrait Orientation") ("Landscape" T "Default printing to Landscape Orientation") ("Portrait" (QUOTE NIL) "Default printing to Portrait Orientation"))) TITLE _ "Default Orientation" CENTERFLG _ T)) (RPAQ PS.BITMAPARRAY (READARRAY-FROM-LIST 16 (QUOTE BYTE) 0 (QUOTE (48 49 50 51 52 53 54 55 56 57 65 66 67 68 69 70 NIL)))) (RPAQQ \POSTSCRIPT.JOB.SETUP ("/bdef {bind def} bind def" "/ldef {load def} bdef" "/S /show ldef" "/M /moveto ldef" "/DR {transform round exch round exch itransform} bdef" "/L {gsave newpath setlinewidth 0 setlinecap" " M lineto currentpoint stroke grestore M} bdef" "/L1 {gsave newpath 0 setdash setrgbcolor setlinewidth 0 setlinecap" " M lineto currentpoint stroke grestore M} bdef" "/L1G {gsave newpath 0 setdash setgray setlinewidth 0 setlinecap" " M lineto currentpoint stroke grestore M} bdef" "/F {findfont exch scalefont setfont} bdef" "/CLP {newpath M dup 0 rlineto exch 0 exch rlineto" " neg 0 rlineto closepath clip newpath} bdef" "/R {gsave setrgbcolor newpath M dup 0 rlineto exch 0 exch" " rlineto neg 0 rlineto closepath eofill grestore} bdef" "/RG {gsave setgray newpath M dup 0 rlineto exch 0 exch" " rlineto neg 0 rlineto closepath eofill grestore} bdef" "/ellipsedict 9 dict def" "ellipsedict /mtrx matrix put" "/ellipse" " { ellipsedict begin" " /endangle exch def" " /startangle exch def" " /orientation exch def" " /minorrad exch def" " /majorrad exch def" " /y exch def" " /x exch def" " /savematrix mtrx currentmatrix def" " x y translate" " orientation rotate" " majorrad minorrad scale" " 0 0 1 startangle endangle arc" " savematrix setmatrix" " end } bdef" "/concatprocs" " {/proc2 exch cvlit def" " /proc1 exch cvlit def" " /newproc proc1 length proc2 length add array def" " newproc 0 proc1 putinterval" " newproc proc1 length proc2 putinterval" " newproc cvx" " } bdef" "/resmatrix matrix def" "/findresolution" " {72 0 resmatrix defaultmatrix dtransform" " /yres exch def /xres exch def" " xres dup mul yres dup mul add sqrt" " } bdef" "/thebitimage" " {/maskp exch def" " /bihgt exch def" " /biwid exch def" " /byte 1 string def" " /strbufl biwid 8 div ceiling cvi def" " /strbuf strbufl string def" " maskp not{{1 exch sub} currenttransfer concatprocs settransfer} if" " biwid bihgt" " maskp { true } { 1 } ifelse" " [biwid 0 0 bihgt 0 0]" " {/col 0 def" " {currentfile byte readhexstring pop 0 get" " dup 16#B2 eq {pop" " currentfile byte readhexstring pop 0 get 1 add" " currentfile byte readhexstring pop pop /nbyte byte 0 get def" " { strbuf col nbyte put /col col 1 add def} repeat}" " {dup 16#B3 eq {pop /col col" " currentfile byte readhexstring pop" " 0 get add 1 add def}" " {16#B4 eq {currentfile byte readhexstring pop pop} if" " strbuf col byte 0 get put /col col 1 add def} ifelse" " } ifelse" " col strbufl ge { exit } if } loop" " strbuf }" " maskp { imagemask } { image } ifelse" " } bdef" "/setuserscreendict 22 dict def" "setuserscreendict begin" " /tempctm matrix def" " /temprot matrix def" " /tempscale matrix def" "end" "/setuserscreen" " {setuserscreendict begin" " /spotfunction exch def" " /screenangle exch def" " /cellsize exch def" " /m tempctm currentmatrix def" " /rm screenangle temprot rotate def" " /sm cellsize dup tempscale scale def" " sm rm m m concatmatrix m concatmatrix pop" " 1 0 m dtransform /y1 exch def /x1 exch def" " /veclength x1 dup mul y1 dup mul add sqrt def" " /frequency findresolution veclength div def" " /newscreenangle y1 x1 atan def" " m 2 get m 1 get mul m 0 get m 3 get mul sub" " 0 gt { { neg } /spotfunction load concatprocs" " /spotfunction exch def } if" " frequency newscreenangle /spotfunction load setscreen" " end" " } bdef" "/setpatterndict 18 dict def" "setpatterndict begin" " /bitison" " {/ybit exch def /xbit exch def" " /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def" " /mask 1 7 xbit 8 mod sub bitshift def" " bytevalue mask and 0 ne" " } bdef" "end" "/bitpatternspotfunction" " {setpatterndict begin" " /y exch def /x exch def" " /xindex x 1 add 2 div bpside mul 1 sub cvi def" " /yindex y 1 add 2 div bpside mul 1 sub cvi def" " xindex yindex bitison" " {/onbits onbits 1 add def 1}" " {/offbits offbits 1 add def 0} ifelse" " end" " } bdef" "/setpattern" " {setpatterndict begin" " /cellsz exch def" " /angle exch def" " /bwidth exch def" " /bpside exch def" " /bstring exch def" " /onbits 0 def /offbits 0 def" " cellsz angle /bitpatternspotfunction load setuserscreen" " {} settransfer" " offbits offbits onbits add div setgray" " end" " } bdef" "%% - - - - - Fraction-setting code, to support NS fonts better - - - - -" "/fractiondict 20 dict def" "/fractionshow " "{ fractiondict begin" "/denom exch def " "/num exch def " "/regfont currentfont def" "/fractfont currentfont [.65 0 0 .6 0 0] makefont def " "gsave newpath 0 0 moveto " "(1) true charpath flattenpath pathbbox " "/height exch def pop pop pop" " grestore" "0 .4 height mul rmoveto" "fractfont setfont num show" "0 .4 height mul neg rmoveto regfont setfont (\244) show" "fractfont setfont denom show regfont setfont end } bdef" "/f14 { (1) (4) fractionshow } bdef" "/f12 { (1) (2) fractionshow } bdef" "/f34 { (3) (4) fractionshow } bdef" "/f18 { (1) (8) fractionshow } bdef" "/f38 { (3) (8) fractionshow } bdef" "/f58 { (5) (8) fractionshow } bdef" "/f78 { (7) (8) fractionshow } bdef" "/f13 { (1) (3) fractionshow } bdef" "/f23 { (2) (3) fractionshow } bdef" "/bboxdict 20 dict def" "/bboxchk { bboxdict begin" "/regfont currentfont def" "/chkfont currentfont [1.25 0 0 1.25 0 0] makefont def " "gsave newpath 0 0 moveto " "(\161) true charpath flattenpath pathbbox " "/height exch def pop pop pop " " grestore " " currentpoint " " .2 height mul .3 height mul rmoveto" "chkfont setfont (\063) show" " moveto" " regfont setfont" "(\161) show end } bdef" "/rencdict 15 dict def" "/encodefont { rencdict begin" "/newname exch def" "/oldfont exch def" "/newcodes [" "8#001 /Aacute" "8#002 /Acircumflex" "8#003 /Adieresis" "8#004 /Agrave" "8#005 /Aring" "8#006 /Atilde" "8#007 /Ccedilla" "8#010 /Eacute" "8#011 /Ecircumflex" "8#012 /Edieresis" "8#013 /Egrave" "8#014 /Iacute" "8#015 /Icircumflex" "8#016 /Idieresis" "8#017 /Igrave" "8#020 /Ntilde" "8#021 /Oacute" "8#022 /Ocircumflex" "8#023 /Odieresis" "8#024 /Ograve" "8#025 /Otilde" "8#026 /Scaron" "8#027 /Uacute" "8#030 /Ucircumflex" "8#031 /Udieresis" "8#032 /Ugrave" "8#033 /Ydieresis" "8#034 /Zcaron" "8#177 /periodinferior" "8#201 /aacute" "8#202 /acircumflex" "8#203 /adieresis" "8#204 /agrave" "8#205 /aring" "8#206 /atilde" "8#207 /ccedilla" "8#210 /eacute" "8#211 /ecircumflex" "8#212 /edieresis" "8#213 /egrave" "8#214 /iacute" "8#215 /icircumflex" "8#216 /idieresis" "8#217 /igrave" "8#220 /ntilde" "8#221 /oacute" "8#222 /ocircumflex" "8#223 /odieresis" "8#224 /ograve" "8#225 /otilde" "8#226 /scaron" "8#227 /uacute" "8#230 /ucircumflex" "8#231 /udieresis" "8#232 /ugrave" "8#233 /ydieresis" "8#234 /zcaron" "8#235 /Eth" "8#236 /eth" "8#237 /Thorn" "8#240 /thorn" " ] def" "/olddict oldfont findfont def /newfont olddict maxlength dict def" "olddict { exch dup /FID ne { dup /Encoding eq" "{ exch dup length array copy newfont 3 1 roll put }" "{ exch newfont 3 1 roll put } ifelse }" " { pop pop } ifelse } forall" "newfont /FontName newname put" "newcodes aload pop" "newcodes length 2 idiv { newfont /Encoding get 3 1 roll put } repeat " "newname newfont definefont pop end } def" " /accentdict 10 dict def " " /accentor { accentdict begin /scaler exch def /delta exch def " "/unders exch def /accents exch def /mainch exch def /scrt (X) def" " /w1 mainch stringwidth pop def " " currentpoint mainch show currentpoint 4 2 roll " "accents { /ch exch def 2 copy moveto " " scrt 0 ch put " " /w2 scrt stringwidth pop def " " w1 w2 sub 2 div delta rmoveto scrt show " " /delta delta 150 scaler mul 9 div add def" " } forall " "unders { /ch exch def 2 copy moveto " " scrt 0 ch put " " /w2 scrt stringwidth pop def " " ch 46 eq { w1 w2 sub 2 div -175 scaler mul 9 div rmoveto scrt show 0 175 rmoveto }" " { w1 w2 sub 2 div 0 rmoveto scrt show } ifelse " " } forall " " pop pop moveto end } def " "%%%%EndProlog" "%%%%BeginSetup")) (RPAQQ SlopeMenuItems ((Italic (QUOTE ITALIC) "This is an Italic Slope font") (Regular (QUOTE REGULAR) "This is a Regular Slope font"))) (RPAQQ WeightMenuItems ((Bold (QUOTE BOLD) "This is a Bold Weight font") (Medium (QUOTE MEDIUM) "This is a Medium Weight font") (Light (QUOTE LIGHT) "This is a Light Weight font"))) (ADDTOVAR BackgroundMenuCommands ("PS Orientation" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE (MENU \POSTSCRIPT.ORIENTATION.OPTIONS.MENU))) "Select the default Orientation for PostScript output" ( SUBITEMS ("Ask" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE (QUOTE ASK))) "Always ask whether to print in Landscape or Portrait Orientation") ("Landscape" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE T)) "Default printing to Landscape Orientation") ("Portrait" (QUOTE (SETQ POSTSCRIPT.PREFER.LANDSCAPE NIL)) "Default printing to Portrait Orientation")))) (RPAQQ BackgroundMenu NIL) (RPAQQ GOLDEN.RATIO 1.618034) (RPAQQ \PS.SCALE0 100) (RPAQQ \PS.TEMPARRAYLEN 20) (CONSTANTS (GOLDEN.RATIO 1.618034) (\PS.SCALE0 100) (\PS.TEMPARRAYLEN 20)) (RPAQ? POSTSCRIPT.BITMAP.SCALE 1) (RPAQ? POSTSCRIPT.EOL (QUOTE CR)) (RPAQ? POSTSCRIPT.IMAGESIZEFACTOR 1) (RPAQ? POSTSCRIPT.PREFER.LANDSCAPE NIL) (RPAQ? POSTSCRIPT.TEXTFILE.LANDSCAPE NIL) (RPAQ? POSTSCRIPT.DEFAULT.PAGEREGION (QUOTE (4800 4800 52800 70800))) (RPAQ? POSTSCRIPT.TEXTURE.SCALE 4) (RPAQ? POSTSCRIPTFONTDIRECTORIES (LIST (COND ((EQ (MACHINETYPE) (QUOTE MAIKO)) "{dsk}/USR/LOCAL/LDE/FONTS/POSTSCRIPT/") (T "{DSK}POSTSCRIPT>")))) (RPAQ? POSTSCRIPTFONTEXTENSIONS (QUOTE (PSCFONT PF PSC))) (RPAQ? POSTSCRIPTFONTCOERCIONS (QUOTE ((HELVETICA (HELVETICA 1)) (HELVETICAD (HELVETICA 1)) ( TIMESROMAN (TIMES 1)) (TIMESROMAND (TIMES 1)) (COURIER (COURIER 1)) (GACHA (COURIER 1)) (CLASSIC ( NEWCENTURYSCHLBK 1)) (MODERN (HELVETICA 1)) (CREAM (HELVETICA 1)) (TERMINAL (COURIER 1)) (LOGO ( HELVETICA 1)) (OPTIMA (PALATINO 1)) (TITAN (COURIER 1)) (* (* 1))))) (RPAQ? POSTSCRIPTCHARCOERCIONS NIL) (RPAQ? \POSTSCRIPT.MAX.WILD.FONTSIZE 72) (ADDTOVAR POSTSCRIPT.FONT.ALIST (HELVETICA . HELVETICA) (HELVETICAD . HELVETICA) (TIMESROMAN . TIMES) (TIMESROMAND . TIMES) (COURIER . COURIER) (GACHA . COURIER) (CLASSIC . NEWCENTURYSCHLBK) (MODERN . HELVETICA) (CREAM . HELVETICA) (TERMINAL . COURIER) (LOGO . HELVETICA) (OPTIMA . PALATINO) (TITAN . COURIER)) (ADDTOVAR PRINTFILETYPES (POSTSCRIPT (TEST POSTSCRIPTFILEP) (EXTENSION (PS PSC PSF POSTSCRIPT)) ( BITMAPSCALE POSTSCRIPT.BITMAPSCALE) (BITMAPFILE (POSTSCRIPT.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION ROTATION TITLE)))) (ADDTOVAR IMAGESTREAMTYPES (POSTSCRIPT (OPENSTREAM OPENPOSTSCRIPTSTREAM) (FONTCREATE POSTSCRIPT.FONTCREATE) (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE) (CREATECHARSET \CREATECHARSET.PSC) ( FONTEXISTS? POSTSCRIPT.FONTEXISTS?))) (RPAQ? POSTSCRIPT.PAGETYPE (QUOTE LETTER)) (APPENDTOVAR POSTSCRIPT.PAGEREGIONS (LETTER (0 0 8.5 11) NIL (-0.1 -0.1 8.7 11.2)) (LEGAL (0 0 8.5 14) NIL (-0.1 -0.1 8.7 14.2)) (NOTE (0 0 8.5 11) NIL (-0.1 -0.1 8.7 11.2))) (POSTSCRIPT.INIT) (PUTPROPS POSTSCRIPTSTREAM FILETYPE :TCOMPL) (PUTPROPS POSTSCRIPTSTREAM MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP")) NIL