# This was originally named forest.cfdg, but the longer name seems # to be a better description of what it does, IMO. startshape forest

CF::Background = [hue 120 sat .1 b -0.5] CF::MinimumSize = 0.2 CF::Size = [s 80 80 x -25 -35]

shape forest {

loop num=50 [z 1]
  tree [x (-2..52) b (.45-num/120)]
ground [z 51]

}

shape tree rule {

CIRCLE []
tree [[b .001 .40 r (-5..5) y .3 s 0.9999995]]

}

rule 0.04 {

CIRCLE []
tree [[b .0005 .40   x -.1 r (15..20) y .3  s (0.7*0.9999995)]]
tree [[b .0005 .40   x .1 r (-25..-10) y .3 s (0.7*0.9999995)]]

}

shape ground {

SQUARE [s 80 5 x 25 -2.5 b 0]

}