Jump to content

Photo

Optical illusions

XB

64 replies to this topic

#1 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • 4,113 posts

Posted Sat Aug 19, 2017 9:21 AM

Are the shapes moving one after another ?
 
8)

Edited by sometimes99er, Tue Apr 3, 2018 9:53 PM.


#2 senior_falcon OFFLINE  

senior_falcon

    Stargunner

  • 1,177 posts
  • Location:Lansing, NY, USA

Posted Sat Aug 19, 2017 10:11 AM

That is a neat optical illusion!



#3 Sinphaltimus OFFLINE  

Sinphaltimus

    River Patroller

  • 2,495 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Sat Aug 19, 2017 1:48 PM

That with only 2 lines of code. - A compilation program of many optical illusions would be grand. Perhaps ask everyone to get involved. Sumbit less than 10 lines of code showing an optical illusion in Merge format.

 

8D



#4 Willsy OFFLINE  

Willsy

    River Patroller

  • 3,062 posts
  • Location:Uzbekistan (no, really!)

Posted Thu Aug 24, 2017 5:16 AM

WTF!

#5 RXB ONLINE  

RXB

    River Patroller

  • 3,146 posts
  • Location:Vancouver, Washington, USA

Posted Thu Aug 24, 2017 7:02 AM

RXB Version with a slight change to last line:

100 call clear::call screen(16)::call char(32,rpt$("0F",8)&"FFFFFFFF")::call magnify(2)
110 call sprite(#1,33,5,64,1,0,4,#2,33,12,124,2,0,4)::call key("",0,k,s)

Will run forever until any key is pressed.



#6 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,113 posts

Posted Sat Sep 2, 2017 3:13 PM

Are the horizontal lines slightly bent ?
 
8)

Edited by sometimes99er, Tue Apr 3, 2018 9:53 PM.


#7 ti99iuc OFFLINE  

ti99iuc

    Stargunner

  • 1,467 posts
  • Location:Italy

Posted Sat Sep 2, 2017 3:35 PM

ahah... fantastic



#8 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 148 posts
  • Location:Beaverton, OR

Posted Sat Sep 2, 2017 4:58 PM

Zöllner Illusion

100 call clear::call screen(16)::call color(6,1,1)::call char(72,"00203038383838B80301FF7F3F000000C0E0FFFFFF1E0F07")
110 call char(75,"0000F0F8FC0000803B39383838180800F8F8F8783C3E3F3F")::c$=rpt$("H IJK LM",8)
120 for i=0 to 23::display at(i+1,1):seg$(c$,25-i,28);::next i
130 call color(6,2,16)::for i=0 to 9^9::next i
run

Edited by PeteE, Tue Jan 9, 2018 12:14 AM.


#9 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,113 posts

Posted Sun Sep 3, 2017 12:39 AM

Excellent.  :thumbsup:



#10 ramidavis OFFLINE  

ramidavis

    Chopper Commander

  • 119 posts

Posted Sun Sep 3, 2017 12:41 PM

...


Edited by ramidavis, Tue Jan 2, 2018 10:45 AM.


#11 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 148 posts
  • Location:Beaverton, OR

Posted Sun Sep 3, 2017 6:16 PM

 Diagonal checkerboard

100 call clear::call screen(16)::call color(6,1,1,7,1,1)::call char(72,"F0F0F0F00F0F0F0F0F0F0F0FF0F0F0F0")
110 call char(80,"FFFFFFFFFFFFFFFF0103070F1F3F7FFF0080C0E0F0F8FCFEFEFCF8F0E0C08000")::call char(84,"FF7F3F1F0F070301")
120 for i=0 to 23::display at(i+1,1):rpt$(seg$("PPHPPS TI   PR Q",(i and 3)*4+1,4),7);::next i
130 call color(6,2,16,7,13,16)::for i=0 to 9^9::next i
run

Edited by PeteE, Sun Sep 3, 2017 7:52 PM.


#12 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 148 posts
  • Location:Beaverton, OR

Posted Sun Sep 3, 2017 7:52 PM

Cubic

