binaire boom 
to tree :size
	if :size < 5 [stop]
	fd :size
	lt 30
	tree :size*.7
	rt 60
	tree :size*.7
	lt 30
	bk :size
end
 
binaire boom (random)
to rtree :size
	if :size < 5 [stop]
	fd :size
	lt 30
	rtree :size*(((random 5)+5)/10)
	rt 60
	rtree :size*(((random 5)+5)/10)
	lt 30
	bk :size
end
 
Natuurlijke boom
to tree :size
	if :size < 5 [fd :size bk :size stop]
	fd :size/3
	lt 30
	tree :size*2/3
	rt 30
	fd :size/6
	rt 25
	tree :size/2
	lt 25
	fd :size/3
	rt 25
	tree :size/2
	lt 25
	fd :size/6
	bk :size
end