(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Feb-93 18:10:27" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>EDITBITMAP.;2|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "11-Jun-90 15:42:25" {DSK}local>lde>lispcore>library>EDITBITMAP.;2 19366 changes to%: (VARS EDITBITMAPCOMS) previous date%: " 7-Oct-86 15:47:41" {DSK}local>lde>lispcore>library>EDITBITMAP.;1) ADD.BORDER.TO.BITMAP :D8 (P 3 NEW.BITMAP P 2 REAL.NBITS P 1 HEIGHT P 0 WIDTH I 2 TEXTURE I 1 NBITS I 0 BITMAP) W@@AlHJlIJl [hddKhdddggBj @jdKJdHIgg K(83 BKBITBLT 59 BKBITBLT 30 BITMAPCREATE) (77 REPLACE 72 INPUT 49 REPLACE 44 TEXTURE) () BIT.IN.COLUMN :D8 (P 1 X I 1 COLUMN I 0 BITMAP) !@kjIHh@AIhkiIkYNIL NIL () BIT.IN.ROW :D8 (P 1 X I 1 ROW I 0 BITMAP) !@kjIHh@IAhkiIkYNIL NIL () EDIT.BITMAP :D8 (P 1 BM P 0 NEW.OBJECT I 0 OBJECT) l @l2d d3@@ Yd X@H @@@d @ @ Xd@@ o@ (105 ERROR 93 CURSORCREATE 80 EDIT.BITMAP.REAL 70 CURSORP 63 EDIT.BITMAP.REAL 46 SET 38 EDIT.BITMAP 31 EVAL 18 EDIT.BITMAP.REAL 13 BITMAPCREATE) (54 BITMAP) ( 99 "Object of unrecognized type: ") EDIT.BITMAP.REAL :D8 (P 8 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) e @ XYJHI ` KgiZKg)L` o` LHLKdgH gKdgH gH KdgH gH KdgH ~gH oKdgH ]gH NKdgH