Wheel Illusion

Manipulate[Dynamic@DynamicModule[{q=6,s=0},Dynamic[If[gg,s=s+sam];Graphics[Flatten[Table[{
With[{qq=1/(2^(q-r))},Table[{
If[c==0,Hue[r/(q-1)],ColorData[c,r]],Disk[{0,0},q-r,{s+a 2Pi-qq,s+a 2Pi+qq}]},{a,qq,1,qq}]],GrayLevel[b],Disk[{0,0},q-r-1]},{r,1,q-1}]],ImageSize->Medium,Background->GrayLevel[b],PlotRange->All]]],{{sam,1,"speed"},0,Pi},{{gg,False,"run"},{False,True}},{{c,43,"color"},0,43,1,ControlPlacement->Left,ImageSize->Tiny},
{{b,.5,"background"},0,1,ControlPlacement->Left,ImageSize->Tiny},ControlPlacement->Top,AutorunSequencing->{2,3,4}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Wheel Illusion" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/WheelIllusion/

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 »