Music generated with Otomata!

Continuous variation in the parameter “a” starting at a = 0

Unknown code parameters : r, a(final), s

Visuals created with Mathematica code:

Manipulate[
 Graphics[
  Line[
   Table[
    {-r^n*Sin[n*a], r^n*Cos[n*a]}, {n, 0, s}]],
  PlotRange -> .01], 
 {r, .1, 1}, {a, 0.001, 4*Pi, .00001}, {s, 1, 10000, 1]