It's already 2020 in Australia! Where are the fireworks, folks?

[FellippeHeitor]

No, really, no one?

[Dimster]

Saw the Sidney fireworks - beautiful - I'd love to visit that city one day. Ah, found my New Years resolution.

[Pete]

In New York, we have a massive fireworks display, thanks to Trump. We also have a tradition of the ball drop at midnight, from Time Square. So President Trump is responsible for all of the fireworks, but it's fair to say that former president Obama was responsible for dropping the ball!

Pete

Happy New Year!

Code: QB64: [Select]

1. SCREEN 0, 0, 0, 0
2. WIDTH 80, 43
3. _DELAY .5
4. _SCREENMOVE _MIDDLE
5. c = _WIDTH / 2
6. LOCATE _HEIGHT - 1, c
7. PRINT "^";
8. LOCATE _HEIGHT, c
9. PRINT CHR$(179);
10. _DELAY 1
11. FOR i = _HEIGHT TO 6 STEP -1
12.     _DELAY i / 450
13.     PCOPY 0, 1
14.     CLS
15.     SCREEN 0, 0, 1, 0
16.     LOCATE i - 1, c
17.     PRINT "^";
18.     LOCATE i, c
19.     PRINT CHR$(179);
20.     PCOPY 1, 0
21. NEXT
22. CLS
23. SCREEN 0, 0, 1, 1
24. FOR j = 1 TO 50
25.     LOCATE i + RND * 9 - 4, c + RND * 30 - 14
26.     _DELAY .025
27.     COLOR RND * 14 + 17, 0: PRINT "*"
28. NEXT
29. _DELAY 2
30. COLOR 7, 0
31. SCREEN 0, 0, 0, 0
32. CLS
33. msg$ = "HAPPY NEW YEAR!"
34. LOCATE i, c - LEN(msg$) \ 2
35. PRINT msg$
36. _DELAY .5
37. FOR h = i TO _HEIGHT
38.     _DELAY (_HEIGHT - h + 1) / 450
39.     PCOPY 0, 1
40.     CLS
41.     SCREEN 0, 0, 1, 0
42.     LOCATE h, c - LEN(msg$) \ 2
43.     PRINT msg$;
44.     PCOPY 1, 0
45. NEXT
46. _DELAY 1
47. END

[bplus]

How do you top 2018's code show?

Code: QB64: [Select]

