Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on December 06, 2020, 02:03:51 am

Title: Deflection Balls
Post by: SierraKen on December 06, 2020, 02:03:51 am
B+ made something very similar to this maybe a year or so ago I believe. So I decided to attempt it on my own. :) I also used Steve's Gold Standard circle fill-in Sub.
I really don't know how the SIN and COS works, but it does. :)

Code: QB64: [Select]
  14. DIM dxx AS SINGLE, dyy AS SINGLE
  15. DIM dxxx AS SINGLE, dyyy AS SINGLE
  16. DIM dxxxx AS SINGLE, dyyyy AS SINGLE
  17. DIM dx2 AS SINGLE, dy2 AS SINGLE
  18. DIM dxx2 AS SINGLE, dyy2 AS SINGLE
  19. DIM dxxx2 AS SINGLE, dyyy2 AS SINGLE
  20. DIM dxxxx2 AS SINGLE, dyyyy2 AS SINGLE
  21.  
  22. _TITLE "Deflections"
  23.  
  24. SCREEN _NEWIMAGE(800, 600, 32)
  25.  
  26. cx = 400: cy = 300
  27. cx2 = 400: cy2 = 300
  28. cx3 = 400: cy3 = 300
  29. cx4 = 400: cy4 = 300
  30.  
  32. dx = 1.25
  33. dy = .25
  34. dxx = .25
  35. dyy = 1
  36. dxxx = 1
  37. dyyy = .25
  38. dxxxx = 1.25
  39. dyyyy = .75
  40.  
  42.     _LIMIT 100
  43.     cx = cx + dx
  44.     cy = cy + dy
  45.     cx2 = cx2 + dxx
  46.     cy2 = cy2 + dyy
  47.     cx3 = cx3 + dxxx
  48.     cy3 = cy3 + dyyy
  49.     cx4 = cx4 + dxxxx
  50.     cy4 = cy4 + dyyyy
  51.     r = 20
  52.     c = _RGB32(255, 0, 0)
  53.     fillCircle cx, cy, r, c
  54.     IF cx < 20 OR cx > 780 OR cy < 20 OR cy > 580 THEN
  55.         dx2 = (dx - cx)
  56.         dy2 = (dy - cy)
  57.         dx = SIN(dx2)
  58.         dy = COS(dy2)
  59.         dx = dx * 2
  60.         dy = dy * 2
  61.     END IF
  62.     r2 = 20
  63.     c2 = _RGB32(0, 255, 0)
  64.     fillCircle cx2, cy2, r2, c2
  65.     IF cx2 < 20 OR cx2 > 780 OR cy2 < 20 OR cy2 > 580 THEN
  66.         dxx2 = (dxx - cx2)
  67.         dyy2 = (dyy - cy2)
  68.         dxx = SIN(dxx2)
  69.         dyy = COS(dyy2)
  70.         dxx = dxx * 2
  71.         dyy = dyy * 2
  72.     END IF
  73.     r3 = 20
  74.     c3 = _RGB32(0, 0, 255)
  75.     fillCircle cx3, cy3, r3, c3
  76.     IF cx3 < 20 OR cx3 > 780 OR cy3 < 20 OR cy3 > 580 THEN
  77.         dxxx2 = (dxxx - cx3)
  78.         dyyy2 = (dyyy - cy3)
  79.         dxxx = SIN(dxxx2)
  80.         dyyy = COS(dyyy2)
  81.         dxxx = dxxx * 2
  82.         dyyy = dyyy * 2
  83.     END IF
  84.     r4 = 20
  85.     c4 = _RGB32(255, 255, 255)
  86.     fillCircle cx4, cy4, r4, c4
  87.     IF cx4 < 20 OR cx4 > 780 OR cy4 < 20 OR cy4 > 580 THEN
  88.         dxxxx2 = (dxxxx - cx4)
  89.         dyyyy2 = (dyyyy - cy4)
  90.         dxxxx = SIN(dxxxx2)
  91.         dyyyy = COS(dyyyy2)
  92.         dxxxx = dxxxx * 2
  93.         dyyyy = dyyyy * 2
  94.     END IF
  95.  
  96.     _DISPLAY
  97.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 5), BF
  99.  
  100. 'from Steve Gold standard
  101. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  102.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  103.     DIM X AS INTEGER, Y AS INTEGER
  104.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  105.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  106.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  107.     WHILE X > Y
  108.         RadiusError = RadiusError + Y * 2 + 1
  109.         IF RadiusError >= 0 THEN
  110.             IF X <> Y + 1 THEN
  111.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  112.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  113.             END IF
  114.             X = X - 1
  115.             RadiusError = RadiusError - X * 2
  116.         END IF
  117.         Y = Y + 1
  118.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  119.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  120.     WEND
  122.  
Title: Re: Deflection Balls
Post by: johnno56 on December 06, 2020, 05:16:22 am
Cool... A bit like Tron on steroids... Nicely done!
Title: Re: Deflection Balls
Post by: SierraKen on December 06, 2020, 12:52:33 pm
Thanks Johnno :). Yeah I also used the trails in a huge way. lol
Title: Re: Deflection Balls
Post by: bplus on December 06, 2020, 01:17:01 pm
Balls and colors moving around, what's not to like? :)

Hey is that Ken I see using a CircleFill SUB? Wow welcome to the new world! ;-))

Quote
I really don't know how the SIN and COS works, but it does. :)

You are changing the angle when you hit a border, dx and dy usually denote the change in x or y from one loop to the next. da for angle change would make this a little clearer.

Basically when you hit a border you change the sign of dx or dy depending if you hit the floor or ceiling change y component, hit walls = change x component  -1*dx or -1*dy just changes the direction from up to down or vice versa of left to right in dx or vice versa.

da can be calculated from dx and dy or vice versa, eg

'find dx, dy from a (not da)
dx = speed *cos(a)  ' a is ball angle (da is a change)
dy = speed *sin(a)

da = _atan2(dy, dx) ' I think

yeah this probably not going anywhere but if I keep plugging away... ;-))
Code: QB64: [Select]
  1. a = _PI / 4 ' this is 45 degrees in radians pi is 180, 2*pi full circle = 360
  2.  
  3. ' 45 degrees is SE in QB64 about 4:30 o'clock
  4. ' dx should be positve, dy also positive
  5.  
  6. speed = 1
  7. dx = speed * COS(a) ' a is ball angle (da is a change)
  8. dy = speed * SIN(a)
  9.  
  10. da = _ATAN2(dy, dx) ' I think
  11.  
  12. PRINT dx, dy, _R2D(da) ' 3rd number 45 ?
  13.  
  14.  
  15.  
  16.  
Title: Re: Deflection Balls
Post by: SierraKen on December 06, 2020, 01:25:30 pm
LOL Thanks B+! Here is an update to it. After awhile one of the balls were stuck moving the same ways forever pretty much. So I think I fixed it. I ran it for about 12 minutes or so with no problems. But you will have to let it run for maybe 15-20 seconds or so to be able to see all 4.

