Jump to content

Photo

Optical illusions

XB

64 replies to this topic

#1 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • 4,230 posts
  • Location:Denmark

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.

  • Tursi , GratedTopping , ti99iuc and 6 others like this

#2 senior_falcon OFFLINE  

senior_falcon

    Stargunner

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

Posted Sat Aug 19, 2017 10:11 AM

That is a neat optical illusion!


  • sometimes99er and notwhoyouthink like this

#3 Sinphaltimus OFFLINE  

Sinphaltimus

    River Patroller

  • 2,523 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


  • sometimes99er and Ksarul like this

#4 Willsy OFFLINE  

Willsy

    River Patroller

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

Posted Thu Aug 24, 2017 5:16 AM

WTF!
  • sometimes99er likes this

#5 RXB OFFLINE  

RXB

    River Patroller

  • 3,601 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.


  • helocast likes this

#6 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,230 posts
  • Location:Denmark

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.

  • ti99iuc , Ksarul , TheMole and 2 others like this

#7 ti99iuc ONLINE  

ti99iuc

    Stargunner

  • 1,665 posts
  • Location:Italy

Posted Sat Sep 2, 2017 3:35 PM

ahah... fantastic


  • sometimes99er likes this

#8 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 228 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.

  • sometimes99er , Tursi , ti99iuc and 2 others like this

#9 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,230 posts
  • Location:Denmark

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.

  • sometimes99er , Ksarul , Schmitzi and 2 others like this

#11 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 228 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.

  • sometimes99er , ti99iuc , Ksarul and 1 other like this

#12 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 228 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.

  • sometimes99er , ti99iuc , Ksarul and 2 others like this

#13 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 228 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


  • sometimes99er , ti99iuc , Ksarul and 3 others like this

#14 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,230 posts
  • Location:Denmark

Posted Mon Sep 4, 2017 12:10 AM

Lovely. :)



#15 PeteE OFFLINE  

PeteE

    Chopper Commander

  • 228 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.

  • sometimes99er , ti99iuc , Ksarul and 3 others like this

#16 ti99iuc ONLINE  

ti99iuc

    Stargunner

  • 1,665 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.

  • sometimes99er likes this

#17 TheBF OFFLINE  

TheBF

    Stargunner

  • 1,046 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,230 posts
  • Location:Denmark

Posted Tue Sep 5, 2017 12:43 AM

Straight dice
  
8)

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

  • ti99iuc , Ksarul , Lee Stewart and 2 others like this

#19 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 3,146 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


  • sometimes99er , ti99iuc , Ksarul and 1 other like this

#20 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • Topic Starter
  • 4,230 posts
  • Location:Denmark

Posted Wed Sep 6, 2017 12:42 AM

Two shades of gray
 
8)

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

  • ti99iuc and Ksarul like this

#21 oddemann ONLINE  

oddemann

    Star Raider

  • 95 posts

Posted Sun Sep 10, 2017 6:03 AM

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

Very nice!


  • Sinphaltimus likes this

#22 mizapf OFFLINE  

mizapf

    River Patroller

  • 3,668 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


  • ti99iuc , Ksarul and Schmitzi like this

#23 Airshack OFFLINE  

Airshack

    Stargunner

  • 1,029 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!


  • sometimes99er likes this

#24 Sinphaltimus OFFLINE  

Sinphaltimus

    River Patroller

  • 2,523 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. 


  • sometimes99er likes this

#25 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 3,146 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


  • Ksarul , Fredrik Öhrström , mizapf and 1 other like this





Also tagged with one or more of these keywords: XB

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users