Scintillating Grid Illusion

Author

Eric W. Weisstein
November 19, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/ScintillatingGridIllusion.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ScintillatingGridIllusion.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Code

BlackDotIllusion[aspect_,dx_,r_]:=Module[{i,j},
Graphics[{
{GrayLevel[0],Polygon[{{0,0},{aspect,0},{aspect,1},{0,1}}]},
{GrayLevel[.6],AbsoluteThickness[6],Table[Line[{{i,0},{i,1}}],{i,dx,aspect-dx,dx}],
Table[Line[{{0,i},{aspect,i}}],{i,dx,1-dx,dx}],
{GrayLevel[1],Table[Disk[{i,j},r],{i,dx,aspect-dx,dx},{j,dx,1-dx,dx}]}
}
},AspectRatio->Automatic]
]

Graphic

Show[BlackDotIllusion[GoldenRatio,.2,.022]]