Code: QB64: [Select]
  14. DIM dxx AS SINGLE, dyy AS SINGLE
  15. DIM dxxx AS SINGLE, dyyy AS SINGLE
  16. DIM dxxxx AS SINGLE, dyyyy AS SINGLE
  17. DIM dx2 AS SINGLE, dy2 AS SINGLE
  18. DIM dxx2 AS SINGLE, dyy2 AS SINGLE
  19. DIM dxxx2 AS SINGLE, dyyy2 AS SINGLE
  20. DIM dxxxx2 AS SINGLE, dyyyy2 AS SINGLE
  21.  
  22. _TITLE "Deflections"
  23.  
  24. SCREEN _NEWIMAGE(800, 600, 32)
  25.  
  26. cx = 400: cy = 300
  27. cx2 = 400: cy2 = 300
  28. cx3 = 400: cy3 = 300
  29. cx4 = 400: cy4 = 300
  30.  
  32. dx = 1.25
  33. dy = .25
  34. dxx = .25
  35. dyy = 1
  36. dxxx = 1
  37. dyyy = .25
  38. dxxxx = 1.25
  39. dyyyy = .75
  40.  
  42.     _LIMIT 100
  43.     cx = cx + dx
  44.     cy = cy + dy
  45.     cx2 = cx2 + dxx
  46.     cy2 = cy2 + dyy
  47.     cx3 = cx3 + dxxx
  48.     cy3 = cy3 + dyyy
  49.     cx4 = cx4 + dxxxx
  50.     cy4 = cy4 + dyyyy
  51.     r = 20
  52.     c = _RGB32(255, 0, 0)
  53.     fillCircle cx, cy, r, c
  54.     IF cx < 20 OR cx > 780 OR cy < 20 OR cy > 580 THEN
  55.         dx2 = (dx - cx)
  56.         dy2 = (dy - cy)
  57.         dx = SIN(dx2)
  58.         dy = COS(dy2)
  59.         dx = dx * 1.75
  60.         dy = dy * 2
  61.     END IF
  62.     r2 = 20
  63.     c2 = _RGB32(0, 255, 0)
  64.     fillCircle cx2, cy2, r2, c2
  65.     IF cx2 < 20 OR cx2 > 780 OR cy2 < 20 OR cy2 > 580 THEN
  66.         dxx2 = (dxx - cx2)
  67.         dyy2 = (dyy - cy2)
  68.         dxx = SIN(dxx2)
  69.         dyy = COS(dyy2)
  70.         dxx = dxx * 1.75
  71.         dyy = dyy * 2
  72.     END IF
  73.     r3 = 20
  74.     c3 = _RGB32(0, 0, 255)
  75.     fillCircle cx3, cy3, r3, c3
  76.     IF cx3 < 20 OR cx3 > 780 OR cy3 < 20 OR cy3 > 580 THEN
  77.         dxxx2 = (dxxx - cx3)
  78.         dyyy2 = (dyyy - cy3)
  79.         dxxx = SIN(dxxx2)
  80.         dyyy = COS(dyyy2)
  81.         dxxx = dxxx * 1.75
  82.         dyyy = dyyy * 2
  83.     END IF
  84.     r4 = 20
  85.     c4 = _RGB32(255, 255, 255)
  86.     fillCircle cx4, cy4, r4, c4
  87.     IF cx4 < 20 OR cx4 > 780 OR cy4 < 20 OR cy4 > 580 THEN
  88.         dxxxx2 = (dxxxx - cx4)
  89.         dyyyy2 = (dyyyy - cy4)
  90.         dxxxx = SIN(dxxxx2)
  91.         dyyyy = COS(dyyyy2)
  92.         dxxxx = dxxxx * 1.75
  93.         dyyyy = dyyyy * 2
  94.     END IF
  95.  
  96.     _DISPLAY
  97.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 5), BF
  99.  
  100. 'from Steve Gold standard
  101. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  102.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  103.     DIM X AS INTEGER, Y AS INTEGER
  104.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  105.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  106.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  107.     WHILE X > Y
  108.         RadiusError = RadiusError + Y * 2 + 1
  109.         IF RadiusError >= 0 THEN
  110.             IF X <> Y + 1 THEN
  111.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  112.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  113.             END IF
  114.             X = X - 1
  115.             RadiusError = RadiusError - X * 2
  116.         END IF
  117.         Y = Y + 1
  118.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  119.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  120.     WEND
  122.  
Title: Re: Deflection Balls
Post by: bplus on December 06, 2020, 01:38:49 pm
You had sticky balls?
Title: Re: Deflection Balls
Post by: SMcNeill on December 06, 2020, 02:02:15 pm
Quote from: bplus on December 06, 2020, 01:38:49 pm
You had sticky balls?

https://www.amazon.com/Johnson-Smith-Co-Kleener-Novelty/dp/B07LGCQHMF — sounds like you need some of this stuff!
Title: Re: Deflection Balls
Post by: SierraKen on December 06, 2020, 02:55:16 pm
I tried and tried, but I can never get away from the jokes. LOL
Title: Re: Deflection Balls
Post by: bplus on December 06, 2020, 02:59:09 pm
Well I try and try to do it with friends, I get in big trouble with strangers.

See now that might be an opening for a joke ;)
Text Only | Text with Attachments