Square-in-a-Circle Illusion

Author

Eric W. Weisstein
August 30, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/Square-in-a-CircleIllusion.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Square-in-a-CircleIllusion.html.

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

Graphic

RectangleBorder[{x1_,y1_},{x2_,y2_}]:=Line[{{x1,y1},{x2,y1},{x2,y2},{x1,y2},{x1,y1}}]

Show[GraphicsArray[{
Graphics[{Circle[{0,0},1],RectangleBorder[#{-1,-1},#{1,1}]},
AspectRatio->Automatic,
PlotRange->{{-1.5,1.5},{-1.5,1.5}}]&/@
{1.2,.65}
}]]