cfdg/tree-2.cfdg

56 lines
562 B
Plaintext

startshape fu [b 1]
CF::Background = [b -1]
shape fu {
loop 2 [r 180] foo [r 33 hue 120 sat 1 b -0.5]
}
shape foo
rule 90 {
dr []
foo [y 0.1 r 0.3 s 0.999 b -0.0003]
}
rule 0.2 {
dr []
foo [y 0.1 r 0.3 s 0.999]
bar []
}
rule 0.2 {
dr []
foo [y 0.1 r 0.3 s 0.999]
sna []
}
shape bar
rule 90 {
dr []
bar [y 0.1 r 1 s 0.996 b 0.005]
}
rule 0.1 {
dr []
end []
}
shape sna
rule 90 {
dr []
sna [y 0.1 r -1 s 0.996 b 0.005]
}
rule 0.2 {
dr []
end []
}
shape end {
bar []
sna []
}
shape dr {
CIRCLE [y 0.5 s 1.5 b -0.5 a -0.9]
CIRCLE []
}