Jump to content
sometimes99er

Optical illusions

Recommended Posts

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:

 



Edited  by sometimes99er

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

 

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

Share this post


Link to post
Share on other sites

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

  • Like 3

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

 

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

 

Like post #20 ? :|

  • Like 1

Share this post


Link to post
Share on other sites

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

 

I will try it

Share this post


Link to post
Share on other sites

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!

post-50750-0-54803900-1509034113_thumb.jpg

Edited by TheBF
  • Like 1

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

  • Like 1

Share this post


Link to post
Share on other sites

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):$=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

  • Like 1

Share this post


Link to post
Share on other sites

 

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 by sometimes99er

Share this post


Link to post
Share on other sites

 

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):$=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?

Edited by PeteE
  • Like 1

Share this post


Link to post
Share on other sites

 

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.

  • Like 1

Share this post


Link to post
Share on other sites

 

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.

  • Like 1

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

  • Like 1

Share this post


Link to post
Share on other sites

 

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 by TheBF

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
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. ;)

Share this post


Link to post
Share on other sites

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?

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