Posts tagged: let yr eyes blur


Mathematica code:
Animate[ Graphics[  Line[   Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]], PlotRange -> p],{p, .39, .37, .01}]

Mathematica code:

Animate[
Graphics[
Line[
Table[{-.98^n*Sin[n*Pi/2], .98^n*Cos[n*Pi/2]}, {n, 0, 1000}]],
PlotRange -> p],
{p, .39, .37, .01}]