1 LISP LIBRARY PACKAGES MANUAL 1 LISP LIBRARY PACKAGES MANUAL EDITBITMAP 1 GRAPHICS 1 EDITBITMAP 6 EditBitMap provides an interface (EDIT.BITMAP) for manipulating bit maps. It puts up a menu of bit map manipulation commands, one of which is HAND.EDIT, which accesses EDITBM, the Interlisp-D bit map editor. Other commands include shifting (in four directions), rotation (left and right 90 degrees), inverting (horizontally, vertically, about diagonals), interchanging black and white, and adding a border. A sequence of commands terminated by QUIT produces a new bit map; the original bit map is not affected. UNDO permits backing up. Also works on cursors (produces new cursor) and ATOMS (works on the value and resets the value with the result). 2 Bit Map Functions 1 (EDIT.BITMAP BITMAP) [Function] BITMAP may be a bit map, a cursor, or an ATOM. Returns: if BITMAP is a bit map, then a new bit map; if a cursor, then a new cursor; if an ATOM, then the ATOM whose value will have been reset with the result of calling EDIT.BITMAP on the value of that atom. The internal functions used by this package are also available for use. They are: (ADD.BORDER.TO.BITMAP BITMAP NBITS TEXTURE) [Function] Returns a new bit map that is BITMAP extended by NBITS in all four directions, the border being filled in with TEXTURE. (BIT.IN.COLUMN BITMAP COLUMN) [Function] Returns T if any bit in column numbered COLUMN (left = 0) is not 0, NIL otherwise. (BIT.IN.ROW BITMAP ROW) [Function] Returns T if any bit in row numbered ROW (bottom = 0) is not zero, NIL otherwise. (INVERT.BITMAP.B/W BITMAP) [Function] Returns a new bit map, which is BITMAP with all its bits inverted (black for white). (INVERT.BITMAP.DIAGONALLY BITMAP) [Function] Returns a new bit map, which is BITMAP flipped about X=Y diagonal. (The resulting bit map's width will be BITMAP's height.) (INVERT.BITMAP.HORIZONTALLY BITMAP) [Function] Returns a new bit map, which is BITMAP flipped about its vertical center line. (INVERT.BITMAP.VERTICALLY BITMAP) [Function] Returns a new bit map, which is BITMAP flipped about its horizontal center line. (ROTATE.BITMAP.LEFT BITMAP) [Function] Returns a new bit map, which is BITMAP rotated 90 degrees counterclockwise. (The resulting bit map's width will be BITMAP's height.). (ROTATE.BITMAP.RIGHT BITMAP) [Function] Returns a new bit map, which is BITMAP rotated 90 degrees clockwise. (The resulting bit map's width will be BITMAP's height.). (SHIFT.BITMAP.DOWN BITMAP NBITS) [Function] Returns a new bit map, which is BITMAP extended by NBITS in the upward direction, the new space being filled in with white. (SHIFT.BITMAP.UP BITMAP NBITS) [Function] Returns a new bit map, which is BITMAP extended by NBITS in the downwards direction, the new space being filled in with white. (SHIFT.BITMAP.LEFT BITMAP NBITS) [Function] Returns a new bit map, which is BITMAP extended by NBITS to the right, the new space being filled in with white. (SHIFT.BITMAP.RIGHT BITMAP NBITS) [Function] Returns a new bit map, which is BITMAP extended by NBITS to the left, the new space being filled in with white. (TRIM.BITMAP BITMAP) [Function] Returns a new bit map, which is BITMAP trimmed at all four edges of all completely white (0) columns and rows. (FROM.SCREEN.BITMAP NIL) [Function] Prompts for a region on the screen and returns a copy of the bit map. (INTERACT&SHIFT.BITMAP.LEFT BITMAP) [Function] Prompts for number of bits to shift the BITMAP left and returns the new bit map. (INTERACT&SHIFT.BITMAP.RIGHT BITMAP) [Function] Prompts for number of bits to shift the BITMAP right and returns the new bit map. (INTERACT&SHIFT.BITMAP.DOWN BITMAP) [Function] Prompts for number of bits to shift the BITMAP down and returns the new bit map. (INTERACT&SHIFT.BITMAP.UP BITMAP) [Function] Prompts for number of bits to shift the BITMAP up and returns the new bit map. (INTERACT&ADD.BORDER.TO.BITMAP BITMAP) [Function] Prompts for number of bits in the border and calls EDITSHADE to interactively fill in the texture. Returns a new bit map, which is a bit map extended in all four directions by the border being filled in with the texture. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 13) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 618) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (-234 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM) FORMATINFO (ARABIC)) (270 12 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))))) /ÌÌøøT/ø2øT/øøT(ÌÌø.ÌÌøø.ÌÌø ø.ÌÌøø.øøBøø PAGEHEADING VERSOHEADBøø PAGEHEADING RECTOHEADAøø PAGEHEADINGFOOTINGVAøø PAGEHEADINGFOOTINGR(MODERN MODERNMODERNMODERN   HRULE.GETFNMODERN    HRULE.GETFNMODERN     HRULE.GETFNMODERN    HRULE.GETFNMODERN   HRULE.GETFNMODERN Š HRULE.GETFNMODERN HRULE.GETFNMODERN 6ÀR?  9  (%   %*  /  D   )  +  M  l     D   G    8   8  I%F (# ($/(# (!Þ       kèzº