aUCBLogo Demos and Tests / tree

to tree [level 7][size 100]
   if level==0 [stop]
   fd size
   lt 80
   tree2 level-1 size/2
   rt 70
   (tree level-1 size*2/3)
   rt 90
   tree2 level-1 size/2
   lt 80
   bk size
end

to tree2 level size
   if level==0 [stop]
   fd size
   rt 80
   (tree level-1 size/2)
   lt 70
   tree2 level-1 size*2/3
   lt 90
   (tree level-1 size/2)
   rt 40
   (tree level-1 size*4/5)
   rt 40
   bk size
end