(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 8-Feb-97 11:26:32" ("compiled on " {DSK}medley2.1>library>IMAGEOBJ.;1) "20-Dec-94 17:11:06" tcompl'd in "PARC STEMMER MAKER 7-Feb-97 ..." dated " 7-Feb-97 19:30:19") (FILECREATED " 7-Dec-95 13:21:56" {DSK}LIBRARY/IMAGEOBJ.;1 35602 changes to%: (FNS BMOBJ.DISPLAYFN BMOBJ.IMAGEBOXFN) previous date%: " 6-Dec-95 15:18:32" {DSK}LIBRARY/IMAGEOBJ.;1) BITMAPTEDITOBJ :D8 (I 3 DESCENT I 2 ROTATION I 1 SCALEFACTOR I 0 BITMAP F 0 BITMAPIMAGEFNS) @AkBjCjhP (23 IMAGEOBJCREATE) NIL () COERCETOBITMAP :D8 (P 1 CR P 0 BM I 0 BMSPEC) 0@@d@d3@@g ZJ@ <@@ X@@Hjdhdgg H@ E@g @g X@ h@ Y@IIHjdII H(185 BKBITBLT 160 DSPCLIPPINGREGION 153 TOTOPW 146 BITMAPCREATE 141 GETWINDOWPROP 130 GETWINDOWPROP 117 WINDOWP 109 BKBITBLT 83 SCREENBITMAP 77 BITMAPCREATE 72 BITSPERPIXEL 67 SCREENBITMAP 51 REGIONP 31 EVALV) (136 HEIGHT 125 WIDTH 103 REPLACE 98 INPUT 37 BITMAP 26 COERCETOBITMAP 8 BITMAP) () WINDOWTITLEFONT :D8 (I 0 FONT F 0 WindowTitleDisplayStream) @P (6 DSPFONT) NIL () \PRINTBINARYBITMAP :D8 (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@(112 \BOUT 101 \BOUT 92 BITSPERPIXEL 84 \BOUT 73 \BOUT 64 BITMAPHEIGHT 56 \BOUT 45 \BOUT 36 BITMAPWIDTH 28 \ILLEGAL.ARG 10 GETSTREAM) (152 FDEV 145 STREAM 128 BITMAP 120 BITMAP 19 BITMAP 5 OUTPUT) () \READBINARYBITMAP :D8 (P 3 BITMAP P 2 BPP P 1 BMH P 0 BMW I 0 STREAM) `@g bd @ @ @ @ @ #HIJ [@KKIlM >MNjOlLK(41 BITMAPCREATE 10 GETSTREAM) (80 FDEV 73 STREAM 57 BITMAP 49 BITMAP 5 INPUT) () BMOBJ.BUTTONEVENTINFNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 NEWSCALE F 3 SI::NLSETQ-VALUE) "i@Rg chcg(20 READ 15 OPENSTRINGSTREAM) (31 :NORMAL 10 INPUT) () BMOBJ.BUTTONEVENTINFN :D8 (P 15 *CONDITION-HANDLER-BINDINGS* P 14 SI::*NLSETQFLAG* P 13 *PROCEED-CASES* P 12 SI::NLSETQ-VALUE P 11 NEWSCALE P 10 Y P 9 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 16 BITMAP.OBJ.MENU F 17 *PROCEED-CASES* F 18 *CONDITION-HANDLER-BINDINGS*)  @g H  Gg"GH W W ghc dgA A oI oIh`  O`W"ioW$O gOOIO3O3wO_ihHOM3hOdgM dgM dgM dgM dgM dgM udgM ddgM SdgM BdgM 1dgM dgM gM HJ@gh g(484 IMAGEOBJPROP 467 INTERACT&ADD.BORDER.TO.BITMAP 452 INVERT.BITMAP.B/W 435 INTERACT&SHIFT.BITMAP.UP 418 INTERACT&SHIFT.BITMAP.DOWN 401 INTERACT&SHIFT.BITMAP.RIGHT 384 INTERACT&SHIFT.BITMAP.LEFT 367 ROTATE.BITMAP.RIGHT 350 ROTATE.BITMAP.LEFT 332 INVERT.BITMAP.DIAGONALLY 314 INVERT.BITMAP.VERTICALLY 296 INVERT.BITMAP.HORIZONTALLY 278 TRIM.BITMAP 260 EDITBM 169 BMOBJ.BUTTONEVENTINFNA0001 135 PROMPTFORWORD 116 TEDIT.GETINPUT 105 TEXTOBJ 97 TEDITWINDOWP 79 MENU 72 BMOBJ.CREATE.MENU 44 BITMAPCOPY 10 IMAGEOBJPROP) (489 CHANGED 478 CACHED.BITMAP 458 ADD.BORDER 443 INTERCHANGE.BLACK/WHITE 426 SHIFT.UP 409 SHIFT.DOWN 392 SHIFT.RIGHT 375 SHIFT.LEFT 358 ROTATE.BITMAP.RIGHT 341 ROTATE.BITMAP.LEFT 323 INVERT.DIAGONALLY 305 INVERT.VERTICALLY 287 INVERT.HORIZONTALLY 269 TRIM 251 HAND.EDIT 175 :NORMAL 147 SI::NLSETQ-PROCEED-CASE 130 PROMPTWINDOW 85 CHANGE.SCALE 62 NORMAL 52 MENU 30 RIGHT 5 OBJECTDATUM) ( 156 (CL:ERROR . SI::NLSETQHANDLER) 123 "Scale Factor: " 110 "Scale Factor: ") BMOBJ.COPYFN :D8 (P 0 BMOBJ I 0 IMAGEOBJ) (@g H HHH (37 BITMAPTEDITOBJ 20 BITMAPCOPY 10 IMAGEOBJPROP) (5 OBJECTDATUM) () BMOBJ.DISPLAYFN :D8 (P 6 SHRUNK.BITMAP P 5 STREAMTYPE P 4 STREAM-SCALE P 3 DESCENT P 2 CACHE P 1 BITMAP P 0 FACTOR I 1 IMAGE.STREAM I 0 IMAGEOBJ) =@g @g @g @g hA A jdLKj A H3HMHH`*`#HoHoMdg`MgMgnJ^7HoIoHoH IHd @gN NhdAhA hA HI HI 'IjdAhdI I gghdH h(313 SCALEDBITBLT 294 BITMAPHEIGHT 288 BITMAPWIDTH 274 BKBITBLT 268 FIXR 262 BITMAPHEIGHT 255 FIXR 249 BITMAPWIDTH 242 DSPYPOSITION 235 DSPXPOSITION 223 IMAGEOBJPROP 210 EXPANDBITMAP 201 SHRINKBITMAP 86 RELMOVETO 79 FIXR 63 IMAGESTREAMTYPE 57 DSPSCALE 46 IMAGEOBJPROP 35 IMAGEOBJPROP 23 IMAGEOBJPROP 10 IMAGEOBJPROP) (304 REPLACE 299 INPUT 217 CACHED.BITMAP 165 PRESS 157 DISPLAY 150 *SMALLSCREENFACTOR* 142 DISPLAY 116 *SMALLSCREENFACTOR* 109 *SMALLSCREEN* 41 OBJECTDATUM 30 CACHED.BITMAP 18 OBJECTDATUM 5 OBJECTDATUM) ( 194 1.0 187 1.0 178 1.0 133 1.0 124 0.5) BMOBJ.IMAGEBOXFN :D8 (P 7 HEIGHT P 6 WIDTH P 5 STREAMTYPE P 4 SCALE P 3 DESCENT P 2 BITMAP P 1 FACTOR P 0 BITMAPOBJ I 3 RIGHT.MARGIN I 2 CURRENT.X I 1 IMAGE.STREAM I 0 IMAGEOBJ) @g 1HHHhA A !Jgl_dI3IMII`(`!IoIoMg`LJ I LJ I _NOKjjh(153 FIXR 145 BITMAPHEIGHT 137 FIXR 129 BITMAPWIDTH 42 IMAGESTREAMTYPE 33 DSPSCALE 10 IMAGEOBJPROP) (121 *SMALLSCREENFACTOR* 114 DISPLAY 89 *SMALLSCREENFACTOR* 82 *SMALLSCREEN* 51 NoneCached 5 OBJECTDATUM) ( 106 1.0 97 0.5) BMOBJ.PUTFN :D8 (P 0 BITMAPOBJ I 1 STREAM I 0 BMOBJ) Z@g HA HA` kA HA` kA HA` kA (87 SPACES 80 PRIN2 64 SPACES 57 PRIN2 42 SPACES 35 PRIN2 21 \PRINTBINARYBITMAP 10 IMAGEOBJPROP) (75 FILERDTBL 52 FILERDTBL 30 FILERDTBL 5 OBJECTDATUM) () BMOBJ.INIT :D8 (F 0 BITMAPIMAGEFNS) 3gggggggdddddd c(46 IMAGEFNSCREATE) (34 NILL 29 BMOBJ.BUTTONEVENTINFN 24 BMOBJ.COPYFN 19 BMOBJ.GETFN5 14 BMOBJ.PUTFN 9 BMOBJ.IMAGEBOXFN 4 BMOBJ.DISPLAYFN) () BMOBJ.GETFN5 :D8 (I 1 TEXTSTREAM I 0 INPUT.STREAM) .@ @` @` @` (43 BITMAPTEDITOBJ 38 READ 27 READ 16 READ 5 \READBINARYBITMAP) (33 FILERDTBL 22 FILERDTBL 11 FILERDTBL) () BMOBJ.CREATE.MENU :D8 NIL \`dododi dgmjHdIdg dgjdndhHdI NIL (66 DEFAULTMENUHELDFN 57 CLRPROMPT 34 Y 4 |MENUTYPE#|) ( 20 ((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.UP) "prompts for a number of bits to add on the top.") (|Expand on Top| (QUOTE SHIFT.DOWN) "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.")) 11 "Operations on bitmaps") SCALED.BITMAP.GETFN :D8 (P 1 BITMAP P 0 FACTOR I 1 TEXTSTREAM I 0 INPUT.STREAM) ! @ Y@ XIoHj (30 BITMAPTEDITOBJ 15 READ 8 READBITMAP) NIL ( 22 1.0) BMOBJ.GETFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 BITMAP P 0 FIELDS I 0 SI::*CLEANUP-FORMS* F 2 STREAM) R IHH (24 BITMAPTEDITOBJ 10 READBITMAP 5 READ) NIL () BMOBJ.GETFN :D8 (P 0 SI::*RESETFORMS* I 0 STREAM) /g@ hhhg $(40 SI::RESETUNWIND 35 \MVLIST 30 BMOBJ.GETFNA0001 10 INPUT) (25 SI::RESETUNWIND 4 INPUT) () BMOBJ.GETFN2 :D8 (P 1 ROT P 0 SCALE I 0 STREAM) @ @ @ @ @ HI (27 BITMAPTEDITOBJ 20 \READBINARYBITMAP) NIL () BMOBJ.GETFN3 :D8 (P 1 DESC P 0 SCALE I 0 STREAM) ;@ l j@ @ @ @ @ o@ @ @ HjI (56 BITMAPTEDITOBJ 48 \READBINARYBITMAP 5 \PEEKBIN) NIL ( 31 32768.0) BMOBJ.GETFN4 :D8 (P 2 DESCENT P 1 ROT P 0 SCALE I 0 STREAM) Y@ l j@ @ @ @ @ o@ @ @ @ @ @ @ @ @ @ @ @ @ HIJ (86 BITMAPTEDITOBJ 78 \READBINARYBITMAP 5 \PEEKBIN) NIL ( 31 32768.0) GET.OBJ.FROM.USERA0001 :D8 (P 5 CL::$$TYPE-VALUE P 4 BM P 3 SEL P 2 VAL P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 TEXTSTREAM F 7 TEXTOBJ F 8 SI::NLSETQ-VALUE) i@o W"J]g JcVJXMFM5JVKdgKg K J \JVJi K hdcgkj VKdgKg K (206 TEDIT.INSERT.OBJECT 158 BITMAPTEDITOBJ 138 TEDIT.INSERT 132 MKSTRING 119 COERCETOBITMAP 111 TEDIT.INSERT.OBJECT 38 TYPENAMEP 14 PROMPTFOREVALED) (199 SELECTION 190 RIGHT 182 SELECTION 173 LEFT 165 SELECTION 150 :NORMAL 104 SELECTION 95 RIGHT 87 SELECTION 78 LEFT 70 SELECTION 60 IMAGEOBJ 52 LITATOM 33 STRINGP 21 TEXTOBJ) ( 9 "Form to eval:") GET.OBJ.FROM.USER :D8 (P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 1 TEXTOBJ I 0 TEXTSTREAM F 3 *PROCEED-CASES*) `SI gH(18 GET.OBJ.FROM.USERA0001) (24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) () BITMAPOBJ.SNAPW :D8 (P 1 BM P 0 REG I 1 SAVE I 0 SCALE F 2 DEFAULT.BITMAP.SCALE F 3 *INSERT-BITMAP*) oHH YHHIjdhdgg AI@R j cI@R j h(107 COPYINSERT 102 BITMAPTEDITOBJ 96 COPY 82 BITMAPTEDITOBJ 76 COPY 63 BKBITBLT 37 SCREENBITMAP 31 BITMAPCREATE 26 BITSPERPIXEL 21 SCREENBITMAP 4 GETREGION) (57 REPLACE 52 INPUT) () PROMPTFOREVALEDA0001 :D8 (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) wP PWPh`P]`QR Tjl} l g  lUjld il Ql cd (110 CLEARW 102 CREATEW 94 CREATEREGION 89 HEIGHTIFWINDOW 81 MAX 60 DEFAULTFONT 50 WIDTHIFWINDOW 43 MAX 32 STRINGWIDTH 5 REGIONP) (65 FONTDESCRIPTOR 55 DISPLAY 25 LASTMOUSEY 17 LASTMOUSEX) () PROMPTFOREVALEDA0002A0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) !i@id g hcg(21 LISPX 11 LISPXREAD) (30 :NORMAL 16 >) () PROMPTFOREVALEDA0002 :D8 (NAME SI::*UNWIND-PROTECT* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 3 *PROCEED-CASES* F 4 NEWVALUE) #`SI gHc(18 PROMPTFOREVALEDA0002A0003) (24 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) () PROMPTFOREVALED :D8 (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) |Bgl g !gH hhhg $gJ hhhg $J I(120 CLOSEW 109 SI::RESETUNWIND 104 \MVLIST 99 PROMPTFOREVALEDA0002 79 TTYDISPLAYSTREAM 63 SI::RESETUNWIND 58 \MVLIST 53 PROMPTFOREVALEDA0001 33 WINDOWTITLEFONT 19 FONTCREATE) (94 SI::RESETUNWIND 73 TTYDISPLAYSTREAM 48 SI::RESETUNWIND 27 WINDOWTITLEFONT 14 BOLD 7 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.GETFN5 BMOBJ.CREATE.MENU) (INITVARS (*SMALLSCREEN* (ILESSP SCREENWIDTH 700)) ( *SMALLSCREENFACTOR* 0.5)) (FNS SCALED.BITMAP.GETFN BMOBJ.GETFN BMOBJ.GETFN2 BMOBJ.GETFN3 BMOBJ.GETFN4) (* ; "GETFNs for backward compatibility with older objects.") (RECORDS BITMAPOBJ) (INITVARS ( DEFAULT.BITMAP.SCALE (QUOTE (0.75 (DISPLAY 1))))) (* ;; "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.") ("Snap 50%%" (FUNCTION (BITMAPOBJ.SNAPW 0.5)) "prompts for an area of the screen to insert, scaled down by 50%%.") ("Snap 50%% & Save" (FUNCTION ( BITMAPOBJ.SNAPW 0.5 T)) "prompts for an area of the screen to save in *INSERT-BITMAP*, scaled down by 50.") ("Insert saved" ( FUNCTION (COPYINSERT *INSERT-BITMAP*)) "Inserts *INSERT-BITMAP* in a document")) (IMAGEOBJGETFNS ( BMOBJ.GETFN)) (IMAGEOBJGETFNS (BMOBJ.GETFN2)) (IMAGEOBJGETFNS (BMOBJ.GETFN3)) (IMAGEOBJGETFNS ( BMOBJ.GETFN4)) (IMAGEOBJGETFNS (BMOBJ.GETFN5)) (IMAGEOBJGETFNS (SCALED.BITMAP.GETFN))) (VARS ( BackgroundCopyMenu)) (FNS GET.OBJ.FROM.USER BITMAPOBJ.SNAPW PROMPTFOREVALED) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (BMOBJ.INIT))) (FILES EDITBITMAP)))) (RPAQ? *SMALLSCREEN* (ILESSP SCREENWIDTH 700)) (RPAQ? *SMALLSCREENFACTOR* 0.5) (RECORD BITMAPOBJ ((* ;; "Describes a bitmap imageobj") BITMAP (* ; "The bitmap itself") BMOBJSCALEFACTOR (* ; "The factor to scale it by when displaying") BMOBJROTATION (* ; "A rotation to apply when displaying") BMOBJDESCENT (* ; "How far below the base line to display it. NIL => 0."))) (RPAQ? DEFAULT.BITMAP.SCALE (QUOTE (0.75 (DISPLAY 1)))) (ADDTOVAR BackgroundCopyMenuCommands (SNAP (FUNCTION (BITMAPOBJ.SNAPW)) "prompts for an area of the screen to insert.") ("Snap 50%%" (FUNCTION (BITMAPOBJ.SNAPW 0.5)) "prompts for an area of the screen to insert, scaled down by 50%%.") ("Snap 50%% & Save" (FUNCTION ( BITMAPOBJ.SNAPW 0.5 T)) "prompts for an area of the screen to save in *INSERT-BITMAP*, scaled down by 50.") ("Insert saved" ( FUNCTION (COPYINSERT *INSERT-BITMAP*)) "Inserts *INSERT-BITMAP* in a document")) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN)) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN2)) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN3)) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN4)) (ADDTOVAR IMAGEOBJGETFNS (BMOBJ.GETFN5)) (ADDTOVAR IMAGEOBJGETFNS (SCALED.BITMAP.GETFN)) (RPAQQ BackgroundCopyMenu NIL) (BMOBJ.INIT) (FILESLOAD EDITBITMAP) (PUTPROPS IMAGEOBJ COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991 1993 1995)) NIL