(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Aug-2022 07:58:51" ("compiled on " {DSK}larry>medley>lispusers>READBRUSH.;2) "23-Aug-2022 23:38:05" brecompiled changes%: IDLE.GLIDING.BOX in "FULL 23-Aug-2022 ..." dated "23-Aug-2022 23:38:07") (FILECREATED "24-Aug-2022 07:58:48" {DSK}larry>medley>lispusers>READBRUSH.;2 9288 :CHANGES-TO ( FNS IDLE.GLIDING.BOX) :PREVIOUS-DATE " 6-Nov-92 09:25:48" {DSK}larry>medley>lispusers>READBRUSH.;1) CHOOSE.IDLE.BITMAP :D8 (P 4 FILE P 0 A0061 F 5 BRUSHMENU F 6 BRUSHDIRECTORY F 7 IDLE.BOUNCING.BOX) œUµd`VoohoAH \µ@IIdJ¿dg ¿dg¿jdnÿdhIdJ ¿c d³!d• \ »Jµ KhZ¹°¢K&º° ch(149 READBRUSHFILE 128 NAMEFIELD 122 CONCATCODES 110 MENU 49 \GENERATENEXTFILE 40 \GENERATEFILES 29 DIRECTORY.FILL.PATTERN 4 ALLOW.BUTTON.EVENTS) (79 DEFAULTMENUHELDFN 70 CLRPROMPT 12 |MENUTYPE#|) ( 35 (SORT) 24 "" 19 "brush") READBRUSHFILE :D8 (P 6 REG P 5 MASK P 4 BM P 3 H P 2 W P 1 M P 0 STR I 0 FILE F 8 BRUSHDIRECTORY) ©@d3@ð²@ÁÉg'µ‚±’g@gWgg ggqH H dkð’¿i„jð´hYH ZH [l _jñ˜H ¿OkÙ°ôJKH\I˜JKH½H LM\@d3@ð›@gLL(165 PUT 143 CLOSEF 136 READBINARYBITMAP 125 READBINARYBITMAP 100 BIN16 93 BIN16 67 OPENSTREAM 52 PACKFILENAME.STRING) (159 BRUSH 62 OLD 57 INPUT 46 BRUSH 41 EXTENSION 34 DIRECTORY 28 BODY 16 BRUSH) () READBRUSH :D8 (P 2 REG P 1 WIN P 0 BMS I 0 FILE) _@ !HdšH Y°7 Ydg Ig ZJ¿I ¿IggI(91 PUTWINDOWPROP 74 OPENW 67 MOVEW 57 GETBOXREGION 52 GETWINDOWPROP 41 GETWINDOWPROP 29 CREATEWFROMIMAGE 20 ICONW 5 READBRUSHFILE) (86 MOVEW 81 BUTTONEVENTFN 47 HEIGHT 36 WIDTH) () READROOTPICTURE :D8 (I 0 FILE) ,g@gogg (41 CHANGEBACKGROUND 36 READPRESS 31 PACKFILENAME.STRING) (25 PRESS 20 EXTENSION 10 DIRECTORY 4 BODY) ( 15 "{GOOFY:OSBU NORTH}DATA>ROOTPICTURES>") IDLE.GLIDING.BOX :D8 (P 32 THISBITMAP P 31 TOX P 30 TOY P 29 ORIGY P 28 ORIGX P 27 REALY P 26 REALX P 25 NEWY P 24 NEWX P 23 STEPS P 22 DY P 21 DX P 20 Y P 19 X P 18 CNT P 17 MAXDD P 16 MAXY P 15 MAXX P 14 XBM P 9 REG P 8 H P 7 W P 4 X I 4 MAXD I 3 WAITSEQ I 2 WAIT I 1 BITMAPS I 0 WIN F 33 POLYGONSWINDOW) “!A§`b¿@WBµ cBb¿D¤lb¿B¤l2b¿AAHµUIbd1Kµ‚±›MA1Kµ‚±£Mh@ C DdÔOÔDdÔOÔ OOkØÕ_l ó¢±‰O±†£H¼h„H¼H¸Ld3@ð´,Lg µ%LgL µ l d …L »Jµ KhZ¹±ÿ^K&º±ÿX\ ¾M“NMó‘N½K[±ÿN\ ¾M“NMó‘N½K[±ÿFl OOkØÕ_l ó’Ol D jØjå kO _&kO _(A_@hd@O&O(hddg O$djñ³f¿O&_8¿O(_:¿kOkÙ _>¿kO kÙ _<¿O>O&Õ OO&Õ O.ÔmÿÔƒkÙ_$¿O$O8O>ÕÖO.×O>Ô_0O&Õ_* Dó•¿O$O:O<ÕÖO.×O<Ô_2O(Õ_, Dó´ ¿hddOhdddggnÿÿ ¿O@hdODdhddg ¿O@hdODO*ÔDO,Ôhddg ¿Ohd@O&DÕO(DÕhddg ¿O&O*Ô_&¿O(O,Ô_(¿B ¿±þÅ(653 DISMISS 630 BKBITBLT 602 BKBITBLT 573 BKBITBLT 550 BKBITBLT 521 SHOULDNT 512 ABS 485 SHOULDNT 477 ABS 439 ABS 403 ABS 393 ABS 380 RAND 367 RAND 339 BKBITBLT 312 RAND 302 RAND 288 SQRT 243 BITMAPHEIGHT 221 BITMAPWIDTH 196 IDLE.BITMAP 189 PUTPROP 184 BITMAPCREATE 173 READBRUSHFILE 159 GETPROP 105 BITMAPCREATE 85 DSPCLIPPINGREGION 20 CREATEW) (624 INVERT 596 INVERT 567 INVERT 541 ERASE 536 TEXTURE 333 INVERT 167 BITMAP 154 BITMAP 6 IDLE.BOUNCING.BOX) () (PRETTYCOMPRINT READBRUSHCOMS) (RPAQQ READBRUSHCOMS ((FNS CHOOSE.IDLE.BITMAP READBRUSHFILE READBRUSH READROOTPICTURE IDLE.GLIDING.BOX ) (FILES BITMAPFNS) (ADDVARS (IDLE.FUNCTIONS ("Gliding box" (QUOTE IDLE.GLIDING.BOX) "moves images around on the screen" (SUBITEMS ("Pick image from MesaHacks" (PROGN (CHOOSE.IDLE.BITMAP) (QUOTE IDLE.GLIDING.BOX))))))) (INITVARS (IDLE.BITMAP) (BRUSHMENU) (ROOTPICTUREMENU) (BRUSHDIRECTORY "{goofy:osbu north:xerox}data>brushes>")))) (FILESLOAD BITMAPFNS) (ADDTOVAR IDLE.FUNCTIONS ("Gliding box" (QUOTE IDLE.GLIDING.BOX) "moves images around on the screen" ( SUBITEMS ("Pick image from MesaHacks" (PROGN (CHOOSE.IDLE.BITMAP) (QUOTE IDLE.GLIDING.BOX)))))) (RPAQ? IDLE.BITMAP) (RPAQ? BRUSHMENU) (RPAQ? ROOTPICTUREMENU) (RPAQ? BRUSHDIRECTORY "{goofy:osbu north:xerox}data>brushes>") (PUTPROPS READBRUSH COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1988 1992)) NIL