Imaging Lingo - Hyporoid Illusion

 

Compatibilities:

This item has not yet been rated

Playing around with lingo and accidentally made this optical illusion. It looks like a star(ish)-shaped cylinder, but you can't figure out which end is the top and which is the bottom. The source has all the needed members in it. The source has been compiled in MX2004, I'm not sure what versions it will open in.

Download PC Source

property t,a,b,c on beginsprite me      a = 45   b = 7   c = 5   t=0      end on exitframe me      t=t+0.1   if t>360 then t=t-360         xx = (a - b) *cos(t) + c *cos((a/b -1)*t)   yy = (a - b) *sin(t) - c * sin((a/b -1)*t)            member(3).image.setPixel(xx+100, 50+yy, rgb(0, 0, 250))   member(3).image.setPixel(xx+100-(26*2), 50+yy+(26*2), rgb(0, 0, 250))      repeat with i = 1 to 25     member(3).image.setPixel(xx+100-(i*2), 50+yy+(i*2), rgb(250,0,0))   end repeat      member(3).image.copypixels(member(4).image,member(3).rect,member(3).rect,[#blendlevel:4])       end