Music: “Pattern 3” by Moritz Von Oswald Trio
Mathematica code:
Animate[ Graphics[ Line[ Table[{-.99^n*Sin[n*a], .99^n*Cos[n*a]}, {n, 0, 1000}]], PlotRange -> 0.0918],{a, 3.18, 2.96}]