Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on January 12, 2019, 04:21:19 pm

Title: Optical Illusion
Post by: bplus on January 12, 2019, 04:21:19 pm
Found interesting optical illusion on Internet, was curious if I could duplicate it.
Code: QB64: [Select]
  1. _TITLE "Do the dots in disk look like they are spinning?" ' B+ 2019-01-12
  2. 'try an optical illusion saw on Internet
  3.  
  4. CONST xmax = 600
  5. CONST ymax = 600
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  7. _SCREENMOVE 300, 60
  8.  
  9. x0 = xmax / 2: y0 = ymax / 2: a24 = _PI(2 / 24): r = 240
  11.     IF loopcnt < 2 THEN stopit = 11
  12.     IF loopcnt = 2 THEN stopit = 0
  13.     IF loopcnt > 2 THEN
  14.         IF stopit < 11 THEN stopit = stopit + 1
  15.     END IF
  16.     FOR a = 0 TO _PI(2) STEP _PI / 180
  17.         COLOR _RGB32(128, 0, 0): fcirc x0, y0, 251
  18.         FOR i = 0 TO stopit
  19.             IF loopcnt > 1 THEN
  20.                 xs = x0 + r * COS(a24 * i)
  21.                 ys = y0 + r * SIN(a24 * i)
  22.                 xe = x0 + r * COS(a24 * i + _PI)
  23.                 ye = y0 + r * SIN(a24 * i + _PI)
  24.                 LINE (xs, ys)-(xe, ye), _RGB32(255, 255, 255)
  25.             END IF
  26.             x = x0 + COS(a + _PI(i / 12)) * r * COS(a24 * i)
  27.             y = y0 + COS(a + _PI(i / 12)) * r * SIN(a24 * i)
  28.             COLOR _RGB32(255, 255, 255)
  29.             fcirc x, y, 10
  30.         NEXT
  31.         _DISPLAY
  32.         _LIMIT 90
  33.     NEXT
  34.     loopcnt = loopcnt + 1
  36.  
  37. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  38. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  39.     DIM subRadius AS LONG, RadiusError AS LONG
  40.     DIM X AS LONG, Y AS LONG
  41.  
  42.     subRadius = ABS(R)
  43.     RadiusError = -subRadius
  44.     X = subRadius
  45.     Y = 0
  46.  
  47.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  48.  
  49.     ' Draw the middle span here so we don't draw it twice in the main loop,
  50.     ' which would be a problem with blending turned on.
  51.     LINE (CX - X, CY)-(CX + X, CY), , BF
  52.  
  53.     WHILE X > Y
  54.         RadiusError = RadiusError + Y * 2 + 1
  55.         IF RadiusError >= 0 THEN
  56.             IF X <> Y + 1 THEN
  57.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  58.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  59.             END IF
  60.             X = X - 1
  61.             RadiusError = RadiusError - X * 2
  62.         END IF
  63.         Y = Y + 1
  64.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  65.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  66.     WEND
  68.  
Title: Re: Optical Illusion
Post by: bplus on January 12, 2019, 04:49:44 pm
Again, this is just dots going back and forth on a line!
Code: QB64: [Select]
  1. _TITLE "Do the dots in disk look like they are spinning?" ' B+ 2019-01-12
  2. 'try an optical illusion saw on Internet
  3.  
  4. CONST xmax = 600
  5. CONST ymax = 600
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  7. _SCREENMOVE 300, 60
  8.  
  9. x0 = xmax / 2: y0 = ymax / 2: a24 = _PI(2 / 24): r = 240
  11.     FOR a = 0 TO _PI(2) STEP _PI / 180
  12.         COLOR _RGB32(128, 0, 0): fcirc x0, y0, 251
  13.         FOR i = 0 TO 23
  14.             IF loopcnt > 4 THEN
  15.                 xs = x0 + r * COS(a24 * i)
  16.                 ys = y0 + r * SIN(a24 * i)
  17.                 xe = x0 + r * COS(a24 * i + _PI)
  18.                 ye = y0 + r * SIN(a24 * i + _PI)
  19.                 LINE (xs, ys)-(xe, ye), _RGB32(255, 255, 255)
  20.             END IF
  21.             x = x0 + COS(a + _PI(i / 6)) * r * COS(a24 * i)
  22.             y = y0 + COS(a + _PI(i / 6)) * r * SIN(a24 * i)
  23.             COLOR _RGB32(i * 10, (23 - i) * 10, 0)
  24.             fcirc x, y, 10
  25.         NEXT
  26.         _DISPLAY
  27.         _LIMIT 90
  28.     NEXT
  29.     loopcnt = loopcnt + 1
  31.  
  32. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  33. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  34.     DIM subRadius AS LONG, RadiusError AS LONG
  35.     DIM X AS LONG, Y AS LONG
  36.  
  37.     subRadius = ABS(R)
  38.     RadiusError = -subRadius
  39.     X = subRadius
  40.     Y = 0
  41.  
  42.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  43.  
  44.     ' Draw the middle span here so we don't draw it twice in the main loop,
  45.     ' which would be a problem with blending turned on.
  46.     LINE (CX - X, CY)-(CX + X, CY), , BF
  47.  
  48.     WHILE X > Y
  49.         RadiusError = RadiusError + Y * 2 + 1
  50.         IF RadiusError >= 0 THEN
  51.             IF X <> Y + 1 THEN
  52.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  53.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  54.             END IF
  55.             X = X - 1
  56.             RadiusError = RadiusError - X * 2
  57.         END IF
  58.         Y = Y + 1
  59.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  60.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  61.     WEND
  63.  
  64.  
