# Typical variations: # POM, ABA, ABT, TUP, TVQ, ZGB *

startshape RANDOMTREE

rule RANDOMTREE {

TREE{hue 120.0}
BACKGROUND{z -20}
ROCK{z -10 y -8}

}

rule ROCK {

CIRCLE{s 20}
ROCK{y -4.7 x -10 s 0.8}
ROCK{y -4.6 x 7 s 0.8}

} rule ROCK {

CIRCLE{s 20}
ROCK{y -5.6 x -6 s 0.85}
ROCK{y -6.7 x 3 s 0.8}

} rule ROCK {

TRIANGLE{s 20}
ROCK{y -4.7 x 5 s 0.8}
ROCK{y -5 x -2 s 0.8}

} rule ROCK { CIRCLE{s 20} ROCK{y -5.5 x 11 s 0.8} ROCK{y -5.7 x -8 s 0.8} }

/** TREE RULES **/

rule SEGMENT { SQUARE{y 4 size 1 8} }

rule TREE 0.05 { }

rule TREE { SEGMENT{} TREE{y 7.9 hue -15.0 r -20 s 0.95 sat 0.04 b 0.02} TREE{y 7.9 hue 10.0 r 20 s 0.95 sat 0.04 b 0.02} }

rule TREE { SEGMENT{} TREE{y 7.9 hue -10.0 r 18 s 0.89 sat -0.07 b 0.02} }

rule TREE { SEGMENT{} TREE{y 7.9 hue 10.0 r -22 s 0.89 sat -0.07 b 0.02} }

/*********************/

rule FIRE { TRIANGLE { s 1.5 0.15 r 21 } FIRE { s 0.995 r 9 hue 0.05} }

rule BACKGROUND { FIRE{alpha -0.9 hue 10.0 sat 1.0 b 1.0 s 50.0} }