(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "21-Jan-93 15:26:28" ("compiled on " {DSK}lde>lispcore>library>SKETCHBMELT.;1) " 7-Oct-92 12:15:13" bcompl'd in "Medley 7-Oct-92 ..." dated " 7-Oct-92 15:18:52") (FILECREATED "24-Mar-92 14:07:17" |{PELE:MV:ENVOS}LIBRARY>SKETCHBMELT.;3| 47688 changes to%: (FNS BITMAPELT.DRAWFN) previous date%: "12-Jun-90 14:45:06" |{PELE:MV:ENVOS}LIBRARY>SKETCHBMELT.;2|) SKETCH.CREATE.BITMAPA0002 :D8 (L (1 B 0 A)) @AóNIL NIL () SKETCH.CREATE.BITMAP :D8 (P 0 CACHE I 4 PRIORITY I 3 SCALECACHE I 2 SCALE I 1 POSITION I 0 BITMAP) \@Ã’@µ@ A B3µoCd²1°!dHd3›YÃ‘I¦H ¿µàCg D (89 SK.BITMAP.CREATE 82 SORT 65 \ILLEGAL.ARG 21 SK.INSURE.POSITION 15 \ILLEGAL.ARG) (77 SKETCH.CREATE.BITMAPA0002 56 BITMAP 5 BITMAP) ( 31 1.0) INIT.BITMAP.ELEMENT :D8 NIL ^g ³Qgoogggggggghgghg h(89 CREATE.SKETCH.ELEMENT.TYPE 9 SKETCH.ELEMENT.TYPEP) (83 BITMAPELT.GLOBALREGIONFN 77 BITMAPELT.TRANSFORMFN 72 BITMAPELT.READCHANGEFN 66 BITMAPELT.TRANSLATEFN 61 BITMAPELT.REGIONFN 56 BITMAPELT.INSIDEFN 51 BITMAPELT.INPUTFN 46 BITMAPELT.CHANGEFN 41 OBSOLETE 36 BITMAPELT.EXPANDFN 31 BITMAPELT.DRAWFN 16 BITMAPELT 4 BITMAPELT) ( 26 "prompts for a region of the screen as a scalable bitmap." 21 "Bit image") BITMAPELT.CHANGEFNA0001 :D8 (L (1 B 0 A)) @AóNIL NIL () BITMAPELT.CHANGEFN :D8 (P 13 ELTPRI P 12 NEWVALUE P 11 NEWSCALE P 10 BMCACHE P 9 ORIGSCALE P 8 BMSCALE P 7 BMREGION P 6 ORIGBM P 5 BM P 4 BMCACHEENTRY P 3 NEWBM P 2 INDGBMELT P 1 GBMELT P 0 BMELT I 2 HOW I 1 SKW I 0 SCRELTS) /@gð´@ñPHd¢±ZHY _J^J_H\d_L]J_J_Bdgð²@¿M [´‚±ÀMNð‘K…LK¿NOOOOO _¿IOgKN±Šgð²iNMð²5HOOA OO _¿IOgA O±JLA ¿NOOOOO _ ¿IO gOd±Bdgð²/¿HOOOhO _"¿IO"gHN±ägð²2NOOA OhO _$¿IO$gA O±¬Bdgð²\¿A _O ³GOO ³@@h gHHAAHHHh(34 REL.MOVE.REGION 13 \APPEND2) (18 BITMAPELT) () BITMAPELT.REGIONFN :D8 (L (0 BMSCRLET)) @NIL NIL () BITMAPELT.GLOBALREGIONFN :D8 (L (0 GBITMAPELT)) @NIL NIL () BITMAPELT.READCHANGEFN :D8 (P 1 BMELT I 1 SCRNELTS I 0 SKW) ”AHµh!I@ ô² gdgð¥¿HX°Ó°Ò`di¿do¿oI´o ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ (145 \CURSOR.IN.MIDDLE.MENU 99 \APPEND2 23 VIEWER.SCALE) (120 DEFAULTMENUHELDFN 111 CLRPROMPT 61 |MENUTYPE#| 43 BITMAPELT 31 EDIT) ( 94 (("Remove this source from the cache." (QUOTE DELETECACHE) "Removes the source of this image from the cache. The image will then come from the nearest other source.")) 81 (("Perform edit operations on the source bitmap of this image." (QUOTE EDIT) "Allows editing of the original or cached bitmap. Result will be scaled back into this image.") ("Make the image shown be the source" (QUOTE CHANGEBITMAP) "Replaces the original or cached bitmap that is the source of this image with this image at this scale. Further scaling are done from this image.") ("Make the source be at this scale" (QUOTE CHANGESCALE) "changed the scale of the original or cached bitmap to be at this scale.") ("Make the image shown be the source at the source scale" (QUOTE CHANGEBITMAP&SCALE) "makes it as if the bitmap image shown had been input at the original scale.") ("Save this image to be used as a source at this scale" (QUOTE CACHE) "This image will be saved and used when displaying the image at this scale. It can then be edited without effecting the original.")) 73 "Scaled bitmap operations") BITMAPELT.TRANSFORMFN :D8 (P 1 GREG P 0 INDVPART I 3 SCALEFACTOR I 2 TRANSFORMDATA I 1 TRANSFORMFN I 0 GELT) (@HHYIABHCÖ(37 SK.BITMAP.CREATE 25 SK.TRANSFORM.POINT) NIL () SK.BITMAP.CREATE :D8 (P 0 NEWBMELT I 4 PRIORITY I 3 CACHELST I 2 INITSCALE I 1 POSITION I 0 BITMAP) Fhdddg@AA@ BÖ@ BÖBChhXd D•H H(66 SK.SET.ELEMENT.PRIORITY 58 BITMAP.SET.SCALES 40 CREATEREGION 33 BITMAPHEIGHT 25 BITMAPWIDTH) (14 BITMAPELT) () BITMAP.SET.SCALES :D8 (L (0 GBMELT)) 9@1@HYHº»JdKó‘¿Koë@IJó‘I€Joë@NIL NIL ( 51 2.0 34 1000.0) BITMAPELT.INPUTFN :D8 (P 2 POS P 1 BM P 0 REGION I 0 WINDOW) dld !H ¡hHH YHHIjdHH @IhoZ´ÆIJ@ @ (97 SK.BITMAP.CREATE 92 VIEWER.SCALE 86 SK.MAP.INPUT.PT.TO.GLOBAL 75 GET.BITMAP.POSITION 62 BKBITBLT 39 SCREENBITMAP 33 BITMAPCREATE 16 REGIONP 7 GETREGION) NIL ( 70 "Place the bitmap image.") BITMAPELT.CHOOSE.BITMAP :D8 (P 4 LESSER P 3 GREATER P 2 ORIGBITMAP P 1 ORIGSCALE P 0 CACHE I 1 SCALE I 0 GBMELT) ‹@@@3H—IA •IJhH]µ‹dAó”»M°ò¼IAó²&K²LA ³,IKýó²-IJh[°&IJh[°L²IdLó¬¿LA —LIJh¼K²÷L›ALKÔl×ó²éK(109 EQP 66 EQP 25 EQP) NIL () (PRETTYCOMPRINT SKETCHBMELTCOMS) (RPAQQ SKETCHBMELTCOMS ((* BITMAP element done to allow zooming of bitmaps that is not possible with image object bitmaps.) (FNS SKETCH.CREATE.BITMAP INIT.BITMAP.ELEMENT BITMAPELT.CHANGEFN BITMAPELT.DRAWFN DSPVIEWPORT SK.COMPUTE.LOCAL.SCALED.BITMAP BITMAPELT.EXPANDFN BITMAPELT.INSIDEFN BITMAPELT.TRANSLATEFN BITMAPELT.REGIONFN BITMAPELT.GLOBALREGIONFN BITMAPELT.READCHANGEFN BITMAPELT.TRANSFORMFN SK.BITMAP.CREATE BITMAP.SET.SCALES BITMAPELT.INPUTFN BITMAPELT.CHOOSE.BITMAP) ( DECLARE%: DONTCOPY (RECORDS BITMAPELT LOCALBITMAPELT)) (FILES SCALEBITMAP))) (FILESLOAD SCALEBITMAP) (PUTPROPS SKETCHBMELT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1988 1990 1992)) NIL