Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 08, 2019, 06:09:08 pm

Title: Fireworks
Post by: SierraKen on August 08, 2019, 06:09:08 pm
For ages, maybe the 80's, I've played around with making fireworks or other types of graphics shows on BASIC. But today I think I've made my best. You will probably say I made too many variables  but it's no big deal, especially with today's computers. In fact, there's a little over 175 variables. LOL Most of them are used for each spark per explosion. There's 24 sparks per explosion on most of them. I won't give away the ending, but there's some surprises. :) Tell me what you think, thanks. Oh, and I took someone's advice from this forum awhile back when they told me that I only needed 1 RANDOMIZE TIMER, so I put 1 in every set of different kinds of  variables and it works great! Thank you!

The show lasts around 3 minutes total. Or you can press Esc anytime to end.

(Note: One with a welcome screen that says the length of the show and the ability to use Esc, is after this post.)

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  4.  
  5. 'Start Loop Here
  6. go:
  7. a$ = INKEY$
  8. IF a$ = CHR$(27) THEN END
  10. x2 = INT(RND * 780) + 10
  11. y2 = INT(RND * 580) + 10
  12.  
  13. SOUND 100, .5
  15. SOUND 100, .5
  17. SOUND 100, .5
  19. SOUND 100, .5
  20.  
  22. dxx = (RND * 6) + -3
  23. dyy = (RND * 6) + -3
  24. dxx2 = (RND * 6) + -3
  25. dyy2 = (RND * 6) + -3
  26. dxx3 = (RND * 6) + -3
  27. dyy3 = (RND * 6) + -3
  28. dxx4 = (RND * 6) + -3
  29. dyy4 = (RND * 6) + -3
  30. dxx5 = (RND * 6) + -3
  31. dyy5 = (RND * 6) + -3
  32. dxx6 = (RND * 6) + -3
  33. dyy6 = (RND * 6) + -3
  34. dxx7 = (RND * 6) + -3
  35. dyy7 = (RND * 6) + -3
  36. dxx8 = (RND * 6) + -3
  37. dyy8 = (RND * 6) + -3
  38. dxx9 = (RND * 6) + -3
  39. dyy9 = (RND * 6) + -3
  40. dxx10 = (RND * 6) + -3
  41. dyy10 = (RND * 6) + -3
  42. dxx11 = (RND * 6) + -3
  43. dyy11 = (RND * 6) + -3
  44. dxx12 = (RND * 6) + -3
  45. dyy12 = (RND * 6) + -3
  46. dxx13 = (RND * 6) + -3
  47. dyy13 = (RND * 6) + -3
  48. dxx14 = (RND * 6) + -3
  49. dyy14 = (RND * 6) + -3
  50. dxx15 = (RND * 6) + -3
  51. dyy15 = (RND * 6) + -3
  52. dxx16 = (RND * 6) + -3
  53. dyy16 = (RND * 6) + -3
  54. dxx17 = (RND * 6) + -3
  55. dyy17 = (RND * 6) + -3
  56. dxx18 = (RND * 6) + -3
  57. dyy18 = (RND * 6) + -3
  58. dxx19 = (RND * 6) + -3
  59. dyy19 = (RND * 6) + -3
  60. dxx20 = (RND * 6) + -3
  61. dyy20 = (RND * 6) + -3
  62. dxx21 = (RND * 6) + -3
  63. dyy21 = (RND * 6) + -3
  64. dxx22 = (RND * 6) + -3
  65. dyy22 = (RND * 6) + -3
  66. dxx23 = (RND * 6) + -3
  67. dyy23 = (RND * 6) + -3
  68. dxx24 = (RND * 6) + -3
  69. dyy24 = (RND * 6) + -3
  70.  
  72. c1 = INT(RND * 200) + 55
  73. c2 = INT(RND * 200) + 55
  74. c3 = INT(RND * 200) + 55
  75. c4 = INT(RND * 200) + 55
  76. c5 = INT(RND * 200) + 55
  77. c6 = INT(RND * 200) + 55
  78. c7 = INT(RND * 200) + 55
  79. c8 = INT(RND * 200) + 55
  80. c9 = INT(RND * 200) + 55
  81. c10 = INT(RND * 200) + 55
  82. c11 = INT(RND * 200) + 55
  83. c12 = INT(RND * 200) + 55
  84. c13 = INT(RND * 200) + 55
  85. c14 = INT(RND * 200) + 55
  86. c15 = INT(RND * 200) + 55
  87. c16 = INT(RND * 200) + 55
  88. c17 = INT(RND * 200) + 55
  89. c18 = INT(RND * 200) + 55
  90. c19 = INT(RND * 200) + 55
  91. c20 = INT(RND * 200) + 55
  92. c21 = INT(RND * 200) + 55
  93. c22 = INT(RND * 200) + 55
  94. c23 = INT(RND * 200) + 55
  95. c24 = INT(RND * 200) + 55
  96. c25 = INT(RND * 200) + 55
  97. c26 = INT(RND * 200) + 55
  98. c27 = INT(RND * 200) + 55
  99. c28 = INT(RND * 200) + 55
  100. c29 = INT(RND * 200) + 55
  101. c30 = INT(RND * 200) + 55
  102. c31 = INT(RND * 200) + 55
  103. c32 = INT(RND * 200) + 55
  104. c33 = INT(RND * 200) + 55
  105. c34 = INT(RND * 200) + 55
  106. c35 = INT(RND * 200) + 55
  107. c36 = INT(RND * 200) + 55
  108. c37 = INT(RND * 200) + 55
  109. c38 = INT(RND * 200) + 55
  110. c39 = INT(RND * 200) + 55
  111. c40 = INT(RND * 200) + 55
  112. c41 = INT(RND * 200) + 55
  113. c42 = INT(RND * 200) + 55
  114. c43 = INT(RND * 200) + 55
  115. c44 = INT(RND * 200) + 55
  116. c45 = INT(RND * 200) + 55
  117. c46 = INT(RND * 200) + 55
  118. c47 = INT(RND * 200) + 55
  119. c48 = INT(RND * 200) + 55
  120. c49 = INT(RND * 200) + 55
  121. c50 = INT(RND * 200) + 55
  122. c51 = INT(RND * 200) + 55
  123. c52 = INT(RND * 200) + 55
  124. c53 = INT(RND * 200) + 55
  125. c54 = INT(RND * 200) + 55
  126. c55 = INT(RND * 200) + 55
  127. c56 = INT(RND * 200) + 55
  128. c57 = INT(RND * 200) + 55
  129. c58 = INT(RND * 200) + 55
  130. c59 = INT(RND * 200) + 55
  131. c60 = INT(RND * 200) + 55
  132. c61 = INT(RND * 200) + 55
  133. c62 = INT(RND * 200) + 55
  134. c63 = INT(RND * 200) + 55
  135. c64 = INT(RND * 200) + 55
  136. c65 = INT(RND * 200) + 55
  137. c66 = INT(RND * 200) + 55
  138. c67 = INT(RND * 200) + 55
  139. c68 = INT(RND * 200) + 55
  140. c69 = INT(RND * 200) + 55
  141. c70 = INT(RND * 200) + 55
  142. c71 = INT(RND * 200) + 55
  143. c72 = INT(RND * 200) + 55
  144.  
  145.  
  146.  
  147. explosion:
  148. dd = dd + 1
  149. dxx = dxx + dxx / 4
  150. dxx2 = dxx2 + dxx2 / 4
  151. dxx3 = dxx3 + dxx3 / 4
  152. dxx4 = dxx4 + dxx4 / 4
  153. dxx5 = dxx5 + dxx5 / 4
  154. dxx6 = dxx6 + dxx6 / 4
  155. dyy = dyy + dyy / 4
  156. dyy2 = dyy2 + dyy2 / 4
  157. dyy3 = dyy3 + dyy3 / 4
  158. dyy4 = dyy4 + dyy4 / 4
  159. dyy5 = dyy5 + dyy5 / 4
  160. dyy6 = dyy6 + dyy6 / 4
  161.  
  162. dxx7 = dxx7 + dxx7 / 4
  163. dxx8 = dxx8 + dxx8 / 4
  164. dxx9 = dxx9 + dxx9 / 4
  165. dxx10 = dxx10 + dxx10 / 4
  166. dxx11 = dxx11 + dxx11 / 4
  167. dxx12 = dxx12 + dxx12 / 4
  168. dyy7 = dyy7 + dyy7 / 4
  169. dyy8 = dyy8 + dyy8 / 4
  170. dyy9 = dyy9 + dyy9 / 4
  171. dyy10 = dyy10 + dyy10 / 4
  172. dyy11 = dyy11 + dyy11 / 4
  173. dyy12 = dyy12 + dyy12 / 4
  174.  
  175.  
  176. dxx13 = dxx13 + dxx13 / 4
  177. dxx14 = dxx14 + dxx14 / 4
  178. dxx15 = dxx15 + dxx15 / 4
  179. dxx16 = dxx16 + dxx16 / 4
  180. dxx17 = dxx17 + dxx17 / 4
  181. dxx18 = dxx18 + dxx18 / 4
  182. dyy13 = dyy13 + dyy13 / 4
  183. dyy14 = dyy14 + dyy14 / 4
  184. dyy15 = dyy15 + dyy15 / 4
  185. dyy16 = dyy16 + dyy16 / 4
  186. dyy17 = dyy17 + dyy17 / 4
  187. dyy18 = dyy18 + dyy18 / 4
  188.  
  189. dxx19 = dxx19 + dxx19 / 4
  190. dxx20 = dxx20 + dxx20 / 4
  191. dxx21 = dxx21 + dxx21 / 4
  192. dxx22 = dxx22 + dxx22 / 4
  193. dxx23 = dxx23 + dxx23 / 4
  194. dxx24 = dxx24 + dxx24 / 4
  195. dyy19 = dyy19 + dyy19 / 4
  196. dyy20 = dyy20 + dyy20 / 4
  197. dyy21 = dyy21 + dyy21 / 4
  198. dyy22 = dyy22 + dyy22 / 4
  199. dyy23 = dyy23 + dyy23 / 4
  200. dyy24 = dyy24 + dyy24 / 4
  201.  
  202.  
  203. FOR c = .25 TO 2 STEP .25
  204.     CIRCLE (x2 + dxx, y2 + dyy), c, _RGB32(c1, c2, c3)
  205.     CIRCLE (x2 + dxx2, y2 + dyy2), c, _RGB32(c4, c5, c6)
  206.     CIRCLE (x2 + dxx3, y2 + dyy3), c, _RGB32(c7, c8, c9)
  207.     CIRCLE (x2 + dxx4, y2 + dyy4), c, _RGB32(c10, c11, c12)
  208.  
  209.     CIRCLE (x2 + dxx5, y2 + dyy5), c, _RGB32(c13, c14, c15)
  210.     CIRCLE (x2 + dxx6, y2 + dyy6), c, _RGB32(c16, c17, c18)
  211.     CIRCLE (x2 + dxx7, y2 + dyy7), c, _RGB32(c19, c20, c21)
  212.     CIRCLE (x2 + dxx8, y2 + dyy8), c, _RGB32(c22, c23, c24)
  213.  
  214.     CIRCLE (x2 + dxx9, y2 + dyy9), c, _RGB32(c25, c26, c27)
  215.     CIRCLE (x2 + dxx10, y2 + dyy10), c, _RGB32(c28, c29, c30)
  216.     CIRCLE (x2 + dxx11, y2 + dyy11), c, _RGB32(c31, c32, c33)
  217.     CIRCLE (x2 + dxx12, y2 + dyy12), c, _RGB32(c34, c35, c36)
  218.  
  219.     CIRCLE (x2 + dxx13, y2 + dyy13), c, _RGB32(c37, c38, c39)
  220.     CIRCLE (x2 + dxx14, y2 + dyy14), c, _RGB32(c40, c41, c42)
  221.     CIRCLE (x2 + dxx15, y2 + dyy15), c, _RGB32(c43, c44, c45)
  222.     CIRCLE (x2 + dxx16, y2 + dyy16), c, _RGB32(c46, c47, c48)
  223.  
  224.     CIRCLE (x2 + dxx17, y2 + dyy17), c, _RGB32(c49, c50, c51)
  225.     CIRCLE (x2 + dxx18, y2 + dyy18), c, _RGB32(c52, c53, c54)
  226.     CIRCLE (x2 + dxx19, y2 + dyy19), c, _RGB32(c55, c56, c57)
  227.     CIRCLE (x2 + dxx20, y2 + dyy20), c, _RGB32(c58, c59, c60)
  228.  
  229.     CIRCLE (x2 + dxx21, y2 + dyy21), c, _RGB32(c61, c62, c63)
  230.     CIRCLE (x2 + dxx22, y2 + dyy22), c, _RGB32(c64, c65, c66)
  231.     CIRCLE (x2 + dxx23, y2 + dyy23), c, _RGB32(c67, c68, c69)
  232.     CIRCLE (x2 + dxx24, y2 + dyy24), c, _RGB32(c70, c71, c72)
  233.  
  235. _DELAY .05
  236. FOR cc = .25 TO 2 STEP .25
  237.  
  238.     CIRCLE (x2 + dxx, y2 + dyy), cc, _RGB32(0, 0, 0)
  239.     CIRCLE (x2 + dxx2, y2 + dyy2), cc, _RGB32(0, 0, 0)
  240.     CIRCLE (x2 + dxx3, y2 + dyy3), cc, _RGB32(0, 0, 0)
  241.     CIRCLE (x2 + dxx4, y2 + dyy4), cc, _RGB32(0, 0, 0)
  242.  
  243.     CIRCLE (x2 + dxx5, y2 + dyy5), cc, _RGB32(0, 0, 0)
  244.     CIRCLE (x2 + dxx6, y2 + dyy6), cc, _RGB32(0, 0, 0)
  245.     CIRCLE (x2 + dxx7, y2 + dyy7), cc, _RGB32(0, 0, 0)
  246.     CIRCLE (x2 + dxx8, y2 + dyy8), cc, _RGB32(0, 0, 0)
  247.  
  248.     CIRCLE (x2 + dxx9, y2 + dyy9), cc, _RGB32(0, 0, 0)
  249.     CIRCLE (x2 + dxx10, y2 + dyy10), cc, _RGB32(0, 0, 0)
  250.     CIRCLE (x2 + dxx11, y2 + dyy11), cc, _RGB32(0, 0, 0)
  251.     CIRCLE (x2 + dxx12, y2 + dyy12), cc, _RGB32(0, 0, 0)
  252.  
  253.     CIRCLE (x2 + dxx13, y2 + dyy13), cc, _RGB32(0, 0, 0)
  254.     CIRCLE (x2 + dxx14, y2 + dyy14), cc, _RGB32(0, 0, 0)
  255.     CIRCLE (x2 + dxx15, y2 + dyy15), cc, _RGB32(0, 0, 0)
  256.     CIRCLE (x2 + dxx16, y2 + dyy16), cc, _RGB32(0, 0, 0)
  257.  
  258.     CIRCLE (x2 + dxx17, y2 + dyy17), cc, _RGB32(0, 0, 0)
  259.     CIRCLE (x2 + dxx18, y2 + dyy18), cc, _RGB32(0, 0, 0)
  260.     CIRCLE (x2 + dxx19, y2 + dyy19), cc, _RGB32(0, 0, 0)
  261.     CIRCLE (x2 + dxx20, y2 + dyy20), cc, _RGB32(0, 0, 0)
  262.  
  263.     CIRCLE (x2 + dxx21, y2 + dyy21), cc, _RGB32(0, 0, 0)
  264.     CIRCLE (x2 + dxx22, y2 + dyy22), cc, _RGB32(0, 0, 0)
  265.     CIRCLE (x2 + dxx23, y2 + dyy23), cc, _RGB32(0, 0, 0)
  266.     CIRCLE (x2 + dxx24, y2 + dyy24), cc, _RGB32(0, 0, 0)
  267.  
  268.  
  269. NEXT cc
  270.  
  271. IF dd > 25 THEN GOTO goingback
  272. GOTO explosion:
  273. goingback:
  274. dd = 0
  275. ee = ee + 1
  276. IF ee > 60 THEN GOTO finalboom:
  277. tt = tt + 1
  278. IF tt > 40 THEN tm = 0: GOTO delay:
  280. tm = (RND * 2) + .01
  281. delay:
  283. GOTO go:
  284.  
  285. 'FINAL BOOM!
  286.  
  287. finalboom:
  289. x3 = INT(RND * 600) + 100
  291. y3 = INT(RND * 400) + 100
  292. boom:
  294. ccl1 = INT(RND * 100) + 155
  296. ccl2 = INT(RND * 100) + 155
  298. ccl3 = INT(RND * 100) + 155
  299.  
  300. SOUND 100, .5
  302. SOUND 100, .5
  304. SOUND 100, .5
  306. SOUND 100, .5
  307. FOR sz = 2 TO 30
  308.     aa$ = INKEY$
  309.     IF aa$ = CHR$(27) THEN END
  310.     CIRCLE (x3, y3), sz * 2, _RGB32(ccl1, ccl2, ccl3)
  311.     _DELAY .02
  312. NEXT sz
  313. FOR sz = 2 TO 30
  314.     CIRCLE (x3, y3), sz * 2, _RGB32(0, 0, 0)
  315.     _DELAY .02
  316. NEXT sz
  317. f = f + 1
  318. IF f = 20 THEN GOTO face:
  319. GOTO finalboom:
  320. face:
  322. SCREEN _NEWIMAGE(800, 600, 13)
  323.  
  324. 'Make the face.
  325. CIRCLE (400, 300), 100, 10
  326. CIRCLE (350, 250), 20, 10
  327. CIRCLE (450, 250), 20, 10
  328. CIRCLE (400, 300), 15, 10
  329. CIRCLE (400, 350), 30, 10
  330.  
  331. 'Explode the face!
  332. FOR xt = 249 TO 551
  333.     FOR yt = 149 TO 451
  334.         a2$ = INKEY$
  335.         IF a2$ = CHR$(27) THEN END
  336.         IF POINT(xt, yt) > 0 AND POINT(xt, yt) <> 4 THEN
  337.             _LIMIT 5000
  338.             SOUND 100, .5
  339.             FOR b = 1 TO 40 STEP 2
  340.                 CIRCLE (xt, yt), b, 4
  341.                 _DELAY .002
  342.             NEXT b
  343.             FOR b = 1 TO 40 STEP 2
  344.                 CIRCLE (xt, yt), b, 0
  345.                 _DELAY .002
  346.             NEXT b
  347.         END IF
  348.     NEXT yt
  349. NEXT xt
  350.  
  352.  
  353.  
