Optical illusions

[sometimes99er]

On 9/11/2017 at 7:37 PM, Sinphaltimus said:

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.

You should be able to use this to get rid of the 2 sprites:

call delsprite(all)

 

Edited November 23, 2021 by sometimes99er

[Airshack]

 

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?

 

How many colors can you see from three?

100 call clear::call screen(1)::call color(6,1,1,7,1,1,8,1,1)::c$=rpt$("00FF",4)::call char(72,c$,80,c$,88,c$)
110 c$=rpt$("H",14)&rpt$("P",14):$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1)$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run

[Airshack]

See the light blue easier here?

100 call clear::call screen(1)::call color(6,1,1,7,1,1,8,1,1)::c$=rpt$("0000FFFF",2)::call char(72,c$,80,c$,88,c$)
110 c$=rpt$("H",14)&rpt$("P",14):$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1)$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run

[sometimes99er]

Well, well, well, who's fooling who ?

 

Edited April 4, 2018 by sometimes99er

[sometimes99er]

[+TheBF]

A 2nd Shade of Gray for TI-BASIC ​

100 CALL CLEAR
110 CALL SCREEN(16)
120 PAT$="FFFFFFFFFFFFFFFF"
130 CALL CHAR(96,PAT$)
140 CALL CHAR(104,PAT$)
150 CALL COLOR(9,2,1)
160 CALL COLOR(10,15,1)
170 CALL HCHAR(2,9,65)
180 CALL HCHAR(2,23,66)
190 FOR I=4 TO 24 STEP 2
200 CALL HCHAR(I,1,96,32)
210 NEXT I
220 LET COL=7
230 LET ROW=5
240 GOSUB 290
250 LET COL=20
260 LET ROW=6
270 GOSUB 290
280 GOTO 250
290 FOR X=ROW TO 24 STEP 2
300 CALL HCHAR(X,COL,104,6)
310 NEXT X
320 RETURN

[sometimes99er]

On 10/26/2017 at 5:14 PM, TheBF said:

 

A 2nd Shade of Gray for TI-BASIC

100 CALL CLEAR
110 CALL SCREEN(16)
120 PAT$="FFFFFFFFFFFFFFFF"
130 CALL CHAR(96,PAT$)
140 CALL CHAR(104,PAT$)
150 CALL COLOR(9,2,1)
160 CALL COLOR(10,15,1)
170 CALL HCHAR(2,9,65)
180 CALL HCHAR(2,23,66)
190 FOR I=4 TO 24 STEP 2
200 CALL HCHAR(I,1,96,32)
210 NEXT I
220 LET COL=7
230 LET ROW=5
240 GOSUB 290
250 LET COL=20
260 LET ROW=6
270 GOSUB 290
280 GOTO 250
290 FOR X=ROW TO 24 STEP 2
300 CALL HCHAR(X,COL,104,6)
310 NEXT X
320 RETURN

 

Nice.

Edited November 23, 2021 by sometimes99er

[+TheBF]

Yes. That's fun. And I think there is one that is even weirder using that template...

 

I will try it

[+TheBF]

Maybe you can figure out how to do this one. It seems tricky to do with characters.

 

There is a dot at every intersection, but I can only see 3 at time no matter how hard I look!

Edited October 26, 2017 by TheBF

[RickyDean]

Maybe you can figure out how to do this one. It seems tricky to do with characters.

 

There is a dot at every intersection, but I can only see 3 at time no matter how hard I look!

I see 4 at a time, does that mean i have better peripheral vision?

[+TheBF]

I see 4 at a time, does that mean i have better peripheral vision?

 

I think so.

[+mizapf]

When you focus the crossing of the diagonals between the dots, you should see those four dots at the corners.

[RickyDean]

When you focus the crossing of the diagonals between the dots, you should see those four dots at the corners.

Yes, but I can see them in a line too..

[+TheBF]

Yes, but I can see them in a line too..

 

You're a mutant. Call professor X

[PeteE]

On 10/26/2017 at 9:08 AM, TheBF said:

Maybe you can figure out how to do this one. It seems tricky to do with characters.

Yeah, I think sprites are necessary for the black dots:

