Message Boards Message Boards

GROUPS:

[GIF] Moving bars illusion

Posted 3 years ago
5423 Views
|
5 Replies
|
14 Total Likes
|

enter image description here

These bars are moving at a constant speed together, but it looks as if they move to the right in an alternating fashionÂ…

Code:

size={sizex,sizey}={600,400};
n=16;
bars=sizex Subdivide[-1/2,1/2,2n-1];
width=N[bars[[2]]-bars[[1]]];
bars=Rectangle[{#1,-sizey/2},{#2,sizey/2}]&@@@Partition[bars,2];
cols={Lighter[Yellow,1/5],Darker[Blue,1/5]};
heights=N[sizey Subdivide[-1/2,1/2,Length[cols]+1][[2;;-2]]];
ClearAll[CreateScene]
CreateScene[\[Alpha]_]:=Module[{recs},
    recs=MapThread[{#1,Rectangle[{\[Alpha] sizex-2 width,#2-width/2},{\[Alpha] sizex+2 width,#2+width/2}]}&,{cols,heights}];
    Rasterize[Graphics[{bars,recs},PlotRange->({{-1,1},{-1,1}}size/2),PlotRangePadding->0],"Image",RasterSize->size,ImageSize->size]
]

Manipulate[CreateScene[a], {a, -0.6, 0.6}]

enjoy!

5 Replies

Nice. If these were cars on a US freeway, one of them would be frantically changing lanes back and forth in an attempt to always travel in the fastest lane, which would of course bring an end to the continuous progress.

Hadn't thought about that analogy! great!

Maybe this explains my wife's exclamation that the other driver "came out of nowhere." Now that I think of it, I think the other driver was in a yellow car. Hmm...

Posted 2 years ago

I am impressed. Perhaps a suggestion, put another screen below the first one without the black bars so we can see the rectangles move together at the same speed.

enter image description here -- you have earned Featured Contributor Badge enter image description here

Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you, keep it coming, and consider contributing to the The Notebook Archive!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract