Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: loudar on August 28, 2020, 09:51:26 am

Title: Fire Vortex 🔥
Post by: loudar on August 28, 2020, 09:51:26 am
It goes up.

Code: QB64: [Select]
  1. REM Fire Vortex
  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
  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.  
  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)
Title: Re: Fire Vortex 🔥
Post by: bplus on August 28, 2020, 01:05:51 pm
That's pretty cool!

Thanks for screen dimensions that don't exceed my screen :)
Title: Re: Fire Vortex 🔥
Post by: loudar on August 28, 2020, 01:42:19 pm
@bplus I have learned! :p
Text Only | Text with Attachments