(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "17-Apr-87 15:02:54" ("compiled on " {ERIS}IMAGEOBJ.;16) "15-Apr-87 23:01:32" brecompiled changes%: BMOBJ.DISPLAYFN BMOBJ.GETFN3 in "Xerox Lisp 15-Apr-87 ..." dated "15-Apr-87 23:25:13") (FILECREATED "17-Apr-87 15:02:26" {ERIS}IMAGEOBJ.;16 27002 changes to%: (FNS BMOBJ.DISPLAYFN BMOBJ.GETFN3) previous date%: "20-Feb-87 20:01:46" {ERIS}IMAGEOBJ.;15) BITMAPTEDITOBJ :D4 (I 2 ROTATION I 1 SCALEFACTOR I 0 BITMAP F 0 BITMAPIMAGEFNS) @AµkBµjhP (16 IMAGEOBJCREATE) NIL () COERCETOBITMAP :D4 (P 1 CR P 0 BM I 0 BMSPEC) Ž0@Ó@d‘@lðž@g ZôoJ@ ².@@ X@@Hjdhdgg H@ ´5@g @g X@ h@ Y@IIHjdII H(138 BKBITBLT 115 DSPCLIPPINGREGION 110 TOTOPW 105 BITMAPCREATE 102 GETWINDOWPROP 95 GETWINDOWPROP 86 WINDOWP 80 BKBITBLT 60 SCREENBITMAP 56 BITMAPCREATE 53 BITSPERPIXEL 50 SCREENBITMAP 36 REGIONP 24 EVALV) (99 HEIGHT 92 WIDTH 76 REPLACE 73 INPUT 28 BITMAP 21 COERCETOBITMAP 6 BITMAP) () WINDOWTITLEFONT :D4 (I 0 FONT F 0 WindowTitleDisplayStream) @P (4 DSPFONT) NIL () \PRINTBINARYBITMAP :D4 (P 1 BMH P 0 STREAM I 1 STREAM I 0 BITMAP) ‹ Ag q@Ñ@¤@ ¿H@ »ZKã ¿JKlÿå ¿H@ ¹\Iã ¿LIlÿå ¿H@ ¾]Nã ¿MNlÿå ¿H@É@ÈIlÚÚ OÉ É>_¿OOjOlO@(86 \BOUT 77 \BOUT 70 BITSPERPIXEL 64 \BOUT 55 \BOUT 48 BITMAPHEIGHT 42 \BOUT 33 \BOUT 26 BITMAPWIDTH 20 \ILLEGAL.ARG 6 GETSTREAM) (118 FDEV 113 STREAM 98 BITMAP 92 BITMAP 13 BITMAP 3 OUTPUT) () \READBINARYBITMAP :D4 (P 3 BITMAP P 2 BPP P 1 BMH P 0 BMW I 0 STREAM) R@g bd á@ Ø@ á@ Ø@ á@ Ø#HIJ [@KÉKÈIlÚÚMÉ É<¼MNjOlLK(35 BITMAPCREATE 6 GETSTREAM) (66 FDEV 61 STREAM 47 BITMAP 41 BITMAP 3 INPUT) () BMOBJ.BUTTONEVENTINFN :D4 (P 9 Y P 8 X P 7 TEMP P 6 NAME P 5 PREVIOUS.BITMAP P 4 COMMAND P 3 COMMAND.MENU P 2 NEW.BITMAP P 1 OLDSCALE P 0 OBJ I 8 OPERATION I 7 BUTTON I 6 TEXTSTREAM I 5 SELWINDOW I 4 Y I 3 X I 2 SELECTION I 1 WINDOW I 0 IMAGEOBJ F 10 BITMAP.OBJ.MENU)   @g qH¹ Ggð³GµH ½WÚWŒgð³íhc dgð²¿HA oI 3µI¿M±«dgð—¿M ±dgð—¿M ±dgð—¿M ±dgð–¿M °sdgð–¿M °fdgð–¿M °Ydgð–¿M °Ldgð–¿M °?dgð–¿M °2dgð–¿M °%dgð–¿M °dgð•¿M ‰gð´M ºHJ¿@gh g(279 IMAGEOBJPROP 266 INTERACT&ADD.BORDER.TO.BITMAP 255 INVERT.BITMAP.B/W 242 INTERACT&SHIFT.BITMAP.UP 229 INTERACT&SHIFT.BITMAP.DOWN 216 INTERACT&SHIFT.BITMAP.RIGHT 203 INTERACT&SHIFT.BITMAP.LEFT 190 ROTATE.BITMAP.RIGHT 177 ROTATE.BITMAP.LEFT 164 INVERT.BITMAP.DIAGONALLY 151 INVERT.BITMAP.VERTICALLY 137 INVERT.BITMAP.HORIZONTALLY 123 TRIM.BITMAP 109 EDITBM 87 MKATOM 84 TEDIT.GETINPUT 76 TEXTOBJ 62 MENU 57 BMOBJ.CREATE.MENU 36 BITMAPCOPY 6 IMAGEOBJPROP) (282 CHANGED 275 CACHED.BITMAP 259 ADD.BORDER 248 INTERCHANGE.BLACK/WHITE 235 SHIFT.UP 222 SHIFT.DOWN 209 SHIFT.RIGHT 196 SHIFT.LEFT 183 ROTATE.BITMAP.RIGHT 170 ROTATE.BITMAP.LEFT 157 INVERT.DIAGONALLY 144 INVERT.VERTICALLY 130 INVERT.HORIZONTALLY 116 TRIM 102 HAND.EDIT 66 CHANGE.SCALE 49 NORMAL 42 MENU 24 RIGHT 3 OBJECTDATUM) ( 80 "Scale Factor: ") BMOBJ.COPYFN :D4 (P 0 BMOBJ I 0 IMAGEOBJ) @g H HH (24 BITMAPTEDITOBJ 14 BITMAPCOPY 6 IMAGEOBJPROP) (3 OBJECTDATUM) () BMOBJ.DISPLAYFN :D4 (P 3 SHRUNK.BITMAP P 2 CACHE P 1 BITMAP P 0 FACTOR I 1 IMAGE.STREAM I 0 IMAGEOBJ) ƒ@g @g @g A gðšAIhHj °SJ[µ,Hoó³IoHëoHë …IHd »@gK ¿KhdAhA hA HI ê HI ê h(127 BKBITBLT 123 FIXR 119 BITMAPHEIGHT 114 FIXR 110 BITMAPWIDTH 105 DSPYPOSITION 100 DSPXPOSITION 90 IMAGEOBJPROP 81 EXPANDBITMAP 74 SHRINKBITMAP 44 SHOWBITMAP.IP 30 IMAGESTREAMTYPE 23 IMAGEOBJPROP 15 IMAGEOBJPROP 6 IMAGEOBJPROP) (86 CACHED.BITMAP 33 INTERPRESS 20 CACHED.BITMAP 12 OBJECTDATUM 3 OBJECTDATUM) ( 69 1.0 63 1.0 55 1.0) BMOBJ.IMAGEBOXFN :D4 (P 4 HEIGHT P 3 WIDTH P 2 SCALE P 1 BITMAP P 0 FACTOR I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 IMAGEOBJ) G@g @g hA #Igð”l\°JI Hêê »JI Hêê ¼KLjdh(58 FIXR 52 BITMAPHEIGHT 46 FIXR 40 BITMAPWIDTH 21 DSPSCALE 15 IMAGEOBJPROP 6 IMAGEOBJPROP) (28 NoneCached 12 OBJECTDATUM 3 OBJECTDATUM) () BMOBJ.PUTFN :D4 (P 6 INTSCALE P 5 FRACTSCALE P 0 SCALE I 1 STREAM I 0 BMOBJ) k@g aHjؾHNé½ANã ¿ANlÿå ¿AMoênÿÿåºYJã ¿IJlÿå ¿A@g ¼[Lã ¿KLlÿå ¿@g A h(103 \PRINTBINARYBITMAP 98 IMAGEOBJPROP 90 \BOUT 81 \BOUT 71 IMAGEOBJPROP 62 \BOUT 53 \BOUT 34 \BOUT 25 \BOUT 6 IMAGEOBJPROP) (95 OBJECTDATUM 68 OBJECTDATUM 3 OBJECTDATUM) ( 41 32768.0) BMOBJ.INIT :D4 (F 0 BITMAPIMAGEFNS) #gggggggdddddd c(30 IMAGEFNSCREATE) (20 NILL 17 BMOBJ.BUTTONEVENTINFN 14 BMOBJ.COPYFN 11 BMOBJ.GETFN3 8 BMOBJ.PUTFN 5 BMOBJ.IMAGEBOXFN 2 BMOBJ.DISPLAYFN) () BMOBJ.GETFN3 :D4 (P 1 ROT P 0 SCALE I 0 STREAM) 3@ l Ùjð’@ ¿@ á@ Ø@ á@ Øoëè@ á@ Ø@ HI (48 BITMAPTEDITOBJ 43 \READBINARYBITMAP 3 \PEEKBIN) NIL ( 28 32768.0) BMOBJ.CREATE.MENU :D4 NIL R`do¿do¿di ¿dg¿mÿjHdI¿dg ¿dg¿jdnÿdhHdI ¿NIL (56 DEFAULTMENUHELDFN 49 CLRPROMPT 28 Y 2 |MENUTYPE#|) ( 16 ((Change% Scale (QUOTE CHANGE.SCALE) "Changes the scale factor used at output time.") (Hand% Edit (QUOTE HAND.EDIT) "Starts the bitmap editor on this bitmap.") (Trim (QUOTE TRIM) "removes the white space from the edges of the bitmap.") (Reflect% Left-to-right (QUOTE INVERT.HORIZONTALLY) "inverts the bitmap about the vertical midline.") (Reflect% Top-to-bottom (QUOTE INVERT.VERTICALLY) "inverts the bitmap about the horizontal midline.") (Reflect% Diagonally (QUOTE INVERT.DIAGONALLY) "inverts the bitmap about the lower left to upper right diagonal.") (Rotate% Left (QUOTE ROTATE.BITMAP.LEFT) "rotates the bitmap 90 degrees counter-clockwise.") (Rotate% Right (QUOTE ROTATE.BITMAP.RIGHT) "rotates the bitmap 90 degrees clockwise.") (|Expand on Right| (QUOTE SHIFT.LEFT) "prompts for a number of bits to add on the right.") (|Expand on Left| (QUOTE SHIFT.RIGHT) "prompts for a number of bits to add on the left.") (|Expand on Bottom| (QUOTE SHIFT.DOWN) "prompts for a number of bits to add on the top.") (|Expand on Top| (QUOTE SHIFT.UP) "prompts for a number of bits to add on the bottom.") (|Switch Black & White| (QUOTE INTERCHANGE.BLACK/WHITE) "changes all black bits to white and all white bits to black.") (Add% Border (QUOTE ADD.BORDER) "adds an arbitrary border in an arbitrary shade.")) 8 "Operations on bitmaps") SCALED.BITMAP.GETFN :D4 (P 1 BITMAP P 0 FACTOR I 1 TEXTSTREAM I 0 INPUT.STREAM)  @ Y@ XIoHëj (23 BITMAPTEDITOBJ 11 READ 6 READBITMAP) NIL ( 17 1.0) BMOBJ.GETFNA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 1 BITMAP P 0 FIELDS I 0 SI::*CLEANUP-FORMS* F 2 STREAM) R IHH (18 BITMAPTEDITOBJ 6 READBITMAP 3 READ) NIL () BMOBJ.GETFN :D4 (P 0 SI::*RESETFORMS* I 0 STREAM) #g@ hhhg ¿ (32 CL:VALUES-LIST 28 SI::RESETUNWIND 25 \MVLIST 22 BMOBJ.GETFNA0001 6 INPUT) (19 SI::RESETUNWIND 2 INPUT) () BMOBJ.GETFN2 :D4 (P 1 ROT P 0 SCALE I 0 STREAM) @ á@ Ø@ á@ Ø@ HI (23 BITMAPTEDITOBJ 18 \READBINARYBITMAP) NIL () GET.OBJ.FROM.USERA0001 :D4 (P 6 BM P 5 SEL P 4 VAL P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 TEXTSTREAM F 8 PROCEED-CASE0126 F 9 *PROCEED-CASES* F 10 TEXTOBJ) Ûi@ggggWgjgg gg Wo WÉL dgð¥dgð˜¿L´KWL°@gð²*LWMÉdgð—¿MÉ‹gð´MÉ °L ^µL´WL M ¿hh kj WMÉdgð—¿MÉ‹gð´MÉ °Ê(215 TEDIT.INSERT.OBJECT 178 BITMAPTEDITOBJ 170 \MVLIST 161 TEDIT.INSERT 157 MKSTRING 145 COERCETOBITMAP 139 TEDIT.INSERT.OBJECT 74 TYPENAME 60 PROMPTFOREVALED 44 MAKE-PROCEED-CASE 40 CL:SYMBOL-FUNCTION 31 CL:SYMBOL-FUNCTION) (210 SELECTION 203 RIGHT 197 SELECTION 190 LEFT 184 SELECTION 134 SELECTION 127 RIGHT 121 SELECTION 114 LEFT 108 SELECTION 98 IMAGEOBJ 84 STRINGP 78 LITATOM 65 TEXTOBJ 37 SI::ERRORSET-PRINT-FUNCTION 34 :REPORT 28 TRUE 25 :TEST 21 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) ( 57 "Form to eval:") GET.OBJ.FROM.USER :D4 (P 4 PROCEED-CASE0125 P 3 A0128 P 2 PROCEED-CASE0124 P 1 A0127 P 0 PROCEED-CASE0126 I 1 TEXTOBJ I 0 TEXTSTREAM) )hhH 1IºI[¼Jdgð•¿L j:´h(32 CL:VALUES-LIST 9 GET.OBJ.FROM.USERA0001) (25 :NORMAL) () BITMAPOBJ.SNAPW :D4 (P 1 BM P 0 REG) <HH YHHIjdhdgg Ikj h(56 COPYINSERT 53 BITMAPTEDITOBJ 47 BKBITBLT 27 SCREENBITMAP 23 BITMAPCREATE 20 BITSPERPIXEL 17 SCREENBITMAP 2 GETREGION) (43 REPLACE 40 INPUT) () PROMPTFOREVALEDA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WHERE F 1 MSG F 2 FONT F 3 WIN F 4 MINWIDTH F 5 MINHEIGHT) [P ’P°APµN`PµE`QR Tµjl} l g ÈlÚUµjld il Ql cd °¿°¶(82 CLEARW 76 CREATEW 70 CREATEREGION 67 HEIGHTIFWINDOW 61 MAX 44 DEFAULTFONT 38 WIDTHIFWINDOW 33 MAX 24 STRINGWIDTH 3 REGIONP) (47 FONTDESCRIPTOR 41 DISPLAY 19 LASTMOUSEY 13 LASTMOUSEX) () PROMPTFOREVALEDA0002A0003 :D4 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 PROCEED-CASE0132 F 5 *PROCEED-CASES*) Ii@ggggTgjgg gg Uid g h (68 \MVLIST 62 LISPX 56 LISPXREAD 43 MAKE-PROCEED-CASE 39 CL:SYMBOL-FUNCTION 30 CL:SYMBOL-FUNCTION) (59 > 36 SI::ERRORSET-PRINT-FUNCTION 33 :REPORT 27 TRUE 24 :TEST 20 :SELECTOR 16 :TAG 13 ABORT 10 :NAME 7 :NORMAL) () PROMPTFOREVALEDA0002 :D4 (NAME SI::*UNWIND-PROTECT* P 4 PROCEED-CASE0130 P 3 A0134 P 2 PROCEED-CASE0131 P 1 A0133 P 0 PROCEED-CASE0132 I 0 SI::*CLEANUP-FORMS* F 5 NEWVALUE) -hhH 1I¼I[ºLdgð•¿J „j:´hc (32 CL:VALUES-LIST 9 PROMPTFOREVALEDA0002A0003) (25 :NORMAL) () PROMPTFOREVALED :D4 (P 3 SI::*RESETFORMS* P 2 WIN P 1 NEWVALUE P 0 FONT I 4 MINHEIGHT I 3 MINWIDTH I 2 FONT I 1 WHERE I 0 MSG) VBµ gl g !gH hhhg ¿gJ hhhg ¿J I(82 CLOSEW 77 SI::RESETUNWIND 73 \MVLIST 70 PROMPTFOREVALEDA0002 54 TTYDISPLAYSTREAM 46 SI::RESETUNWIND 42 \MVLIST 39 PROMPTFOREVALEDA0001 23 WINDOWTITLEFONT 13 FONTCREATE) (67 SI::RESETUNWIND 50 TTYDISPLAYSTREAM 36 SI::RESETUNWIND 19 WINDOWTITLEFONT 10 BOLD 5 HELVETICA) () (PRETTYCOMPRINT IMAGEOBJCOMS) (RPAQQ IMAGEOBJCOMS ((COMS (* ;; "Bit-map image objects") (FNS BITMAPTEDITOBJ COERCETOBITMAP WINDOWTITLEFONT \PRINTBINARYBITMAP \READBINARYBITMAP) (* ;; "fns for the bitmap tedit object.") (FNS BMOBJ.BUTTONEVENTINFN BMOBJ.COPYFN BMOBJ.DISPLAYFN BMOBJ.IMAGEBOXFN BMOBJ.PUTFN BMOBJ.INIT BMOBJ.GETFN3 BMOBJ.CREATE.MENU) (FNS SCALED.BITMAP.GETFN BMOBJ.GETFN BMOBJ.GETFN2) (* ; "GETFNs for backward compatibility with older objects.") (RECORDS BITMAPOBJ) (* ;; "make ^O be a character that inserts an object read from the user.") (GLOBALVARS (BITMAP.OBJ.MENU)) ( ADDVARS (BackgroundCopyMenuCommands (SNAP (FUNCTION (BITMAPOBJ.SNAPW)) "prompts for an area of the screen to insert.")) (IMAGEOBJGETFNS (BMOBJ.GETFN)) (IMAGEOBJGETFNS ( BMOBJ.GETFN2)) (IMAGEOBJGETFNS (SCALED.BITMAP.GETFN))) (VARS (BackgroundCopyMenu)) (FNS GET.OBJ.FROM.USER BITMAPOBJ.SNAPW PROMPTFOREVALED) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (BMOBJ.INIT))) ( FILES EDITBITMAP)))) (RECORD BITMAPOBJ (BITMAP BMOBJSCALEFACTOR BMOBJROTATION)) (ADDTOVAR BackgroundCopyMenuCommands (SNAP (FUNCTION (BITMAPOBJ.SNAPW)) "prompts for an area of the screen to insert.")) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN)) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN2)) (ADDTOVAR IMAGEOBJGETFNS (SCALED.BITMAP.GETFN)) (RPAQQ BackgroundCopyMenu NIL) (BMOBJ.INIT) (FILESLOAD EDITBITMAP) (PUTPROPS IMAGEOBJ COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987)) NIL