Thursday, December 12, 2019

Polygon Rotations


RSP[c_,m_,t_,s_]:=Module[{r,sh,k,n,table},
r=RandomReal[{1,1.5}]; sh=RandomReal[{.8,.9}];
k=RandomInteger[{400,600}]; n=RandomInteger[{25,100}];
table=Table[({c,c}+r(1-sh(1-(1+Sin[k*a])/2)){Cos[a],Sin[a]}),
{a,0,2Pi,2Pi/n}];
{Graphics[{Gray,Polygon[table]},ImageSize->s,
PlotLabel->{"c"->c,"r"->r,"sh"->sh,"k"->k,"n"->n}]->
Graphics[Table[{RGBColor[Table[Mod[j,2],{i,3}]],
Rotate[Polygon[(1-.999/m*j)table],j*Pi/(t*m)]},{j,m}],
ImageSize->s,PlotLabel->{"m"->m,"t"->t}]}]
RSP[0,900,2,300]


No comments:

Post a Comment