petal-2.c3dg

camera { z -2 }

startshape petal
DEF SCALE 256
MACRO BROADEN (saw(u/PI/2)**3 * (BD+2))
MACRO X ((u/PI/2-0.35))
MACRO BROADEN2 (saw(X)**2 * saw(X+.2)**2 * (BD+10))
DEF PETALS 7
MACRO PETAL (.4+.5*max(
    cos((v+PI/14)*PETALS)*.5,
    sin(v*PETALS)))



rule loop {
    (SCALE) *  {  DEF { u = u + PI/SCALE} 
                L .002 H -.4 ry .1
    }
        (SCALE+1) *
        {
            DEF
            {
                v = v + 2*PI/SCALE;
                row = row + 1
            }
        }
            MESH
            {
                x (sin(v)*BROADEN2*PETAL)
                z (cos(v)*BROADEN2*PETAL)
                rz (u*4)
                y (u/4)
            }
}


rule petal {
    5*{DEF{ mesh=mesh+1000; BD=BD+20; } sy 1.1}
    loop
    {
       G .2
       y -.45 rx 30
        DEF {
            u = PI/16;
//            v = -(PI/4)
        }
    }
}