ĖÆmw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapesprocedurestext{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue128;} \viewkind4\uc1\pard\cf1\f0\fs20 ; Author: Rupert Russell \par ; Date: August 11, 2004 \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds \par ; \'a9 2004 \par ; I grant permission to duplicate, redistribute and/or modify this \par ; program as long as this notice \lang3081 ;\lang1033 remains intact.\cf0 \par \cf1 \par ; see http://math.rice.edu/~lanius/fractals/ \par \par \cf0\b to go\b0 \par seth random 360 \par pu \par bk 100 \par setc (random 99\lang3081 00\lang1033 ) + 10 \tab pd \par sierpinski \lang3081 s_size \par \lang1033\b end\cf1\b0 \par \par \cf0\b to rtriangle :size\b0 \par fd :size \par rt 135 \par fd (sqrt 2)* :size \par rt 135 \par fd :size \par rt 90 \par \b end \par \par to hole :size\b0 \par fd :size / 2 \par rt 90 \par fd :size / 2 \par rt 90 \par rtriangle :size / 2 \par pu \par rt 45 \par fd :size / 4 \par pd \par fill \par bk :size / 4 \par rt 45 \par fd :size / 2 \par rt 90 \par bk :size / 2 \par \b end \par \par to sierpinski :size\b0 \par rtriangle :size \par hole :size \par if :size > 15 [sierpinski :size / 2] \par fd :size / 2 \par if :size > 15 [sierpinski :size / 2] \par bk :size / 2 \par rt 90 \par fd :size / 2 \par lt 90 \par if :size > 15 [sierpinski :size / 2] \par lt 90 \par fd :size / 2 \par rt 90 \par \b end \par \par \par \par to fun\b0 \par ht \par repeat 1000 [seth random 360 \par pu \par bk 100 \par setc ( random 9990) + 10 \tab \par pd \par sierpinski (random s_size) + 10 \par ] \par \b end\b0 \par } ŧpagenamepage1curturtlet1curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []] bgwhiteĮ£bufferčŖŖ£`Č=Ÿē1ˆŁ3ŗK¾0¹7Ō“‡< ¾ H Ó V ö … # Ł ŒB’æjÆ6ĀNēžZ’„0Žq¢'£‹¬% Ž !Ķ!l"ņ"m#Ų#O$Ź$a%’%”&Y' (ž()Ć)s*:+,±, -}-°-ī-5.t.§.Ī./J/‹/Ķ/ 0K00Ā0ļ0(1a1–1Ź1’1>2—2’2s3ā3\4Ó4455ę5G6ž6õ6;7‡7Õ78_8 8ī8:9v9²9ś9N: :ą:;X;Ÿ;ß;)<k<§<ć<#=d= =Ü=>Y>ž>ī>>?‚?Å?@J@Œ@Š@AwAŅA2B†BÖBCSC‘CŲC DhDŖDōD4EuE¶EčEFWF›FļF9G–GēG2HvHøHüH;ItI¬IßIJEJ~J±JäJKIKvKØKÕKL5LZL{L¢LÉLźLMJMwMžMĖMżM*NcN¢NēN,OkO¤OčO%PRP‹P¾PüP.QfQ˜QÅQųQ%R^R—RÖRS`SŸSĢST7TdT‘T¾TėTU?UlU“UĄUųU7V|V¹VžVCW‡WŅW&XeX°XYkYĄY ZUZ—ZŚZ[`[Į['\Š\ģ\I]­]^c^Ź^ _}_×_8``š`KaŖababŃb:cĆc