Delboeuf Illusion

Manipulate[Graphics[Flatten[{RGBColor[.33,.26,.78],Circle[{-2,0},rl],Circle[{2,0},rr],RGBColor[1,.26,0],Circle[{-2,0},1],Circle[{2,0},1],If[sr,{RGBColor[.33,.26,.78],Circle[{-2,0},rr],Circle[{2,0},rl],RGBColor[.67,.75,.15],Line[{{-3,1},{3,1}}],Line[{{-3,-1},{3,-1}}]},{}]}],PlotRange->{{-4,4},{-2,2}},ImageSize->500],{{rl,.9,"left blue circle"},0,1.5},{{rr,1.1,"right blue circle"},0,1.5},{{sr,False,"reference objects"},{False,True}},SaveDefinitions->True]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Delboeuf Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/DelboeufIllusion/

Contributed by: Michael Schreiber

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »