/*
garland By AK Nov 2013 Not really representative of any particular flower, just an attractive variant of some ideas I was messing around with. Variations: FPZ,AAC http://creativecommons.org/licenses/by-sa/3.0/au/deed.en
*/
CF::ColorDepth=16 CF::Size=[]
startshape A(0,1)[h 60 sat .2]
shape A(number p,number q) rule 50{
B(=)[b p x .3 a -1 s .8 (1-2*p) sat (p/5)] A(q,p)[s .97 r 120±20 h 190] // approximate symmetry from ~120° rotation // note that p,q alternates between 0,1 and 1,0 }
rule {}
shape B(number p, number q){// single twist
S(7,2)[z -1 a -.98] B(=)[s .99 .99 .99 r .5±1 b .01 q sat .002 p a .02] // variation in rotation angle for texture }
path S(number n,m){// generic star
MOVETO(0,.5) loop n [r (m*360/n)] LINETO(0,.5) CLOSEPOLY() FILL(CF::EvenOdd)[] }