(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "28-Sep-2022 19:53:38" ("compiled on " {DSK}larry>medley>lispusers>IDLEHAX.;2) "27-Sep-2022 10:11:32" brecompiled changes%: IDLE-SWAP in "Welcome to Fuller sysout 27-Sep-2022 ..." dated "27-Sep-2022 10:16:30") (FILECREATED "28-Sep-2022 19:53:38" {DSK}larry>medley>lispusers>IDLEHAX.;2 31965 :CHANGES-TO ( FNS IDLE-SWAP) :PREVIOUS-DATE "23-Aug-2022 08:50:16" {DSK}larry>medley>lispusers>IDLEHAX.;1) POLYGONSDEMO :D8 (F 0 POLYGONSWINDOW) #Po cil n' (32 POLYGONS 23 \CLOCK0 12 CREATEW) NIL ( 7 (200 150 600 500)) POLYGONS :D8 (P 3 I P 1 NPOINTS P 0 OP I 0 W F 7 POLYGONMINPTS F 8 POLYGONMAXPTS F 9 POLYGONSTEPS F 10 POLYGONWAIT) @ bggWW Yk2KJ@ M Nh]Kk[N&LIk2KJ@ M Nh]Kk[N&LW@H W (130 DISMISS 122 CONNECTPOLYS 90 RANDOMPT 52 RANDOMPT 36 RAND 12 VIDEOCOLOR 5 DEMOWINDOW) (24 ERASE 18 PAINT) () CONNECTPOLYS :D8 (P 25 DIF P 24 PT P 21 I P 19 \INTERRUPTABLE P 18 \INTERRUPTABLE P 17 DY P 16 DX P 15 TPT P 14 FPT P 0 DIFFS I 4 OPERATION I 3 W I 2 NSTEPS I 1 TOS I 0 FROMS F 26 POLYGONSTEPS F 27 POLYGONWAIT2 F 28 POLYGONWAIT3) <C @lCD A@rO_O!OXAlCD A@"OԱ_OW4_ OOW4_"OOW4O غIdnJnIjkJOOW4O"ؼKdnLnKlkLO O"_OOh__O_O_O&__O!C W4kO*O(V@kCD h_OOOOkDC W6 O_O_W8 @kCD H@"O._0O, O*k_*z_2O0O0O2ԾMdnNnMjkNO0O0O2__OdnOnOlkOO._.O,_,d(405 LINES2 395 DISMISS 372 DISMISS 364 DRAWLINE 313 LINES2 291 CLEARW 52 LINES2 18 LINES2 8 CLEARW) (507 NPOINT 500 NPOINT 454 NPOINT 447 NPOINT 353 NPOINT 344 NPOINT 335 NPOINT 326 NPOINT 189 NPOINT 182 NPOINT 134 NPOINT 127 NPOINT 111 NPOINT 102 NPOINT 86 NPOINT 77 NPOINT) () DRAWPOLY1 :D8 (P 0 PTS I 4 NOBLOCK I 3 W I 2 OPERATION I 1 WIDTH I 0 PTLIST) @FBhC b@Hd:HH@@ABC D<HHHABC HX(136 BLOCK 125 DRAWLINE 78 ALLOW.BUTTON.EVENTS 69 DRAWLINE 11 DSPOPERATION) (114 NPOINT 104 NPOINT 94 NPOINT 85 NPOINT 58 NPOINT 49 NPOINT 40 NPOINT 31 NPOINT) () RANDOMPT :D8 (P 5 \INTERRUPTABLE P 0 REG I 0 DS) zh@ A`HHHm YIdnJnIjkJHHHm [KdnLnKlkL(85 RAND 32 RAND 6 DSPCLIPPINGREGION) (14 |NPOINTTYPE#|) () KALDEMO :D8 (P 16 Y1 P 15 X1 P 14 Y0 P 13 X0 P 9 XOFFSET P 8 BLACK P 7 TIMER P 6 WINDOWSIDE P 5 YSTATEE P 4 YSTATEB P 3 XSTATEE P 2 XSTATEB I 2 PERSISTENCE I 1 PERIOD I 0 W) All bBkll b@ bkoll kAhhdddddkojl kAhhddddd@g @g IdHHlwjhG @g N_jOjl_J [L ]Bk__OOgJ L JLN@OO ldO Ok_jO J L JLN@OO ldO K M KnMn"OONkO_NkO_ @OOOO O|ky(328 KAL.ADVANCE 321 KAL.ADVANCE 314 BLOCK 304 KAL.SPOTS 287 KAL.ADVANCE 280 KAL.ADVANCE 272 KAL.BMS 254 BLOCK 244 KAL.SPOTS 227 KAL.ADVANCE 220 KAL.ADVANCE 198 COPY 191 COPY 169 GETWINDOWPROP 153 VIDEOCOLOR 126 GETWINDOWPROP 115 GETWINDOWPROP 85 RAND 52 RAND 35 DEMOWINDOW 25 RAND 10 RAND) (164 WIDTH 145 FIXP 121 WIDTH 110 HEIGHT) ( 77 -1809 43 -1849) KAL.ADVANCE :D8 (I 0 STATE) >@d@ @@k@j@@@ @@(46 KAL.ORAND 10 KAL.ORAND) NIL () KAL.SPOTS :D8 (P 4 C P 3 Y1 P 2 X1 P 1 Y0 P 0 X0 I 5 XOFFSET I 4 BLACK I 3 W I 2 WINDOWSIDE I 1 Y I 0 X) >@A2IH&BkHٺBkIٻ@kCHIJKDkLՀLE h(58 KAL.BMS) NIL () KAL.BMS :D8 (P 0 \INTERRUPTABLE I 6 XOFFSET I 5 C I 4 Y1 I 3 X1 I 2 Y0 I 1 X0 I 0 W) f@g `@ b@FABE@FBAE@FCBE@FBCE@FCDE@FDCE@FADE@FDAE(32 SCREENBITMAP 26 TOTOPW 13 GETWINDOWPROP) (18 WHOLESCREEN 8 REGION) () KAL.ORAND :D8 (P 0 BOX I 1 B I 0 A) oHj@ HAHnAn(15 \PUTBASEFIXP) NIL ( 4 (NCREATE (QUOTE FIXP))) BUBBLESA0001 :D8 (I 0 W) hjng@ (22 DSPFILL 5 VIDEOCOLOR) (16 REPLACE) () BUBBLES :D8 (P 2 CIRCLE P 1 I P 0 ARRAY I 0 W F 3 BUBBLECNT) @ bgg hjng@ Sg kIdSkkعHI gg@ JJJJhd@ HI@ g@ JJJkjn@ g@ JJJhd@ ld `(219 BLOCK 211 DRAWCIRCLE 192 DSPOPERATION 180 FILLCIRCLE 167 VIDEOCOLOR 150 DSPOPERATION 138 SETA 133 BUBBLE.CREATE 124 DRAWCIRCLE 102 DSPOPERATION 84 VIDEOCOLOR 78 ELT 56 ARRAY 45 DSPFILL 28 VIDEOCOLOR 22 PUTWINDOWPROP 5 DEMOWINDOW) (186 INVERT 144 REPLACE 96 PAINT 90 ERASE 51 POINTER 39 REPLACE 17 BUBBLESA0001 12 RESHAPEFN) () BUBBLE.CREATE :D8 (P 5 CENTERY P 4 CENTERX P 2 HEIGHT P 1 WIDTH P 0 REGION I 0 W) Y@ 1HkٹHkٺkIk kJk LMkILdLLJMٻdKKdMM h(82 RAND 46 RAND 34 RAND 5 \INSUREWINDOW) NIL () IDLE-WINDOWS :D8 (P 8 H0 P 7 D0 P 6 Y P 5 X P 4 TITLE P 1 H P 0 D I 1 DELAY I 0 W F 9 WBorder) L @ bdg @g "jdHji hohi jHldld jIlld ldHM ldJldJldIN ldKldKhdd@MNOlggn hdd@MNlOggn hdd@MOlNlOggn LhWdl@MNOOhdg hdd@MlNlOldOlggn An (326 BLOCK 313 BITBLT 269 BITBLT 238 BITBLT 202 BITBLT 172 BITBLT 130 RAND 110 RAND 97 RAND 84 RAND 64 \INSUREWINDOW 59 CREATEW 42 HEIGHTIFWINDOW 29 GETWINDOWPROP 18 GETWINDOWPROP 5 DEMOWINDOW) (304 ERASE 299 TEXTURE 263 REPLACE 229 REPLACE 224 TEXTURE 193 REPLACE 188 TEXTURE 163 REPLACE 158 TEXTURE 24 HEIGHT 13 WIDTH) ( 52 "Yet another window") LINESA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 40 \INTERRUPTABLE P 39 \INTERRUPTABLE P 38 D P 37 X P 34 \INTERRUPTABLE P 33 \INTERRUPTABLE P 32 FP P 31 TP P 25 X P 21 ODDP P 19 TIMER P 10 ODDSTART P 9 DXS P 8 TOPTS P 7 FROMPTS P 6 CNT P 5 LINES I 0 SI::*CLEANUP-FORMS* F 41 N F 42 W F 43 STEPS F 44 LINECNT F 45 SI::*RESETFORMS* F 46 LCNT F 47 ODDSTEP F 48 \RCLKMILLISECOND) )W\WRlWXWRk؁WXAk\HkIjgMhhdWZcZMd WRAk\HTI_lwjNdjNOOh_BO(CO,_OOR O6hoJ KhZLk԰K&WT J KhZLk԰K&_2W^O*h_*O2WT _0O.O0h_._,O(_(O0&_._>O4 O8_WV_@`O>O@WV__!OdnOnOjkOO>O@WV__"OdnOnOlkO_