(FILECREATED "26-Mar-84 21:45:08" ("compiled on " {PHYLUM}<3-LISP>COURSE>SIMPLEG.;1) "15-Mar-84 00:01:01" tcompl'd in WORK dated "26-Mar-84 04:54:39") (FILECREATED "26-Mar-84 21:44:40" {PHYLUM}<3-LISP>COURSE>SIMPLEG.;1 15562 changes to: (VARS SIMPLEGCOMS t1 t2 t3 t4 t5 t6 t7 t8 TURTLE TurtleArrow) (RECORDS LINE TURTLE) (FNS CENTER CLEARWINDOW ComputeTurtleArrayIndex CreateTurtleRecord DrawT DrawTurtle EraseTurtle FORWARD JUMP POINT PRETTY0 PRETTY1 PRETTY2 PRETTY3 SetUpTurtleArray TRITRI TURN CCurve CCurve1) (ADVICE CLEARW) previous date: "10-Feb-84 08:51:31" {ROSEBOWL}COURSE>LISP>SIMPLEG.;9) CENTER D1 (F 0 TURTLE) ;PhP É lëPhP É lëPj(70Q DrawTurtle 52Q DSPCLIPPINGREGION 45Q \INSUREWINDOW 22Q DSPCLIPPINGREGION 15Q \INSUREWINDOW 2 EraseTurtle) NIL () CLEARWINDOW D1 (F 0 TURTLE) P Pdnh (23Q REMAINDER 12Q CLEARW 2 EraseTurtle) NIL () ComputeTurtleArrayIndex D1 (F 0 TURTLE) $jPóšPdnhè¿°òPoÔnh l-ÛkØ(34Q REMAINDER) NIL ( 25Q 22.5) CreateTurtleRecord D1 (F 0 TurtleWindow F 1 TURTLE) jddPihcNIL NIL () DrawT D1 NIL Ul2 lZg l2 lZg l2 lZg l} lZg l2 lZg l2 lZg l2 (122Q FORWARD 115Q TURN 105Q FORWARD 100Q TURN 70Q FORWARD 63Q TURN 53Q FORWARD 46Q TURN 36Q FORWARD 31Q TURN 21Q FORWARD 14Q TURN 4 FORWARD) (112Q RIGHT 75Q LEFT 60Q LEFT 43Q LEFT 26Q LEFT 11Q RIGHT) () DrawTurtle D1 (F 0 TURTLE F 1 TurtleArray) 4P´,PhQ(hdPPl ÕPl Õhddg (61Q BKBITBLT 22Q ComputeTurtleArrayIndex) (55Q INVERT) () EraseTurtle D1 (F 0 TURTLE F 1 TurtleArray) 6P³-PiQ(hdPPl ÕPl Õhddg h(61Q BKBITBLT 22Q ComputeTurtleArrayIndex) (55Q INVERT) () FORWARD D1 (P 1 nexty P 0 nextx I 1 LINEWIDTH I 0 DISTANCE F 2 TURTLE) E R@R êèXR@R êèYRRHIAµkhR RHRIh(101Q DrawTurtle 65Q DRAWLINE 36Q EraseTurtle 30Q SIN 13Q COS) NIL () JUMP D1 (P 1 nexty P 0 nextx I 0 DISTANCE F 2 TURTLE) . R@R êèXR@R êèYRHRIh(52Q DrawTurtle 33Q SIN 16Q COS 5 EraseTurtle) NIL () POINT D1 (I 0 THETA F 0 TURTLE) P@(10Q DrawTurtle 2 EraseTurtle) NIL () PRETTY0 D1 (P 1 i) l kIHñ‘hl2 ¿l² ¿IkØY°ë(26Q TURN 20Q FORWARD) NIL () PRETTY1 D1 (P 1 i) )lZ l kIHñ‘h¿¿l ¿IkØY°é(40Q TURN 32Q DrawT 26Q DrawT 7 POINT 2 CENTER) NIL () PRETTY2 D1 (P 1 i) DlZ l kIHñ³¿l ¿¿IkØY°êlKkIHñ‘hl ¿IkØY°ñ(73Q JUMP 42Q DrawT 36Q TURN 30Q DrawT 12Q POINT 5 CENTER 2 CLEARWINDOW) NIL () PRETTY3 D1 (P 1 i) $j lkIHñ‘h¿l ¿IkØY°í(33Q JUMP 25Q PRETTY0 6 POINT 2 CENTER) NIL () SetUpTurtleArray D1 (F 0 TurtleArray F 1 t1 F 2 t2 F 3 t6 F 4 t3 F 5 t7 F 6 t4 F 7 t5 F 10Q t8) 5 lg cdlQ*PlR*PkT*PlV*PlW*PlS*PlU*PlW*(7 ARRAY) (4 POINTER) () TRITRI D1 (I 0 SIDE) Hld lxg l lxg ld lxg l lxg ld lxg l (105Q FORWARD 100Q TURN 70Q FORWARD 63Q TURN 53Q FORWARD 46Q TURN 36Q FORWARD 31Q TURN 21Q FORWARD 14Q TURN 4 FORWARD) (75Q RIGHT 60Q LEFT 43Q RIGHT 26Q LEFT 11Q RIGHT) () TURN D1 (I 1 DIRECTION I 0 THETA F 0 TURTLE) >PA•Agð”P@èƒP@éjPó˜PdnhØ¿PnhóšPdnh ¿g(70Q DrawTurtle 63Q REMAINDER 2 EraseTurtle) (73Q DrawArrow 11Q LEFT) () CCurve D1 (I 3 ds I 2 minlen I 1 angle I 0 len F 0 minLen) Bc@AC (10Q CCurve1) NIL () CCurve1 D1 (I 2 ds I 1 angle I 0 len F 0 minLen) 5P@ó˜A @ @o ëAl-èB @o ëAl-éb¿b¿¿°Î(45Q SQRT 35Q CCurve1 24Q SQRT 13Q FORWARD 7 POINT) NIL ( 42Q 2.0 21Q 2.0) (PRETTYCOMPRINT SIMPLEGCOMS) (RPAQQ SIMPLEGCOMS ((FNS CENTER CLEARWINDOW ComputeTurtleArrayIndex CreateTurtleRecord DrawT DrawTurtle EraseTurtle FORWARD JUMP POINT PRETTY0 PRETTY1 PRETTY2 PRETTY3 SetUpTurtleArray TRITRI TURN ) (FNS CCurve CCurve1) (RECORDS LINE TURTLE) (BITMAPS t1 t2 t3 t4 t5 t6 t7 t8) (VARS TURTLE TurtleArrow t1 t2 t3 t4 t5 t6 t7 t8 (TurtleArrow (QUOTE (((0 0 0) (10 0 0)) ((7 4 0) (10 0 0)) ((7 -4 0) (10 0 0)))))) (ADVISE CLEARW) (P (SETQ TurtleWindow (CREATEW (CREATEREGION 300 25 700 700) " ------ Turtle Graphics Window ------ " 10)) (* This sets up the bit maps for each of the 8 turtles) (SetUpTurtleArray) (CreateTurtleRecord) (CENTER) (CLOSEW TurtleWindow)))) (RECORD LINE ((X1 Y1 Z1) (X2 Y2 Z2))) (RECORD TURTLE (HEADING CURRENTX CURRENTY WINDOW ERASED?)) (RPAQ t1 (READBITMAP)) (25 25 "@@AL@@@@" "@@CF@@@@" "@@BB@@@@" "AHCF@L@@" "BDADAB@@" "BDALAB@@" "BBCFFB@@" "CJNCML@@" "@OHHF@@@" "@FALC@@@" "@BCNA@@@" "@DBJA@@@" "@D@HA@@@" "@D@HA@@@" "@B@HB@@@" "@C@HB@@@" "@GHHGH@@" "@DL@NL@@" "@IGOBF@@" "CB@HBB@@" "BD@LAB@@" "BD@D@J@@" "GL@L@L@@" "@@C@@@@@" "@@B@@@@@") (RPAQ t2 (READBITMAP)) (25 25 "@@AOHG@@" "@@@HHLH@" "@@@IHHH@" "@@COFCH@" "@AL@CN@@" "@C@@AH@@" "@F@GHH@@" "@D@AHL@@" "@D@CHD@@" "NL@FHD@@" "KH@LHD@@" "HHAH@GH@" "HHC@@HH@" "KHB@@HH@" "LH@@AOH@" "@H@@AAH@" "@L@@CCH@" "@O@@FC@@" "HIN@L@@@" "OHGO@@@@" "@@DD@@@@" "@ALL@@@@" "@A@H@@@@" "@A@H@@@@" "@AOH@@@@") (RPAQ t3 (READBITMAP)) (25 25 "@@@@@@@@" "AN@@A@@@" "AC@@AH@@" "CA@@AD@@" "AMANCD@@" "@DNALL@@" "@GH@G@@@" "@A@@A@@@" "@B@@@H@@" "@F@@LKH@" "@D@@FFH@" "ILCOODH@" "JH@@FGH@" "FL@@LL@@" "@D@@@H@@" "@B@@AH@@" "@GH@AL@@" "@EN@ND@@" "AMAOCD@@" "CA@@AD@@" "CI@@AD@@" "@N@@CH@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") (RPAQ t4 (READBITMAP)) (25 25 "F@AO@@@@" "I@AC@@@@" "AHAB@@@@" "@HCF@@@@" "@HGL@@@@" "@OHF@@@@" "@D@C@@@@" "@L@AHC@@" "NHD@LCH@" "K@F@FBH@" "I@C@CLH@" "K@A@A@H@" "M@AHAAH@" "@H@M@O@@" "@H@E@H@@" "@D@G@H@@" "@CAO@H@@" "@A@@AH@@" "@AL@A@@@" "@@F@NJ@@" "@DEOIG@@" "@GLHAAH@" "@CAHA@H@" "@AO@@IH@" "@@F@@G@@") (RPAQ t5 (READBITMAP)) (25 25 "@@AL@@@@" "AN@D@O@@" "BB@DAA@@" "BCAHAB@@" "AONGNN@@" "@AH@M@@@" "@A@HG@@@" "@C@HC@@@" "@B@HA@@@" "@B@HA@@@" "@B@HA@@@" "@B@HA@@@" "FB@HA@@@" "GABJC@@@" "EICNBC@@" "DGALGO@@" "DAALDA@@" "C@LHNB@@" "AKNCIN@@" "@NCN@@@@" "@@AB@@@@" "@@BA@@@@" "@@BM@@@@" "@@CC@@@@" "@@AN@@@@") (RPAQ t6 (READBITMAP)) (25 25 "@@CL@D@@" "@@DB@B@@" "@@DD@B@@" "@@FD@B@@" "D@COMN@@" "L@N@F@@@" "LAH@C@@@" "LF@@A@@@" "JL@AI@@@" "IH@CA@@@" "O@@FA@@@" "C@HLAO@@" "A@IHA@H@" "A@K@CHH@" "B@N@BDH@" "B@OHFDH@" "A@@@DC@@" "@L@AH@@@" "CB@C@@@@" "NCHN@@@@" "HFOLB@@@" "HDAKN@@@" "HD@HD@@@" "LL@HL@@@" "G@@G@@@@") (RPAQ t7 (READBITMAP)) (25 25 "@GL@@F@@" "@LH@AI@@" "@HH@AA@@" "@HH@AA@@" "@LOOMG@@" "@GL@CD@@" "@G@@AL@@" "@D@@@H@@" "FHF@@D@@" "JHL@@DH@" "IIOONFH@" "HHL@@EH@" "KHF@@D@@" "FH@@@H@@" "@L@@@H@@" "@N@@AH@@" "@ON@CL@@" "@HKONJ@@" "@I@@AC@@" "@HH@BAH@" "@LL@A@H@" "@FD@AM@@" "@CN@@B@@" "@@@@@@@@" "@@@@@@@@") (RPAQ t8 (READBITMAP)) (25 25 "GHAOH@@@" "HLACH@@@" "HDON@@@@" "LGJG@@@@" "DL@AL@@@" "CH@@F@@@" "AAOHCAH@" "CAL@AAH@" "BAF@@KH@" "FAC@@NH@" "GAAH@DH@" "I@@L@DH@" "IH@F@FH@" "IL@C@EH@" "FD@AHH@@" "FF@@@H@@" "BC@@@H@@" "@AL@A@@@" "@@G@CN@@" "@@MOOK@@" "@AA@@A@@" "@AA@@@H@" "@AHH@@H@" "@@HH@A@@" "@@GH@@@@") (RPAQQ TURTLE (180.0 340.0 435.5 {WINDOW}#13,20454 NIL)) (RPAQQ TurtleArrow (((0 0 0) (10 0 0)) ((7 4 0) (10 0 0)) ((7 -4 0) (10 0 0)))) (RPAQ t1 (READBITMAP)) (25 25 "@@AL@@@@" "@@CF@@@@" "@@BB@@@@" "AHCF@L@@" "BDADAB@@" "BDALAB@@" "BBCFFB@@" "CJNCML@@" "@OHHF@@@" "@FALC@@@" "@BCNA@@@" "@DBJA@@@" "@D@HA@@@" "@D@HA@@@" "@B@HB@@@" "@C@HB@@@" "@GHHGH@@" "@DL@NL@@" "@IGOBF@@" "CB@HBB@@" "BD@LAB@@" "BD@D@J@@" "GL@L@L@@" "@@C@@@@@" "@@B@@@@@") (RPAQ t2 (READBITMAP)) (25 25 "@@AOHG@@" "@@@HHLH@" "@@@IHHH@" "@@COFCH@" "@AL@CN@@" "@C@@AH@@" "@F@GHH@@" "@D@AHL@@" "@D@CHD@@" "NL@FHD@@" "KH@LHD@@" "HHAH@GH@" "HHC@@HH@" "KHB@@HH@" "LH@@AOH@" "@H@@AAH@" "@L@@CCH@" "@O@@FC@@" "HIN@L@@@" "OHGO@@@@" "@@DD@@@@" "@ALL@@@@" "@A@H@@@@" "@A@H@@@@" "@AOH@@@@") (RPAQ t3 (READBITMAP)) (25 25 "@@@@@@@@" "AN@@A@@@" "AC@@AH@@" "CA@@AD@@" "AMANCD@@" "@DNALL@@" "@GH@G@@@" "@A@@A@@@" "@B@@@H@@" "@F@@LKH@" "@D@@FFH@" "ILCOODH@" "JH@@FGH@" "FL@@LL@@" "@D@@@H@@" "@B@@AH@@" "@GH@AL@@" "@EN@ND@@" "AMAOCD@@" "CA@@AD@@" "CI@@AD@@" "@N@@CH@@" "@@@@@@@@" "@@@@@@@@" "@@@@@@@@") (RPAQ t4 (READBITMAP)) (25 25 "F@AO@@@@" "I@AC@@@@" "AHAB@@@@" "@HCF@@@@" "@HGL@@@@" "@OHF@@@@" "@D@C@@@@" "@L@AHC@@" "NHD@LCH@" "K@F@FBH@" "I@C@CLH@" "K@A@A@H@" "M@AHAAH@" "@H@M@O@@" "@H@E@H@@" "@D@G@H@@" "@CAO@H@@" "@A@@AH@@" "@AL@A@@@" "@@F@NJ@@" "@DEOIG@@" "@GLHAAH@" "@CAHA@H@" "@AO@@IH@" "@@F@@G@@") (RPAQ t5 (READBITMAP)) (25 25 "@@AL@@@@" "AN@D@O@@" "BB@DAA@@" "BCAHAB@@" "AONGNN@@" "@AH@M@@@" "@A@HG@@@" "@C@HC@@@" "@B@HA@@@" "@B@HA@@@" "@B@HA@@@" "@B@HA@@@" "FB@HA@@@" "GABJC@@@" "EICNBC@@" "DGALGO@@" "DAALDA@@" "C@LHNB@@" "AKNCIN@@" "@NCN@@@@" "@@AB@@@@" "@@BA@@@@" "@@BM@@@@" "@@CC@@@@" "@@AN@@@@") (RPAQ t6 (READBITMAP)) (25 25 "@@CL@D@@" "@@DB@B@@" "@@DD@B@@" "@@FD@B@@" "D@COMN@@" "L@N@F@@@" "LAH@C@@@" "LF@@A@@@" "JL@AI@@@" "IH@CA@@@" "O@@FA@@@" "C@HLAO@@" "A@IHA@H@" "A@K@CHH@" "B@N@BDH@" "B@OHFDH@" "A@@@DC@@" "@L@AH@@@" "CB@C@@@@" "NCHN@@@@" "HFOLB@@@" "HDAKN@@@" "HD@HD@@@" "LL@HL@@@" "G@@G@@@@") (RPAQ t7 (READBITMAP)) (25 25 "@GL@@F@@" "@LH@AI@@" "@HH@AA@@" "@HH@AA@@" "@LOOMG@@" "@GL@CD@@" "@G@@AL@@" "@D@@@H@@" "FHF@@D@@" "JHL@@DH@" "IIOONFH@" "HHL@@EH@" "KHF@@D@@" "FH@@@H@@" "@L@@@H@@" "@N@@AH@@" "@ON@CL@@" "@HKONJ@@" "@I@@AC@@" "@HH@BAH@" "@LL@A@H@" "@FD@AM@@" "@CN@@B@@" "@@@@@@@@" "@@@@@@@@") (RPAQ t8 (READBITMAP)) (25 25 "GHAOH@@@" "HLACH@@@" "HDON@@@@" "LGJG@@@@" "DL@AL@@@" "CH@@F@@@" "AAOHCAH@" "CAL@AAH@" "BAF@@KH@" "FAC@@NH@" "GAAH@DH@" "I@@L@DH@" "IH@F@FH@" "IL@C@EH@" "FD@AHH@@" "FF@@@H@@" "BC@@@H@@" "@AL@A@@@" "@@G@CN@@" "@@MOOK@@" "@AA@@A@@" "@AA@@@H@" "@AHH@@H@" "@@HH@A@@" "@@GH@@@@") (RPAQQ TurtleArrow (((0 0 0) (10 0 0)) ((7 4 0) (10 0 0)) ((7 -4 0) (10 0 0)))) (PUTPROPS CLEARW READVICE (NIL (BEFORE NIL (COND ((EQ TurtleWindow WINDOW) (EraseTurtle)))) (AFTER NIL (COND ((EQ WINDOW TurtleWindow) (DrawTurtle)))))) (READVISE CLEARW) (SETQ TurtleWindow (CREATEW (CREATEREGION 300 25 700 700) " ------ Turtle Graphics Window ------ " 10)) (SetUpTurtleArray) (CreateTurtleRecord) (CENTER) (CLOSEW TurtleWindow) NIL