« previous next »
Pages: [1] 2 3 4   Go Down

Author Topic: Ectoplasm  (Read 9707 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Ectoplasm
« on: June 22, 2019, 10:06:39 pm »
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)
  5. 'sh=peek("winheight")
  6. sh = _HEIGHT
  7. 'sw=peek("winwidth")
  8. sw = _WIDTH
  9. d = 1
  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
  32. FUNCTION distance (x1, y1, x2, y2) '//between two points x1,y1 and x2,y2
  33.     distance = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ .5
  35. FUNCTION ran% (sing)
  36.     ran% = INT(RND * sing) + 1
  38.  
  39.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Ectoplasm
« Reply #1 on: June 22, 2019, 10:33:14 pm »
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.
« Last Edit: June 22, 2019, 10:39:46 pm by SierraKen »
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Ectoplasm
« Reply #2 on: June 23, 2019, 12:34:32 am »
Cool bplus!
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Ectoplasm
« Reply #3 on: June 23, 2019, 05:59:48 am »
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)
  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)
  8.  
  9. 'sh=peek("winheight")
  10. sh = _HEIGHT - 1
  11. 'sw=peek("winwidth")
  12. sw = _WIDTH - 1
  13. d = 1
  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
  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
  47. FUNCTION ran% (sing)
  48.     ran% = INT(RND * sing) + 1
  50.  
  51.  
  52.  
* Speed difference 1.3 left vs 0.978 right.wmv (Filesize: 3.47 MB, Downloads: 179)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Ectoplasm
« Reply #4 on: June 23, 2019, 08:22:29 am »
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.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Ectoplasm
« Reply #5 on: June 23, 2019, 08:35:46 am »
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.
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Ectoplasm
« Reply #6 on: June 23, 2019, 09:15:50 am »
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....
Logged
Logic is the beginning of wisdom.

FellippeHeitor

  • Guest
Re: Ectoplasm
« Reply #7 on: June 23, 2019, 09:28:35 am »
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.

Quote from: johnno56 on June 23, 2019, 09:15:50 am
I stared at it for several minutes, just to see if it would mess up my eyesight

What did I just read, johnno56? 🤣
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Ectoplasm
« Reply #8 on: June 23, 2019, 09:47:30 am »
... at least 'you' can still read... lol
Logged
Logic is the beginning of wisdom.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Ectoplasm
« Reply #9 on: June 23, 2019, 02:06:53 pm »
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!
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Ectoplasm
« Reply #10 on: June 23, 2019, 02:21:51 pm »
Hi TempodiBasic,

Here is another definition for ectoplasm:
Quote
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.

Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Ectoplasm
« Reply #11 on: June 23, 2019, 02:32:56 pm »
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?
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Ectoplasm
« Reply #12 on: June 23, 2019, 02:35:02 pm »
« Last Edit: June 23, 2019, 02:38:42 pm by bplus »
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Ectoplasm
« Reply #13 on: June 23, 2019, 06:51:31 pm »
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
    • View Profile
Re: Ectoplasm
« Reply #14 on: June 28, 2019, 08:03:03 pm »
Quote from: FellippeHeitor on June 23, 2019, 09:28:35 am
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
Logged
Pages: [1] 2 3 4   Go Up
« previous next »