(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "16-Jul-99 15:49:39" ("compiled on " |{DSK}medley3.5>sources>PAINTW.;3|) "29-Jan-99 11:25:20" |brecompiled| |exprs:| PAINTW |in| "LFG 13-Jul-99 ..." |dated| "13-Jul-99 18:22:12") (FILECREATED "16-Jul-99 15:49:37" |{DSK}medley3.5>sources>PAINTW.;3| 16985 |changes| |to:| ( FNS PAINTW) |previous| |date:| "17-Jan-94 14:38:09" |{DSK}medley3.5>sources>PAINTW.;1|) PAINTWA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 9 HOTY P 8 HOTX P 7 MASK P 6 BRUSH P 5 MASKSHADE P 4 BITSPERPIXEL P 3 DS P 2 PREVBUT P 1 PREVY P 0 PREVX I 0 SI::*CLEANUP-FORMS* F 11 PAINTCOMMANDBRUSH F 12 PAINTCOMMANDMODE F 13 PAINTCOMMANDSHADE F 14 WINDOW F 15 PAINTWCURSOR F 16 SI::*RESETFORMS*) W ghhdW c odm W Wg ^NcNcNcWW2R(W2_Ok\knkLk]WW W ^_N_`W dNdNdOdOdhc LkW WW_H`jI`jJ`j`dlj```hK K K `` dgL WcdgWcdgWWdgWWgWgWWW h `` ljWgWM```WgYOjdKd OK Ohdgg NjdKd OK OhdggW XNjdKd OK OhdgWW .`ljL```NjdKd OK Ohdg`kjgW ```Z(829 BKBITBLT 795 LASTMOUSEY 786 LASTMOUSEX 743 BKBITBLT 723 LASTMOUSEY 714 LASTMOUSEX 701 BKBITBLT 678 LASTMOUSEY 669 LASTMOUSEX 658 BKBITBLT 637 LASTMOUSEY 628 LASTMOUSEX 560 DOWINDOWCOM 555 WHICHW 539 PUTWINDOWPROP 530 COPY 491 PAINTW.READBRUSHSIZE 464 PAINTW.READBRUSHSHAPE 438 PAINTW.READMODE 415 PAINTW.READBRUSHTEXTURE 400 PAINTW.READCOMMAND 391 WHICHW 374 INSIDE? 369 LASTMOUSEY 363 LASTMOUSEX 357 DSPCLIPPINGREGION 283 GETMOUSESTATE 255 CURSORCOLOR 243 CURSOR 209 NCREATE2 173 \\GETBRUSH 52 GETWINDOWUSERPROP 39 TOTOPW 9 CURSOR) (849 LASTMOUSEBUTTONS 843 LASTMOUSEY 837 LASTMOUSEX 820 ERASE 810 LASTMOUSEBUTTONS 805 INPUT 775 LASTMOUSEBUTTONS 769 LASTMOUSEY 763 LASTMOUSEX 751 LASTMOUSEBUTTONS 733 MERGE 693 PAINT 688 MERGE 652 ERASE 647 INPUT 614 REPLACE 606 LASTMOUSEBUTTONS 600 LASTMOUSEY 594 LASTMOUSEX 579 REPLACE 550 LASTMOUSEY 545 LASTMOUSEX 519 PAINTBRUSH 506 QUIT 479 SIZE 453 SHAPE 430 MODE 406 SHADE 386 LASTMOUSEY 381 LASTMOUSEX 349 LASTMOUSEBUTTONS 343 LASTMOUSEY 337 LASTMOUSEX 321 LASTMOUSEBUTTONS 311 LASTMOUSEBUTTONS 301 LASTMOUSEY 290 LASTMOUSEX 273 CURSOR 263 CURSOR 202 |CURSORTYPE#| 191 BITMAP 179 BITMAP 161 BITMAP 135 BITMAP 128 SCREEN 117 SCREEN 108 WINDOW 97 SCREEN 90 WINDOW 80 WINDOW 47 PAINTBRUSH 4 CURSOR) ( 26 -65535) PAINTW :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 WINDOW F 3 LISPXHIST) 5@ bo` S!g $(46 SI::RESETUNWIND 41 \\MVLIST 36 PAINTWA0001 22 PRIN1 5 \\INSUREWINDOW) (31 SI::RESETUNWIND 17 PROMPTWINDOW) ( 12 "Left button paints; Middle button erases. Right button pops up a command menu. To stop, select the QUIT command.") PAINTW.READMODE :D8 (F 2 PAINTMODEMENU) IRR:`dodg dgjdndhHdI c (70 MENU) (39 DEFAULTMENUHELDFN 30 CLRPROMPT 14 |MENUTYPE#| 5 MENU) ( 21 ((REPLACE (QUOTE REPLACE) "the screen bits are replaced by the brush bits") (INVERT (QUOTE INVERT) "the screen bits inverted whereever brush bits are") (ADD (QUOTE PAINT) "the brush bits are added to the bits on the screen"))) PAINTW.READBRUSHSHAPE :D8 (F 2 PAINTSHAPEMENU) IRR:`dodg dgjdndhHdI c (70 MENU) (39 DEFAULTMENUHELDFN 30 CLRPROMPT 14 |MENUTYPE#| 5 MENU) ( 21 (DIAGONAL VERTICAL HORIZONTAL SQUARE ROUND)) PAINTW.READBRUSHSIZE :D8 (F 2 PAINTSIZEMENU) IRR:`dodg dgjdndhHdI c (70 MENU) (39 DEFAULTMENUHELDFN 30 CLRPROMPT 14 |MENUTYPE#| 5 MENU) ( 21 (16 8 4 2 1)) PAINTW.READBRUSHSHADE :D8 (P 0 SHADE) P`di do0`5dZJYddi3 gIhohNMh_M&Oo dKdkdg dgjdndhdL Xdggi H(179 PAINTW.READ.AND.SAVE.SHADE 165 PAINTW.READ.AND.SAVE.SHADE 150 MENU 99 \\APPEND2) (171 16X16 157 4X4 125 DEFAULTMENUHELDFN 116 CLRPROMPT 56 QUOTE 30 PAINTW.SHADES 7 |MENUTYPE#|) ( 94 (("4 x 4 shade" (QUOTE 4X4) "Allows creation of a 4 bits by 4 bits shade")) 65 "changes filling to this pattern" 19 "Choose shade") PAINTW.READBRUSHTEXTURE :D8 NIL )` k` (38 MENU 33 COLORMENU 28 BITSPERPIXEL 17 PAINTW.READBRUSHSHADE 9 BITSPERPIXEL) (23 \\CURSORDESTINATION 4 \\CURSORDESTINATION) () PAINTW.READ.AND.SAVE.SHADE :D8 (P 0 SHADE I 0 16X16FLG) @ ld Xd H(27 PAINTW.CACHE.SHADE 18 EDITSHADE 13 BITMAPCREATE) NIL () PAINTW.CACHE.SHADE :D8 (I 0 SHADE) O`H6h`@ @hhg@ @hh @iHX(62 \\NCONC2 51 PAINTW.SHADE.LABEL 28 PAINTW.SHADE.LABEL) (44 ADDED 39 PAINTW.SHADES 20 PAINTW.SHADES 4 PAINTW.SHADES) () PAINTW.SHADE.LABEL :D8 (P 0 BM I 0 FILLING) 0lo` ` @H H(44 BLTSHADE 34 BITMAPCREATE 16 STRINGWIDTH) (27 FONTDESCRIPTOR 22 MENUFONT 11 MENUFONT) ( 6 "4 x 4 shade") PAINTW.READCOMMAND :D8 (F 2 PAINTCOMMANDMENU) IRR:`dodg dgjdndhHdI c (70 MENU) (39 DEFAULTMENUHELDFN 30 CLRPROMPT 14 |MENUTYPE#| 5 MENU) ( 21 ((|SetMode| (QUOTE MODE) "Allows specification of how new bits are merged") (|SetShade| (QUOTE SHADE) "Allows specification of new shade.") (|SetShape| (QUOTE SHAPE) "Allows specification of brush shape") (|SetSize| (QUOTE SIZE) "Allows specification of the brush size") (QUIT (QUOTE QUIT) "Exits painting mode"))) (RPAQQ PAINTWCOMS ((FNS PAINTW PAINTW.READMODE PAINTW.READBRUSHSHAPE PAINTW.READBRUSHSIZE PAINTW.READBRUSHSHADE PAINTW.READBRUSHTEXTURE PAINTW.READ.AND.SAVE.SHADE PAINTW.CACHE.SHADE PAINTW.SHADE.LABEL PAINTW.READCOMMAND) (COMS (INITVARS (PAINTW.SHADES)) (GLOBALVARS PAINTW.SHADES)) ( DECLARE\: DONTEVAL@LOAD DOCOPY (P (PAINTW.CACHE.SHADE BLACKSHADE) (PAINTW.CACHE.SHADE GRAYSHADE) ( PAINTW.CACHE.SHADE HIGHLIGHTSHADE))) (INITVARS (PAINTCOMMANDBRUSH (QUOTE (ROUND 2))) (PAINTCOMMANDMODE (QUOTE PAINT)) (PAINTCOMMANDMENU) (PAINTCOMMANDSHADE BLACKSHADE) (PAINTSIZEMENU) (PAINTSHAPEMENU) ( PAINTSHADEMENU) (PAINTMODEMENU) (PAINTWCURSOR)))) (RPAQ? PAINTW.SHADES) (PAINTW.CACHE.SHADE BLACKSHADE) (PAINTW.CACHE.SHADE GRAYSHADE) (PAINTW.CACHE.SHADE HIGHLIGHTSHADE) (RPAQ? PAINTCOMMANDBRUSH (QUOTE (ROUND 2))) (RPAQ? PAINTCOMMANDMODE (QUOTE PAINT)) (RPAQ? PAINTCOMMANDMENU) (RPAQ? PAINTCOMMANDSHADE BLACKSHADE) (RPAQ? PAINTSIZEMENU) (RPAQ? PAINTSHAPEMENU) (RPAQ? PAINTSHADEMENU) (RPAQ? PAINTMODEMENU) (RPAQ? PAINTWCURSOR) (PUTPROPS PAINTW COPYRIGHT ("Venue & Xerox Corporation" 1986 1990 1992 1994 1999)) NIL