Mathematica code:
ListAnimate[Table[ ImageCrop[ Graphics[ {White, Line[ Table[ {-.983^n*Sin[n*9.34], .983^n*Cos[n*9.34]}, {n, 0, s}]]}, PlotRange -> 1/40, ImageSize -> 800, Background -> Black], {500, 700}],{s, 46, 350, 4}]]