800x800
Mathematica code:
Graphics[
GraphicsComplex[
Table[
{-.9908^n*Sin[n*3.87613], .9908^n*Cos[n*3.87613]}, {n, 0, 750}],
Polygon[Table[i, {i, 1, 750, 1}]]],
PlotRange -> .05, ImageSize -> 800]
I can see foreeeeeeeeveeeeeeeerrrrrrrrrrr
love optical illusions and things like this not really an illusion just gets to the point where its to small to see