« previous next »
Pages: [1]   Go Down

Author Topic: Particle Fountain  (Read 5896 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Particle Fountain
« on: August 26, 2020, 11:23:09 pm »
It doesn't use gravity, so it's sort of a fake particle fountain, but I think it's a good example of particle fluid. You might notice that around most of this code is from my Christmas Lights. lol

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1200, 800, 32)
  2. DIM xx(200), yy(200)
  3. DIM cc(300)
  4. _TITLE "Fountain"
  5. start:
  7. tt = 2
  8. t2 = 1
  9. FOR a = 1 TO 200
  10.     xx(a) = RND * 1200
  11.     yy(a) = RND * 800
  12.     c = INT(RND * 2) + 1
  13.     IF c = 1 THEN cc(a) = _RGB32(83, 188, 255)
  14.     IF c = 2 THEN cc(a) = _RGB32(177, 183, 255)
  15.  
  17.  
  18. x2 = 700: y2 = 250
  19. x3 = 500: y3 = 250
  21.     _LIMIT 15
  22.     a$ = INKEY$
  23.     IF a$ = CHR$(27) THEN END
  24.     t2 = t2 + 5
  25.     FOR amount = 1 TO 200
  26.         FOR t = 359 + t2 TO t2 STEP -1
  27.             tt = tt + 1.75
  28.             'tt = tt + .25
  29.             x = (SIN(t) * (90 - tt)) + xx(amount)
  30.             y = (COS(t) * tt) + yy(amount)
  31.             IF x < 500 OR x > 700 OR y < 250 OR y > 600 THEN
  32.                 GOTO skip:
  33.             END IF
  34.             PSET (x, y), cc(amount)
  35.             skip:
  36.             mm = mm + 1
  37.             IF mm < 100 THEN GOTO skip2:
  38.             mm = 1
  39.             mmm = mmm + 1
  40.             IF mmm > 180 THEN mmm = 1
  41.             xx2 = (RND * 7) + 3
  42.             yy2 = (RND * 13) + 6
  43.             xx3 = (RND * 7) + 3
  44.             yy3 = (RND * 13) + 6
  45.  
  46.             x2 = x2 + xx2
  47.             y2 = y2 + yy2
  48.             x3 = x3 - xx3
  49.             y3 = y3 + yy3
  50.             IF y2 > 600 THEN y2 = 250: x2 = 700
  51.             IF y3 > 600 THEN y3 = 250: x3 = 500
  52.  
  53.             PSET (x2, y2), _RGB32(127, 255, 127)
  54.             PSET (x3, y3), _RGB32(127, 255, 127)
  55.  
  56.             xx4 = (RND * 30) - 30
  57.             yy4 = (RND * 40) - 40
  58.             xx5 = (RND * 30) - 30
  59.             yy5 = (RND * 40) - 40
  60.  
  61.             xx6 = (RND * 30) - 30
  62.             yy6 = (RND * 40) - 40
  63.             xx7 = (RND * 30) - 30
  64.             yy7 = (RND * 40) - 40
  65.  
  66.             PSET ((SIN(mmm) * 90) + 500 + xx4, (COS(mmm * 2) * -90) + 175 + yy4), _RGB32(127, 255, 127)
  67.             PSET ((SIN(mmm) * 90) + 700 + xx5, (COS(mmm * 2) * -90) + 175 + yy5), _RGB32(127, 255, 127)
  68.  
  69.             PSET ((SIN(mmm / 2) * 90) + 500 + xx6, (COS(mmm) * -90) + 250 + yy6), _RGB32(127, 255, 127)
  70.             PSET ((SIN(mmm / 2) * 90) + 700 + xx7, (COS(mmm) * -90) + 250 + yy7), _RGB32(127, 255, 127)
  71.  
  72.  
  73.             skip2:
  74.         NEXT t
  75.         tt = 2
  76.     NEXT amount
  77.     _DISPLAY
  78.     CLS
  79.     LINE (500, 250)-(700, 600), _RGB32(127, 255, 127), B
  80.     m = m + 1
  81.     IF m = 200 THEN m = 0: GOTO start:
  83.  
Logged

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Particle Fountain
« Reply #1 on: August 27, 2020, 04:57:52 am »
Hi @SierraKen

I LOVE paritcle engines! I ran your code and was surprised to see an actual fountain! My ind melts trying to unerstand math like that!

Here's little demo of ine for ya, just move the mouse around.

Code: QB64: [Select]
  2.  
  3. GDK_Screen_SetRes GameScreen&, 800, 600
  5.  
  6. DIM Emitter AS Emitter, Particle(250) AS Particle, Mouse(1) AS MouseState
  7.  
  9.  
  10.   _LIMIT 60
  11.  
  12.   GDK_Mouse_GetState Mouse(0)
  13.   GDK_Emitter_New Emitter, Mouse(0).X, Mouse(0).Y, RND * (50), 0, 8 * ATN(1), .5, 1, .1, 3
  14.   GDK_Particles_Spawn Emitter, Particle(), 250, _RGB(RND * (255) + 1, RND * (255) + 1, RND * (255) + 1), _RGB(0, 0, 5), RND * (2)
  15.   GDK_Particles_Draw Particle(), 250
  16.   GDK_Particles_Update Particle(), 250
  17.  
  19.   CLS
  20.  
  22. REM $INCLUDE:'UnseenGDK.bm'

Unseen
Logged

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
    • View Profile
Re: Particle Fountain
« Reply #2 on: August 27, 2020, 09:54:28 am »
Do you have the bm file or do I need Steve's library to compile it?
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Particle Fountain
« Reply #3 on: August 27, 2020, 11:08:39 am »
Quote from: _vince on August 27, 2020, 09:54:28 am
Do you have the bm file or do I need Steve's library to compile it?

That's Unseen's GDK Library, not mine.  As far as I know, it doesn't rely on any of my libraries.  ;)
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Particle Fountain
« Reply #4 on: August 27, 2020, 12:43:41 pm »
@ Vince, good point! i kinda overlooked that! I need to try see if i can merge mine with stxaxtics' collision engine, then it would be COOL!

Unseen

EDIT :

Here's my attempt at fire...

Code: QB64: [Select]
  1. '// Fire v.01
  2.  
  3. PMax& = 100000
  4.  
  5. DIM Mouse(1) AS MouseState, kb(1) AS KeyBoardState
  6. DIM Emitter AS Emitter, Particle(PMax&) AS Particle
  7.  
  8. GDK_Screen_SetRes MainScreen&, 800, 600
  9.  
  10.  
  12.   _LIMIT 30
  13.   CLS
  14.  
  15.   FOR x% = 350 TO 450
  16.     GDK_Emitter_New Emitter, x%, 600, RND * (10) + 10, 0, 0, 2, 5, .5, 5
  17.     GDK_Particles_Spawn Emitter, Particle(), PMax&, _RGB32(RND * (255) + 150, 0, 0), _RGB(0, RND * (5) + 2, 0), 2
  18.   NEXT
  19.  
  20.   GDK_Particles_Draw Particle(), PMax&
  21.   GDK_Particles_Update Particle(), PMax&
  22.  
  23.  
  26.  
  27.  
  28.  
  29. REM $INCLUDE:'UnseenGDK.bm'
* UnseenGDK.bm (Filesize: 42.03 KB, Downloads: 206)
« Last Edit: August 27, 2020, 01:26:29 pm by Unseen Machine »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Particle Fountain
« Reply #5 on: August 27, 2020, 01:33:20 pm »
Awesome examples Unseen! I'm glad you like my fountain.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Particle Fountain
« Reply #6 on: August 27, 2020, 01:44:36 pm »
Oh, and the math equations I really don't understand myself either, but I know what works. :)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Particle Fountain
« Reply #7 on: August 27, 2020, 03:48:04 pm »
Here is my entry, cool off with this :)

