Black Hole

[SierraKen]

Hi all,

I was playing with math and graphics again tonight and just out of random luck it made a wild looking spiral-type image. So I threw some changing variables in it and made this animated black hole. The graphics don't change, just the shades of white and gray. The spiral is different than one I made awhile back on my other one and it's not like you expect to see a wormhole or black hole, but I like it, especially for being such a small program. Watch it for like a minute at least because the shades change in different ways. Thanks. Feel free to do what you wish with it, I'm just having fun. :)

Code: QB64: [Select]

1. _TITLE "Black Hole - by Ken G."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. bb = 1.1
4. c = 100
5. c2 = 155
6. one1:
7. _LIMIT 1000
8. bb = bb + .1
9. cc = cc + .1
10. sz = sz + .1
11. c = c - 1
12. IF c < 0 THEN c = 100
13. one:
14. a$ = INKEY$
15. IF a$ = CHR$(27) THEN END
16. b = b + bb
17. s = (6 - b) * 6 + 180
18. x = INT(SIN(s / 180 * 3.141592) * 180 / cc) + 400
19. y = INT(COS(s / 180 * 3.141592) * 180 / cc) + 300
20. CIRCLE (x, y), 10 - sz, _RGB32(c + c2, c + c2, c + c2)
21. IF b > 60 THEN
22.     b = 0
23.     IF cc > 20 THEN
24.         cc = 0
25.         bb = 1.1
26.         sz = 0
27.         c2 = c2 + 5
28.         IF c2 > 155 THEN c2 = 0
29.     END IF
30.     GOTO one1:
31. END IF
32. GOTO one:
33.  

[bplus]

Here is a colorized version:

Code: QB64: [Select]

1. _TITLE "Black Hole - by Ken G."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. bb = 1.1
4. c = 100
5. c2 = 155
6. one1:
7. _LIMIT 1000
8. red = RND: green = RND: blue = RND
9. bb = bb + .1
10. cc = cc + .1
11. sz = sz + .1
12. c = c - 1
13. IF c < 0 THEN c = 100
14. one:
15. a$ = INKEY$
16. IF a$ = CHR$(27) THEN END
17. b = b + bb
18. s = (6 - b) * 6 + 180
19. x = INT(SIN(s / 180 * 3.141592) * 180 / cc) + 400
20. y = INT(COS(s / 180 * 3.141592) * 180 / cc) + 300
21. CIRCLE (x, y), 10 - sz, _RGB32((c + c2) * red, (c + c2) * green, (c + c2) * blue)
22. IF b > 60 THEN
23.     b = 0
24.     IF cc > 20 THEN
25.         cc = 0
26.         bb = 1.1
27.         sz = 0
28.         c2 = c2 + 5
29.         IF c2 > 155 THEN c2 = 0
30.     END IF
31.     GOTO one1:
32. END IF
33. GOTO one:
34.  
35.  
36.  

[SierraKen]

WOW I've never seen that use of RND colors before, thanks!
Your version looks a bit like a 1970's game show. :D.

[SierraKen]

Here is my updated version I made tonight. I filled in the circles. Then I made it so if someone presses the Space Bar, it automatically changes it all to wild random colors. :) Then press Space Bar again to go back. You can go back and forth. I also call it a Kaleidoscope. Enjoy. 

Code: QB64: [Select]

1. _TITLE "Black Hole - by Ken G. - Press Space Bar For Wild Colors And Again To Go Back."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. bb = 1.1
4. c = 100
5. c2 = 155
6. one1:
7. _LIMIT 1000
8. bb = bb + .1
9. cc = cc + .1
10. sz = sz + .1
11. c = c - 1
12. IF c < 0 THEN c = 100
13. IF cl = 1 THEN
14.     RANDOMIZE TIMER
15.     cl1 = INT(RND * 155) + 1
16.     RANDOMIZE TIMER
17.     cl2 = INT(RND * 155) + 1
18.     RANDOMIZE TIMER
19.     cl3 = INT(RND * 155) + 1
20. END IF
21. one:
22. a$ = INKEY$
23. IF a$ = CHR$(27) THEN END
24. IF a$ = " " THEN cl = cl + 1
25. IF cl > 1 THEN cl = 0
26. b = b + bb
27. s = (6 - b) * 6 + 180
28. x = INT(SIN(s / 180 * 3.141592) * 180 / cc) + 400
29. y = INT(COS(s / 180 * 3.141592) * 180 / cc) + 300
30. FOR szz = .25 TO 10 - sz STEP .25
31.     IF cl = 0 THEN CIRCLE (x, y), szz, _RGB32(c + c2, c + c2, c + c2)
32.     IF cl = 1 THEN CIRCLE (x, y), szz, _RGB32(cl1, cl2, cl3)
33. NEXT szz
34. IF b > 60 THEN
35.     b = 0
36.     IF cc > 20 THEN
37.         cc = 0
38.         bb = 1.1
39.         sz = 0
40.         c2 = c2 + 5
41.         IF c2 > 155 THEN c2 = 0
42.     END IF
43.     GOTO one1:
44. END IF
45. GOTO one:
46.