XŤmw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapesŔ proceduresą text{\rtf1\ansi\ansicpg1252\deff0\deflang3081{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue128;\red0\green0\blue0;} \viewkind4\uc1\pard\cf1\lang1033\f0\fs20 ; Purpose: To \lang3081 draw a sierpinski triangle \par ; different shapes fall according to different rules \par ; As each shape falls from the home position it flutters to the \par ; floor. When it gets there it stamps its self. \par ; Another one then falls again from home onto the floor. \par ; \lang1033 \par ; Copyright \lang3081\'a9\lang1033 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: October 8, 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 ; ---------------------------------------------------------------------\cf2 \par \par \cf0\lang3081\b to go \par \b0 set.up.triangle\b \par \b0 t1, setc "red \par t2, setc "blue \par t3, setc "green \par \par forever [step] \par \b end\b0 \par \par \par \b to set.up.triangle\b0 \par t1, setpos [-250 -165] \par t2, setpos [250 -165] \par t3, setpos [0 180] \par t4, pu st \par \b end\b0 \par \par \par \b to step \par \b0 make "random.vertex ((random 3) + 1) \par make "random_vertex_turtle word "t :random.vertex \par talkto :random_vertex_turtle \par ; setc color + 1 \tab\tab\cf1 ; change the colour of the active vertex \par \cf0 \par make "p pos \par talkto "t4 \par towards :random_vertex_turtle \par if :random_vertex_turtle = "t1 [setc "red] \par if :random_vertex_turtle = "t2 [setc "blue] \par if :random_vertex_turtle = "t3 [setc "green] \par \par \par make "q pos \par make "distance sqrt((power ((first :p) - (first :q)) 2) + (power ((last :p) - (last :q)) 2)) \par \par fd 0.5 * :distance \par pd fd 0 \par pu \par \par \b end \par \par \b0 \par } " pagenamepage1curturtlet4curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0xšbufferčŞaš$6HZl~˘´ĆŘęü 2DVhzŒž°ÂÔćř .@RdyŽŁÁÖń 'NiŠĽŔç,SzŹëFa|ŁĘď=oŽÉöI‚Żń4yç G b }  ¸ Ó ţ ) P ‰ ś × ţ % X … ˛ ü ; ~ ç  q ˜ ż ń EˆŃ }Á/n­ gź4śZˇâ,Gg‚ŁĘű"Ou¨ô R‘žQŕ4vĐ4€ĘoŚXœů>źYÓiŢÇî _ ’ Ő !|!Ö!"g"Ö"#o#Ü#-$Ÿ$'% %9&|&ý&‚'Ć'(j(Ő(W)Ó)J*Ę*R+˙+­,:-Ţ-~../@0712Î2G3Œ4¤4ź4Ú4505_55ż5ń56b66Ć6777y7ľ7đ7>88Ń8=9a9‹9Ŕ9ő9?:„:Ŕ:;];ś;<c<´<=|=ý=t>?}?Î?m@¨@Ě@ü@1AiAžA BUB—BĚB6CCÚC-DœD EˆEFĄFGpGGH›HíH?I†IęIxJůJ‚KúKlLM˜M9NÍNƒOcPYQKR@SľSËTtUĄUČUűU9V€VÉVWQW•W˙WMX‹XÜX4Y‘Y ZŒZ2[ť[\ě\G]€]Ë]1^´^/_ź_G`°`?ab’bcĘcVd,efófhÉhĆiŞj kfkşk lvlîl]mÝmWno°o1pÔpq=rstuvÚvTxyy