ėNmw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]shapesÅ[12 grass]((Ŗ -AUdyŽ¢±ŗĆĢÕŽķö’,5I^q…”„øĮĪ׌éņū‘ž’@?”ž’“ž’@?‘ž’‘ž’@?“ž’ž’@?’’@?ž’@?ž’ž’@?ž’‚@?ž’@?ž’‘ž’@?’’@?ž’@?Žž’ž’‚@?„ž’@?ž’ž’@?ž’@?ž’@?Žž’ž’@?’’@?ž’@?ž’@?ž’ž’@?ž’‚@?ž’@?ž’ž’@?‚ž’‚@?ž’’ž’‚@?‘ž’“ž’‚@?ž’‘ž’@?“ž’‘ž’@?“ž’‘ž’@?”ž’ž’@?ž’@?’ž’‘ž’@?“ž’Žž’„@?“ž’ž’@?”ž’ž’ƒ@?’ž’’ž’@?’ž’§ž’ž’‚@?ž’@?‘ž’ž’„@?’ž’ž’@?ž’@?’’@?’ž’ˆž’@?ž’@?‚ž’‚@?“ž’Œž’@?‚ž’@?’’@?’ž’Šž’@?‚ž’ƒ@?’’@?’ž’Šž’@?„ž’„@?‘ž’Žž’@?ž’@?ž’@?“ž’Œž’@?„ž’@?ž’@?‘ž’ž’„@?”ž’ž’@?’’@?“ž’ž’‚@?“ž’§ž’ž’‚@?ž’ƒ@?‘ž’ž’‡@?ž’Žž’…@?’ž’ž’@?ž’@?“ž’Ą[23 fish]((¦ $3HcŠ±Ż 8i—Įå <i–Ēö(Lq–·Šåīńō÷śż§ž’§ž’§ž’§ž’ž’ˆž’‹ž’ˆ|ž’‹ž’Š|Žž’ž’…„ž’‰|ž’ž’„|…ž’ˆ|†‡ž’‚ž’„|…ž’…|æƒ~‚æ~…ž’‚ž’…|„ž’ƒ|ƒæ‚~ƒæ~„ž’ƒž’„|ƒž’|~ƒæ‚~‚æ‚~惞’ƒž’…|ƒž’|‚~ƒæ‚~ƒ~æ‚ž’„ž’„|ƒž’‚~‚æ‚~ƒ~~‚恞’„ž’„|ž’æ‚~‚æ~…~‚æ~ž’„ž’„|‚~‚æ‚~‚æ~…~‚æ~ž’„ž’…|‚~‚æ‚~‚æ~…~‚æ~„ž’…|‚~‚æ‚~‚æ~‡‚æ~„ž’…|‚~‚æ‚~‚æ‚~‚惂æ~„ž’„|~‚æ‚~‚æ‚~‚æ~~‚æ~„ž’„|ž’~‚æ‚~‚æ‚~‚æƒ~‚æ~„ž’„|ž’æƒ~‚æ‚~‚æƒ~‚æ~„ž’„|‚ž’æ‚~‚æƒ~æ‚~‚æ~ž’„ž’ƒ|„ž’‚~‚æƒ~æ‚~‚æ~ž’„ž’ƒ|„ž’|~æ‚~‚恁~æ‚ž’ƒž’ƒ|…ž’‚|‚|~ˆ„ž’ƒž’‚|†ž’‚|ž’ƒ|‹ž’‚ž’‚|‡ž’‚|ž’ƒ|‹ž’‚ž’ƒˆž’|ž’ƒ|‹ž’Žž’‚|ž’|‚Œž’ž’‚|ž’‚ž’ž’ƒ•ž’§ž’§ž’§ž’§ž’§ž’§ž’§ž’§ž’proceduresõtext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fswiss Arial;}{\f2\fswiss\fcharset0 Arial;}{\f3\fswiss\fprq2\fcharset0 Arial;}{\f4\fnil\fcharset0 Arial;}} {\colortbl ;\red0\green0\blue255;\red0\green0\blue160;} \viewkind4\uc1\pard\b\f0\fs20 ; Using MicroWorlds in the Art Room \par \b0\f1 ; Author Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds \par ; Date: \f2 November\f1 \f2 1\f1 2003 \par ; Permission granted to duplicate and/or modify this program \par ; as long as this notice remains intact.\b\f3 \par \par to go \par \b0 cg\f4 \par draw_track \par \par \cf1 ; set the initial positions of each turtle\cf0 \par talkto "car setpos [ -320 141 ]\tab \par talkto "fish setpos [ -320 79 ] \par talkto "swan setpos [ -320 7] \par talkto "horse setpos [-320 -83] \par \par \cf1 ; beep 4 times before starting the race\cf0 \par repeat 3 [note 60 3 wait 5] \par note 72 3 \par \par everyone [clickon]\cf1\tab\tab ; start all turtles note that each turtle is programmed to race using a different procedure \par \tab\tab\tab\tab ; right click on each turtle to view the procedure it runs when clicked.\cf0 \par \b\f3 end \par \par to simple_race \par \b0 \cf2 ; this is the most simple race procedure \par ; this procedure is used by the swan. \par \cf0\b \par \b0\f4 seth 90 \par forever [ \par fd random 5 \par wait 0.1 \par ] \par \b\f3 end \par \par to race \par \cf2\b0 ; this procedure is used by the car. \par ; the main difference between this procedure and simple_race is that \par ; this procedure waits a random amount of time between moves. \cf0\b \par \b0\f4 seth 90 \par forever [ \par fd random 10 \tab\tab\tab\tab\cf1 ; moves forward between 0 and 10 steps\cf0 \par wait (( random 10) + 1 ) / 10 \tab\tab\cf1 ; waits between 0.1 and 1.1 tents of a second\cf0 \par ] \par \b\f3 end \par \par to race_faster\b0\f4 \par seth 90 \par forever [ \par fd ( random 10 ) + 1 \tab\tab\tab\cf1 ; Note the + 1 riggs this procedure to race faster than race. \par \cf0\tab\tab\tab\tab\tab ; \cf1 moves forward between 1 and 11 steps\cf0 \par wait (( random 10 ) + 1 ) / 10 \tab\tab\cf1 ; waits between 0.1 and 1.1 tents of a second\cf0 \par ] \par \b\f3 end \par \par to trot \par \cf1\b0 ; This procedure animates the horse while it races\cf0\b \par \b0\f4 talkto "horse \par seth 90 \par forever [ \par fd ( random 7 ) + 2 \par setsh "horse1\cf1\tab\tab ;animate the horse by changing its shape\cf0 \par wait (( random 10 ) + 1 ) / 10 \par \par fd ( random 7 ) + 2 \par setsh "horse2\cf1\tab\tab ;animate the horse by changing its shape\cf0 \par wait (( random 10 ) + 1 ) / 10 \par \par fd ( random 7 ) + 2 \par setsh "horse3\cf1\tab\tab ;animate the horse by changing its shape\cf0 \par wait (( random 10 ) + 1 ) / 10 \par ]\b\f3 \par end \par \par \b0\f4 \par \b\f3 \par to draw_track \par \b0\f4 \par \par \cf1 ; draws a thick green line up the right side of the screen\cf0 \par talkto "draw_finish \par pu \par ht \par setpos [350 -200] \par setpensize 60 \par pd \par setc "green \par fd 500 \par \par \cf1 ; draws some random grass growing up the side of the line\cf0 \par pu \par st \par setshape "grass\tab\tab\tab\tab\cf1 ; set the shape of the turtle to "grass which I drew.\cf0 \par setsize "60 \par setpos [320 -200] \par repeat 60 [ fd random 40 stamp ]\tab\tab\cf1 ; move the turtle up the screen stamping a copy at random \par \cf0\b\f3 end\b0\f4 \par \par \par } ģ7pagenamepage1curturtledraw_finishcurtext||transition0Qturtle-deamons[[] [] [] [] [] [] [] [many clickoff] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0Į1bufferčŖŖ1*?Ti~“ؽŅēü&;Vq’­Čć%Fgˆ£¾Łī $?Zu«ĘŪö&;Pez¤æŚū%@a‚©Äßś6Kl¢½Ųó)>Sh}’§¼×ģ+@[v—²Ķč  3 N i „ Ÿ ŗ Õ š ; V k € • Ŗ Å Ś ļ   . C X m ‚ — ¬ Į Ü ÷  3 T o  « Ģ ķ  # > S h } ’ § Ā Ż ņ (CdyšÆŹå!<]r‡œ·Ņó)D_zŖÅąū7RsˆøĶī $?ZuŠ„ĄÕš,Gb}˜­Īļ %@[p‹ Įā÷-Hc~™®ĆŲó/J_z•°Åąū%:OdyŽ©Äßś6Wr““Ļź &;Vq†›°ÅŚļ.CXyŽ©Źė 'Hi~™ŗĻš &A\wŒ”Ā×ņ (CXsˆ£¾Łō0Kf–±Ņó/J_€”¼Ńģ  + @ U j  ” Æ Š å !!!