mw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]-shapes[13 ball](( !$'0?N]l{  #&){{{{{{{{{{{{{{[14 ||](( !$'0?N]l{  #&)[15 ||](( !$'0?N]l{  #&)PPPPPPPPPPPPPP[29 ||](( !$'0?N]l{  #&)xxxxxxxxxxxxxx[30 ||]((x !$'09BKT]fox[31 ||](( !$'0?N]l{  #&)[45 ||](( !$'0?N]l{  #&)[46 ||](( !$'0?N]l{  #&)RRRRRRRRRRRRRR[47 ||](( !$'0?N]l{  #&)p[61 ||]((X !$'0?Tl4Mez@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@?@? procedures text{\rtf1\ansi\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fswiss Arial;}{\f2\fswiss\fcharset0 Arial;}{\f3\fswiss\fprq2\fcharset0 Arial;}} {\colortbl ;\red0\green0\blue128;\red0\green128\blue0;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue0;} \viewkind4\uc1\pard\b\f0\fs20 Name: \b0\i Bounce \par \b\i0 Author: \b0 Rupert Russell \par \b Date: \b0 5 June 2003 (I should be marking ...)\b \par e-mail: \b0 r.russell@ballarat.edu.au\b \par Home Page: \b0 http://www.ballarat.edu.au/~rrussell/microworlds\b \par \par \b0 Permission granted to distribute and modify as desired \par \i Have fun,\i0 \par Rupert. \par \b \par to set_field\fs28 \par \b0\f1\fs20 set "red "turtlerule \lang3081\f2 [ ]\lang1033\f1\tab\tab\cf1\tab ; This removes any code from the colour red\cf0 \par set "blue "turtlerule\lang3081\f2 [ ]\lang1033\f1\tab\tab\cf1\tab ; this is important when you draw a new field\cf0 \par \tab \par cg\tab\tab\tab\tab\cf1\tab ; clear the screen\cf0\tab\tab\tab\tab\tab \par setpos [-372 213]\tab\tab\cf1\tab ; Move to the top left corner of the screen\cf0 \par seth 90\tab\tab\tab\cf1\tab ; set the turtles heading to 90 degrees, ie East\cf2 \par \cf0 pd\tab\tab\tab\tab\cf1\tab ; put the turtles pen down so it will draw lines \par \cf0 \par \cf3 setc "red\tab\tab\tab\tab ; change the colour of the line to red\cf0\tab\tab \par setpensize 25\tab\tab\tab\cf1\tab ; Draw a red line along the top of the screen \par \cf0 fd 740\tab\cf1\tab\tab\tab\tab ; move foward to the bottom of the screen\cf0 \par \par \cf4 setc "blue\tab\tab\tab\tab ; change the colour of the line to blue\cf0 \par rt 90\tab\tab\tab\tab\cf1\tab ; turn right 90 degrees, ie South\cf0 \par fd 422 \par \par \cf3 setc "red\cf0 \par rt 90 \par fd 740 \par \cf4 \par setc "blue\cf0 \par rt 90 \par fd 422 \par \par pu \par setc "black \par \par home\tab\tab\tab\cf1\tab\tab\tab ; Move to the center of the screen\cf0 \par \par set "\cf3 red\cf0 "turtlerule [\cf3 reflect_red\cf0 ]\tab\tab\cf1\tab ; program the colour \cf3 red\cf1 to reflect \par \cf0 set "\cf3 red\cf0 "turtlemode "eachtime\tab\tab\tab\cf1 ; make the colour red reflect each time a turtle touches it\cf0 \par \par set "\cf4 blue\cf0 "turtlerule [\cf4 reflect_blue\cf0 ]\tab \par set "\cf4 blue\cf0 "turtlemode "eachtime\tab\f0 \par \b end\b0\f1 \par \par \par \cf3\b\f0 to reflect_red \par \cf5 seth 180 - heading\lang3081\f3\tab\tab\tab\tab\cf1 ; make the turtle bounce\lang1033\f0 \par \cf3 end\cf0 \par \par \cf4 to reflect_blue \par \cf5 seth 360 - heading\lang3081\f3\tab\tab\tab\tab\cf1 ; make the turtle bounce\lang1033\f0 \par \cf4 end\cf0\b0\f1 \par \par \b\f3 to go\f0 \par \b0\f1 newturtle "setup\tab\tab\tab\cf1\tab ; Make a new turtle\cf0 \par talkto "setup\tab\tab\tab\tab\cf1\tab ; talk to the new turtle\cf0 \par set_field\tab\tab\tab\cf1\tab\tab ; tell the new turtle to draw the field\cf0 \par remove "setup\tab\tab\tab\tab\cf1\tab ; remove the new turtle \par \cf0 \par everyone [\tab\tab\tab\tab\cf1\tab ; tell all the turtles to \cf0 \par home\tab\tab\tab\tab\tab\cf1\tab ; go home \cf0 \par seth random 360 \cf1\tab\tab\tab\tab ; head off in a random direction\cf0 \par clickon ]\tab\tab\tab\tab\cf1\tab ; click on all the turtles to set them going\cf0 \par \b\f0 end\b0\f1 \par \par \par \par } q&pagenamepage2curturtlet1curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0$buffer$$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p  $ 6 H Z l ~  2 D V h z  . @ R d v   * < N ` r   & 8 J \ n "4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdvobject typet namet1locked?false xpos372 ypos213 shape0penstate0 size40pencolor0 heading0 pensize1shown?true fcn[] kind1shapeinturtlehave-list[has] colorin9;pagenamepage1curturtlet8curtexttext1transition0eturtle-deamons[[] [] [] [many reflect_red] [] [] [] [] [] [] [] [] [many reflect_blue] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0.bufferk.0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp  0 H ` x  8 P h  ( @ X p  0 H ` x  8 P h (@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph(@Xp0H`x 8Ph ( @ X p !!0!H!`!x!!!!!!" "8"P"h"""""""#(#@#X#p######$$0$H$`$x$$$$$$% %8%P%h%%%%%%%&(&@&X&p&&&&&&&''0'E'Z'o''''xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxobject typet nameballlocked?falsexpos350.437586028ypos222.986295348 shape14penstate0 size40pencolor0heading183pensize20shown?truefcn[fd 1] kind0shapein14have-list[has]colorinblack|objecttypebuttonnamebutton3rect[13 380 60 25]show-name?falselocked?false fcn[go] kind1object typet namet9locked?falsexpos592.034170146ypos151.615719108 shape15penstate0 size40pencolor0heading147 pensize1shown?truefcn[fd 1] kind0shapein15have-list[has] colorin9object typet namet1locked?falsexpos709.494923062ypos61.65893626 shape30penstate0 size40pencolor0heading292 pensize1shown?truefcn[fd 1] kind0shapein30have-list[has] colorin9object typet namet2locked?falsexpos52.1949353539ypos198.040201319 shape31penstate0 size40pencolor0heading88 pensize1shown?truefcn[fd 1] kind0shapein31have-list[has] colorin9object typet namet3locked?falsexpos702.808360822ypos287.224699201 shape16penstate0 size40pencolor0heading259 pensize1shown?truefcn[fd 1] kind0shapein16have-list[has] colorin9object typet namet4locked?falsexpos37.1653639759ypos281.070085645 shape47penstate0 size40pencolor0heading100 pensize1shown?truefcn[fd 1] kind0shapein47have-list[has] colorin9object typet namet5locked?falsexpos561.560561516ypos264.602562721 shape48penstate0 size40pencolor0heading29 pensize1shown?truefcn[fd 1] kind0shapein48have-list[has] colorin9object typet namet6locked?falsexpos718.410161514 ypos12 shape62penstate0 size40pencolor0heading120 pensize1shown?truefcn[fd 1] kind0shapein62have-list[has] colorin9object typet namet7locked?falsexpos691.179465434ypos26.7887631442 shape46penstate0 size40pencolor0heading124 pensize1shown?truefcn[fd 1] kind0shapein46have-list[has] colorin9object typet namet8locked?falsexpos203.227108486ypos260.636084454 shape32penstate0 size40pencolor0heading334 pensize1shown?truefcn[fd 1] kind0shapein32have-list[has] colorin9object typetextnametext1rect[348 33 361 218]show-name?truelocked?falsevisible?truesnaped?true|text{\rtf1\ansi\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fswiss Arial;}} {\colortbl ;\red255\green0\blue0;\red0\green0\blue0;\red0\green0\blue255;} \viewkind4\uc1\pard\cf1\b\f0\fs36 to reflect_red \par \cf2 seth 180 - heading\cf1 \par end\cf0 \par \par \cf3 to reflect_blue \par \cf2 seth 360 - heading\cf3 \par end\cf0\b0\f1\fs20 \par }