Spirofern 2

startshape scene
 
rule scene {
	spiral{}
}
 
rule spiral {
	8*{r 45}wiggle{}
	spiral{s 0.9 y 4 x 5 r 30 }
}
 
rule wiggle {
	twist{}
	wiggle{s 0.9 r 6 y 1}
}
 
rule twist {
	twirl{}
	twist {s 0.9 r 1 x -1}
}
 
rule twirl {
	TRIANGLE{a -0.9}
	twirl {s 0.9 r 3 x 1} 
}