Mathematica code:

ListAnimate[ Table[ ImageCrop[ Graphics[ {Opacity[1, White], Line[ Table[ {-.99^n*Sin[n*.533], .99^n*Cos[n*.533]},  {n, 0, 700}]]}, PlotRange -> p, ImageSize -> 700, Background -> Black],  {500, 700}], {p, 0.1637, .4711, .01}]]