Bullseye Illusion

Manipulate[Graphics[{RGBColor[.25,.43,.82],Disk[],RGBColor[.7,.89,.64],Disk[{0,0},(1- r r)^(1/2)],White,Disk[{0,0},r]},ImageSize->Medium],{{r,1/(2^(1/2)),"radius of white disk"},1/(3 (2^(1/2))),1/(2^(1/2))}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Bullseye Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/BullseyeIllusion/

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 »