プログラムで樹木曲線を描く手続きは
to tree [:len :th]
set pen-size :len / 2
if :len < 2 [stop]
fd :len
lt (:th / 2)
tree (:len * 0.75) :th
rt :th
tree (:len * 0.75) :th
lt (:th / 2)
bk :len
end
で、左右に開く角度はSliderから選択できるようにする。
次は、左右に開く角度が60°・90°・120°の例である。
この樹木曲線を描くプログラムのコードはここにあるので、download して、角度を変えたものを描いてみて欲しい。