Jump to content

Photo

Optical illusions

XB

56 replies to this topic

#26 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Tue Sep 12, 2017 1:14 AM

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 sprite(#1,32,1,200,1,#2,32,1,200,1)


#27 Airshack OFFLINE  

Airshack

    Dragonstomper

  • 534 posts
  • Location:Phoenix, AZ

Posted Sun Sep 17, 2017 12:22 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?

 

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)::d$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1):d$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run


#28 Airshack OFFLINE  

Airshack

    Dragonstomper

  • 534 posts
  • Location:Phoenix, AZ

Posted Sun Sep 17, 2017 12:32 PM

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)::d$=rpt$("X",14)&seg$(c$,1,14)::for i=0 to 11::display at(i+1,1):c$; ::display at(i+13,1):d$; ::next i
120 call color(6,14,11,7,8,14,8,8,11):: for i=0 to 9^9::next i
run



#29 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Sat Sep 23, 2017 2:09 AM

Well, well, well, who's fooling who ?
  
100 call clear::call char(35,"0103030303030303FC0405050406020C0080404080000C12FF80C04060381C0E")
110 call char(39,"1921213D050505C4BA8A8ABAA1A1A1220301000000000000E23110180C0703")
120 call char(43,"4C9020404020E0003C4299A1A199423C000000007C",49,"103050101010107C")
130 call char(56,"7884847884848478788484847C040478",65,"78848484FC848484F8444478444444F8")
140 call char(67,"7884808080808478F8444444444444F8FC8080F0808080FC",71,"788480809C848478")
150 call char(72,"848484FC848484847C1010101010107C",75,"8890A0C0A0908884",77,"84CCB48484848484")
160 call char(78,"84C4A4948C848484FC848484848484FCF8848484F880808",82,"F8848484F8908884")
170 call char(83,"78848078040484787C101010101010108484848484848478",88,"8484483030488484")
180 call char(89,"444444281010101")::call hchar(1,1,127,96)::call hchar(19,1,127,96)
190 display at(6,1):"             #$%                         &'(                         )*+"
200 display at(10,7):"TEXAS INSTRUMENTS"::display at(12,9):"HOME COMPUTER"
210 display at(17,1):"READY-PRESS ANY KEY TO BEGIN"::display at(23,3):",1981  TEXAS INSTRUMENTS"
220 call color(12,1,rnd*14+2)::goto 220
run
 


#30 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Sun Sep 24, 2017 12:48 AM



#31 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Thu Oct 26, 2017 9:14 AM

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



#32 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Thu Oct 26, 2017 9:23 AM

 

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



#33 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Thu Oct 26, 2017 9:45 AM

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

 

I will try it



#34 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Thu Oct 26, 2017 10:08 AM

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!

Attached Files


Edited by TheBF, Thu Oct 26, 2017 10:09 AM.

  • RXB likes this

#35 RickyDean OFFLINE  

RickyDean

    Dragonstomper

  • 686 posts

Posted Thu Oct 26, 2017 10:22 AM

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? 



#36 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Thu Oct 26, 2017 11:52 AM

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

 

I think so.



#37 mizapf OFFLINE  

mizapf

    River Patroller

  • 2,585 posts
  • Location:Germany

Posted Thu Oct 26, 2017 12:13 PM

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



#38 RickyDean OFFLINE  

RickyDean

    Dragonstomper

  • 686 posts

Posted Thu Oct 26, 2017 12:55 PM

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


  • RXB likes this

#39 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Thu Oct 26, 2017 3:43 PM

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

 

You're a mutant.  Call professor X 

;-) 



#40 PeteE ONLINE  

PeteE

    Star Raider

  • 93 posts
  • Location:Beaverton, OR

Posted Thu Oct 26, 2017 10:11 PM

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



#41 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Thu Oct 26, 2017 11:02 PM

 

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

 

That was funny. No optical effect. Nice try. :)


Edited by sometimes99er, Thu Oct 26, 2017 11:03 PM.


#42 PeteE ONLINE  

PeteE

    Star Raider

  • 93 posts
  • Location:Beaverton, OR

Posted Fri Oct 27, 2017 12:21 AM

 

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?


Edited by PeteE, Fri Oct 27, 2017 12:34 PM.


#43 Asmusr OFFLINE  

Asmusr

    River Patroller

  • 2,465 posts
  • Location:Denmark

Posted Fri Oct 27, 2017 9:02 AM

 

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.



#44 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Fri Oct 27, 2017 9:38 AM

 

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.



#45 mizapf OFFLINE  

mizapf

    River Patroller

  • 2,585 posts
  • Location:Germany

Posted Fri Oct 27, 2017 9:41 AM

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

#46 Ksarul OFFLINE  

Ksarul

    River Patroller

  • 4,216 posts

Posted Fri Oct 27, 2017 11:25 AM

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.



#47 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Fri Oct 27, 2017 12:45 PM

 

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, Fri Oct 27, 2017 12:46 PM.


#48 TheBF OFFLINE  

TheBF

    Moonsweeper

  • 371 posts
  • Location:The Great White North

Posted Fri Oct 27, 2017 12:49 PM

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?

 

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

Pretty nice job what you did in 8 lines.



#49 sometimes99er OFFLINE  

sometimes99er

    River Patroller

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

Posted Mon Oct 30, 2017 11:16 PM

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



#50 PeteE ONLINE  

PeteE

    Star Raider

  • 93 posts
  • Location:Beaverton, OR

Posted Mon Oct 30, 2017 11:25 PM

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?







Also tagged with one or more of these keywords: XB

0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users