![intothecontinuum:
Mathematica code:
ListAnimate[ Table[Show[ Table[Graphics[ GraphicsComplex[ Table[ {-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586], (.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]}, {n, 0, 416}], {Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}], PlotRange -> .04, ImageSize -> 500], {G, {0, 1}}]],{t, 0, .95, .05}]]](http://25.media.tumblr.com/tumblr_m3q4x8qKaf1qfjvexo1_r2_500.gif)
Mathematica code:
ListAnimate[
Table[Show[
Table[Graphics[
GraphicsComplex[
Table[
{-(.975 + .025*Mod[.5 t + .5 G, 1])^n*Sin[n*3.586],
(.975 + .025*Mod[.5 t + .5 G, 1])^n*Cos[n*3.586]},
{n, 0, 416}],
{Opacity[(G +(.3+ t) (-1)^G)], Polygon[Table[i, {i, 1, 416, 1}]]}],
PlotRange -> .04, ImageSize -> 500],
{G, {0, 1}}]],
{t, 0, .95, .05}]]








