(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Aug-2022 08:54:18" ("compiled on " {DSK}larry>medley>lispusers>PAC-MAN-IDLE.;2) "23-Aug-2022 23:38:05" bcompl'd in "FULL 23-Aug-2022 ..." dated "23-Aug-2022 23:38:07") (FILECREATED "24-Aug-2022 08:54:17" {DSK}larry>medley>lispusers>PAC-MAN-IDLE.;2 17389 :CHANGES-TO (FNS Pac-Man-Eat-Window Pac-Man-Scout-Food) :PREVIOUS-DATE "30-Jun-86 18:01:00" {DSK}larry>medley>lispusers>PAC-MAN-IDLE.;1) Pac-Man-Eat-WindowA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 39 pair P 19 y P 18 x P 17 possibleDeltas P 16 stepsWithoutFood P 15 maxAcceleration P 14 maxSpeed P 13 ySpeed P 12 xSpeed P 11 delta P 10 horizon P 9 delayTimer P 8 icon P 7 maximumSpeed P 6 minimumSpeed P 5 maxY P 4 maxX P 3 minY P 2 minX I 0 SI::*CLEANUP-FORMS* F 40 window)  (j` lj` lWPg ` lWPg ` loooHd` iHoHdl liH` ` IdHH`lHlHjojdl ` ` IdHH` ` IdHHj@#@'o-d_NOONjOONj_HOJ OHh_LOH&_JOL_"jk dj.WPg jk _$jWPg /k.jWPg _$WPg jk _&OOl `_WPO$O&`O"Oo_*dGl` l` l _(jfO(Yl` iO* _O d`3JO$LO$ _KO&MO& _j_ y jk_ jOO _JO$LO$_,OdO,O,_0_.O0O.O0_jOO _KO&MO&_2OdO2O2_6_4O6O4O6_OO_O `hdWPO$O&hdgg JLO$NO O_:_8O:dO8O8_>_Oj_$KMO&NO O_B_@OBdO@O@_F_DOFODOFj_&WPO$O&Ohdddgg `hdOhdddgg `hdOhdddgg OhdWPO$O&hdgg (1028 BKBITBLT 999 BKBITBLT 969 BKBITBLT 939 BKBITBLT 871 RAND 819 RAND 806 BKBITBLT 773 TIMEREXPIRED? 765 BLOCK 711 RAND 659 RAND 638 \FZEROP 624 RAND 608 RAND 577 Pac-Man-Scout-Food 564 BITMAPCREATE 559 BITMAPHEIGHT 534 REMAINDER 527 BITMAPWIDTH 513 BITMAPWIDTH 466 \CLOCK0 443 RAND 436 GETWINDOWPROP 421 RAND 416 GETWINDOWPROP 397 RAND 392 GETWINDOWPROP 375 RAND 368 GETWINDOWPROP 350 RAND 263 BITMAPHEIGHT 253 BITMAPWIDTH 231 BITMAPHEIGHT 221 BITMAPWIDTH 170 BITMAPHEIGHT 160 BITMAPWIDTH 140 \CLOCK0 113 BITMAPCOPY 77 BITMAPHEIGHT 67 GETWINDOWPROP 51 BITMAPWIDTH 41 GETWINDOWPROP 25 BITMAPHEIGHT 10 BITMAPWIDTH) (1022 REPLACE 1017 INPUT 993 PAINT 988 INPUT 975 pacManIcon 963 ERASE 958 INPUT 945 pacManMask 933 REPLACE 928 INPUT 800 ERASE 795 INPUT 780 pacManEatMask 591 pacManStarvationTime 554 pacManMask 522 pacManMask 508 pacManMask 486 pacManEatMask 471 Pac-Man-Delay 454 FIXP 431 WIDTH 411 WIDTH 387 HEIGHT 363 WIDTH 258 pacManIcon 248 pacManIcon 226 pacManIcon 216 pacManIcon 186 pacManHorizonFactor 165 pacManIcon 155 pacManIcon 108 pacManIcon 72 pacManIcon 62 HEIGHT 46 pacManIcon 36 WIDTH 20 pacManIcon 5 pacManIcon) ( 495 (CONS NIL NIL) 289 ((0 . -1) (-1 . 0) (1 . 0) (0 . 1) (0.707 . 0.707) (-0.707 . 0.707) (0.707 . -0.707) (-0.707 . -0.707)) 207 (0 . 0) 125 (CONS NIL NIL) 96 (CONS NIL NIL) 91 1.0 86 0.2) Pac-Man-Eat-Window :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 window F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 Pac-Man-Eat-WindowA0001) (8 SI::RESETUNWIND) () Pac-Man-Idle :D8 (I 0 window) '@ hd@hdddgg @ (36 Pac-Man-Eat-Window 30 BKBITBLT 5 \INSUREWINDOW) (24 REPLACE 19 INVERT) () Pac-Man-Scout-Food :D8 (P 15 mostFoodDirections P 14 amountOfFood P 13 yoffset P 12 xoffset P 11 offsetPair P 10 mostFood P 8 x P 2 direction P 1 i I 6 tempBitMap I 5 prevDelta I 4 possibleDeltas I 3 mask I 2 y I 1 x I 0 window) lk2IH]0D!dIOIONMh_M&OjRO5Oj,OOkO ZJ h__O_hddFhdddggj @OAOBFhdddgg ChdFhdddgg hddFhdddggn CjOjOjOjOFjOջjKjKjOռjLjLhdgg hddFhdddggn F _OOOO OOO_Oh_O_IkY(352 EQP 333 Pac-Man-Amount-Of-Food 326 BKBITBLT 298 BKBITBLT 235 BKBITBLT 207 BKBITBLT 182 BKBITBLT 151 BKBITBLT 108 \FZEROP 94 NTH 89 RAND 84 LENGTH) (317 INVERT 312 TEXTURE 292 PAINT 287 INPUT 226 INVERT 221 TEXTURE 201 ERASE 196 INVERT 176 REPLACE 171 INPUT 144 REPLACE 139 TEXTURE) () Pac-Man-Amount-Of-Food :D8 (P 2 bitmapBase P 1 j I 0 bitMap) L@ @ lj@jIHKK`JI`JIlԻIkY(11 BITMAPWIDTH 5 BITMAPHEIGHT) (54 Pac-Man-Convert-Byte-Array 40 Pac-Man-Convert-Byte-Array 22 BITMAP) () Slow-Fade :D8 (P 6 selectedTexture P 5 fadeTextures P 1 i I 0 window) @ hd@hdddgg lj2IH*JM=` `g@kHkI K Lh[IkYL&` kjl hdd@hdddggN NM ](167 DREMOVE 159 BKBITBLT 133 LLSH 128 RAND 118 BLOCK 88 LLSH 60 BLOCK 30 BKBITBLT 5 \INSUREWINDOW) (152 ERASE 147 TEXTURE 113 Slow-Fade-Delay 72 IDLE.BOUNCING.BOX 65 Default-Slow-Fade-Idle-Function 55 Slow-Fade-Delay 24 REPLACE 19 INVERT) () (PRETTYCOMPRINT PAC-MAN-IDLECOMS) (RPAQQ PAC-MAN-IDLECOMS ((* * The Pac-Man idle function) (FNS Pac-Man-Eat-Window Pac-Man-Idle) (VARS DefaultPacManEatMask DefaultPacManIcon DefaultPacManMask) (INITVARS (Pac-Man-Delay 100) ( pacManHorizonFactor 0.75) (pacManStarvationTime 75) (pacManEatMask DefaultPacManEatMask) (pacManIcon DefaultPacManIcon) (pacManMask DefaultPacManMask)) (GLOBALVARS Pac-Man-Delay pacManHorizonFactor pacManStarvationTime pacManEatMask pacManIcon pacManMask) (FNS Pac-Man-Scout-Food) (* * Stuff for counting the bits on in a bitmap) (FNS Pac-Man-Amount-Of-Food) (MACROS Pac-Man-Convert-Word) (VARS ( Pac-Man-Convert-Byte-Array (\ALLOCBLOCK 256 T))) (GLOBALVARS Pac-Man-Convert-Byte-Array) (P (for i from 0 to 255 do (\PUTBASE Pac-Man-Convert-Byte-Array i (bind (j _ i) while (NOT (ZEROP j)) count ( SETQ j (LOGAND j (SUB1 j))))))) (* * Another idle function) (FNS Slow-Fade) (INITVARS (Slow-Fade-Delay 1000) (Default-Slow-Fade-Idle-Function (LISTGET IDLE.PROFILE (QUOTE DISPLAYFN)))) (GLOBALVARS Slow-Fade-Delay Default-Slow-Fade-Idle-Function) (* * Add them as idle functions) (ADDVARS ( IDLE.FUNCTIONS ("Pac-man" (QUOTE Pac-Man-Idle)) ("Slow fade" (QUOTE Slow-Fade)))))) (RPAQQ DefaultPacManEatMask #*(27 27)@@AO@@@@@@GOL@@@@AOOO@@@@GOOOL@@@OOOON@@AOOOOO@@AOOOOO@@COOOOOH@COOOOOH@GOOOOOL@GOOOOOL@OOOOOON@OOOOOON@OOOOOON@OOOOOON@OOOOOON@GOOOOOL@GOOOOOL@COOOOOH@COOOOOH@AOOOOO@@AOOOOO@@@OOOON@@@GOOOL@@@AOOO@@@@@GOL@@@@@AO@@@@ ) (RPAQQ DefaultPacManIcon #*(27 27)@@AE@@@@@@EED@@@@@JJJ@@@@BJJJH@@@EEEED@@AEEGME@@@JJONJ@@BJJONJH@AEEEEE@@EEEEEED@BJJJJJH@JJJJJJJ@EEEEEED@EEEEEED@JJJH@@@@JJJJ@@@@EEEE@@@@EEEE@@@@BJJJH@@@BJJJJ@@@AEEEE@@@AEEEE@@@@JJJJH@@@BJJJH@@@AEEE@@@@@EED@@@@@@J@@@@ ) (RPAQQ DefaultPacManMask #*(27 27)@@AO@@@@@@GOL@@@@AOOO@@@@GOOOL@@@OOOON@@AOOOOO@@AOOOOO@@COOOOOH@COOOOOH@GOOOOOL@GOOOOOL@OOOOOON@OOOOOON@OOOOOON@OOOL@@@@OOON@@@@GOOO@@@@GOOOH@@@COOOL@@@COOON@@@AOOOO@@@AOOOOH@@@OOOOL@@@GOOOL@@@AOOO@@@@@GOL@@@@@AO@@@@ ) (RPAQ? Pac-Man-Delay 100) (RPAQ? pacManHorizonFactor 0.75) (RPAQ? pacManStarvationTime 75) (RPAQ? pacManEatMask DefaultPacManEatMask) (RPAQ? pacManIcon DefaultPacManIcon) (RPAQ? pacManMask DefaultPacManMask) (PROGN (DEFMACRO Pac-Man-Convert-Word (word) (* * Count up the number of bits on in the word) (BQUOTE (PLUS (\GETBASE Pac-Man-Convert-Byte-Array (LRSH %, word 8)) (\GETBASE Pac-Man-Convert-Byte-Array ( LOGAND %, word 255))))) NIL) (RPAQ Pac-Man-Convert-Byte-Array (\ALLOCBLOCK 256 T)) (for i from 0 to 255 do (\PUTBASE Pac-Man-Convert-Byte-Array i (bind (j _ i) while (NOT (ZEROP j)) count (SETQ j (LOGAND j (SUB1 j)))))) (RPAQ? Slow-Fade-Delay 1000) (RPAQ? Default-Slow-Fade-Idle-Function (LISTGET IDLE.PROFILE (QUOTE DISPLAYFN))) (ADDTOVAR IDLE.FUNCTIONS ("Pac-man" (QUOTE Pac-Man-Idle)) ("Slow fade" (QUOTE Slow-Fade))) (PUTPROPS PAC-MAN-IDLE COPYRIGHT ("Xerox Corporation" 1986)) NIL