Delboeuf Illusion

Author

Eric W. Weisstein
June 6, 2002

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

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

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

Initialization

<<Graphics`Colors`

DelboeufIllusion[r1_,r2_]:={
{{Red,Circle[{0,0},1]},Circle[{0,0},r1]},
{{Red,Circle[{1.5(r1+r2),0},1]},Circle[{1.5(r1+r2),0},r2]}
}

Figure

Show[GraphicsArray[{
Graphics[DelboeufIllusion[.8,1.2],AspectRatio->Automatic],
Graphics[DelboeufIllusion[.5,5],AspectRatio->Automatic]
}]]