Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on September 30, 2019, 09:28:03 pm

Title: Black Hole
Post by: SierraKen on September 30, 2019, 09:28:03 pm
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:
  32. GOTO one:
  33.  
Title: Re: Black Hole
Post by: bplus on September 30, 2019, 10:06:04 pm
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:
  33. GOTO one:
  34.  
  35.  
  36.  
Title: Re: Black Hole
Post by: SierraKen on September 30, 2019, 10:32:13 pm
WOW I've never seen that use of RND colors before, thanks!
Your version looks a bit like a 1970's game show. :D.
Title: Re: Black Hole
Post by: SierraKen on October 01, 2019, 08:14:11 pm
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
  15.     cl1 = INT(RND * 155) + 1
  17.     cl2 = INT(RND * 155) + 1
  19.     cl3 = INT(RND * 155) + 1
  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:
  45. GOTO one:
  46.  
Text Only | Text with Attachments