Rotating Polygon Illusion

Manipulate[
If[rot>4Pi/n,rot=4Pi/n];
r=  16+Sin[ Sin[n t]];
Graphics[Rotate[Table[ParametricPlot[aff ^i{r Cos[t], r Sin[t]},{t,0,2Pi},PlotStyle->{Thick}][[1]],{i,rings}],rot,{0,0}],ImageSize->360,PlotRange->{{-16,16},{-16,16}}],
{{rot,0,"rotate"},0, 4Pi/n},
{{n,3,"polygon"},3,7,1},
{{rings,16,"number of rings"},3,20,1},
{{aff,0.85,"spacing"},0.7,0.95},
TrackedSymbols->Manipulate]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Rotating Polygon Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/RotatingPolygonIllusion/

Contributed by: Sándor Kabai

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »