Deflection Balls

[SierraKen]

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]

1. DIM cx AS INTEGER, cy AS INTEGER
2. DIM cx2 AS INTEGER, cy2 AS INTEGER
3. DIM cx3 AS INTEGER, cy3 AS INTEGER
4. DIM cx4 AS INTEGER, cy4 AS INTEGER
5. DIM c AS _UNSIGNED LONG
6. DIM c2 AS _UNSIGNED LONG
7. DIM c3 AS _UNSIGNED LONG
8. DIM c4 AS _UNSIGNED LONG
9. DIM r AS INTEGER
10. DIM r2 AS INTEGER
11. DIM r3 AS INTEGER
12. DIM r4 AS INTEGER
13. DIM dx AS SINGLE, dy AS SINGLE
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.  
31. RANDOMIZE TIMER
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.  
41. DO
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
98. LOOP
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
121. END SUB
122.  

[johnno56]

Cool... A bit like Tron on steroids... Nicely done!

[SierraKen]

Thanks Johnno :). Yeah I also used the trails in a huge way. lol

[bplus]

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

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.  

[SierraKen]

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]

1. DIM cx AS INTEGER, cy AS INTEGER
2. DIM cx2 AS INTEGER, cy2 AS INTEGER
3. DIM cx3 AS INTEGER, cy3 AS INTEGER
4. DIM cx4 AS INTEGER, cy4 AS INTEGER
5. DIM c AS _UNSIGNED LONG
6. DIM c2 AS _UNSIGNED LONG
7. DIM c3 AS _UNSIGNED LONG
8. DIM c4 AS _UNSIGNED LONG
9. DIM r AS INTEGER
10. DIM r2 AS INTEGER
11. DIM r3 AS INTEGER
12. DIM r4 AS INTEGER
13. DIM dx AS SINGLE, dy AS SINGLE
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.  
31. RANDOMIZE TIMER
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.  
41. DO
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
98. LOOP
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
121. END SUB
122.  

[bplus]

You had sticky balls?

[SMcNeill]

You had sticky balls?

https://www.amazon.com/Johnson-Smith-Co-Kleener-Novelty/dp/B07LGCQHMF — sounds like you need some of this stuff!

[SierraKen]

I tried and tried, but I can never get away from the jokes. LOL

[bplus]

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