Continuous Line Illusion

Author

Eric W. Weisstein
February 10, 2011

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

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

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

Figure

Loop[x_,l_]:={{x,x},{-l-x,x},{-l-x,-l-x},{x+1,-l-x},{x+1,x+1}}

V5

Show[Graphics[Line[Join@@Table[Loop[x,20],{x,10}]]],
AspectRatio->Automatic]

V6

Graphics[Line[Join@@Table[Loop[x,20],{x,10}]]]

Cool Thing I Accidentally Made While Constructing the Above

Loop[x_,l_]:={{x,x},{x-l,x},{x-l,x-l},{x+1,x-l},{x+1,x+1}}

Show[Graphics[Line[Join@@Table[Loop[x,10],{x,10}]]],
AspectRatio->Automatic]