aUCBLogo Demos and Tests / treetones

to treetones
cs
setpensize [3 3] setpc rgb 0 250 0
pu sety -200 pd
make "size 200
tree :size
end

TO TREE  :SIZE
IF :SIZE<20 [STOP]
FD  :SIZE
LT 20
TRee  :SIZE*1/2
tone :size 100
RT 40
tree  :SIZE*2/3
LT 20
BK :SIZE
end