sometimes99er Posted September 12, 2017 Author Share Posted September 12, 2017 (edited) 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 1 Quote Link to comment Share on other sites More sharing options...
Airshack Posted September 17, 2017 Share Posted September 17, 2017 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 2 Quote Link to comment Share on other sites More sharing options...
Airshack Posted September 17, 2017 Share Posted September 17, 2017 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 3 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted September 23, 2017 Author Share Posted September 23, 2017 (edited) Well, well, well, who's fooling who ? Edited April 4, 2018 by sometimes99er 2 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted September 24, 2017 Author Share Posted September 24, 2017 2 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 26, 2017 Share Posted October 26, 2017 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 1 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted October 26, 2017 Author Share Posted October 26, 2017 (edited) 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 1 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 26, 2017 Share Posted October 26, 2017 Yes. That's fun. And I think there is one that is even weirder using that template... I will try it Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 26, 2017 Share Posted October 26, 2017 (edited) 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 2 Quote Link to comment Share on other sites More sharing options...
RickyDean Posted October 26, 2017 Share Posted October 26, 2017 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? Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 26, 2017 Share Posted October 26, 2017 I see 4 at a time, does that mean i have better peripheral vision? I think so. Quote Link to comment Share on other sites More sharing options...
+mizapf Posted October 26, 2017 Share Posted October 26, 2017 When you focus the crossing of the diagonals between the dots, you should see those four dots at the corners. Quote Link to comment Share on other sites More sharing options...
RickyDean Posted October 26, 2017 Share Posted October 26, 2017 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.. 1 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 26, 2017 Share Posted October 26, 2017 Yes, but I can see them in a line too.. You're a mutant. Call professor X 2 Quote Link to comment Share on other sites More sharing options...
PeteE Posted October 27, 2017 Share Posted October 27, 2017 (edited) 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 1 Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted October 27, 2017 Author Share Posted October 27, 2017 (edited) 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 Quote Link to comment Share on other sites More sharing options...
PeteE Posted October 27, 2017 Share Posted October 27, 2017 (edited) 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 2 Quote Link to comment Share on other sites More sharing options...
Asmusr Posted October 27, 2017 Share Posted October 27, 2017 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. 1 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 27, 2017 Share Posted October 27, 2017 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. 1 Quote Link to comment Share on other sites More sharing options...
+mizapf Posted October 27, 2017 Share Posted October 27, 2017 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 Quote Link to comment Share on other sites More sharing options...
+Ksarul Posted October 27, 2017 Share Posted October 27, 2017 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. 1 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 27, 2017 Share Posted October 27, 2017 (edited) 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 Quote Link to comment Share on other sites More sharing options...
+TheBF Posted October 27, 2017 Share Posted October 27, 2017 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. Quote Link to comment Share on other sites More sharing options...
sometimes99er Posted October 31, 2017 Author Share Posted October 31, 2017 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. Quote Link to comment Share on other sites More sharing options...
PeteE Posted October 31, 2017 Share Posted October 31, 2017 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? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.