Title: Re: Fireworks
Post by: SierraKen on August 08, 2019, 07:58:21 pm
Here's one with a welcome screen so the user knows it lasts 3 minutes and also has the ability to use the Esc key to end anytime.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  5. PRINT "                                  FIREWORKS"
  7. PRINT "                                  By  Ken G."
  9. PRINT "                    The show lasts around 3 minutes total."
  10. PRINT "                    Or press Esc to end anytime."
  11. PRINT "                    There's some surprises at the end."
  13. INPUT "                    Press Enter to begin.", bg$
  15. 'Start Loop Here
  16. go:
  17. a$ = INKEY$
  18. IF a$ = CHR$(27) THEN END
  20. x2 = INT(RND * 780) + 10
  21. y2 = INT(RND * 580) + 10
  22.  
  23. SOUND 100, .5
  25. SOUND 100, .5
  27. SOUND 100, .5
  29. SOUND 100, .5
  30.  
  32. dxx = (RND * 6) + -3
  33. dyy = (RND * 6) + -3
  34. dxx2 = (RND * 6) + -3
  35. dyy2 = (RND * 6) + -3
  36. dxx3 = (RND * 6) + -3
  37. dyy3 = (RND * 6) + -3
  38. dxx4 = (RND * 6) + -3
  39. dyy4 = (RND * 6) + -3
  40. dxx5 = (RND * 6) + -3
  41. dyy5 = (RND * 6) + -3
  42. dxx6 = (RND * 6) + -3
  43. dyy6 = (RND * 6) + -3
  44. dxx7 = (RND * 6) + -3
  45. dyy7 = (RND * 6) + -3
  46. dxx8 = (RND * 6) + -3
  47. dyy8 = (RND * 6) + -3
  48. dxx9 = (RND * 6) + -3
  49. dyy9 = (RND * 6) + -3
  50. dxx10 = (RND * 6) + -3
  51. dyy10 = (RND * 6) + -3
  52. dxx11 = (RND * 6) + -3
  53. dyy11 = (RND * 6) + -3
  54. dxx12 = (RND * 6) + -3
  55. dyy12 = (RND * 6) + -3
  56. dxx13 = (RND * 6) + -3
  57. dyy13 = (RND * 6) + -3
  58. dxx14 = (RND * 6) + -3
  59. dyy14 = (RND * 6) + -3
  60. dxx15 = (RND * 6) + -3
  61. dyy15 = (RND * 6) + -3
  62. dxx16 = (RND * 6) + -3
  63. dyy16 = (RND * 6) + -3
  64. dxx17 = (RND * 6) + -3
  65. dyy17 = (RND * 6) + -3
  66. dxx18 = (RND * 6) + -3
  67. dyy18 = (RND * 6) + -3
  68. dxx19 = (RND * 6) + -3
  69. dyy19 = (RND * 6) + -3
  70. dxx20 = (RND * 6) + -3
  71. dyy20 = (RND * 6) + -3
  72. dxx21 = (RND * 6) + -3
  73. dyy21 = (RND * 6) + -3
  74. dxx22 = (RND * 6) + -3
  75. dyy22 = (RND * 6) + -3
  76. dxx23 = (RND * 6) + -3
  77. dyy23 = (RND * 6) + -3
  78. dxx24 = (RND * 6) + -3
  79. dyy24 = (RND * 6) + -3
  80.  
  82. c1 = INT(RND * 200) + 55
  83. c2 = INT(RND * 200) + 55
  84. c3 = INT(RND * 200) + 55
  85. c4 = INT(RND * 200) + 55
  86. c5 = INT(RND * 200) + 55
  87. c6 = INT(RND * 200) + 55
  88. c7 = INT(RND * 200) + 55
  89. c8 = INT(RND * 200) + 55
  90. c9 = INT(RND * 200) + 55
  91. c10 = INT(RND * 200) + 55
  92. c11 = INT(RND * 200) + 55
  93. c12 = INT(RND * 200) + 55
  94. c13 = INT(RND * 200) + 55
  95. c14 = INT(RND * 200) + 55
  96. c15 = INT(RND * 200) + 55
  97. c16 = INT(RND * 200) + 55
  98. c17 = INT(RND * 200) + 55
  99. c18 = INT(RND * 200) + 55
  100. c19 = INT(RND * 200) + 55
  101. c20 = INT(RND * 200) + 55
  102. c21 = INT(RND * 200) + 55
  103. c22 = INT(RND * 200) + 55
  104. c23 = INT(RND * 200) + 55
  105. c24 = INT(RND * 200) + 55
  106. c25 = INT(RND * 200) + 55
  107. c26 = INT(RND * 200) + 55
  108. c27 = INT(RND * 200) + 55
  109. c28 = INT(RND * 200) + 55
  110. c29 = INT(RND * 200) + 55
  111. c30 = INT(RND * 200) + 55
  112. c31 = INT(RND * 200) + 55
  113. c32 = INT(RND * 200) + 55
  114. c33 = INT(RND * 200) + 55
  115. c34 = INT(RND * 200) + 55
  116. c35 = INT(RND * 200) + 55
  117. c36 = INT(RND * 200) + 55
  118. c37 = INT(RND * 200) + 55
  119. c38 = INT(RND * 200) + 55
  120. c39 = INT(RND * 200) + 55
  121. c40 = INT(RND * 200) + 55
  122. c41 = INT(RND * 200) + 55
  123. c42 = INT(RND * 200) + 55
  124. c43 = INT(RND * 200) + 55
  125. c44 = INT(RND * 200) + 55
  126. c45 = INT(RND * 200) + 55
  127. c46 = INT(RND * 200) + 55
  128. c47 = INT(RND * 200) + 55
  129. c48 = INT(RND * 200) + 55
  130. c49 = INT(RND * 200) + 55
  131. c50 = INT(RND * 200) + 55
  132. c51 = INT(RND * 200) + 55
  133. c52 = INT(RND * 200) + 55
  134. c53 = INT(RND * 200) + 55
  135. c54 = INT(RND * 200) + 55
  136. c55 = INT(RND * 200) + 55
  137. c56 = INT(RND * 200) + 55
  138. c57 = INT(RND * 200) + 55
  139. c58 = INT(RND * 200) + 55
  140. c59 = INT(RND * 200) + 55
  141. c60 = INT(RND * 200) + 55
  142. c61 = INT(RND * 200) + 55
  143. c62 = INT(RND * 200) + 55
  144. c63 = INT(RND * 200) + 55
  145. c64 = INT(RND * 200) + 55
  146. c65 = INT(RND * 200) + 55
  147. c66 = INT(RND * 200) + 55
  148. c67 = INT(RND * 200) + 55
  149. c68 = INT(RND * 200) + 55
  150. c69 = INT(RND * 200) + 55
  151. c70 = INT(RND * 200) + 55
  152. c71 = INT(RND * 200) + 55
  153. c72 = INT(RND * 200) + 55
  154.  
  155.  
  156.  
  157. explosion:
  158. dd = dd + 1
  159. dxx = dxx + dxx / 4
  160. dxx2 = dxx2 + dxx2 / 4
  161. dxx3 = dxx3 + dxx3 / 4
  162. dxx4 = dxx4 + dxx4 / 4
  163. dxx5 = dxx5 + dxx5 / 4
  164. dxx6 = dxx6 + dxx6 / 4
  165. dyy = dyy + dyy / 4
  166. dyy2 = dyy2 + dyy2 / 4
  167. dyy3 = dyy3 + dyy3 / 4
  168. dyy4 = dyy4 + dyy4 / 4
  169. dyy5 = dyy5 + dyy5 / 4
  170. dyy6 = dyy6 + dyy6 / 4
  171.  
  172. dxx7 = dxx7 + dxx7 / 4
  173. dxx8 = dxx8 + dxx8 / 4
  174. dxx9 = dxx9 + dxx9 / 4
  175. dxx10 = dxx10 + dxx10 / 4
  176. dxx11 = dxx11 + dxx11 / 4
  177. dxx12 = dxx12 + dxx12 / 4
  178. dyy7 = dyy7 + dyy7 / 4
  179. dyy8 = dyy8 + dyy8 / 4
  180. dyy9 = dyy9 + dyy9 / 4
  181. dyy10 = dyy10 + dyy10 / 4
  182. dyy11 = dyy11 + dyy11 / 4
  183. dyy12 = dyy12 + dyy12 / 4
  184.  
  185.  
  186. dxx13 = dxx13 + dxx13 / 4
  187. dxx14 = dxx14 + dxx14 / 4
  188. dxx15 = dxx15 + dxx15 / 4
  189. dxx16 = dxx16 + dxx16 / 4
  190. dxx17 = dxx17 + dxx17 / 4
  191. dxx18 = dxx18 + dxx18 / 4
  192. dyy13 = dyy13 + dyy13 / 4
  193. dyy14 = dyy14 + dyy14 / 4
  194. dyy15 = dyy15 + dyy15 / 4
  195. dyy16 = dyy16 + dyy16 / 4
  196. dyy17 = dyy17 + dyy17 / 4
  197. dyy18 = dyy18 + dyy18 / 4
  198.  
  199. dxx19 = dxx19 + dxx19 / 4
  200. dxx20 = dxx20 + dxx20 / 4
  201. dxx21 = dxx21 + dxx21 / 4
  202. dxx22 = dxx22 + dxx22 / 4
  203. dxx23 = dxx23 + dxx23 / 4
  204. dxx24 = dxx24 + dxx24 / 4
  205. dyy19 = dyy19 + dyy19 / 4
  206. dyy20 = dyy20 + dyy20 / 4
  207. dyy21 = dyy21 + dyy21 / 4
  208. dyy22 = dyy22 + dyy22 / 4
  209. dyy23 = dyy23 + dyy23 / 4
  210. dyy24 = dyy24 + dyy24 / 4
  211.  
  212.  
  213. FOR c = .25 TO 2 STEP .25
  214.     CIRCLE (x2 + dxx, y2 + dyy), c, _RGB32(c1, c2, c3)
  215.     CIRCLE (x2 + dxx2, y2 + dyy2), c, _RGB32(c4, c5, c6)
  216.     CIRCLE (x2 + dxx3, y2 + dyy3), c, _RGB32(c7, c8, c9)
  217.     CIRCLE (x2 + dxx4, y2 + dyy4), c, _RGB32(c10, c11, c12)
  218.  
  219.     CIRCLE (x2 + dxx5, y2 + dyy5), c, _RGB32(c13, c14, c15)
  220.     CIRCLE (x2 + dxx6, y2 + dyy6), c, _RGB32(c16, c17, c18)
  221.     CIRCLE (x2 + dxx7, y2 + dyy7), c, _RGB32(c19, c20, c21)
  222.     CIRCLE (x2 + dxx8, y2 + dyy8), c, _RGB32(c22, c23, c24)
  223.  
  224.     CIRCLE (x2 + dxx9, y2 + dyy9), c, _RGB32(c25, c26, c27)
  225.     CIRCLE (x2 + dxx10, y2 + dyy10), c, _RGB32(c28, c29, c30)
  226.     CIRCLE (x2 + dxx11, y2 + dyy11), c, _RGB32(c31, c32, c33)
  227.     CIRCLE (x2 + dxx12, y2 + dyy12), c, _RGB32(c34, c35, c36)
  228.  
  229.     CIRCLE (x2 + dxx13, y2 + dyy13), c, _RGB32(c37, c38, c39)
  230.     CIRCLE (x2 + dxx14, y2 + dyy14), c, _RGB32(c40, c41, c42)
  231.     CIRCLE (x2 + dxx15, y2 + dyy15), c, _RGB32(c43, c44, c45)
  232.     CIRCLE (x2 + dxx16, y2 + dyy16), c, _RGB32(c46, c47, c48)
  233.  
  234.     CIRCLE (x2 + dxx17, y2 + dyy17), c, _RGB32(c49, c50, c51)
  235.     CIRCLE (x2 + dxx18, y2 + dyy18), c, _RGB32(c52, c53, c54)
  236.     CIRCLE (x2 + dxx19, y2 + dyy19), c, _RGB32(c55, c56, c57)
  237.     CIRCLE (x2 + dxx20, y2 + dyy20), c, _RGB32(c58, c59, c60)
  238.  
  239.     CIRCLE (x2 + dxx21, y2 + dyy21), c, _RGB32(c61, c62, c63)
  240.     CIRCLE (x2 + dxx22, y2 + dyy22), c, _RGB32(c64, c65, c66)
  241.     CIRCLE (x2 + dxx23, y2 + dyy23), c, _RGB32(c67, c68, c69)
  242.     CIRCLE (x2 + dxx24, y2 + dyy24), c, _RGB32(c70, c71, c72)
  243.  
  245. _DELAY .05
  246. FOR cc = .25 TO 2 STEP .25
  247.  
  248.     CIRCLE (x2 + dxx, y2 + dyy), cc, _RGB32(0, 0, 0)
  249.     CIRCLE (x2 + dxx2, y2 + dyy2), cc, _RGB32(0, 0, 0)
  250.     CIRCLE (x2 + dxx3, y2 + dyy3), cc, _RGB32(0, 0, 0)
  251.     CIRCLE (x2 + dxx4, y2 + dyy4), cc, _RGB32(0, 0, 0)
  252.  
  253.     CIRCLE (x2 + dxx5, y2 + dyy5), cc, _RGB32(0, 0, 0)
  254.     CIRCLE (x2 + dxx6, y2 + dyy6), cc, _RGB32(0, 0, 0)
  255.     CIRCLE (x2 + dxx7, y2 + dyy7), cc, _RGB32(0, 0, 0)
  256.     CIRCLE (x2 + dxx8, y2 + dyy8), cc, _RGB32(0, 0, 0)
  257.  
  258.     CIRCLE (x2 + dxx9, y2 + dyy9), cc, _RGB32(0, 0, 0)
  259.     CIRCLE (x2 + dxx10, y2 + dyy10), cc, _RGB32(0, 0, 0)
  260.     CIRCLE (x2 + dxx11, y2 + dyy11), cc, _RGB32(0, 0, 0)
  261.     CIRCLE (x2 + dxx12, y2 + dyy12), cc, _RGB32(0, 0, 0)
  262.  
  263.     CIRCLE (x2 + dxx13, y2 + dyy13), cc, _RGB32(0, 0, 0)
  264.     CIRCLE (x2 + dxx14, y2 + dyy14), cc, _RGB32(0, 0, 0)
  265.     CIRCLE (x2 + dxx15, y2 + dyy15), cc, _RGB32(0, 0, 0)
  266.     CIRCLE (x2 + dxx16, y2 + dyy16), cc, _RGB32(0, 0, 0)
  267.  
  268.     CIRCLE (x2 + dxx17, y2 + dyy17), cc, _RGB32(0, 0, 0)
  269.     CIRCLE (x2 + dxx18, y2 + dyy18), cc, _RGB32(0, 0, 0)
  270.     CIRCLE (x2 + dxx19, y2 + dyy19), cc, _RGB32(0, 0, 0)
  271.     CIRCLE (x2 + dxx20, y2 + dyy20), cc, _RGB32(0, 0, 0)
  272.  
  273.     CIRCLE (x2 + dxx21, y2 + dyy21), cc, _RGB32(0, 0, 0)
  274.     CIRCLE (x2 + dxx22, y2 + dyy22), cc, _RGB32(0, 0, 0)
  275.     CIRCLE (x2 + dxx23, y2 + dyy23), cc, _RGB32(0, 0, 0)
  276.     CIRCLE (x2 + dxx24, y2 + dyy24), cc, _RGB32(0, 0, 0)
  277.  
  278.  
  279. NEXT cc
  280.  
  281. IF dd > 25 THEN GOTO goingback
  282. GOTO explosion:
  283. goingback:
  284. dd = 0
  285. ee = ee + 1
  286. IF ee > 60 THEN GOTO finalboom:
  287. tt = tt + 1
  288. IF tt > 40 THEN tm = 0: GOTO delay:
  290. tm = (RND * 2) + .01
  291. delay:
  293. GOTO go:
  294.  
  295. 'FINAL BOOM!
  296.  
  297. finalboom:
  299. x3 = INT(RND * 600) + 100
  301. y3 = INT(RND * 400) + 100
  302. boom:
  304. ccl1 = INT(RND * 100) + 155
  306. ccl2 = INT(RND * 100) + 155
  308. ccl3 = INT(RND * 100) + 155
  309.  
  310. SOUND 100, .5
  312. SOUND 100, .5
  314. SOUND 100, .5
  316. SOUND 100, .5
  317. FOR sz = 2 TO 30
  318.     aa$ = INKEY$
  319.     IF aa$ = CHR$(27) THEN END
  320.     CIRCLE (x3, y3), sz * 2, _RGB32(ccl1, ccl2, ccl3)
  321.     _DELAY .02
  322. NEXT sz
  323. FOR sz = 2 TO 30
  324.     CIRCLE (x3, y3), sz * 2, _RGB32(0, 0, 0)
  325.     _DELAY .02
  326. NEXT sz
  327. f = f + 1
  328. IF f = 20 THEN GOTO face:
  329. GOTO finalboom:
  330. face:
  332. SCREEN _NEWIMAGE(800, 600, 13)
  333.  
  334. 'Make the face.
  335. CIRCLE (400, 300), 100, 10
  336. CIRCLE (350, 250), 20, 10
  337. CIRCLE (450, 250), 20, 10
  338. CIRCLE (400, 300), 15, 10
  339. CIRCLE (400, 350), 30, 10
  340.  
  341. 'Explode the face!
  342. FOR xt = 249 TO 551
  343.     FOR yt = 149 TO 451
  344.         a2$ = INKEY$
  345.         IF a2$ = CHR$(27) THEN END
  346.         IF POINT(xt, yt) > 0 AND POINT(xt, yt) <> 4 THEN
  347.             _LIMIT 5000
  348.             SOUND 100, .5
  349.             FOR b = 1 TO 40 STEP 2
  350.                 CIRCLE (xt, yt), b, 4
  351.                 _DELAY .002
  352.             NEXT b
  353.             FOR b = 1 TO 40 STEP 2
  354.                 CIRCLE (xt, yt), b, 0
  355.                 _DELAY .002
  356.             NEXT b
  357.         END IF
  358.     NEXT yt
  359. NEXT xt
  360.  
  362.  
  363.  
