Optical illusions

[sometimes99er]

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
 

Tip. If you include the run and a linefeed in your copy of the above, and paste into Classic99 (being ready for input in Extended Basic), then the program is executed in CPU Overdrive.

Edited November 23, 2021 by sometimes99er
A previous site update removed "8)" from the code.

[senior_falcon]

That is a neat optical illusion!

[Sinphaltimus]

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

[Willsy]

WTF!

[+RXB]

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.

[sometimes99er]

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
 

 

Edited November 23, 2021 by sometimes99er
A previous site update removed all the "8)" from the code.

[ti99iuc]

ahah... fantastic

[PeteE]

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 November 21, 2021 by PeteE

[sometimes99er]

Excellent.

[ramidavis]

...

Edited January 2, 2018 by ramidavis

[PeteE]

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 September 4, 2017 by PeteE

[PeteE]

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 September 4, 2017 by PeteE

[PeteE]

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]

Lovely.

[PeteE]

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 November 21, 2021 by PeteE

[ti99iuc]

Really Great !

 

I had fun trying all of them

thanks

Edited September 4, 2017 by ti99iuc

[+TheBF]

 

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 September 5, 2017 by TheBF

[sometimes99er]

Straight dice

 

Edited April 4, 2018 by sometimes99er

[Asmusr]

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]

Two shades of gray

100 call screen(16)::call clear::call color(2,2,2,3,15,15)::for i=1 to 23 step 2::call hchar(i,1,40,32)
110 call hchar(i,8,48,6)::call hchar(i+1,20,48,6)::next i::for i=0 to 9^9::next i
run
 

 

Edited November 23, 2021 by sometimes99er
Whatever ...

[oddemann]

Should be put into one program or a demo.

Very nice!

[+mizapf]

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

[Airshack]

 

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!

[Sinphaltimus]

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.

[Asmusr]

 

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?

 

 

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