Jump to content

Photo

Optical illusions

XB

27 replies to this topic

#26 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 3,908 posts
  • Location:Denmark

Posted Tue Sep 12, 2017 1:14 AM

I keep adding them to one program for myself personally. Something that doesn't need to close and re-run but the first one "Are the shapes moving one after another ?" doesn't clear - it stays in VDP I guiess or someplace and just runs on top of the others (the two moving rectangles). So perhaps I can add that to the bottom of the list with a special note that the program will quit after running that particular illusion. Unless someone knows of a command I can use in XB that will clear the proper memory regions. 

 
You should be able to use this to get rid of the 2 sprites:
 
call sprite(#1,32,1,200,1,#2,32,1,200,1)


#27 Airshack OFFLINE  

Airshack

    Dragonstomper

  • 509 posts
  • Location:Phoenix, AZ

Posted Sun Sep 17, 2017 12:22 PM

 

This reminds me of these color illusions where you believe to see some other color although they are the same or the same color for actually different ones... maybe someone wants to give it a try?

 

How many colors can you see from three?

100 call clear::call screen(1)::call color(6,1,1,7,1,1,8,1,1)::c$=rpt$("00FF",4)::call char(72,c$,80,c$,88,c$)
110 c$=rpt$("H",14)&rpt$("P",14)::d$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1):d$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run


#28 Airshack OFFLINE  

Airshack

    Dragonstomper

  • 509 posts
  • Location:Phoenix, AZ

Posted Sun Sep 17, 2017 12:32 PM

See the light blue easier here?

100 call clear::call screen(1)::call color(6,1,1,7,1,1,8,1,1)::c$=rpt$("0000FFFF",2)::call char(72,c$,80,c$,88,c$)
110 c$=rpt$("H",14)&rpt$("P",14)::d$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1):d$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run







Also tagged with one or more of these keywords: XB

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users