intothecontinuum: Mathematica code: Animate[ Graphics[ Line[ Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]], PlotRange -> p],{p, .5, .47, .01}]

intothecontinuum:

Mathematica code:

Animate[
 Graphics[
  Line[
   Table[{-.987^n*Sin[n*Pi/4], .987^n*Cos[n*Pi/4]}, {n, 0, 800}]],
 PlotRange -> p],
{p, .5, .47, .01}]