Title: Re: Fireworks
Post by: bplus on August 09, 2019, 06:13:38 pm
Fireworks in 50! (lines that are commented for students of explosions)
Code: QB64: [Select]
  1. _TITLE "Simple explosion of 200 particles" '2019-08-09 B+
  2. SCREEN _NEWIMAGE(1200, 720, 32) 'need a grphics screen for graphics
  3. _SCREENMOVE 100, 10 'so bplus can view screen past his tool bar on left
  4.  
  5. n = 200 'number of particles
  6. DIM x(n), y(n) 'particle location x, y
  7. DIM dx(n), dy(n) 'traveling in x, y vectors dx, dy (the change in x direction and the change in y direction)
  8.  
  9. GOSUB igniteParticles
  10. 'we have our particle all packed at random (x, y) and are ready to blow!
  11.  
  12. WHILE _KEYHIT <> 27 'while no escape key pressed
  13.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 30), BF 'only semi black out screen, this effect is so cool!!!!
  14.     'show particle by looping through the bunch
  15.     FOR p = 0 TO n
  16.         CIRCLE (x(p), y(p)), 2
  17.         'update each particle location
  18.         dx(p) = .98 * dx(p) 'retard the spread along x axis, call it air resistance
  19.         x(p) = x(p) + dx(p) 'change x position
  20.         dy(p) = dy(p) + .1 'gravity keeps forcing the particle down more and more
  21.         y(p) = y(p) + dy(p) 'change y position
  22.     NEXT
  23.     loopCntr = loopCntr + 1
  24.     LOCATE 1, 1: PRINT SPACE$(50)
  25.     LOCATE 1, 1: PRINT loopCntr ' OK a fire work in over in about 250 frames but 200 enough
  26.     IF loopCntr MOD 200 = 199 THEN 'show done start another
  27.         loopCntr = 0
  28.         GOSUB igniteParticles
  29.     END IF
  30.     _DISPLAY 'this so screen wont flicker
  31.     _LIMIT 30 'so dont overwork fan
  33. igniteParticles:
  34. 'pick random x, y from which to explode
  35. rx = RND * _WIDTH / 2 + _WIDTH / 4 ' middle half of screen
  36. ry = RND * _HEIGHT / 8 + _HEIGHT / 8 ' upper 1/4 of screen
  37. FOR p = 0 TO n 'for each particle
  38.     'select a random angle = direction to go
  39.     x(p) = rx ' start every particle here rx, ry
  40.     y(p) = ry ' start every particle here rx, ry
  41.     d = 360 * RND 'direction in degrees is a random number from 0 to 360
  42.     v = 10 * RND 'velocity they are moving is random 0 to 10
  43.  
  44.     'the following calculates the x component of the particle vector , the change the particle will make along the x axis
  45.     dx(p) = v * COS(_D2R(d)) ' _D2R converts our random direction in degrees to radians for COS to process
  46.  
  47.     'the following calculates the y component of the particle vector , the change the particle will make along the y axis
  48.     dy(p) = v * SIN(_D2R(d)) ' _D2R converts our random direction in degrees to radians for SIN to process
  51.  