1. _TITLE "Happy Trails 2020" 'from Happy Trails 2018
2. ' 2017-12-29 another redesign of fireworks
3. ' 2017-12-28 redesign fireworks
4. ' now with lake refelction 2017-12-27 forget the bouncing sparks
5. ' combine Welcome Plasma Font with landscape
6. '_title "Fireworks 3 translation to QB64 2017-12-26 bplus"
7. 'fireworks 3.bas SmallBASIC 0.12.2 [B+=MGA] 2015-05-09
8. 'fireworks 2.bas 2016-05-05 now with Gravity, Newtonian bounce, smoke debris
9. 'fireworks 3.bas try with map variables make bursts around a central point
10.  
11.  
12. RANDOMIZE TIMER
13. CONST xmax = 1200
14. CONST ymax = 720
15. CONST waterline = 600 ' 600 = ratio 5 to 1 sky to water
16. '                       raise and lower waterline as desired  highest about 400?
17. CONST lTail = 15
18. CONST bluey = 5 * 256 ^ 2 + 256 * 5 + 5
19. CONST debrisMax = 28000
20.  
21. SCREEN _NEWIMAGE(xmax, ymax, 32)
22. _SCREENMOVE 120, 20
23.  
24. TYPE fireWorkType
25.     x AS INTEGER
26.     y AS INTEGER
27.     seed AS INTEGER
28.     age AS INTEGER
29.     life AS INTEGER
30. END TYPE
31.  
32.  
33. TYPE debrisType
34.     x AS SINGLE
35.     y AS SINGLE
36.     c AS LONG
37. END TYPE
38.  
39. COMMON SHARED fw() AS fireWorkType
40. COMMON SHARED debris() AS debrisType
41. COMMON SHARED cN, pR!, pG!, pB!
42.  
43. SCREEN _NEWIMAGE(xmax, ymax, 32)
44.  
45. 'prepare message font
46. mess$ = " Happy New Year 2020"
47. PRINT mess$
48. w = 8 * LEN(mess$): h = 16
49. DIM p(w, h)
50. black&& = POINT(0, 10)
51. FOR y = 0 TO h
52.     FOR x = 0 TO w
53.         IF POINT(x, y) <> black&& THEN
54.             p(x, y) = 1
55.         END IF
56.     NEXT
57. NEXT
58. xo = 0: yo = 15: m = 7.2
59. resetPlasma
60.  
61. 'prepare landscape
62. CLS
63. land& = _NEWIMAGE(xmax, ymax, 32)
64. _DEST land&
65. drawLandscape
66. _DEST 0
67.  
68. 'prepare fire works
69. nFW = 3
70. DIM fw(1 TO 10) AS fireWorkType
71. FOR i = 1 TO nFW
72.     initFireWork (i)
73. NEXT
74.  
75. ''debris feild
76. 'DIM debris(debrisMax) AS debrisType
77.  
78. 'OK start the show
79. WHILE 1
80.     'cls screen with land image
81.     _PUTIMAGE , land&, 0
82.  
83.     'draw fireworks
84.     FOR f = 1 TO nFW
85.         IF fw(f).age <= fw(f).life THEN drawfw (f) ELSE initFireWork f
86.     NEXT
87.  
88.     ''debris
89.     'FOR i = 0 TO debrisStack
90.     '    PSET (debris(i).x, debris(i).y), debris(i).c
91.     '    debris(i).x = debris(i).x + RND * 3 - 1.5
92.     '    debris(i).y = debris(i).y + RND * 3.5 - 1.5
93.     '    IF debris(i).x < 0 OR debris(i).y < 0 OR debris(i).x > xmax OR debris(i).y > waterline + RND * 20 THEN NewDebris (i)
94.     'NEXT
95.  
96.     'text message in plasma
97.     FOR y = 0 TO h - 1
98.         FOR x = 0 TO w - 1
99.             IF p(x, y) THEN
100.                 changePlasma
101.             ELSE
102.                 COLOR 0
103.             END IF
104.             LINE (xo + x * m, yo + y * m)-(xo + x * m + m, yo + y * m + m), , BF
105.         NEXT
106.     NEXT
107.     lc = lc + 1
108.     IF lc MOD 200 = 0 THEN resetPlasma
109.  
110.     'reflect sky
111.     skyWaterRatio = waterline / (ymax - waterline) - .05
112.     FOR y = waterline TO ymax
113.         FOR x = 0 TO xmax
114.             c&& = POINT(x, waterline - ((y - waterline - 1) * skyWaterRatio) + RND * 5)
115.             PSET (x, y + 1), c&& + bluey
116.         NEXT
117.     NEXT
118.  
119.     _DISPLAY
120.     _LIMIT 200 'no limit needed on my system!
121.  
122.     ''accumulate debris
123.     'IF lc MOD 2000 THEN
124.     '    IF debrisStack < debrisMax THEN
125.     '        FOR i = 1 TO 2
126.     '            NewDebris i + debrisStack
127.     '        NEXT
128.     '        debrisStack = debrisStack + 2
129.     '    END IF
130.     'END IF
131. WEND
132.  
133. 'SUB NewDebris (i)
134. '    debris(i).x = RND * xmax
135. '    debris(i).y = RND * ymax
136. '    c = RND * 155
137. '    debris(i).c = _RGB32(c, c, c)
138. 'END SUB
139.  
140. SUB changePlasma ()
141.     cN = cN + .01
142.     COLOR _RGB(127 + 127 * SIN(pR! * .3 * cN), 127 + 127 * SIN(pG! * .3 * cN), 127 + 127 * SIN(pB! * .3 * cN))
143. END SUB
144.  
145. SUB resetPlasma ()
146.     pR! = RND ^ 2: pG! = RND ^ 2: pB! = RND ^ 2
147. END SUB
148.  
149. SUB drawLandscape
150.     'the sky
151.     FOR i = 0 TO ymax
152.         midInk 0, 0, 0, 78, 28, 68, i / ymax
153.         LINE (0, i)-(xmax, i)
154.     NEXT
155.     'the land
156.     startH = waterline - 80
157.     rr = 10: gg = 20: bb = 15
158.     FOR mountain = 1 TO 6
159.         Xright = 0
160.         y = startH
161.         WHILE Xright < xmax
162.             ' upDown = local up / down over range, change along Y
163.             ' range = how far up / down, along X
164.             upDown = (RND * .8 - .35) * (1 / (1 * mountain))
165.             range = Xright + rand&&(5, 35) * 2.5 / mountain
166.             lastx = Xright - 1
167.             FOR X = Xright TO range
168.                 y = y + upDown
169.                 COLOR _RGB32(rr, gg, bb)
170.                 LINE (lastx, y)-(X, ymax), , BF 'just lines weren't filling right
171.                 lastx = X
172.             NEXT
173.             Xright = range
174.         WEND
175.         rr = rand&&(rr + 5, rr): gg = rand&&(gg + 5, gg): bb = rand&&(bb + 4, bb)
176.         IF rr < 0 THEN rr = 0
177.         IF gg < 0 THEN gg = 0
178.         IF bb < 0 THEN bb = 0
179.         startH = startH + rand&&(1, 10)
180.     NEXT
181.     'LINE (0, waterline)-(xmax, ymax), _RGB32(0, 0, 0), BF
182. END SUB
183.  
184. SUB midInk (r1, g1, b1, r2, g2, b2, fr)
185.     COLOR _RGB(r1 + (r2 - r1) * fr, g1 + (g2 - g1) * fr, b1 + (b2 - b1) * fr)
186. END SUB
187.  
188. FUNCTION rand&& (lo&&, hi&&)
189.     rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&
190. END FUNCTION
191.  
192. SUB drawfw (i)
193.     'here's how to "save" a bunch of random numbers without data and arrays but tons of redundant calculations
194.     RANDOMIZE USING fw(i).seed 'this repeats all random numbers generated by seed in same sequence
195.     'recreate our firework from scratch!
196.     red = rand&&(200, 255)
197.     green = rand&&(200, 255)
198.     blue = rand&&(200, 255)
199.     x = rand&&(1, 4)
200.     IF x = 1 THEN
201.         red = 0
202.     ELSEIF x = 2 THEN
203.         green = 0
204.     ELSEIF x = 3 THEN
205.         blue = 0
206.     ELSE
207.         x = rand&&(1, 4)
208.         IF x = 1 THEN
209.             red = 0: green = 0
210.         ELSEIF x = 2 THEN
211.             green = 0: blue = 0
212.         ELSEIF x = 3 THEN
213.             blue = 0: red = 0
214.         END IF
215.     END IF
216.     ne = rand&&(80, 300)
217.     DIM embers(ne, 1)
218.     FOR e = 0 TO ne
219.         r = RND * 3
220.         embers(e, 0) = r * COS(e * _PI(2) / 101)
221.         embers(e, 1) = r * SIN(e * _PI(2) / 101)
222.     NEXT
223.     start = fw(i).age - lTail ' don't let tails get longer than lTail const
224.     IF start < 1 THEN start = 1
225.     FOR e = 0 TO ne
226.         cx = fw(i).x: cy = fw(i).y: dx = embers(e, 0): dy = embers(e, 1)
227.         FOR t = 1 TO fw(i).age
228.             cx = cx + dx
229.             cy = cy + dy
230.             IF t >= start THEN
231.                 'too much like a flower?
232.                 midInk 60, 60, 60, red, green, blue, (t - start) / lTail
233.                 'midInk 60, 60, 60, 128, 160, 150, (t - start) / lTail
234.                 fcirc cx, cy, (t - start) / lTail
235.             END IF
236.  
237.             dx = dx * .99 'air resitance
238.             dy = dy + .01 'gravity
239.         NEXT
240.         COLOR _RGB32(255, 255, 255)
241.         'COLOR _RGB32(red, green, blue)
242.         cx = cx + dx: cy = cy + dy
243.         fcirc cx, cy, (t - start) / lTail
244.     NEXT
245.     fw(i).age = fw(i).age + 1
246. END SUB
247.  
248. SUB initFireWork (i)
249.     fw(i).x = rand&&(.1 * xmax, .9 * xmax)
250.     fw(i).y = rand&&(.1 * ymax, .5 * ymax)
251.     fw(i).seed = rand&&(0, 32000)
252.     fw(i).age = 0
253.     fw(i).life = rand&&(20, 120)
254. END SUB
255.  
256. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
257. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
258.     DIM subRadius AS LONG, RadiusError AS LONG
259.     DIM X AS LONG, Y AS LONG
260.  
261.     subRadius = ABS(R)
262.     RadiusError = -subRadius
263.     X = subRadius
264.     Y = 0
265.  
266.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
267.  
268.     ' Draw the middle span here so we don't draw it twice in the main loop,
269.     ' which would be a problem with blending turned on.
270.     LINE (CX - X, CY)-(CX + X, CY), , BF
271.  
272.     WHILE X > Y
273.         RadiusError = RadiusError + Y * 2 + 1
274.         IF RadiusError >= 0 THEN
275.             IF X <> Y + 1 THEN
276.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
277.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
278.             END IF
279.             X = X - 1
280.             RadiusError = RadiusError - X * 2
281.         END IF
282.         Y = Y + 1
283.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
284.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
285.     WEND
286. END SUB
287.  

