startshape flower[sat 0.65 b 1]

path flower {
    MOVETO(cos(-30), sin(-30))
    loop 6 [r 60]
        ARCTO(cos(30), sin(30), 1, 0.5, 0)
    CLOSEPOLY(CF::Align)
    loop i = 9 [s 0.75 h 5] {
        FILL [r (i * 3)]
        STROKE(CF::MiterJoin) [r (i * 3) sat 1]
    }
}
