
_'s Home Page!
Check out my images by clicking on a number:
 |
|
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
] |
|