[Pete]

Yeah, but in mine, you can see the skyrocket going up! So basically we have the same effect, yours minus my visible rocket; Oh, and mine has far fewer lines of code. :D :D :D

Pete

[FellippeHeitor]

Happy New Year, guys!

To another decade of BASIC/QB64 going strong.

[Petr]

Happy New Year!

[Pete]

H A P P Y   N E W   Y E A R ! ! ! !

GREAT fireworks B+!

Wow, you're a tough grader. I'd have given him at least an A-.

Pete

[TempodiBasic]

Happy New Year to
QB64coders and QB64Developers
so that QB64 can be alive long!


@Pete
but that rocket seems to be a strong 1 in the set of binary bits


@Bplus
Cool! More the water than the  sky for me!

[Pete]

Is the contest over? Have the contest judges come by yet? If so, please be kind... and offer at least a second place prize, so B+ doesn't feel too dejected. :D

Pete

[Bert22306]

By now, it's a new year for everyone. Happy New Year!

And then, on a more controversial note, Happy New Decade!

Yes, even the ancient Romans knew that when a child is born, he or she is not instantly one year old. Hence, a Year Zero, and a Decade Zero, actually do exist. The traditional date for the birth of Jesus Christ was established as being 25 December of the year 753 "ab urbe condita," or "after the city was founded," by the monk Dionysius Exiguus, ca. 525 AD. Hence that becomes year zero. The year 754 AUC, by convention, is year 1 AD. Makes no difference whether we are religious or not. It's the way this calendar was conceived.

