Parametric Drawing 3

PPRT3[n_,m_,col_,s_]:=Module[{a,b,c,u},
u=Pi/n; a=RandomInteger[{5,12}];
b=RandomInteger[{13,36}];c=2*RandomInteger[{3,6}];
PF1[i_,t_]:=Cos[u*t+2i*Pi/c]+Cos[a*u*t+2i*Pi/c]+Cos[b*u*t+2i*Pi/c];
PF2[i_,t_]:=Sin[u*t+2i*Pi/c]-Sin[a*u*t+2i*Pi/c]+Sin[b*u*t+2i*Pi/c];
Graphics[Table[{ColorData[col][1-i/(2c)],Opacity[.1],
Polygon[Table[{PF1[i,t], PF2[i,t]}, {t, 0,m*Pi,Pi/c}]]},{i,2c}],
Background->RGBColor["lightgrey"],
PlotLabel->{"a"->a,"b"->b,"c"->c},ImageSize->s]];
PPRT3[9,6,"CherryTones",600]