# confree palmen.cfdg output.png 800 100
startshape INIT background {hue 222 sat .1 b 1}
rule INIT { TREE{} LINE {x 15} SQUARE {y -2 hue 50 sat 1 b 1 s 15.4} }
rule LINE 5 { TREE{} LINE {x 15} SQUARE {y -2 hue 50 sat 1 b 1 s 15.4} }
rule LINE { }
rule TREE 1 { TRUNKSTART {hue 21 sat 1 b .67} }
rule TRUNKSTART { TRUNKSEGMENT{} TRUNKSEGMENT{y 2.5} TRUNKSEGMENT{y 5} TRUNKSEGMENT{y 7.5} TRUNKSEGMENT{y 10} TRUNKSEGMENT{y 12.5} TRUNK{y 15} }
rule TRUNK 2 { TRUNKSEGMENT{} TRUNK{y 2 s .99 r 2} }
rule TRUNK 3 { TRUNKSEGMENT{} TRUNK{y 2 s .99 r -2} }
rule TRUNK {
TRUNKTOP{y -.45}
}
rule TRUNKTOP 2000 { TRUNKTOP{} }
rule TRUNKTOP { HEAD{s .2 hue 50} HEAD{s .2 hue 50} HEAD{s .2 hue 50} HEAD{s .2 hue 50} }
rule HEAD { LEAVES{r 100 s .9} LEAVES{flip 0 r 80 s .9}
LEAVES{r 60 s .7} LEAVES{flip 0 r 120 s .7}
BITSATEND{} }
rule BITSATEND 2000 { }
rule BITSATEND { LEAVES{r 155} LEAVES{flip 0 r 25} }
rule LEAVES 4 { STEM{} LEAVES{r -5 s .985} }
rule LEAVES { }
rule TRUNKSEGMENT 50 { TRUNKSUBSEGMENT {alpha -.5} TRUNKSEGMENT {s .98.1 b .01} }
rule TRUNKSUBSEGMENT { TRIANGLE {x -1 s .4.3} SQUARE {y .445 s 2.2.62} TRIANGLE {x 1 s .4.3} SQUARE{y -.89 s 2.4..05 b -1} }
rule STEM 20 { STEMSEGMENT {} STEM {y 2.5 r 2 s 0.985} }
rule STEM 5 { STEMSEGMENT {} STEM {y 2.5 r -2 s 0.985} }
rule STEM { BRANCH{y -1.5 r -37.5 s .5} BRANCH{r -30 y -1 s .5} BRANCH{r -20 s .5} BRANCH{r -10 s .5} BRANCH{s .5} BRANCH{r 10 s .5} BRANCH{r 20 s .5} BRANCH{r 30 y -1 s .5} BRANCH{y -1.5 r 37.5 s .5} }
rule STEMSEGMENT { TRIANGLE {x -1 s .1.3} SQUARE {y .445 s 2.2.62} TRIANGLE {x 1 s .1.3} BRANCH {r 45 x -.5 s .5} BRANCH {r -45 x .5 s .5} }
rule BRANCH { BRANCHSEGMENT {b -.5} }
rule BRANCHSEGMENT { TRIANGLE {x -1 s .1.3} SQUARE {y .445 s 2.2.62} TRIANGLE {x 1 s .1.3} BRANCHSEGMENT {y 2.5 s .95 b .05} }