Fire Vortex 🔥

[loudar]

It goes up.

Code: QB64: [Select]

1. REM Fire Vortex
2. REM $DYNAMIC
3.  
4. SCREEN _NEWIMAGE(1280, 720, 32)
5.  
6. 'global
7. time = 0
8. gravity = -1
9. originx = _WIDTH / 2
10. originy = _HEIGHT
11. xspread = 30
12. yspread = 50
13. sinstretch = 50
14. 'pulltoorigin = 0.2 '1 is no pull, below 1 is towards, above one is away
15.  
16. TYPE particle
17.     ox AS _FLOAT 'origin x
18.     oy AS _FLOAT 'origin y
19.     x AS _FLOAT 'current x
20.     y AS _FLOAT 'current y
21.     w AS _FLOAT 'size
22.     s AS _FLOAT 'speed
23.     c AS _UNSIGNED LONG 'color
24.     d AS _FLOAT 'deviation
25.     f AS _FLOAT 'falloff
26. END TYPE
27. REDIM SHARED maxparticles
28. maxparticles = 10000
29. REDIM SHARED p(maxparticles) AS particle
30.  
31. particle = 0: DO: particle = particle + 1
32.     r = RND * xspread
33.     r = (r / xspread) * (r / xspread) * xspread
34.     flip = INT(RND * 2)
35.     IF flip = 1 THEN r = -r
36.     p(particle).ox = r
37.  
38.     r = RND * yspread
39.     r = (r / yspread) * (r / yspread) * yspread
40.     r = (1 - ((r / yspread) * (r / yspread))) * yspread
41.     p(particle).oy = r
42.     p(particle).w = 1
43.     p(particle).s = (RND * 2)
44.     p(particle).c = _RGBA(255, 0 + (RND * 140), 0, RND * 255)
45.     p(particle).d = (xspread * 2) + ((RND * (xspread / 5)) - (xspread / 10))
46.     p(particle).f = 100 + (RND * 50)
47. LOOP UNTIL particle = maxparticles
48.  
49. DO
50.     time = time + 1
51.     CLS
52.     particle = 0: DO: particle = particle + 1
53.         dif = (p(particle).y - p(particle).oy)
54.         IF dif < 0 THEN dif = -dif
55.         pulltoorigin = (dif * (xspread * xspread / 10000) / (xspread / 2))
56.         'pulltoorigin = 1
57.         dev = p(particle).d * (p(particle).f / dif)
58.         sinoffset = ((p(particle).ox / xspread) * _PI * 2)
59.         p(particle).x = originx + ((p(particle).ox + (SIN((dif / sinstretch) - sinoffset) * dev)) * pulltoorigin)
60.         p(particle).y = originy + p(particle).oy + (p(particle).s * time * gravity)
61.         div = p(particle).x - originx
62.         IF div < 0 THEN div = -div
63.         'p(particle).c = _RGBA(_RED(p(particle).c), _GREEN(p(particle).c), _BLUE(p(particle).c), 255 * (1 - (div / (xspread / 2))))
64.         CIRCLE (p(particle).x, p(particle).y), p(particle).w, p(particle).c
65.     LOOP UNTIL particle = maxparticles
66.     _DISPLAY
67.     _LIMIT 60
68. LOOP UNTIL Taste$ = CHR$(27)

[bplus]

That's pretty cool!

Thanks for screen dimensions that don't exceed my screen :)

[loudar]

@bplus I have learned! :p