(FILECREATED "14-Jul-86 10:15:46" ("compiled on " {PHYLUM}SKETCHBMELT.;19) "12-Nov-85 14:59:23" recompiled changes: BITMAPELT.CHANGEFN BITMAPELT.EXPANDFN BITMAPELT.READCHANGEFN BITMAPELT.INPUTFN in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "14-Jul-86 10:15:12" {PHYLUM}SKETCHBMELT.;19 36489 changes to: (FNS BITMAPELT.CHANGEFN BITMAPELT.EXPANDFN BITMAPELT.READCHANGEFN BITMAPELT.INPUTFN) previous date: "13-Mar-86 19:04:38" {PHYLUM}SKETCHBMELT.;18) SKETCH.CREATE.BITMAPA0002 D1 (L (1 B 0 A)) @ANIL NIL () SKETCH.CREATE.BITMAP D1 (P 0 CACHE I 4 PRIORITY I 3 SCALECACHE I 2 SCALE I 1 POSITION I 0 BITMAP) N@d`d A B3oCd+dHd3Y`IH Cg D (113Q SK.BITMAP.CREATE 106Q SORT 71Q \ILLEGAL.ARG 20Q SK.INSURE.POSITION 14Q \ILLEGAL.ARG) (103Q SKETCH.CREATE.BITMAPA0002 61Q BITMAPTYPE# 5 BITMAPTYPE#) ( 31Q 1.0) INIT.BITMAP.ELEMENT D1 NIL >g 5googggggggghgghg h(71Q CREATE.SKETCH.ELEMENT.TYPE 5 SKETCH.ELEMENT.TYPEP) (65Q BITMAPELT.GLOBALREGIONFN 61Q BITMAPELT.TRANSFORMFN 56Q BITMAPELT.READCHANGEFN 52Q BITMAPELT.TRANSLATEFN 47Q BITMAPELT.REGIONFN 44Q BITMAPELT.INSIDEFN 41Q BITMAPELT.INPUTFN 36Q BITMAPELT.CHANGEFN 33Q OBSOLETE 30Q BITMAPELT.EXPANDFN 25Q BITMAPELT.DRAWFN 12Q BITMAPELT 2 BITMAPELT) ( 22Q "prompts for a region of the screen as a scalable bitmap." 16Q "Bit image") BITMAPELT.CHANGEFNA0001 D1 (L (1 B 0 A)) @ANIL NIL () BITMAPELT.CHANGEFN D1 (P 15Q ELTPRI P 14Q NEWVALUE P 13Q NEWSCALE P 12Q BMCACHE P 11Q ORIGSCALE P 10Q 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@PHdZHY _J^J_H\d_L]J_J_Bdg:M [MNKLKNOOOOO _IOgKNNg[NM-HOOA OO _IOgA OLA NOOOOO _ IO gOdBdg+HOOOhO _"IO"gHNg*NOOA OhO _$IO$gA OBdgMA _O