Check out my images by clicking on a number:

1	2	3	4	5	6	7	8	9	10
11	12

to leaf :size :ang lt :ang repeat 2[ repeat :ang*2[ fd :size rt 1 ] lt 2*:ang-180 ] rt :ang end to animatedLeafOutline :size :ang :color :numleaves repeat :numleaves[ setpc :color fillmode leaf :size :ang rt 360/:numleaves ] if [:ang = 40] [stop] rt 1 animatedLeafOutline :size/1.05 :ang+1 :color :numleaves end to animatedLeaf :size :ang :color1 :color2 :color3 :numleaves repeat :numleaves[ setpc :color1 fillmode leaf :size :ang setpc :color2 drawmode leaf :size :ang rt 360/:numleaves] ;wait 10 repeat :numleaves[ setpc :color3 fillmode leaf :size :ang rt 360/:numleaves] if [:ang = 55] [stop] rt 1 animatedLeaf :size/1.05 :ang+1 :color1 :color2 :color3 :numleaves end ht animatedLeafOutline 10.5 0 "black 7 lt 90 animatedLeaf 10 0 "red "blue "green 7 animatedLeafOutline 8.5 0 "black 11 lt 105 animatedLeaf 8 0 "red "pink to snowflakehelp :size :stopSize if [:size < :stopSize] [fd :size lt 60 fd :size rt 120 fd :size lt 60 fd :size stop] snowflakehelp :size/3 :stopSize lt 60 snowflakehelp :size/3 :stopSize rt 120 snowflakehelp :size/3 :stopSize lt 60 snowflakehelp :size/3 :stopSize end to snowflake :size :stopSize pu lt 60 fd :size/1.73205 rt 60+90 pd repeat 3[ snowflakehelp :size/3 :stopSize rt 120 ] pu lt 60+90 bk :size/1.73205 rt 60 pd end snowflake 500 1 to sierpinski :size if [:size < 5] [stop] pu fd (:size/2)/1.73205 rt 90 pd repeat 3[fd :size/2 rt 120 fd :size/2] pu lt 90 bk (:size/2)/1.73205 pd repeat 3[ pu fd :size/1.73205 pd sierpinski :size/2 pu bk :size/1.73205 rt 120 ] end sierpinski 200 to rect :width :height fillmode pu fd :height/2 rt 90 bk :width/2 pd repeat 2[fd :width rt 90 fd :height rt 90] pu fd :width/2 lt 90 bk :height/2 pd drawmode end to rectcursion :width :height :end :factor :spacing if [:height < :end] [stop] rect :width :height rt 90 rectcursion2 :height :width :end :factor :spacing lt 90 pu fd :height/2 + :spacing + :factor*:height/2 pd rectcursion :width :height*:factor :end :factor :spacing pu bk :height/2 + :spacing + :factor*:height/2 pd end to rectcursion2 :width :height :end :factor :spacing if [:height < :end] [stop] rect :width :height pu fd :height/2 + :spacing + :factor*:height/2 pd rectcursion2 :width :height*:factor :end :factor :spacing pu bk :height/2 + :spacing + :factor*:height/2 pd end repeat 4[ rectcursion 50 50 1 .75 5 rt 90 ] to bg :x :y :color pu fd :y/2 rt 90 bk :x/2 pd setpc :color fillmode repeat 2[fd :x rt 90 fd :y rt 90] pu fd :x/2 lt 90 bk :y/2 pd drawmode end to fCFB :size :color lt 90 setpc :color fillmode repeat 360[fd :size rt 1] rt 90 drawmode setpc "black end to cFB :size :color lt 90 setpc :color repeat 360[fd :size rt 1] rt 90 setpc "black end to csFB :sS :endSize :color if [:sS > :endSize] [stop] if [(:sS * 8 - 8) > 1] [setpensize :sS * 8 - 8] if [(:sS * 8 - 8) < 1] [setpensize 1] cFB :sS*1.3 :color csFB :sS+.06125 :endSize :color end to CF :color1 :color2 :x setpc "black repeat 6[ fCFB 2.6*:x :color1 rt 60 wait 60 ] repeat 6[ csFB 1*:x 2*:x :color2 rt 60 wait 60 ] end ht bg 800 1000 "r000g000b072 CF "r255g128b000 "r166g083b000 1 pu lt 90 fd 225 rt 90 fd 325 pd repeat 2[ to curve :dist if [:dist > 15] [stop] fillmode fd :dist rt 90 fd .0125*:dist*:dist*:dist lt 90 drawmode curve :dist+.25 pu rt 90 bk .0125*:dist*:dist*:dist lt 90 bk :dist pd end ht repeat 90[ curve 1 rt 4 ] to curve :dist if [:dist > 15] [stop] fillmode fd :dist rt 90 fd .0125*:dist*:dist*:dist lt 90 drawmode curve :dist+.25 pu rt 90 bk .0125*:dist*:dist*:dist lt 90 bk :dist pd end to curve2 :dist if [:dist > 15] [stop] fillmode fd :dist lt 90 fd .0125*:dist*:dist*:dist rt 90 drawmode curve2 :dist+.25 pu lt 90 bk .0125*:dist*:dist*:dist rt 90 bk :dist pd end repeat 72[ curve 1 rt 90 curve2 1 lt 85 ]