(FILECREATED "24-Jul-84 18:20:54" ("compiled on " {ERIS}EDITBITMAP.;7) "22-Jul-84 00:16:04" recompiled changes: INTERACT&ADD.BORDER.TO.BITMAP in "INTERLISP-D 22-Jul-84 ..." dated "22-Jul-84 00:27:49") (FILECREATED "24-Jul-84 18:20:34" {ERIS}EDITBITMAP.;7 14565 changes to: (FNS INTERACT&ADD.BORDER.TO.BITMAP) previous date: "28-AUG-83 13:10:40" {ERIS}EDITBITMAP.;6) ADD.BORDER.TO.BITMAP D1 (P 3 NEW.BITMAP P 2 REAL.NBITS P 1 HEIGHT P 0 WIDTH I 2 TEXTURE I 1 NBITS I 0 BITMAP) O@@AlHJlIJl [hddKhdddggBj @jdKJdHIgg K(113Q BITBLT 71Q BITBLT 42Q BITMAPCREATE) (107Q REPLACE 104Q INPUT 61Q REPLACE 56Q TEXTURE 11Q BITMAP 3 BITMAP) NIL BIT.IN.COLUMN D1 (P 1 X I 1 COLUMN I 0 BITMAP) (@kjIH@AI kIiIkYh(26Q BITMAPBIT) (3 BITMAP) NIL BIT.IN.ROW D1 (P 1 X I 1 ROW I 0 BITMAP) (@kjIH@IA kIiIkYh(26Q BITMAPBIT) (3 BITMAP) NIL EDIT.BITMAP D1 (P 1 BM P 0 NEW.OBJECT I 0 OBJECT) P @ l2d l@ Yd X@H @@d` @ Xd@@ o@ (115Q ERROR 104Q CURSORCREATE 71Q EDIT.BITMAP.REAL 62Q CURSORP 44Q SET 36Q EDIT.BITMAP 31Q EVAL 16Q EDIT.BITMAP.REAL 13Q BITMAPCREATE) (54Q BITMAPTYPE#) (111Q "Object of unrecognized type: ") EDIT.BITMAP.REAL D1 (P 10Q Y P 7 X P 6 TEMP P 5 NAME P 4 PREVIOUS.BITMAP P 3 COMMAND P 2 DONE P 1 COMMAND.MENU P 0 NEW.BITMAP I 0 BITMAP)  @ XYJI ` KgiZKg L` o` LHLKdgH gKdgH gH KdgH xgH mKdgH _gH TKdgH FgH ;KdgH -gH "KdgH gH oK H(414Q ERROR 403Q INTERACT&ADD.BORDER.TO.BITMAP 370Q INVERT.BITMAP.B/W 352Q INTERACT&SHIFT.BITMAP.UP 337Q INTERACT&SHIFT.BITMAP.DOWN 321Q INTERACT&SHIFT.BITMAP.RIGHT 306Q INTERACT&SHIFT.BITMAP.LEFT 270Q ROTATE.BITMAP.RIGHT 255Q ROTATE.BITMAP.LEFT 237Q INVERT.BITMAP.DIAGONALLY 224Q INVERT.BITMAP.VERTICALLY 205Q INVERT.BITMAP.HORIZONTALLY 171Q TRIM.BITMAP 152Q FROM.SCREEN.BITMAP 137Q EDITBM 105Q PRIN1 72Q TERPRI 33Q CLEARW 24Q MENU 12Q GET.EDIT.BITMAP.MENU 6 BITMAPCOPY) (375Q ADD.BORDER 361Q INTERCHANGE.BLACK/WHITE 344Q SHIFT.UP 330Q SHIFT.DOWN 313Q SHIFT.RIGHT 277Q SHIFT.LEFT 262Q ROTATE.BITMAP.RIGHT 246Q ROTATE.BITMAP.LEFT 231Q INVERT.DIAGONALLY 215Q INVERT.VERTICALLY 177Q INVERT.HORIZONTALLY 162Q TRIM 145Q FROM.SCREEN 130Q HAND.EDIT 102Q PROMPTWINDOW 67Q PROMPTWINDOW 56Q UNDO 44Q QUIT 30Q PROMPTWINDOW) (410Q "Unrecognized command" 77Q "Can't: no previous bitmap saved") FROM.SCREEN.BITMAP D1 (P 1 NEW.BITMAP P 0 REGION) F ` o` XdH Y`HHIjdHHgg I(102Q BITBLT 43Q BITMAPCREATE 26Q GETREGION 23Q PRIN1 10Q TERPRI) (76Q REPLACE 73Q INPUT 47Q ScreenBitMap 20Q PROMPTWINDOW 5 PROMPTWINDOW) (15Q "Indicate a region of the screen from which to take bits") GET.EDIT.BITMAP.MENU D1 NIL K`F`dododi didg dgjdndhHdI NIL (110Q EDIT.BITMAP.MENU 55Q DEFAULTMENUHELDFN 46Q CLRPROMPT 7 MENUTYPE# 2 EDIT.BITMAP.MENU) (25Q (HAND.EDIT FROM.SCREEN TRIM INVERT.HORIZONTALLY INVERT.VERTICALLY INVERT.DIAGONALLY ROTATE.BITMAP.LEFT ROTATE.BITMAP.RIGHT SHIFT.LEFT SHIFT.RIGHT SHIFT.DOWN SHIFT.UP INTERCHANGE.BLACK/WHITE ADD.BORDER UNDO QUIT) 15Q "Operations on bitmaps") INTERACT&SHIFT.BITMAP.LEFT D1 (P 1 NEW.BITMAP P 0 NBITS I 0 BITMAP)  o X@H (17Q SHIFT.BITMAP.LEFT 11Q RNUMBER) NIL (6 "Number of bits to shift the bitmap left: ") INTERACT&SHIFT.BITMAP.RIGHT D1 (P 1 NEW.BITMAP P 0 NBITS I 0 BITMAP)  o X@H (17Q SHIFT.BITMAP.RIGHT 11Q RNUMBER) NIL (6 "Number of bits to shift the bitmap right: ") INTERACT&SHIFT.BITMAP.DOWN D1 (P 0 NBITS I 0 BITMAP) o X@H (17Q SHIFT.BITMAP.DOWN 11Q RNUMBER) NIL (6 "Number of bits to shift the bitmap down: ") INTERACT&SHIFT.BITMAP.UP D1 (P 1 NEW.BITMAP P 0 NBITS I 0 BITMAP)  o X@H (17Q SHIFT.BITMAP.UP 11Q RNUMBER) NIL (6 "Number of bits to shift the bitmap up: ") INTERACT&ADD.BORDER.TO.BITMAP D1 (P 1 TEXTURE P 0 NBITS I 0 BITMAP) 8 o Xj@jHo @Hno @Y@HI (65Q ADD.BORDER.TO.BITMAP 56Q EDITSHADE 51Q PROMPTPRINT 32Q PROMPTPRINT 11Q RNUMBER) NIL ( 46Q "Can't add a border of more than 500." 27Q "Can't add a negative border." 6 "Number of bits in the border: ") INVERT.BITMAP.B/W D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) +@@@ @jdJjdHIggn J(47Q BITBLT 17Q BITMAPCOPY) (40Q INVERT 35Q TEXTURE 11Q BITMAP 3 BITMAP) NIL INVERT.BITMAP.DIAGONALLY D1 (P 6 Y P 4 X P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) J@@IH ZHkjLK(IkjNMJNL@LN Nk^Lk\J(70Q BITMAPBIT 65Q BITMAPBIT 23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) NIL INVERT.BITMAP.HORIZONTALLY D1 (P 7 X2 P 6 Y P 4 X1 P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) _@@@ HlkjLK