(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP") (FILECREATED " 1-Jun-91 12:53:37" ("compiled on " |{PELE:MV:ENVOS}MEDLEY>POSTSCRIPT>PS-SKETCH-PATCH.;1|) " 6-May-91 13:07:16" bcompl'd in "Lispcore 6-May-91 ..." dated " 6-May-91 13:34:43") (FILECREATED " 4-Aug-89 16:46:48" {DSK}LIBRARY>PS-SKETCH-PATCH.;1 25983 changes to%: (VARS PS-SKETCH-PATCHCOMS) (PROPS (PS-SKETCH-PATCH MAKEFILE-ENVIRONMENT)) (FNS FIX-SKETCH ADD.KNOWN.SKETCH.FONT NEW-SK-DECREASING-FONT-LIST NEW-SK-PICK-FONT NEW-SKETCHW-HARDCOPYFN \BUILDSLUGCSINFO \CREATECHARSET)) FIX-SKETCH :D7 (P 0 X F 1 SKETCH-PATCHES) >g #QdHHhi o io o h(58 PROMPTPRINT 50 PROMPTPRINT 40 PROMPTPRINT 27 MOVD 7 BOUNDP) (3 ALL.SKETCHES) ( 54 "When you load sketch, make sure to call the function FIX-SKETCH!" 46 "Sketch doesn't seem to be loaded!" 36 "Sketch has been patched!") ADD.KNOWN.SKETCH.FONT :D7 (P 1 CACHED P 0 CACHE I 3 FONT I 2 DEVICE I 1 WID I 0 FAMILY) T@`H,`@BAChhh@BAChhh BHYHBACh ACh (81 \NCONC2 71 \NCONC2 52 \NCONC2) (34 \KNOWN.SKETCH.FONTSIZES 15 \KNOWN.SKETCH.FONTSIZES 4 \KNOWN.SKETCH.FONTSIZES) () NEW-SK-DECREASING-FONT-LIST :D7 (P 4 FONT P 0 CONVERSION I 1 DEVICETYPE I 0 FAMILY) @gbAdg5@dggbjggb[@gSgbJg3@dggb1ggb"@ggbAg@`X 0@A %bdLgA JIh[I&K(175 FONTCOPY 152 SK.GUESS.FONTSAVAILABLE) (170 DEVICE 139 POSTSCRIPT.FONT.CONVERSIONS 132 POSTSCRIPT 123 TERMINAL 116 GACHA 106 CLASSIC 100 TIMESROMAN 91 MODERN 84 HELVETICA 75 INTERPRESS 66 GACHA 59 TERMINAL 49 TIMESROMAN 43 CLASSIC 34 HELVETICA 27 MODERN 17 PRESS 5 MODERN) () NEW-SK-PICK-FONT :D7 (P 6 FONT P 4 CACHEDFONT P 3 SCALE P 2 DISPLAYFONT P 1 LASTSIZE P 0 LASTFONT I 3 FAMILY I 2 DEVICE I 1 STRING I 0 WID) P@BC`\ CB MHIo@rg^g [AN K.NXgggi ZAJ AN Ng Y@C@BNgB NgB M]HgB (162 FONTCOPY 146 FONTCOPY 135 ADD.KNOWN.SKETCH.FONT 131 FONTCOPY 112 FONTPROP 103 STRINGWIDTH 96 STRINGWIDTH 88 FONTCOPY 65 STRINGWIDTH 57 FONTPROP 21 SK.DECREASING.FONT.LIST) (157 DEVICE 141 DEVICE 126 DEVICE 108 SCALE 82 NOERROR 78 DISPLAY 74 DEVICE 53 SCALE 44 SHADE 9 \KNOWN.SKETCH.FONTSIZES) ( 35 1.5) NEW-SKETCHW-HARDCOPYFN :D7 (P 8 SKETCHX P 7 PAGETOSKETCHFACTOR P 6 PAGEBOTTOMSPACE P 5 PAGELEFTSPACE P 4 SKETCHREGIONINPAGECOORDS P 3 SCALE P 2 SKETCHREGION P 1 PAGEREGION P 0 SKETCH I 1 OPENIMAGESTREAM I 0 SKETCHW)  @ hA @ @  HhIdjjA IdjjA ndIIm__OOOA ndIIm__OOOA @o Agg@ ohAg KhA _JO \A gZA.JgFLI;LL/lZA A gjdIA I YA ILl]ILl^HjIM]LOjIN^LO _dMONOJJ OA _dAMNLL @o A(423 STATUSPRINT 414 DRAW.LOCAL.SKETCH 410 CREATEREGION 391 MAKE.LOCAL.SKETCH 384 CREATEREGION 360 TRANSLATE.SKETCH 298 DSPCLIPPINGREGION 292 SK.SWITCH.REGION.X.AND.Y 286 DSPTRANSLATE 267 IMAGESTREAMTYPE 261 DSPROTATE 204 IMAGESTREAMTYPE 198 SCALE.REGION.OUT 188 DSPSCALE 181 STREAMPROP 177 \APPEND2 173 STREAMPROP 155 SKETCH.TITLE 141 STATUSPRINT 132 DSPRIGHTMARGIN 98 DSPTOPMARGIN 62 DSPBOTTOMMARGIN 48 DSPLEFTMARGIN 35 SPAWN.MOUSE 24 VIEWER.SCALE 19 SKETCH.REGION.VIEWED 14 DSPCLIPPINGREGION 8 INSURE.SKETCH 4 SKETCH.FROM.VIEWER) (271 POSTSCRIPT 228 NILL 222 IMAGEOPS 216 STREAM 208 PRESS 169 PRINTOPTIONS 150 DOCUMENT.NAME 146 PRINTOPTIONS) ( 419 " done." 161 "A Sketch" 137 "Hardcopying ...") \BUILDSLUGCSINFO :D7 (P 12 I P 10 I P 8 I P 6 IMAGEWIDTHS P 5 BITMAP P 4 OFFSETS P 3 WIDTHS P 2 CSINFO I 4 SCALE I 3 DEVICE I 2 DESCENT I 1 ASCENT I 0 WIDTH)  Dkb`dA dB llk HdIllk HdIllk HdIAJ[ljOOKO@Ok_J^lj OOKO@Ok_CgeJllk \lj OOLOjOk_J@D ABD ]nMkh@D k J(270 BLTSHADE 263 ROUND 246 BITMAPCREATE 242 ROUND 233 ROUND 188 \ALLOCBLOCK 76 \ALLOCBLOCK 54 \ALLOCBLOCK 32 \ALLOCBLOCK) (226 CHARSETINFO 176 CHARSETINFO 168 INTERPRESS 131 CHARSETINFO 94 CHARSETINFO 9 |CHARSETINFOTYPE#|) () \CREATECHARSET :D7 (P 1 CREATEFN P 0 CSINFO I 2 NOSLUG? I 1 FONT I 0 CHARSET F 4 IMAGESTREAMTYPES)  @l@ @k@@l l@<@l6BhA$AAAg Ag XAg `ggAg TYAg @ABh X2BA$AAAg Ag AAH dJJAAH dKKAAAA(@HH(201 \BUILDSLUGCSINFO 196 FONTPROP 187 FONTPROP 151 APPLY 147 \APPEND2 136 FONTPROP 120 FONTPROP 95 FONTPROP 82 \BUILDSLUGCSINFO 77 FONTPROP 68 FONTPROP 9 \ILLEGAL.ARG) (266 FONTDESCRIPTOR 261 FONTDESCRIPTOR 241 FONTDESCRIPTOR 236 FONTDESCRIPTOR 219 CHARSETINFO 212 FONTDESCRIPTOR 207 FONTDESCRIPTOR 192 SCALE 183 DEVICE 176 FONTDESCRIPTOR 169 FONTDESCRIPTOR 162 FONTDESCRIPTOR 132 DEVICESPEC 116 DEVICE 111 CREATECHARSET 105 \CREATECHARSET.DISPLAY 99 \DISPLAYSTREAMTYPES 91 DEVICE 73 SCALE 64 DEVICE 57 FONTDESCRIPTOR 50 FONTDESCRIPTOR 43 FONTDESCRIPTOR) () (PRETTYCOMPRINT PS-SKETCH-PATCHCOMS) (RPAQQ PS-SKETCH-PATCHCOMS ((FILES (SYSLOAD FROM LISPUSERS) SKETCH) (FNS FIX-SKETCH ADD.KNOWN.SKETCH.FONT NEW-SK-DECREASING-FONT-LIST NEW-SK-PICK-FONT NEW-SKETCHW-HARDCOPYFN) (* ;; "NOTE: to compile the following 2 functions you need EXPORTS.ALL loaded.") (FNS \BUILDSLUGCSINFO \CREATECHARSET) (VARS (SKETCH-PATCHES (QUOTE ((NEW-SK-PICK-FONT . SK.PICK.FONT) ( NEW-SK-DECREASING-FONT-LIST . SK.DECREASING.FONT.LIST) (NEW-SKETCHW-HARDCOPYFN . SKETCHW.HARDCOPYFN))) )) (ADDVARS (POSTSCRIPT.FONT.CONVERSIONS (HELVETICA . HELVETICA) (TIMESROMAND . TIMESROMAN) (COURIER . COURIER) (GACHA . COURIER) (CLASSIC . TIMESROMAN) (MODERN . HELVETICA) (CREAM . HELVETICA) ( TERMINAL . COURIER) (LOGO . HELVETICA) (MODERN . HELVETICA))) (VARS (\KNOWN.SKETCH.FONTSIZES)) ( GLOBALVARS (\KNOWN.SKETCH.FONTSIZES) POSTSCRIPT.FONT.CONVERSIONS) (* ;; "finally actually do the patching of sketch.") (P (FIX-SKETCH)) (PROP (MAKEFILE-ENVIRONMENT FILETYPE) PS-SKETCH-PATCH))) (FILESLOAD (SYSLOAD FROM LISPUSERS) SKETCH) (RPAQQ SKETCH-PATCHES ((NEW-SK-PICK-FONT . SK.PICK.FONT) (NEW-SK-DECREASING-FONT-LIST . SK.DECREASING.FONT.LIST) (NEW-SKETCHW-HARDCOPYFN . SKETCHW.HARDCOPYFN))) (ADDTOVAR POSTSCRIPT.FONT.CONVERSIONS (HELVETICA . HELVETICA) (TIMESROMAND . TIMESROMAN) (COURIER . COURIER) (GACHA . COURIER) (CLASSIC . TIMESROMAN) (MODERN . HELVETICA) (CREAM . HELVETICA) (TERMINAL . COURIER) (LOGO . HELVETICA) (MODERN . HELVETICA)) (RPAQQ \KNOWN.SKETCH.FONTSIZES NIL) (FIX-SKETCH) (PUTPROPS PS-SKETCH-PATCH MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP")) (PUTPROPS PS-SKETCH-PATCH FILETYPE :TCOMPL) (PUTPROPS PS-SKETCH-PATCH COPYRIGHT ("ENVOS Corporation" 1989)) NIL