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