Code: QB64: [Select]
  1. _TITLE "Particle Fountain" 'b+ 2020-08-27
  2. CONST nP = 15000
  3. TYPE particle
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     dx AS SINGLE
  7.     dy AS SINGLE
  8.     c AS _UNSIGNED LONG
  10. DIM SHARED p(1 TO nP) AS particle
  11. SCREEN _NEWIMAGE(1200, 600, 32)
  12. _DELAY .25
  14. FOR i = 1 TO nP
  15.     new i
  17. COLOR , &HFF002200
  19.     CLS
  20.     IF lp < nP THEN lp = lp + 1
  21.     FOR i = 1 TO lp
  22.         p(i).dy = p(i).dy + .1
  23.         p(i).x = p(i).x + p(i).dx
  24.         p(i).y = p(i).y + p(i).dy
  25.         IF p(i).x < 0 OR p(i).x > _WIDTH THEN new i
  26.         IF p(i).y > _HEIGHT AND p(i).dy > 0 THEN
  27.             p(i).dy = -.75 * p(i).dy: p(i).y = _HEIGHT - 5
  28.         END IF
  29.         CIRCLE (p(i).x, p(i).y), 1, p(i).c
  30.     NEXT
  31.     _DISPLAY
  32.     _LIMIT 60
  34. SUB new (i)
  35.     p(i).x = _WIDTH / 2 + RND * 20 - 10
  36.     p(i).y = _HEIGHT + RND * 5
  37.     p(i).dx = RND * 3 - 1.5
  38.     p(i).dy = -10
  39.     p(i).c = _RGB32(50 * RND + 165, 50 * RND + 165, 255)
  41.  
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Particle Fountain
« Reply #8 on: August 27, 2020, 07:21:21 pm »
I just 'had' to tinker....

Code: QB64: [Select]
  1. _TITLE "Particle Fountain" 'b+ 2020-08-27
  2. CONST nP = 15000
  3. TYPE particle
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     dx AS SINGLE
  7.     dy AS SINGLE
  8.     r AS SINGLE
  9.     c AS _UNSIGNED LONG
  11. DIM SHARED p(1 TO nP) AS particle
  12. SCREEN _NEWIMAGE(1200, 600, 32)
  13. _DELAY .25
  15. FOR i = 1 TO nP
  16.     new i
  18. COLOR , &HFF002200
  20.     CLS
  21.     IF lp < nP THEN lp = lp + 1
  22.     FOR i = 1 TO lp
  23.         p(i).dy = p(i).dy + .1
  24.         p(i).x = p(i).x + p(i).dx
  25.         p(i).y = p(i).y + p(i).dy
  26.         IF p(i).x < 0 OR p(i).x > _WIDTH THEN new i
  27.         IF p(i).y > _HEIGHT AND p(i).dy > 0 THEN
  28.             tmp = (INT(RND * 8) + 1) / 10
  29.             p(i).dy = p(i).dy * -0.3 - tmp
  30.             p(i).y = _HEIGHT - 5
  31.         END IF
  32.         CIRCLE (p(i).x, p(i).y), p(i).r, p(i).c
  33.     NEXT
  34.     _DISPLAY
  35.     _LIMIT 60
  37. SUB new (i)
  38.     p(i).x = _WIDTH / 2 + RND * 20 - 10
  39.     p(i).y = _HEIGHT + RND * 5
  40.     p(i).dx = RND * 3 - 1.5
  41.     p(i).dy = -10
  42.     p(i).r = RND * 2
  43.     p(i).c = _RGB32(50 * RND + 165, 50 * RND + 165, 255)
  45.  
  46.  
Logged
Logic is the beginning of wisdom.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Particle Fountain
« Reply #9 on: August 27, 2020, 07:30:38 pm »
Tinker and fiddle around:
Code: QB64: [Select]
  1. _TITLE "Particle Fountain" 'b+ 2020-08-27
  2. CONST nP = 30000
  3. TYPE particle
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     dx AS SINGLE
  7.     dy AS SINGLE
  8.     r AS SINGLE
  9.     c AS _UNSIGNED LONG
  11. DIM SHARED p(1 TO nP) AS particle
  12. SCREEN _NEWIMAGE(1200, 600, 32)
  13. _DELAY .25
  15. FOR i = 1 TO nP
  16.     new i
  18. COLOR , &HFF002200
  20.     CLS
  21.     IF lp < nP THEN lp = lp + 10
  22.     FOR i = 1 TO lp
  23.         p(i).dy = p(i).dy + .1
  24.         p(i).x = p(i).x + p(i).dx
  25.         p(i).y = p(i).y + p(i).dy
  26.         IF p(i).x < 0 OR p(i).x > _WIDTH THEN new i
  27.         IF p(i).y > _HEIGHT AND p(i).dy > 0 THEN
  28.             p(i).dy = -.75 * p(i).dy: p(i).y = _HEIGHT - 5
  29.         END IF
  30.         CIRCLE (p(i).x, p(i).y), p(i).r, p(i).c
  31.     NEXT
  32.     _DISPLAY
  33.     _LIMIT 60
  35. SUB new (i)
  36.     p(i).x = _WIDTH / 2 + RND * 20 - 10
  37.     p(i).y = _HEIGHT + RND * 5
  38.     p(i).dx = RND * 1 - .5
  39.     p(i).dy = -10
  40.     p(i).r = RND * 3
  41.     p(i).c = _RGB32(50 * RND + 165, 50 * RND + 165, 255)
  43.  
  44.  
« Last Edit: August 27, 2020, 07:33:49 pm by bplus »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Particle Fountain
« Reply #10 on: August 27, 2020, 07:38:52 pm »
This is kinda funny:
Code: QB64: [Select]
  1. _TITLE "Particle Fountain" 'b+ 2020-08-27
  2. CONST nP = 30000
  3. TYPE particle
  4.     x AS SINGLE
  5.     y AS SINGLE
  6.     dx AS SINGLE
  7.     dy AS SINGLE
  8.     r AS SINGLE
  9.     c AS _UNSIGNED LONG
  11. DIM SHARED p(1 TO nP) AS particle
  12. SCREEN _NEWIMAGE(1200, 600, 32)
  13. _DELAY .25
  15. FOR i = 1 TO nP
  16.     new i
  18. COLOR , &HFF002200
  20.     CLS
  21.     IF lp < nP THEN lp = lp + 100
  22.     FOR i = 1 TO lp
  23.         p(i).dy = p(i).dy + .1
  24.         p(i).x = p(i).x + p(i).dx
  25.         p(i).y = p(i).y + p(i).dy
  26.         IF p(i).x < 0 OR p(i).x > _WIDTH THEN new i
  27.         IF p(i).y > _HEIGHT AND p(i).dy > 0 THEN
  28.             p(i).dy = -.75 * p(i).dy: p(i).y = _HEIGHT - 5
  29.         END IF
  30.         CIRCLE (p(i).x, p(i).y), p(i).r, p(i).c
  31.     NEXT
  32.     _DISPLAY
  33.     _LIMIT 60
  35. SUB new (i)
  36.     p(i).x = _WIDTH / 2 + RND * 20 - 10
  37.     p(i).y = _HEIGHT + RND * 5
  38.     p(i).dx = RND * 1 - .5
  39.     p(i).dy = -10
  40.     p(i).r = RND * 3
  41.     p(i).c = _RGB32(50 * RND + 165, 50 * RND + 165, 255)
  43.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Particle Fountain
« Reply #11 on: August 27, 2020, 08:16:38 pm »
WOW Bplus and Johno! Amazing stuff. Bplus, your last one is a masterpiece.
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Particle Fountain
« Reply #12 on: August 27, 2020, 10:03:58 pm »
Some pretty cool stuff posted here!  I sure like the water fountain effect, and in such a small amount of code too.

- Dav
Logged

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Particle Fountain
« Reply #13 on: August 28, 2020, 05:35:24 am »
Wow, they are all goo but the last one by bplus is awesome, nice work guys.

Unseen
Logged

FellippeHeitor

  • Guest
Re: Particle Fountain
« Reply #14 on: August 29, 2020, 01:57:17 pm »
What a bunch of show-offs!

Just kidding... great job you guys! Love the particle show.
Logged
Pages: [1]   Go Up
« previous next »