Müller-Lyer Illusion

Manipulate[
maxa=.3;
Graphics[{White,Rectangle[{-maxa,0.4},{1,.6}],RGBColor[.3,.2,.7],Thickness[.0075],
Line[{{0,.5},{1,.5}}],
Line[{{0,.5},{pt,.5}}],Line[{{pt,.5},{1,.5}}],Line[{{0,.5},{0-a,.4}}],Line[{{0,.5},{0-a,.6}}],Line[{{pt,.5},{pt+a,.6}}],Line[{{pt,.5},{pt+a,.4}}],Line[{{1,.5},{1-a,.6}}],Line[{{1,.5},{1-a,.4}}]},PlotRange->{{-.4,1.2},{.3,.7}},ImageSize->500],{{a,.1,"acuteness"},0,.3,.01,Appearance->"Labeled"},
{{pt,.25,"midpoint?"},.25,.75,.005},TrackedSymbols->Manipulate]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Müller-Lyer Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/MullerLyerIllusion/

Contributed by: Gary McClelland and James Faughnan

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 »