SphereFinger

SphereFinger

startshape Tree

include ShapeLibrary.cfdg

rule Tree{
36* {r 10} TreeBranch []
}

rule TreeBranch 500 {
	//Trunk Right
    EMPTYCIRCLE []
    TreeBranch { y 0.2 r 2 s 0.99 }
}

rule TreeBranch 500 {
	//Trunk Left
    EMPTYCIRCLE []
    TreeBranch { y 0.2 r -2 s 0.9 }
}

rule TreeBranch 50{
	//Split
    EMPTYCIRCLE []
   TreeBranch {  r -30 s 0.8 }
	TreeBranch {  r 30 s 0.8}
}