Mathematica code:
ListAnimate[
Table[
ImageCrop[
Graphics[
{Opacity[1, White],
Line[
Table[
{-.99^n*Sin[n*.533], .99^n*Cos[n*.533]},
{n, 0, 700}]]},
PlotRange -> p, ImageSize -> 700, Background -> Black],
{500, 700}],
{p, 0.1637, .4711, .01}]]
Mathematica code:
ListAnimate[
Table[
ImageCrop[
Graphics[
{Opacity[1, White],
Line[
Table[
{-.99^n*Sin[n*.533], .99^n*Cos[n*.533]},
{n, 0, 700}]]},
PlotRange -> p, ImageSize -> 700, Background -> Black],
{500, 700}],
{p, 0.1637, .4711, .01}]]
Stare at it for 10 seconds. Then look at your hand.