Hering Illusion

HeringIllusion[n_,thick_,linesp_:.2]:=Module[{},
Graphics[{
{
Thickness[thick],Orange,
Line[{{-1,#},{1,#}}]&/@{-linesp,linesp}
},
{
Line/@Table[{#,-#}&[{-1,0}+i/n{1,1}],{i,n}],
Line/@Table[{#,-#}&[{1,0}+i/n{-1,1}],{i,n-1}]
}
}
]
]

Manipulate[HeringIllusion[n,thick,nn],{{n,4,"number of lines"},1,30,1},Delimiter,{{thick,.004,"orange line thickness"},.004,.01},{{nn,.25,"orange line separation"},0,1},SaveDefinitions->True]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Hering Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/HeringIllusion/

Contributed by: Rob Morris

Based on a program by: Margherita Barile

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 »