Hering Illusion

Author

Eric W. Weisstein
June 6, 2002

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

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

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

Initialization

HeringIllusion[n_,linesp_:.2]:=Module[{},
Graphics[{
{
Thickness[.01],
Line[{{-1,#},{1,#}}]&/@{-linesp,linesp}
},
{
Line/@Table[{#,-#}&[{-1,0}+i/n{1,1}],{i,n}],
Line/@Table[{#,-#}&[{1,0}+i/n{-1,1}],{i,n-1}]
}
}
]
]

Figure

Show[HeringIllusion[10,.2],AspectRatio->Automatic]