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