100 call clear::call screen(2)::call color(6,1,1,7,1,1)
110 call char(72,"FF7F7F3F3F1F1F0FF0F8F8FCFCFEFEFF")::call char(80,"0F1F1F3F3F7F7FFFFFFEFEFCFCF8F8F0")
120 for i=0 to 23::display at(i+1,1):rpt$(seg$("HIPQHI",(i and 1)*2+1,4),7);::next i
130 call color(6,16,6,7,5,6)::for i=0 to 9^9::next i
run

alternatively, Cubert

100 call clear::call screen(2)::call color(6,1,1,7,1,1)
110 call char(72,"FFFFFFFF7F1F070180E0F8FEFFFFFFFF")::call char(80,"01071F7FFFFFFFFFFFFFFFFFFEF8E080")
120 for i=0 to 23::display at(i+1,1):rpt$(seg$("QHIPHQPI",(i and 3)*2+1,2),14);::next i
130 call color(6,16,6,7,5,6)::for i=0 to 9^9::next i
run

Edited by PeteE, Sun Sep 3, 2017 8:06 PM.


#13 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 148 posts
  • Location:Beaverton, OR

Posted Sun Sep 3, 2017 11:42 PM

Confusing Circle-things

100 call clear::call screen(15)::call color(6,15,15,7,15,15)
110 call char(72,"FE8282828282FE001EE28281814147780C34C28241432C301824428181422418")::call char(76,"302C434182C2340C784741818182E21E")
120 call char(80,"FE8282828282FE001EE28281814147780C34C28241432C301824428181422418")::call char(84,"302C434182C2340C784741818182E21E")
130 restore 200::for i=3 to 21::read c$::display at(i,5):c$;::next i
140 call color(6,2,15,7,16,15)::for i=0 to 9^9::next i
200 data "     SJRJQIPHU     ","   TK         MT   ","  L   QHUMTLS   L  "," T  SJ       KR  T "," M L   JQIPM   J K "
210 data "U  T  S     U  Q  S","H K  M  PIS  L  I J","P T P  M   L  S P R","I L I S     P J M J","Q U Q M     M Q U Q"
220 data "J M J P     S I L I","R P S  I   J  P T P","J I  L  SMP  M  K H","S  Q  U     S  T  U"," K J   MPIQJ   L M "
230 data " T  RK       JS  T ","  L   SLTMUHQ   L  ","   TM         KT   ","     UHPIQJRJS     "
run



#14 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,113 posts

Posted Mon Sep 4, 2017 12:10 AM

Lovely. :)



#15 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 148 posts
  • Location:Beaverton, OR

Posted Mon Sep 4, 2017 12:42 AM

Not Moving

100 call clear::call screen(3)::call color(5,3,3,6,3,3,7,3,3,8,3,3)
110 restore 200::for i=0 to 3::read p$::call char(64+i*4,p$)::call char(80+i*4,p$)::next i
120 c$=rpt$("BSDU@QPQVWRSRCTEPA@AFGBC",3)::d$=rpt$("J[L]HYHINOJKZK\MXIXY^_Z[",3)
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,23-i*2,28);::display at(i*2+2,1):seg$(d$,23-i*2,28);::next i
140 call color(5,2,3,6,2,3,7,16,3,8,16,3)::for i=0 to 9^9::next i
200 data "001E3F61C0808080000080C06030180C00000103060C18300078FC8603010101"
210 data "070F181030206060E0F018080C04060600030F3860C0C0C000C0F01C06030303"
220 data "C0E070381C0E07030C060606060C18F0306060606030180F03070E1C3870E0C0"
230 data "6060203010180F070606040C0818F0E0C0C0C060380F0300030303061CF0C000"
run

That's it for tonight folks!


Edited by PeteE, Mon Sep 4, 2017 12:56 AM.


#16 ti99iuc OFFLINE  

ti99iuc

    Stargunner

  • 1,467 posts
  • Location:Italy

Posted Mon Sep 4, 2017 8:44 AM

Really Great !

 

 I had fun trying all of them :)

 
thanks

Edited by ti99iuc, Mon Sep 4, 2017 8:45 AM.


#17 TheBF OFFLINE  

TheBF

    Dragonstomper

  • 611 posts
  • Location:The Great White North