100 call clear::call screen(16)::call color(6,1,1)::c$=rpt$("HIJK",16)::d$=rpt$("LMNO",16)
110 call char(72,"FF80808080808081FF070F1D3971E1C1FFE0F0B89C8E8783FF01010101010181")
120 call char(76,"83878E9CB8F0E0FF81010101010101FF81808080808080FFC1E171391D0F07FF")
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,29-i*2,28);::display at(i*2+2,1):seg$(d$,29-i*2,28);
140 call sprite(#i+1,127,2,(i and 12)*16+29,(i and 3)*64+29)::next i
150 call char(127,"0000183C3C180000")::call color(6,15,16)::for i=0 to 9^9::next i

Edited November 21, 2021 by PeteE

[sometimes99er]

 

Yeah, I think sprites are necessary for the black dots:

100 call clear::call screen(16)::call color(6,1,1)::c$=rpt$("HIJK",16):$=rpt$("LMNO",16)
110 call char(72,"FF80808080808081FF070F1D3971E1C1FFE0F0B89C8E8783FF01010101010181")
120 call char(76,"83878E9CB8F0E0FF81010101010101FF81808080808080FFC1E171391D0F07FF")
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,29-i*2,28);::display at(i*2+2,1):seg$(d$,29-i*2,28);
140 call sprite(#i+1,127,2,(i and 12)*16+29,(i and 3)*64+29)::next i
150 call char(127,"0000183C3C180000")::call color(6,15,16)::for i=0 to 9^9::next i

 

That was funny. No optical effect. Nice try.

Edited October 27, 2017 by sometimes99er

[PeteE]

On 10/26/2017 at 10:02 PM, sometimes99er said:

 

That was funny. No optical effect. Nice try.

I don't see it either. Do you think it's because the white outlines around the black dots are missing?

 

Edit: Not sure...

100 call clear::call screen(16)::call color(6,1,1,7,1,1)::c$=rpt$("HIJK",16)::d$=rpt$("LMNO",16)
110 call char(72,"FF80808080808081FF070F1D3971E1C1FFE0F0B89C8E8783FF01010101010181")
120 call char(76,"83878E9CB8F0E0FF81010101010101FF81808080808080FFC1E171391D0F07FF")
125 call char(80,"C1E171391D0E05FB83878E9CB870A0DFFB050E1D3971E1C1DFA070B89C8E8783")
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,29-i*2,28);::display at(i*2+2,1):seg$(d$,29-i*2,28);
140 call sprite(#i+1,127,2,(i and 12)*16+29,(i and 3)*64+29)::next i
145 for i=0 to 11::display at((i and 12)*2+4,(i and 3)*8+2):"PQ";::display at((i and 12)*2+5,(i and 3)*8+2):"RS";::next i
150 call char(127,"0000183C3C180000")::call color(6,13,16,7,13,16)::for i=0 to 9^9::next i
run

Edit 2: Made the crossbars darker.

Edit 3: Blue seems too dark. How about green?

Edit 4: ":d" was missing from line 100

Edited October 23, 2020 by PeteE

[Asmusr]

 

I don't see it either. Do you think it's because the white outlines around the black dots are missing?

 

 

I think the grey is not dark enough.

[+TheBF]

 

Like post #20 ?

 

Sorry dude. I completely missed that one. I did not run it and saw this other image on a youtube video.

 

You got there first.

[+mizapf]

When you focus the crossing of the diagonals between the dots, you should see those four dots at the corners.

I can see up to six dots at a time, I just found out; vaguely but steadily.

 

*----*----*
|    |    |
-----X-----
|    |    |
*----*----*

Focus the X

[+Ksarul]

I must be really mutant, I see three rows that have three dots on each when I look at this. . .top, middle, and bottom rows.

[+TheBF]

 

That was funny. No optical effect. Nice try.

 

I got no effect on a small window so I tried full screen and then I get just the beginning of the effect.

(but very slight)

Edited October 27, 2017 by TheBF

[+TheBF]

I don't see it either. Do you think it's because the white outlines around the black dots are missing?

 

Edit: Not sure...

100 call clear::call screen(16)::call color(6,1,1,7,1,1)::c$=rpt$("HIJK",16):$=rpt$("LMNO",16)
110 call char(72,"FF80808080808081FF070F1D3971E1C1FFE0F0B89C8E8783FF01010101010181")
120 call char(76,"83878E9CB8F0E0FF81010101010101FF81808080808080FFC1E171391D0F07FF")
125 call char(80,"C1E171391D0E05FB83878E9CB870A0DFFB050E1D3971E1C1DFA070B89C8E8783")
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,29-i*2,28);::display at(i*2+2,1):seg$(d$,29-i*2,28);
140 call sprite(#i+1,127,2,(i and 12)*16+29,(i and 3)*64+29)::next i
145 for i=0 to 11::display at((i and 12)*2+4,(i and 3)*8+2):"PQ";::display at((i and 12)*2+5,(i and 3)*8+2):"RS";::next i
150 call char(127,"0000183C3C180000")::call color(6,13,16,7,13,16)::for i=0 to 9^9::next i
run

Edit 2: Made the crossbars darker.

Edit 3: Blue seems too dark. How about green?

 

I can see the effect more on this one with green.

Pretty nice job what you did in 8 lines.

[sometimes99er]

100 call clear::call screen(16)::call color(6,1,1,7,1,1)::c$=rpt$("HIJK",16):$=rpt$("LMNO",16)
110 call char(72,"FF80808080808081FF070F1D3971E1C1FFE0F0B89C8E8783FF01010101010181")
120 call char(76,"83878E9CB8F0E0FF81010101010101FF81808080808080FFC1E171391D0F07FF")
125 call char(80,"C1E171391D0E05FB83878E9CB870A0DFFB050E1D3971E1C1DFA070B89C8E8783")
130 for i=0 to 11::display at(i*2+1,1):seg$(c$,29-i*2,28);::display at(i*2+2,1):seg$(d$,29-i*2,28);
140 call sprite(#i+1,127,2,(i and 12)*16+29,(i and 3)*64+29)::next i
145 for i=0 to 11::display at((i and 12)*2+4,(i and 3)*8+2):"PQ";::display at((i and 12)*2+5,(i and 3)*8+2):"RS";::next i
150 call char(127,"0000183C3C180000")::call color(6,5,16,7,5,16)::for i=0 to 9^9::next i
run

 

Dark blue (color code 5 in line 150) seems to have some effect, - best of any color, - to me at least.

[PeteE]

Yeah, it is pretty subjective. I think finding the right amount of contrast is the key. I played around with the colors until the other black dots disappear when I stare intently at one.

 

Seems like we've hit the bottom of the barrel for optical illusions. Anyone have any more that might be possible to convert?