So, if we count the years AD (or now also called Common Era) as being calendar years after the birth of Christ, the beginning of the new decade is indeed today, as opposed to next year.

Hey Pete! Times Square.

[Pete]

This forum can't handle Pete squared! :D

Darn it Bert, now you have me thinking how the people who celebrated New Years BC figured out what the hell year it was???

Pete

[TempodiBasic]

HI
I have found some time to type on keyboard of pc but I have not lernt how to make fireworks, so this is the result

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. DIM Min AS INTEGER, Max AS INTEGER, Ste AS INTEGER, cb AS INTEGER
3. CONST titl = "Happy New Year 2020", MaxP = 20, Xt = 30
4. _TITLE titl
5. _CONTROLCHR OFF
6. Min = 1
7. Max = 25
8. Ste = 1
9. cb = 0
10. cf = 0
11. SCREEN 0
12. DO
13.     FOR a = Min TO Max STEP Ste
14.         IF a = 16 THEN cf = a - 15 ELSE cf = a
15.         title titl, a, Xt, cf, cb
16.         IF (Ste = 1 AND a < 16) OR (Ste = -1 AND a > 16) THEN
17.             rocket a, cf, Ste
18.         ELSEIF (Ste = 1 AND a > 15) OR (Ste = -1 AND a < 16) THEN
19.             boom a
20.         END IF
21.  
22.         COLOR 2, 2: _PRINTSTRING (1, 25), SPACE$(80)
23.         COLOR 15, 0
24.         'frame per second FPS :-)
25.         _DELAY .3
26.         CLS
27.     NEXT
28.     SWAP Min, Max
29.     Ste = -Ste
30. LOOP
31. END
32.  
33. SUB boom (yR AS INTEGER)
34.     STATIC FirePieces(1 TO 2, 1 TO MaxP, 1 TO 3) AS INTEGER, cf AS INTEGER
35.     DIM k AS INTEGER
36.     IF cf = 0 THEN
37.         cf = INT(RND * 14) + 1
38.         IF FirePieces(1, 1, 1) = 0 THEN InitFire FirePieces(), cf
39.     END IF
40.  
41.     FOR b = 1 TO MaxP
42.         FOR c = 1 TO 2
43.             COLOR FirePieces(c, b, 3), 0
44.             IF FirePieces(c, b, 2) > 0 AND FirePieces(c, b, 2) < 80 THEN
45.                 IF FirePieces(c, b, 1) > 0 AND FirePieces(c, b, 1) < 25 THEN
46.                     _PRINTSTRING (FirePieces(c, b, 2), FirePieces(c, b, 1)), ""
47.  
48.                     SELECT CASE b MOD 4
49.                         CASE 0
50.                             FirePieces(c, b, 1) = FirePieces(c, b, 1) - 1
51.                             FirePieces(c, b, 2) = FirePieces(c, b, 2) - 1
52.                         CASE 1
53.  
54.                             FirePieces(c, b, 1) = FirePieces(c, b, 1) - 1
55.                             FirePieces(c, b, 2) = FirePieces(c, b, 2) + 1
56.                         CASE 2
57.  
58.                             FirePieces(c, b, 1) = FirePieces(c, b, 1) + 1
59.                             FirePieces(c, b, 2) = FirePieces(c, b, 2) - 1
60.                         CASE 3
61.                             FirePieces(c, b, 1) = FirePieces(c, b, 1) + 1
62.                             FirePieces(c, b, 2) = FirePieces(c, b, 2) + 1
63.                     END SELECT
64.                 END IF
65.             END IF
66.             IF yR = 1 OR yR = 25 THEN cf = 0: FirePieces(c, 1, 1) = 0
67.         NEXT
68.     NEXT
69.  
70. END SUB
71.  
72. SUB InitFire (FP() AS INTEGER, cfB AS INTEGER)
73.     DIM c AS INTEGER, k AS INTEGER
74.     FOR c = 1 TO MaxP
75.         IF c MOD 2 THEN k = -1 ELSE k = 1
76.         FP(1, c, 1) = 12 'row
77.         FP(1, c, 2) = 14 'column
78.         FP(1, c, 3) = cfB ' color
79.         FP(2, c, 1) = 12 'row
80.         FP(2, c, 2) = 64 'column
81.         FP(2, c, 3) = cfB ' color
82.     NEXT
83. END SUB
84.  
85. SUB rocket (yR AS INTEGER, cfR AS INTEGER, Dr AS INTEGER)
86.     STATIC cf AS INTEGER
87.     IF cf = 0 THEN cf = cfR
88.     COLOR cf, 0
89.     IF Dr = 1 THEN
90.         _PRINTSTRING (14, 25 - yR - 1), "^"
91.         _PRINTSTRING (14, 25 - yR), "º"
92.         _PRINTSTRING (64, 25 - yR - 1), "^"
93.         _PRINTSTRING (64, 25 - yR), "º"
94.     ELSE
95.         _PRINTSTRING (14, yR - 1), "^"
96.         _PRINTSTRING (14, yR), "º"
97.         _PRINTSTRING (64, yR - 1), "^"
98.         _PRINTSTRING (64, yR), "º"
99.     END IF
100.     COLOR 15, 0
101. END SUB
102.  
103. SUB title (tit AS STRING, Xt AS INTEGER, Yt AS INTEGER, cfT AS INTEGER, cbT AS INTEGER)
104.     COLOR cfT, cbT
105.     _PRINTSTRING (Yt, Xt), tit
106. END SUB

Happy New travel around the sun! ;-)

[Pete]

I feel so violated!!!

Pete :D

I meant validated.

[Bert22306]

I feel so violated!!!

Pete :D

I meant validated.

Ooooh! (As Fellippe famously scoffed, in the recent past, "You native English speakers!")