Munker-White Illusion

Manipulate[Graphics[{Opacity[o],Black,Table[Rectangle[{0,i},{length,i+1}],{i,0,20,2}],Opacity[1],color,Table[Rectangle[{4,i},{14,i+1}],{i,2,18,2}],Table[Rectangle[{18,i},{28,i+1}],{i,3,19,2}]},PlotRange->{{0,32},{0,21}}],{{o,1,"bars opacity"},0,1},{{length,32,"bars length"},0,32},Delimiter,{color,Blue}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Munker-White Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/MunkerWhiteIllusion/

Contributed by: Rob Morris

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 »