Jump to content

Photo

Optical illusions

XB

27 replies to this topic

#1 sometimes99er OFFLINE  

sometimes99er

    River Patroller

  • 3,907 posts
  • Location:Denmark

Posted Sat Aug 19, 2017 9: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
 

Edited by sometimes99er, Sat Sep 2, 2017 3:13 PM.


#2 senior_falcon OFFLINE  

senior_falcon

    Dragonstomper

  • 908 posts
  • Location:Lansing, NY, USA

Posted Sat Aug 19, 2017 10:11 AM

That is a neat optical illusion!



#3 Sinphaltimus OFFLINE  

Sinphaltimus

    Stargunner

  • 1,920 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,009 posts
  • Location:Uzbekistan (no, really!)

Posted Thu Aug 24, 2017 5:16 AM

WTF!

#5 RXB OFFLINE  

RXB

    River Patroller

  • 2,721 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
  • 3,907 posts
  • Location:Denmark

Posted Sat Sep 2, 2017 3:13 PM

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
 


#7 ti99iuc ONLINE  

ti99iuc

    Stargunner

  • 1,190 posts
  • Location:Italy

Posted Sat Sep 2, 2017 3:35 PM

ahah... fantastic



#8 PeteE OFFLINE  

PeteE

    Star Raider

  • 80 posts
  • Location:Beaverton, OR

Posted Sat Sep 2, 2017 4:58 PM

Sawteeth

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, Sun Sep 3, 2017 6:17 PM.


#9 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Sun Sep 3, 2017 12:39 AM

Excellent.  :thumbsup:



#10 ramidavis OFFLINE  

ramidavis

    Space Invader

  • 21 posts

Posted Sun Sep 3, 2017 12:41 PM

...A compilation program of many optical illusions would be grand...

1 CALL CLEAR::PRINT "ILLUSION SELECTION:"
2 PRINT"1 sometimes99er -" :: PRINT"Are the shapes moving one"
3 PRINT"after another ?": :
4 PRINT"2 sometimes99er -" :: PRINT"Are the horizontal lines"
5 PRINT"slightly bent ?": :
6 PRINT "3 PeteE -" :: PRINT"no name given": :
7 INPUT CHOICE::ON CHOICE GOTO 100,200,300
98 REM sometimes99er
99 REM 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
198 REM sometimes99er
199 REM Are the horizontal lines slightly bent ?
200 call clear::call screen(14)::call color(6,1,1,7,1,1)::c$="FF"&rpt$("80",15)&"FF"&rpt$("0",15)
210 call char(72,c$,80,c$)::c$=rpt$("HJPR",8)&rpt$("IKQS",8)::for i=0 to 23
220 display at(i+1,1):seg$(c$,3+32*(i and 1)+abs((i and 6)/2-2),28);
230 next i::call color(6,1,2,7,1,16):: for i=0 to 9^9::next i
298 REM PeteE
299 REM no name given
300 call clear::call screen(16)::call color(6,1,1)::call char(72,"00203038383838B80301FF7F3F000000C0E0FFFFFF1E0F07")
310 call char(75,"0000F0F8FC0000803B39383838180800F8F8F8783C3E3F3F")::c$=rpt$("H IJK LM",8)
320 for i=0 to 23::display at(i+1,1):seg$(c$,25-i,28);::next i
330 call color(6,2,16)::for i=0 to 9^9::next i

Compilation of the above effects (Except the RXB Version of illusion #1) into a single program, with a menu. You will need to stop the program and re-run to pick a different effect.


Edited by ramidavis, Sun Sep 3, 2017 12:46 PM.


#11 PeteE OFFLINE  

PeteE

    Star Raider

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

    Star Raider

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

    Star Raider

  • 80 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
  • 3,907 posts
  • Location:Denmark

Posted Mon Sep 4, 2017 12:10 AM

Lovely. :)



#15 PeteE OFFLINE  

PeteE

    Star Raider

  • 80 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 ONLINE  

ti99iuc

    Stargunner

  • 1,190 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 ONLINE  

TheBF

    Moonsweeper

  • 306 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
  • 3,907 posts
  • Location:Denmark

Posted Tue Sep 5, 2017 12:43 AM

Straight dice
  
100 call clear::call screen(2)::read c$,d$::call char(72,c$,75,d$,80,c$,83,d$)
110 read c$,d$::c$=c$&d$::for i=0 to 12::display at(i+5,9):seg$(c$,i*13+1,13);::next i
120 call color(6,16,2)::call screen(16)::goto 120
130 data "0060600000060600000606000060600000001818","0000000C0C0000000000000018180000000000303"
140 data "HPHPHRIQIQIPHPHPHPJQIQIQHPIQ         PHQI         HPIQ         PHQI         MUIQ         QI"
150 data "SK         IQHP         QIPH         IQHP         QIPHQIQIQLPHPHPHPIQIQITHPHPH"
run
 

Edited by sometimes99er, Tue Sep 5, 2017 12:56 AM.


#19 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 2,421 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
  • 3,907 posts
  • Location:Denmark

Posted Wed Sep 6, 2017 12:42 AM

Two shades of gray
 
100 call screen(2)::call clear::call vchar(1,21,48,144)::call hchar(24,21,32,6)
110 for i=1 to 23 step 2::call hchar(i,1,40,32)::call hchar(i,7,48,6)::next i
120 call color(2,2,2,3,15,15)::call screen(16)::for i=0 to 9^9::next i
run
 

Edited by sometimes99er, Wed Sep 6, 2017 12:45 AM.


#21 oddemann OFFLINE  

oddemann

    Space Invader

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

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

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

    Stargunner

  • 1,920 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,421 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   1 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