model forest

object grass
render off

co 0 0.1 0

{ polygon
	acn 4
	v -25 1 -25
	v -25 1 25
	v 25 1 25
	v 25 1 -25
}

object tree
render off

#     trunk
#       west side
co 0.46 0.27 0.12
push
translate 0 1 0
{ polygon
	acn 4
	v -0.5 4 -0.5
	v -0.5 0 -0.5
	v -0.5 0 0.5
	v -0.5 4 0.5
}
#       south side
{ polygon
	acn 4
	v -0.5 4 0.5
	v -0.5 0 0.5
	v 0.5 0 0.5
	v 0.5 4 0.5
}
#       east side
{ polygon
	acn 4
	v 0.5 4 0.5
	v 0.5 0 0.5
	v 0.5 0 -0.5
	v 0.5 4 -0.5
}
#       north side
{ polygon
	acn 4
	v 0.5 4 -0.5
	v 0.5 0 -0.5
	v -0.5 0 -0.5
	v -0.5 4 -0.5
}
#     top
co 0 0.3 0
{ triangle_fan
	norm 0 1 0
	v 0 9 0
	cn 0 9 0 -1.5 3 -1.5 -1.5 3 1.5
	v -1.5 3 -1.5
	v -1.5 3 1.5
	cn 0 9 0 -1.5 3 1.5 1.5 3 1.5
	v 1.5 3 1.5
	cn 0 9 0 1.5 3 1.5 1.5 3 -1.5
	v 1.5 3 -1.5
	cn 0 9 0 1.5 3 -1.5 -1.5 3 -1.5
	v -1.5 3 -1.5
}
pop


# master
object tile
render on

call grass

push
translate -20 0 -20
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
pop

push
translate -20 0 -10
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
pop

push
translate -20 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
pop

push
translate -20 0 10
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
pop

push
translate -20 0 20
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
translate 10 0 0
call tree
pop