# Tree

reset all
cls white
assign x 50
assign y 180
assign b1 x
dec b1 4
assign b2 y
dec b2 70
assign i 4
assign l -5
assign m 15

colour brown
rectangle fill b1 b2 8 50
colour green
loop 6
  dec y i
  triangle fill x y 0 l m 0
  assign bx lastx
  assign by lasty
  dec bx 2
  dec by 3
  move bx by
  colour red
  assign c rnd(10)
  if c>5 then circle fill 2
  colour green
  triangle fill x y 0 l -m 0
  assign bx lastx
  assign by lasty
  inc bx 2
  dec by 3
  move bx by
  colour red
  assign c rnd(10)
  if c>5 then circle fill 2
  colour green
  dec l 2
  inc m 6
  inc i 1
endloop
drawfile tinsel2 0.8 0.8 30 -93
drawfile tinsel2 0.5 0.5 60 84