[Flash 10 is required to watch video]
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]
Reblogged from archery