z{mw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars]shapes[12 ||]((6`xAeC[p6]~AbH procedures9 text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}} {\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green128\blue128;} \deflang1033\pard\plain\f4\fs20\cf2 ; Purpose: To demonstrate a simple program that does not require \par ; pocedurers. \par ; The code for each turtle is programmed directly into each turtle \par ; The procedureres are only necessary for each button, and the buttons \par ; are optional. \par ; Copyright \plain\lang3081\f4\fs20\cf2 \'a9\plain\f4\fs20\cf2 2004 by Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds/index.html \par ; Modified: August 27, 2004 \par ; \par ; This program is free software; you can redistribute it and/or modify \par ; it under the terms of the GNU General Public License as published by \par ; the Free Software Foundation; either version 2 of the License, or \par ; (at your option) any later version. \par ; \par ; This program is distributed in the hope that it will be useful, \par ; but WITHOUT ANY WARRANTY; without even the implied warranty of \par ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \par ; GNU General Public License for more details. \par ; \par ; You should have received a copy of the GNU General Public License \par ; along with this program; if not, write to the Free Software \par ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. \par ; ---------------------------------------------------------------------\plain\f4\fs20\cf0 \par \par \plain\f4\fs20\cf0\b to go \plain\f4\fs20\cf0 \par pd \par repeat rep [ \par lt sharp\tab \tab \tab \tab \plain\f4\fs20\cf2 ; sharp is set from a slider \plain\f4\fs20\cf0 \par fd scale \tab \tab \tab \tab \plain\f4\fs20\cf2 ; scale is set from a slider\plain\f4\fs20\cf0 \par rt sharp\tab \tab \tab \par fd scale \par rt 360 / rep\tab \tab \tab \plain\f4\fs20\cf2 ; rep is set from a slider\plain\f4\fs20\cf0 \par ]\tab \tab \tab \tab \tab \tab \par \plain\f4\fs20\cf0\b end \par \par to drawthing\plain\f4\fs20\cf0 \par let [dsize 10] \par repeat 25 [ \par make "dsize :dsize + 2 \par fun2 :dsize \tab \tab \tab \plain\f4\fs20\cf2 ; call fun2 and pass it the value of dsize\plain\f4\fs20\cf0 \par ]\plain\f4\fs20\cf1 \par \tab \tab \tab \tab \tab \tab \plain\f4\fs20\cf0 \par \plain\f4\fs20\cf0\b end\plain\f4\fs20\cf0 \par \par \plain\f4\fs20\cf0\b to fun2 :size\plain\f4\fs20\cf0 \par seth 90 \par rt 40 \par pd \par repeat :size [ \par lt 80\tab \tab \tab \tab \tab \plain\f4\fs20\cf2 ; the value of :size is passed to the procedure\plain\f4\fs20\cf0 \par fd 10 \tab \tab \tab \par rt 80 \par fd 10 \par rt 360 / :size \par ] \par \plain\f4\fs20\cf0\b end\plain\f4\fs20\cf0 \par \par \par \par \par \par \par } [pagenamepage3curturtlet1curtexttext2transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg05TbufferT$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj|0Qx S7x S J c ; # #Cm._1Yro;K6 ` !J!|!!!"0"W""""#&#A#\#w######$4$O$j$$$$$$%K%x%%%% &S&&&&'^'''1(|(()i))*w**/++,,,-..///]001,22c334+55U66m77899:w::e;;K<<=x==&>}>>!?l???%@\@@@@"AOAvAAAAB!B6BHBZBlB~BBBBBBBBC C2CDCVChCzCCCCCCCC DD.D@DRDdDvDDDDDDDDEE*EIPIbItIIIIIIIIJJ(J:JLJ^JpJJJJJJJJKK$K6KHKZKlK~KKKKKKKKL L2LDLVLhLzLLLLLLLL MM.M@MRMdMobject typet namet1locked?falsexpos372.000000001 ypos213 shape0penstate1 size40pencolor0heading359.999999999 pensize1shown?true fcn[] kind1shapeinturtlehave-list[has] colorin9object typetextnametext2rect[20 11 244 192]show-name?truelocked?falsevisible?truesnaped?false text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}} {\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green128\blue128;} \deflang1033\pard\plain\f6\fs20\b \plain\f5\fs20 seth 90 \par rt 30 \par pd \par repeat 10 [lt 60 \par fd 20 \par rt 60 \par fd 20 \par rt 360 / 10] \par \par } ~objecttypebuttonnamebutton1rect[59 299 60 25]show-name?falselocked?falsefcn[fun1] kind1objecttypeslider namesteprect[331 355 120 18]show-name?truelocked?falsevisible?true min0 max99current52value| 52|objecttypeslider namedegrect[495 359 120 18]show-name?truelocked?falsevisible?true min0 max180current173value| 173|objecttypeslider namereprect[44 356 120 18]show-name?truelocked?falsevisible?true min0 max99current38value| 38|objecttypebuttonnamebutton2rect[215 367 60 25]show-name?falselocked?falsefcn[fun3 rep step deg] kind1* page"namer.russell@ballarat.edu.aucurturtlet1curtexttext1transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0buffer$6HZl~2Jbz "Cd>cAf 7`Gv :kEe " p R  K XP[t&&;g;~p Z!D"3#,$)%5&F'E(L)_*u+,-./02234'6k789:;u<=>+@AB,DnEFG(IFJcKLMNP$Q2R;S;T7U5VBWOX\YcZa[l\p]c^Y_R`]aubcdefghjklm!nBo^p|qrstvEwxy{:|`}~ V΅4Vzʌ8eؓ4Jxʜ "7Xx|gN@9=DFTT>ҵȶV. ɿue?gA\W"Sdch EYGm Hr>FM;vdrVAG<$fQ.G _a$a =|N$6HZl~ 2DVhz .@Rdv*<N`r&{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{object typet namet1locked?true xpos191 ypos148 shape0penstate1 size40pencolor0heading130 pensize1shown?true fcn[] kind1shapeinturtlehave-list[has] colorin9object typetextnametext1rect[10 41 109 50]show-name?falselocked?truevisible?truesnaped?falsentext{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}{\f6\fswiss\fprq2 Arial;}} {\colortbl\red0\green0\blue0;\red0\green0\blue255;\red0\green128\blue128;} \deflang1033\pard\plain\f6\fs20 clean \par drawthing \par } objecttypebuttonnamebutton7rect[9 10 108 25]show-name?falselocked?truefcn[run text1] kind1~objecttypebuttonnamebutton8rect[72 396 60 25]show-name?falselocked?truefcn[clean] kind1objecttypeslidernamescalerect[5 231 120 18]show-name?truelocked?truevisible?true min20 max200current125value| 125|zobjecttypebuttonnamebutton4rect[5 396 60 25]show-name?falselocked?true fcn[go] kind1objecttypeslider namereprect[3 280 120 18]show-name?truelocked?truevisible?true min0 max99current15value| 15|objecttypeslidernamesharprect[4 327 120 18]show-name?truelocked?truevisible?true min50 max200current176value| 176|