Jump to content
sometimes99er

Optical illusions

Recommended Posts

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

  • Like 2

Share this post


Link to post
Share on other sites

RXB Version with a slight change to last line:

100 call clear::call screen(16)::call char(32,rpt$("0F",&"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.

  • Like 1

Share this post


Link to post
Share on other sites

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",
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
  • Like 5

Share this post


Link to post
Share on other sites

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
  • Like 4

Share this post


Link to post
Share on other sites

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
  • Like 5

Share this post


Link to post
Share on other sites

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

  • Like 6

Share this post


Link to post
Share on other sites

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$("[email protected]@AFGBC",3):$=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
  • Like 6

Share this post


Link to post
Share on other sites

 

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",&rpt$("IKQS",::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

Share this post


Link to post
Share on other sites

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

  • Like 4

Share this post


Link to post
Share on other sites

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.)

post-35000-0-19036600-1505053571.jpg

  • Like 3

Share this post


Link to post
Share on other sites

 

Are the shapes moving one after another ?

 

100 call clear::call screen(16)::call char(32,rpt$("0F",&"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!

  • Like 1

Share this post


Link to post
Share on other sites

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.

  • Like 1

Share this post


Link to post
Share on other sites

 

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?

 

post-35226-0-74318900-1505156681.png

 

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

 

 

box-shadow.mag

  • Like 4

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...