Mathematica code:
Animate[ Graphics[ Line[ Table[{-.999^n*Sin[n*a], .999^n*Cos[n*a]}, {n, 0, 3249}]], PlotRange -> .0036],{a, 3.08914, 3.08917, .00001}]