Title: Re: Optical Illusion
Post by: Pete on January 12, 2019, 05:53:25 pm
Oh I get it now, bplus isn't a grade, it stands for balls plus! It's some kind of cognitive  illusion!

Well that was cool! I could follow the straight line movement just find but as soon as you lose focus, bam, they appear to be traveling in a circle.

Nice recreation!

Pete

Title: Re: Optical Illusion
Post by: johnno56 on January 13, 2019, 08:30:41 am
Both are very clever. Discs travelling in a straight line, but due to the timing, appear to travel in circles. Nicely done!

I only have one question. Do they come in blue? lol

J
Title: Re: Optical Illusion
Post by: FellippeHeitor on January 13, 2019, 08:54:15 am
I too had seen this online a good while back and tried writing it but the math involved just flew over my head and I gave up before I closed my first DO LOOP.

Great job, bplus! Really fun to watch - I like the "trick explained" mode in the first program.
Title: Re: Optical Illusion
Post by: Qwerkey on January 13, 2019, 09:55:33 am
Yes, lovely.
Title: Re: Optical Illusion
Post by: Pete on January 13, 2019, 12:06:47 pm
Quote from: johnno56 on January 13, 2019, 08:30:41 am
Both are very clever. Discs travelling in a straight line, but due to the timing, appear to travel in circles. Nicely done!

I only have one question. Do they come in blue? lol

J

LOL! Silly question. Mark lives in Canada, so of course his balls come in blue!

Pete :D
Title: Re: Optical Illusion
Post by: bplus on January 13, 2019, 01:44:44 pm
Thanks guys!

Blue balls? Here are some magic ones:
Code: QB64: [Select]
  1. _TITLE "Magic Blue Balls?" ' OI #4 Blue Balls.bas B+ 2019-01-13
  2. 'try another optical illusion saw on Internet
  3.  
  4. CONST xmax = 1100
  5. CONST ymax = 700
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  8.  
  9. COLOR _RGBA32(255, 255, 255, 100), _RGB32(0, 0, 80)
  11. FOR i = 40 TO 1040 STEP 50
  12.     LINE (i, 0)-(i + 10, ymax), , BF
  13.     LINE (0, i)-(xmax, i + 10), , BF
  15. COLOR _RGB32(255, 255, 255)
  16. FOR y = 45 TO 645 STEP 50
  17.     FOR x = 45 TO 1045 STEP 50
  18.         fcirc x, y, 8
  19.     NEXT
  22. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  23. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  24.     DIM subRadius AS LONG, RadiusError AS LONG
  25.     DIM X AS LONG, Y AS LONG
  26.  
  27.     subRadius = ABS(R)
  28.     RadiusError = -subRadius
  29.     X = subRadius
  30.     Y = 0
  31.  
  32.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  33.  
  34.     ' Draw the middle span here so we don't draw it twice in the main loop,
  35.     ' which would be a problem with blending turned on.
  36.     LINE (CX - X, CY)-(CX + X, CY), , BF
  37.  
  38.     WHILE X > Y
  39.         RadiusError = RadiusError + Y * 2 + 1
  40.         IF RadiusError >= 0 THEN
  41.             IF X <> Y + 1 THEN
  42.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  43.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  44.             END IF
  45.             X = X - 1
  46.             RadiusError = RadiusError - X * 2
  47.         END IF
  48.         Y = Y + 1
  49.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  50.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  51.     WEND
  53.  
  54.  
