# 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 []

}