Rotation* (600p x 600p):

r = 1

a = 1.996

0 ≤ s ≤ 500

*(0 ≤ t ≤ 0.8)

Mathematica code:

Manipulate[
 Graphics[
  Rotate[Line[Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], t],
 PlotRange -> 1.1],
{r, .1, 1}, {a, 0.001, 4*Pi}, {s, 1, 500, 1}, {t, 0, 2.7, .2}]