intothecontinuum: r = 1 2.35664 ≤ a ≤ 2.35773 s = 320 Mathematica code: Manipulate[Graphics[Line[ Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]], PlotRange -> 1.3], {r, .1, 1}, {a, 0.001, 4*Pi, .00005}, {s, 1, 800, 1}]

intothecontinuum:

r = 1

2.35664 ≤ a ≤ 2.35773

s = 320

Mathematica code:

Manipulate[Graphics[Line[
   Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
  PlotRange -> 1.3],
 {r, .1, 1}, {a, 0.001, 4*Pi, .00005}, {s, 1, 800, 1}]

(via strle)