14 lines
290 B
Text
14 lines
290 B
Text
to tree :depth :length :scale :angle
|
|
if :depth=0 [stop]
|
|
setpensize round :depth/2
|
|
forward :length
|
|
right :angle
|
|
tree :depth-1 :length*:scale :scale :angle
|
|
left 2*:angle
|
|
tree :depth-1 :length*:scale :scale :angle
|
|
right :angle
|
|
back :length
|
|
end
|
|
|
|
clearscreen
|
|
tree 10 80 0.7 30
|