Mine

$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}]]$

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}]]