# contextfreeart.org/gallery/view.php?id=3266
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 []
}