/*

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