@mbedmicro to tree :size if :…
April 27th, 2010@mbedmicro
to tree :size
if :size < 4 [stop]
fd :size
lt 20
tree :size / 2
rt 40
tree :size / 2
lt 20
rt 180
fd :size
end
@mbedmicro
to tree :size
if :size < 4 [stop]
fd :size
lt 20
tree :size / 2
rt 40
tree :size / 2
lt 20
rt 180
fd :size
end
@mbedmicro spiral 1 120
@mbedmicro repeat 250 [ fd repcount rt 89 ]
@mbedmicro spiral 0 91
@mbedmicro
fd 50
spiral [0 91]
@mbedmicro
to spiral :size :angle
if :size > 100 [stop]
forward :size
right :angle
spiral :size + 2 :angle
end
@mbedmicro REPEAT 30 [ circle FD 4 RT 4 ]
@mbedmicro repeat 30 [ tri 50 fd 10 ]
@mbedmicro fd 200
@mbedmicro REPEAT 90 [ circle FD 4 RT 4 ]