Title: Re: Optical Illusion
Post by: bplus on January 13, 2019, 03:42:19 pm
Blue ball buster:
Code: QB64: [Select]
  1. _TITLE "Crazy Squares in Concentric Circles" ' OI #3 crazy sqrs on concentric circles.bas B+ 2019-01-13
  2. 'try another optical illusion saw on Internet
  3.  
  4. CONST xmax = 700
  5. CONST ymax = 700
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  8.  
  9. side = 20: cx = xmax / 2: cy = ymax / 2
  11.     COLOR , _RGB32(60, 60, 100): CLS
  12.     nstars = 1: starN = 1: d = 0
  13.     FOR r = 1 TO 5
  14.         d = d + 5
  15.         rr = r * (30 + d)
  16.         IF r MOD 2 THEN a = _PI(1 / 12) ELSE a = _PI(-1 / 12)
  17.         circ = 2 * _PI * rr
  18.         n = INT(circ / (1.2 * side))
  19.         IF n MOD 2 THEN n = n - 1
  20.         FOR i = 1 TO n
  21.             x = cx + rr * COS(i * 2 * _PI / n)
  22.             y = cy + rr * SIN(i * 2 * _PI / n)
  23.             starN = starN + 1
  24.             IF starN MOD 2 THEN COLOR _RGB32(0, 0, 255) ELSE COLOR _RGB(0, 0, 60)
  25.             box x, y, i * 2 * _PI / n + a, side
  26.             PAINT (x, y)
  27.         NEXT
  28.     NEXT
  29.     _DELAY 3
  30.     d = 0
  31.     FOR r = 1 TO 5
  32.         d = d + 5
  33.         rr = r * (30 + d)
  34.         CIRCLE (cx, cy), rr, _RGB32(255, 255, 255)
  35.     NEXT
  36.     _DELAY 1
  38.  
  39. SUB box (xCenter, yCenter, rAngle, side)
  40.     p45 = _PI(.25)
  41.     p135 = 3 * p45
  42.     stside = .5 * side * SQR(2)
  43.     x1 = xCenter + stside * COS(rAngle + p45)
  44.     y1 = yCenter + stside * SIN(rAngle + p45)
  45.     x2 = xCenter + stside * COS(rAngle + p135)
  46.     y2 = yCenter + stside * SIN(rAngle + p135)
  47.     x3 = xCenter + stside * COS(rAngle - p135)
  48.     y3 = yCenter + stside * SIN(rAngle - p135)
  49.     x4 = xCenter + stside * COS(rAngle - p45)
  50.     y4 = yCenter + stside * SIN(rAngle - p45)
  51.     LINE (x1, y1)-(x2, y2)
  52.     LINE (x2, y2)-(x3, y3)
  53.     LINE (x3, y3)-(x4, y4)
  54.     LINE (x4, y4)-(x1, y1)
  56.  
  57.  
Title: Re: Optical Illusion
Post by: Pete on January 13, 2019, 03:51:07 pm
Have you considered therapy? Under the Canadian system, some other poor schmuck will pay for it.

I knew they were circles right off the bat but it does look like a spiral when the squares are slanted. This stuff probably comes to us from an alternate universe. One where QB64 does not exist, and the Bill there needs something to keep himself occupied. I'm just saying...

Pete 
Title: Re: Optical Illusion
Post by: bplus on January 13, 2019, 05:10:19 pm
\_ ? _/  Canada?  Is across the lake from me.
    |
   /\
  \  |
Title: Re: Optical Illusion
Post by: Pete on January 13, 2019, 05:54:47 pm
That just means you live on the east or west bank of said lake... in Canada!

Pete

You can time some of the fools all the people, and time all of the fools some of the people, but you can't time all of the fools all of the people -FreeBASIC
Title: Re: Optical Illusion
Post by: johnno56 on January 14, 2019, 07:33:30 am
Perfect! Everything is blue... the optic nerves are shot... but at least everything is blue...

J
Text Only | Text with Attachments