Title: Re: Fireworks
Post by: OldMoses on August 09, 2019, 07:43:54 pm
Quote from: bplus on August 09, 2019, 06:13:38 pm
Fireworks in 50! (lines that are commented for students of explosions)

Being modest as usual, I see. Removing the white space and comments brings it down to 38 lines...

...and it's so well written that only the barest tweak gives it color...

Code: QB64: [Select]
  1. _TITLE "Simple explosion of 200 particles" '2019-08-09 B+
  2. SCREEN _NEWIMAGE(1200, 720, 32) 'need a grphics screen for graphics
  3. _SCREENMOVE 100, 10 'so bplus can view screen past his tool bar on left
  4.  
  5. n = 200 'number of particles
  6. DIM x(n), y(n) 'particle location x, y
  7. DIM dx(n), dy(n) 'traveling in x, y vectors dx, dy (the change in x direction and the change in y direction)
  8. DIM r&(n), g&(n), b&(n) 'color component of particles added by OldMoses
  9.  
  10. GOSUB igniteParticles
  11. 'we have our particle all packed at random (x, y) and are ready to blow!
  12.  
  13. WHILE _KEYHIT <> 27 'while no escape key pressed
  14.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 30), BF 'only semi black out screen, this effect is so cool!!!!
  15.     'show particle by looping through the bunch
  16.     FOR p = 0 TO n
  17.         CIRCLE (x(p), y(p)), 2, _RGBA32(r&(p), g&(p), b&(p), 255)
  18.         'update each particle location
  19.         dx(p) = .98 * dx(p) 'retard the spread along x axis, call it air resistance
  20.         x(p) = x(p) + dx(p) 'change x position
  21.         dy(p) = dy(p) + .1 'gravity keeps forcing the particle down more and more
  22.         y(p) = y(p) + dy(p) 'change y position
  23.     NEXT
  24.     loopCntr = loopCntr + 1
  25.     LOCATE 1, 1: PRINT SPACE$(50)
  26.     LOCATE 1, 1: PRINT loopCntr ' OK a fire work in over in about 250 frames but 200 enough
  27.     IF loopCntr MOD 200 = 199 THEN 'show done start another
  28.         loopCntr = 0
  29.         GOSUB igniteParticles
  30.     END IF
  31.     _DISPLAY 'this so screen wont flicker
  32.     _LIMIT 30 'so dont overwork fan
  34. igniteParticles:
  35. 'pick random x, y from which to explode
  36. rx = RND * _WIDTH / 2 + _WIDTH / 4 ' middle half of screen
  37. ry = RND * _HEIGHT / 8 + _HEIGHT / 8 ' upper 1/4 of screen
  38. FOR p = 0 TO n 'for each particle
  39.     'select a random angle = direction to go
  40.     x(p) = rx ' start every particle here rx, ry
  41.     y(p) = ry ' start every particle here rx, ry
  42.     d = 360 * RND 'direction in degrees is a random number from 0 to 360
  43.     v = 10 * RND 'velocity they are moving is random 0 to 10
  44.     r&(p) = INT(RND * 256) 'color components added by OldMoses
  45.     g&(p) = INT(RND * 256)
  46.     b&(p) = INT(RND * 256)
  47.  
  48.     'the following calculates the x component of the particle vector , the change the particle will make along the x axis
  49.     dx(p) = v * COS(_D2R(d)) ' _D2R converts our random direction in degrees to radians for COS to process
  50.  
  51.     'the following calculates the y component of the particle vector , the change the particle will make along the y axis
  52.     dy(p) = v * SIN(_D2R(d)) ' _D2R converts our random direction in degrees to radians for SIN to process
  55.  
  56.  
  57.  
Title: Re: Fireworks
Post by: bplus on August 10, 2019, 12:01:17 am
Hi Andy,

Color! I could watch that all day!
Title: Re: Fireworks
Post by: johnno56 on August 11, 2019, 04:55:53 am
Cool fireworks... :)

J
Title: Re: Fireworks
Post by: pforpond on August 11, 2019, 05:56:15 am
Very pretty! I love this! It's quite mesmerising I could watch it run for hours :)
Text Only | Text with Attachments