(FILECREATED " 7-Oct-86 15:50:01" ("compiled on " {DSK}EDITBITMAP.;2) " 2-Oct-86 16:40:19" "COMPILE-FILEd" in "Xerox Lisp 2-Oct-86 ..." dated " 2-Oct-86 17:13:58") (FILECREATED " 7-Oct-86 15:47:41" {DSK}EDITBITMAP.;2 15312 changes to: (FNS EDIT.BITMAP) previous date: "26-Feb-86 00:24:14" {DSK}EDITBITMAP.;1) (RPAQQ EDITBITMAPCOMS ((FNS ADD.BORDER.TO.BITMAP BIT.IN.COLUMN BIT.IN.ROW EDIT.BITMAP EDIT.BITMAP.REAL FROM.SCREEN.BITMAP GET.EDIT.BITMAP.MENU INTERACT&SHIFT.BITMAP.LEFT INTERACT&SHIFT.BITMAP.RIGHT INTERACT&SHIFT.BITMAP.DOWN INTERACT&SHIFT.BITMAP.UP INTERACT&ADD.BORDER.TO.BITMAP INVERT.BITMAP.B/W INVERT.BITMAP.DIAGONALLY INVERT.BITMAP.HORIZONTALLY INVERT.BITMAP.VERTICALLY ROTATE.BITMAP.LEFT ROTATE.BITMAP.RIGHT SHIFT.BITMAP.DOWN SHIFT.BITMAP.LEFT SHIFT.BITMAP.RIGHT SHIFT.BITMAP.UP TRIM.BITMAP ) (VARS (EDIT.BITMAP.MENU)) (GLOBALVARS EDIT.BITMAP.MENU PROMPTWINDOW BLACKSHADE) (FILES READNUMBER) ( P (FONTCREATE (QUOTE (GACHA 12 BOLD)))))) 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 BKBITBLT 71Q BKBITBLT 42Q BITMAPCREATE) (107Q REPLACE 104Q INPUT 61Q REPLACE 56Q TEXTURE 11Q BITMAP 3 BITMAP) () BIT.IN.COLUMN D1 (P 1 X I 1 COLUMN I 0 BITMAP) %@kjIH@AIhkiIkYhNIL (3 BITMAP) () BIT.IN.ROW D1 (P 1 X I 1 ROW I 0 BITMAP) %@kjIH@IAhkiIkYhNIL (3 BITMAP) () EDIT.BITMAP D1 (P 1 BM P 0 NEW.OBJECT I 0 OBJECT) ^ @ l2d l@ Yd X@H @@@d @ @ Xd@@ o@ (133Q ERROR 122Q CURSORCREATE 101Q EDIT.BITMAP.REAL 66Q CURSORP 61Q EDIT.BITMAP.REAL 44Q SET 36Q EDIT.BITMAP 31Q EVAL 16Q EDIT.BITMAP.REAL 13Q BITMAPCREATE) (115Q CURSOR 107Q CURSOR 74Q CURSOR 52Q BITMAP) ( 127Q "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 3 NEW.BITMAP P 2 REGION P 1 SCREEN P 0 SCREENREGION) T@` o` XdYHZdJI [I JJKjdJJgg K(120Q BKBITBLT 65Q SCREENBITMAP 60Q BITMAPCREATE 55Q BITSPERPIXEL 52Q SCREENBITMAP 26Q GETSCREENREGION 23Q PRIN1 10Q TERPRI) (114Q REPLACE 111Q INPUT 20Q PROMPTWINDOW 5 PROMPTWINDOW) ( 15Q "Indicate a region 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 BKBITBLT 17Q BITMAPCOPY) (40Q INVERT 35Q TEXTURE 11Q BITMAP 3 BITMAP) () INVERT.BITMAP.DIAGONALLY D1 (P 6 Y P 4 X P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) I@@IH ZHkjLK'IkjNMJNL@LNhNk^Lk\J(23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) () 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:IkjHkLNM"JLN@ONhJON@LNhNk^Lk\J(17Q BITMAPCOPY) (11Q BITMAP 3 BITMAP) () INVERT.BITMAP.VERTICALLY D1 (P 7 X2 P 6 Y P 4 X1 P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) ]@@@ IlkjLK:HkjIkLNM"JNL@NOhJNO@NLhNk^Lk\J(17Q BITMAPCOPY) (11Q BITMAP 3 BITMAP) () ROTATE.BITMAP.LEFT D1 (P 7 Y1 P 6 X P 4 Y P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) O@@IH ZIkjLK-HkjIkLNMJON@NLhNk^Lk\J(23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) () ROTATE.BITMAP.RIGHT D1 (P 7 X1 P 6 Y P 4 X P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) O@@IH ZHkjLK-IkjHkLNMJNO@LNhNk^Lk\J(23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) () SHIFT.BITMAP.DOWN D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 1 NBITS I 0 BITMAP) ,@@HIA Z@jdJjdHIgg J(50Q BKBITBLT 25Q BITMAPCREATE) (44Q REPLACE 41Q INPUT 11Q BITMAP 3 BITMAP) () SHIFT.BITMAP.LEFT D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 1 NBITS I 0 BITMAP) ,@@HAI Z@jdJjdHIgg J(50Q BKBITBLT 25Q BITMAPCREATE) (44Q REPLACE 41Q INPUT 11Q BITMAP 3 BITMAP) () SHIFT.BITMAP.RIGHT D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 1 NBITS I 0 BITMAP) ,@@HAI Z@jdJAjHIgg J(50Q BKBITBLT 25Q BITMAPCREATE) (44Q REPLACE 41Q INPUT 11Q BITMAP 3 BITMAP) () SHIFT.BITMAP.UP D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 1 NBITS I 0 BITMAP) ,@@HIA Z@jdJjAHIgg J(50Q BKBITBLT 25Q BITMAPCREATE) (44Q REPLACE 41Q INPUT 11Q BITMAP 3 BITMAP) () TRIM.BITMAP D1 (P 10Q X P 6 NEW.BITMAP P 5 TOP P 4 BOTTOM P 3 RIGHT P 2 LEFT P 1 HEIGHT P 0 WIDTH I 0 BITMAP) @@RHkjOO@O O iOk_hZjHkOO@O OiOm_h[IkjOO@O O iOk_h\jIkOO@O OiOm_h]JKLdKJkMLk ^@JLNjdKJkMLkgg N(336Q BKBITBLT 303Q BITMAPCREATE 265Q HELP 226Q BIT.IN.ROW 160Q BIT.IN.ROW 110Q BIT.IN.COLUMN 42Q BIT.IN.COLUMN) (332Q REPLACE 327Q INPUT 11Q BITMAP 3 BITMAP) () (RPAQQ EDIT.BITMAP.MENU NIL) (FILESLOAD READNUMBER) (FONTCREATE (QUOTE (GACHA 12 BOLD))) (PUTPROPS EDITBITMAP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL