Ectoplasm

[bplus]

Just picked up a case today at Retro.

Code: QB64: [Select]

1. _TITLE "Ectoplasm" 'mod of Galileo's at Retro 2019-06-22 B+
2. 'open window 256, 256
3. SCREEN _NEWIMAGE(256, 256, 32)
4. RANDOMIZE TIMER
5. 'sh=peek("winheight")
6. sh = _HEIGHT
7. 'sw=peek("winwidth")
8. sw = _WIDTH
9. d = 1
10. DO
11.     'tm = peek("secondsrunning")
12.     tm = TIMER(.001)
13.     dr = ran(256): dg = ran(256): db = ran(256)
14.     w = w + 5 / 83 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< get things moving
15.     FOR y = 0 TO sh
16.         FOR x = 0 TO sw
17.             vl = SIN(distance(x + tm, y, 128, 128) / 8 + w)
18.             vl = vl + SIN(distance(x, y, 64, 64) / 8)
19.             vl = vl + SIN(distance(x, y + tm / 7, 192, 64) / 7)
20.             vl = vl + SIN(distance(x, y, 192, 100) / 8)
21.             clr = 255 / (1.00001 * ABS(vl))
22.             r = .9 * ABS(clr - dr): g = .4 * ABS(clr - dg): b = .5 * ABS(clr - db)
23.             'COLOR r, g, b
24.             'dot x, y
25.             PSET (x, y), _RGB32(r, g, b)
26.         NEXT
27.     NEXT
28.     IF w > 1000 OR w < -1000 THEN w = 0: d = d * -1
29.     _DISPLAY
30.     _LIMIT 200
31. LOOP
32. FUNCTION distance (x1, y1, x2, y2) '//between two points x1,y1 and x2,y2
33.     distance = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ .5
34. END FUNCTION
35. FUNCTION ran% (sing)
36.     ran% = INT(RND * sing) + 1
37. END FUNCTION
38.  
39.  

[SierraKen]

Way cool! I wish I kept all the programs I used to mess with in the 90's. The old newsgroup comp.lang.basic.misc used to punch out around one a day.

[Ashish]

Cool bplus!

[Petr]

Hi BPlus, again nice work. Just for my curiosity i try making it faster and then... compiling it under 1.3 and under 0.978.... Look  yourself to the speed diference.

Source, which is used for this test is attached.

Code: QB64: [Select]

1. _TITLE "Ectoplasm" 'mod of Galileo's at Retro 2019-06-22 B+
2. 'open window 256, 256
3. SCREEN _NEWIMAGE(256, 256, 32)
4. RANDOMIZE TIMER
5. DIM m AS _MEM, x AS SINGLE, y AS SINGLE, vl AS SINGLE, r AS SINGLE, clr AS SINGLE, klr AS _UNSIGNED LONG, tm AS SINGLE, dr AS SINGLE, dg AS SINGLE, db AS SINGLE, w AS SINGLE, sh AS SINGLE, sw AS SINGLE
6. m = _MEMIMAGE(0)
7. _DONTBLEND
8.  
9. 'sh=peek("winheight")
10. sh = _HEIGHT - 1
11. 'sw=peek("winwidth")
12. sw = _WIDTH - 1
13. d = 1
14. DO
15.     'tm = peek("secondsrunning")
16.     tm = TIMER(.001)
17.     dr = ran(256): dg = ran(256): db = ran(256)
18.     w = w + 5 / 83 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< get things moving
19.     REDIM scr(255, 255) AS _UNSIGNED LONG
20.     FOR y = 0 TO sh
21.         FOR x = 0 TO sw
22.             vl = SIN(distance(x + tm, y, 128, 128) / 8 + w)
23.             vl = vl + SIN(distance(x, y, 64, 64) / 8)
24.             vl = vl + SIN(distance(x, y + tm / 7, 192, 64) / 7)
25.             vl = vl + SIN(distance(x, y, 192, 100) / 8)
26.             clr = 255 / (1.00001 * ABS(vl))
27.             r = .9 * ABS(clr - dr): g = .4 * ABS(clr - dg): b = .5 * ABS(clr - db)
28.             'COLOR r, g, b
29.             'dot x, y
30.             '     PSET (x, y), _RGB32(r, g, b)
31.             klr~& = _RGB32(r, g, b)
32.             scr(x, y) = klr~&
33.         NEXT
34.     NEXT
35.     IF w > 1000 OR w < -1000 THEN w = 0: d = d * -1
36.     _MEMPUT m, m.OFFSET, scr()
37.  
38.     ' _DISPLAY
39.     ' _LIMIT 200
40. LOOP
41. _MEMFREE m
42.  
43.  
44. FUNCTION distance (x1, y1, x2, y2) '//between two points x1,y1 and x2,y2
45.     distance = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ .5
46. END FUNCTION
47. FUNCTION ran% (sing)
48.     ran% = INT(RND * sing) + 1
49. END FUNCTION
50.  
51.  
52.  

[bplus]

Hi Petr,

What is .978 an older version of QB64?

I am not seeing any great difference between two codes on my system?? Both give the fan a workout, maybe a little less with yours, Petr.

BTW this not really my work, I added w to get the stuff to move and fiddled with numbers until I got the cool glowing white effect.

[Petr]

Hi, yeah, it's an older version of QB64. Apparently, it didn't have such a so big bug tracking in the compiled C code, so it goes a quarter faster in the old version. Maybe it will compare when a newer version comes out after RhoSigma's $CHECKING OFF upgrade.  I talk about https://www.qb64.org/forum/index.php?topic=1348.0, so maybe then is 1.3 faster than old version.

[johnno56]

Cool demo... I stared at it for several minutes, just to see if it would mess up my eyesight, nothing. It didn't even effect me effect me....

[FellippeHeitor]

This is gorgeous! All these plasma effects with minimal lines have always puzzled me as I have no idea what's going on behind all the math. It just makes it more magical to me after all.

I stared at it for several minutes, just to see if it would mess up my eyesight

What did I just read, johnno56? 🤣

[johnno56]

... at least 'you' can still read... lol

[TempodiBasic]

Yeah
I can say Cool for your plasma!
Sorry but my first thought was this https://en.wikipedia.org/wiki/Blood_plasma#/media/File:FreshFrozenPlasma.JPG and it seems so different from those showed by code of Bplus and by code of Petr.
Thanks to you I have seen cool graphics and I have learned that also in english plasma word can have three different meanings https://www.vocabulary.com/dictionary/plasma

Here over the programming there are exchanges of culture! Very Cool!

[bplus]

Hi TempodiBasic,

Here is another definition for ectoplasm:

a supernatural viscous substance that is supposed to exude from the body of a medium during a spiritualistic trance and form the material for the manifestation of spirits.

[TempodiBasic]

Hey Bplus
you're right but Spiritismhttps://en.wikipedia.org/wiki/Spiritism was cool in the 1900 (or before it?) and Gosthbusters is in the 1980 https://en.wikipedia.org/wiki/Ghostbusters. To what ectoplasm  do you refer between these two last?

[bplus]

Hey Bplus
you're right but Spiritismhttps://en.wikipedia.org/wiki/Spiritism was cool in the 1900 (or before it?) and Gosthbusters is in the 1980 https://en.wikipedia.org/wiki/Ghostbusters. To what ectoplasm  do you refer between these two last?

The sticky slimy stuff of ghosts.
https://www.google.com/search?q=ghostbusters+ectoplasm+scenes&client=opera&hs=7T&tbm=isch&source=iu&ictx=1&fir=IRPWtw7nxF88HM%253A%252C7qaTnyEoRUcYVM%252C_&vet=1&usg=AI4_-kQM1iU-ldpGGFNrO7q7vv5GLcg21g&sa=X&ved=2ahUKEwiz3YDOn4DjAhUPAZ0JHfjECQgQ9QEwC3oECAMQBA#imgrc=_&vet=1

[TempodiBasic]

Yep
It's my preferite
https://ghostbusters.fandom.com/wiki/Ectoplasm

[_vince]

This is gorgeous! All these plasma effects with minimal lines have always puzzled me as I have no idea what's going on behind all the math. It just makes it more magical to me after all.

Lovely article here:  http://www.petesqbsite.com/sections/tutorials/zines/qbcm/17-plasmas.html