(FILECREATED "24-Jan-87 17:04:25" ("compiled on " {PHYLUM}<3-LISP>COURSE>KOTO>SIMPLEG.;3) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "24-Jan-87 16:02:17" {PHYLUM}<3-LISP>COURSE>KOTO>SIMPLEG.;3 15977 changes to: (FNS POINT TURN CENTER CLEARWINDOW ComputeTurtleArrayIndex CreateTurtleRecord DrawT DrawTurtle EraseTurtle FORWARD JUMP PRETTY0 PRETTY1 PRETTY2 PRETTY3 SetUpTurtleArray TRITRI CCurve CCurve1) (VARS t1 t2 t3 t4 t5 t6 t7 t8 TURTLE) (ADVICE CLEARW) previous date: "14-Aug-84 00:57:06" {PHYLUM}<3-LISP>COURSE>KOTO>SIMPLEG.;1) CENTER D1 (F 0 TURTLE) 2PPg oëPPg oëPj(57Q DrawTurtle 43Q GETWINDOWPROP 17Q GETWINDOWPROP 2 EraseTurtle) (40Q HEIGHT 14Q WIDTH) ( 47Q 2.0 23Q 2.0) CLEARWINDOW D1 (F 0 TURTLE) P Pdnh (23Q REMAINDER 12Q CLEARW 2 EraseTurtle) NIL () ComputeTurtleArrayIndex D1 (F 0 TURTLE) %jPó›Pdoè¿°ñPoÔnh l-ÛkØ(35Q REMAINDER) NIL ( 26Q 22.5 13Q 360.0) 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 ANGLE 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 ANGLE F 0 TURTLE) ;PA•Agð”P@èƒP@éjPó˜PdnhØ¿PnhóšPdnh ¿(70Q DrawTurtle 63Q REMAINDER 2 EraseTurtle) (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) 9P@ó˜A @ @o ëAoèB @o ëAoéb¿b¿¿°Ê(47Q SQRT 37Q CCurve1 24Q SQRT 13Q FORWARD 7 POINT) NIL ( 55Q 45.0 44Q 2.0 32Q 45.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 (0 340.0 335.5 {WINDOW}#74,25554 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) (PUTPROPS SIMPLEG COPYRIGHT ("Xerox Corporation" 1984 1987)) NIL