aUCBLogo Demos and Tests / tree2


to tree2 [level 8][size 100][angle 0]
   
if level==[stop]
   
ifelse level==[setPenColor "white][setPenColor "brown]
   
setPenSize ((List level level)/8)^1*size/6
   
PenDown
   
fd size
   
lt 80+angle
   
tree22 level-size/angle
   
rt 70
   
(tree2 level-size*2/angle)
   
rt 90
   
tree22 level-size/angle
   
lt 80-angle
   
PenUp
   
bk size
end

to tree22 level size angle
   
if level==[stop]
   
ifelse level==[setPenColor "white][setPenColor "brown]
   
setPenSize ((List level level)/8)^1*size/6
   
PenDown fd size
   
rt 80-angle
   
(tree2 level-size/angle)
   
lt 70
   
tree22 level-size*2/angle
   
lt 90
   
(tree2 level-size/angle)
   
rt 40
   
(tree2 level-size*4/angle)
   
rt 40+angle
   
PenUp
   
bk size
end