Posted Mon Sep 4, 2017 9:39 AM

 

Are the horizontal lines slightly bent ?
 

100 call clear::call screen(14)::call color(6,1,1,7,1,1)::c$="FF"&rpt$("80",15)&"FF"&rpt$("0",15)
110 call char(72,c$,80,c$)::c$=rpt$("HJPR",8)&rpt$("IKQS",8)::for i=0 to 23
120 display at(i+1,1):seg$(c$,3+32*(i and 1)+abs((i and 6)/2-2),28);
130 next i::call color(6,1,2,7,1,16):: for i=0 to 9^9::next i
run
 

 

This points to some deep insights into the architecture of our brains. 

I don't know what exactly, but the fact that we can't see the parallel lines clearly makes me wonder what else do I misperceive?

I suspect that answer is a great deal!

 

And if anybody here sees the parallel lines clearly, they are either a mutant or should maybe see their doctor :-)

 

Thanks Sometimes99er!

 

B


Edited by TheBF, Tue Sep 5, 2017 4:51 AM.


#18 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,113 posts

Posted Tue Sep 5, 2017 12:43 AM

Straight dice
  
8)

Edited by sometimes99er, Tue Apr 3, 2018 9:54 PM.


#19 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 2,778 posts
  • Location:Denmark

Posted Tue Sep 5, 2017 11:24 AM

Do you see dark dots appearing on top of the yellow ones, then vanishing again?

100 CALL CLEAR::CALL SCREEN(5)::CALL COLOR(1,11,5,2,13,5)
110 CALL CHAR(33,"3C7EFFFFFFFF7E3C",40,"3C3C3C3C3C3C3C3C",41,"0000FFFFFFFF0000")
120 FOR N=0 to 7
130 PRINT " (  (  (  (  (  (  (  (  (  "
140 PRINT ")!))!))!))!))!))!))!))!))!))"
150 PRINT " (  (  (  (  (  (  (  (  (  "
160 NEXT N
170 CALL KEY(0,K,S)::IF S=0 THEN 170



#20 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,113 posts

Posted Wed Sep 6, 2017 12:42 AM

Two shades of gray
 
8)

Edited by sometimes99er, Tue Apr 3, 2018 9:54 PM.


#21 oddemann OFFLINE  

oddemann

    Star Raider

  • 56 posts

Posted Sun Sep 10, 2017 6:03 AM

Should be put into one program ;) or a demo.

Very nice!



#22 mizapf OFFLINE  

mizapf

    River Patroller

  • 3,268 posts
  • Location:Germany

Posted Sun Sep 10, 2017 8:26 AM

Two shades of gray

 

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?

 

Here is an interesting image. The interesting thing about it is that there is no red pixel in it. (Clip the image and check it.)

Attached Files



#23 Airshack ONLINE  

Airshack

    Dragonstomper

  • 688 posts
  • Location:Phoenix, AZ

Posted Sun Sep 10, 2017 11:21 AM

 

Are the shapes moving one after another ?
 

100 call clear::call screen(16)::call char(32,rpt$("0F",8)&"FFFFFFFF")::call magnify(2)
110 call sprite(#1,33,5,64,1,0,4,#2,33,12,124,2,0,4)::for i=0 to 9^9::next i
run
 

 

That's cool!



#24 Sinphaltimus OFFLINE  

Sinphaltimus

    River Patroller

  • 2,495 posts
  • Distracted at the Keyboard
  • Location:Poconos, PA

Posted Mon Sep 11, 2017 11:37 AM

Should be put into one program ;) or a demo.

Very nice!


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. 



#25 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 2,778 posts
  • Location:Denmark

Posted Mon Sep 11, 2017 1:10 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?

 

Here is an interesting image. The interesting thing about it is that there is no red pixel in it. (Clip the image and check it.)

 

A difficult task with so few colors. Here's an image from Magellan: is the magenta box at the top a different shade from the one at the side?

 

Attached File  box-shadow.png   2.53KB   3 downloads

 

The answer is no, of course, since the TI only has one shade of magenta, but to me the top box definitely looks darker.

 

 

Attached Files







Also tagged with one or more of these keywords: XB

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users