Post by: bplus on June 22, 2019, 10:06:39 pm
Code: QB64: [Select]
- 'open window 256, 256
- 'sh=peek("winheight")
- sh = _HEIGHT
- 'sw=peek("winwidth")
- sw = _WIDTH
- d = 1
- 'tm = peek("secondsrunning")
- dr = ran(256): dg = ran(256): db = ran(256)
- w = w + 5 / 83 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< get things moving
- 'COLOR r, g, b
- 'dot x, y
- _LIMIT 200
- distance = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ .5
Post by: SierraKen on June 22, 2019, 10:33:14 pm
Post by: Ashish on June 23, 2019, 12:34:32 am
Post by: Petr on June 23, 2019, 05:59:48 am
Source, which is used for this test is attached.
Code: QB64: [Select]
- 'open window 256, 256
- 'sh=peek("winheight")
- 'sw=peek("winwidth")
- d = 1
- 'tm = peek("secondsrunning")
- dr = ran(256): dg = ran(256): db = ran(256)
- w = w + 5 / 83 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< get things moving
- 'COLOR r, g, b
- 'dot x, y
- ' PSET (x, y), _RGB32(r, g, b)
- scr(x, y) = klr~&
- ' _DISPLAY
- ' _LIMIT 200
- _MEMFREE m
- distance = ((x1 - x2) ^ 2 + (y1 - y2) ^ 2) ^ .5
Post by: bplus on June 23, 2019, 08:22:29 am
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.
Post by: Petr on June 23, 2019, 08:35:46 am
Post by: johnno56 on June 23, 2019, 09:15:50 am
Post by: FellippeHeitor on June 23, 2019, 09:28:35 am
I stared at it for several minutes, just to see if it would mess up my eyesight
What did I just read, johnno56? 🤣
Post by: johnno56 on June 23, 2019, 09:47:30 am
Post by: TempodiBasic on June 23, 2019, 02:06:53 pm
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 (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 (https://www.vocabulary.com/dictionary/plasma)
Here over the programming there are exchanges of culture! Very Cool!
Post by: bplus on June 23, 2019, 02:21:51 pm
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.
Post by: TempodiBasic on June 23, 2019, 02:32:56 pm
you're right but Spiritismhttps://en.wikipedia.org/wiki/Spiritism (https://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 (https://en.wikipedia.org/wiki/Ghostbusters). To what ectoplasm do you refer between these two last?
Post by: bplus on June 23, 2019, 02:35:02 pm
Hey Bplus
you're right but Spiritismhttps://en.wikipedia.org/wiki/Spiritism (https://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 (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
Post by: TempodiBasic on June 23, 2019, 06:51:31 pm
It's my preferite
https://ghostbusters.fandom.com/wiki/Ectoplasm (https://ghostbusters.fandom.com/wiki/Ectoplasm)
Post by: _vince on June 28, 2019, 08:03:03 pm
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 (http://www.petesqbsite.com/sections/tutorials/zines/qbcm/17-plasmas.html)
Post by: OldMoses on July 01, 2019, 07:02:51 am
That is really cool and I gotta wonder how you come up with these effects. Do you have a process or do you just throw stuff at the IDE until something wild occurs?
I used to random POKE random values into my Apple II to see what strange things might happen...
Post by: bplus on July 01, 2019, 10:38:12 am
Ghosts are inconvenient enough without leaving spooge lying around. ;)
That is really cool and I gotta wonder how you come up with these effects. Do you have a process or do you just throw stuff at the IDE until something wild occurs?
I used to random POKE random values into my Apple II to see what strange things might happen...
The plasm effect is old trick, see _vince link in reply #14 of this thread.
I used it here: https://www.qb64.org/forum/index.php?topic=1467.msg106723#msg106723
for the background rolling waves of beautiful color:
Code: QB64: [Select]
- 'instead of CLS create rolling waves of color patterns
- chColor
- ....
- clr = clr + .3
I see Ashish is onto it here:
https://www.qb64.org/forum/index.php?topic=1472.msg106736#msg106736
Oh, maybe that's just random color... I thought I saw repeating patterns like here:
Code: QB64: [Select]
- _TITLE "Wavy with Plama: Press Spacebar for New Plasma Injection."
- ' for QB64 fork (B+=MGA) 2017-05-05
- ' Wavy with Plasma Treatment.bas SmallBASIC 0.12.9 (B+=MGA) 2017-05-03
- ' from: animated circles started by Admin at SdlBasic 2017-05-03
- ' I added Plasma treatment and spacebar changer
- ' 2018-08-04 updated with better circle fill
- '===================================================================
- ' Instructions: press spacebar for new injection of plasma
- '==================================================================
- CONST W = xmax
- CONST H = ymax
- current_phi = 0
- cN = 1
- resetPlasma
- _LIMIT 10
- current_phi = current_phi + PHISTEP
- phi = phiIndex * PHIDELTA + current_phi
- changePlasma
- fcirc xball, yball, SMALL_R
- cN = cN + 1
- 'Steve McNeil's copied from his forum note: Radius is too common a name
- RadiusError = -subRadius
- X = subRadius
- Y = 0
- ' Draw the middle span here so we don't draw it twice in the main loop,
- ' which would be a problem with blending turned on.
- WHILE X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1
Post by: bplus on January 20, 2020, 10:38:17 pm
Code: QB64: [Select]
- _TITLE "Plasmatic press spacebar for new coloring set" ' b+ 2020-01-20 translated and modified from SmallBASIC
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 100
Richard Frost recent clock background reminded me of old SmallBASIC program but it drew one static picture at a time because not fast enough for motion. QB64 is, just barely.
Post by: bplus on January 21, 2020, 11:34:40 am
Quote
@bplus, awesome plasma, like the 3D shader effect a lot. Does the pattern repeat after a while, or it is completley random/fractaloid? I don't know a lot about this kind of math.
Hi Dajan,
I hope you don't mind my answering here in thread where I've been working on this effect. I confess I don't quite get the math yet either.
The program I translated and modified looked like this (plasmajvsh.bas from SmallBASIC code library,
http://smallbasic.github.io/pages/samples.html
Code: [Select]
'Plasma generator
'This program creates a plasma surface, which looks oily or silky.
r=rnd:g=rnd:b=rnd
for n=1 to 5
r1=r:g1=g:b1=b
repeat:r=rnd:until abs(r-r1)>.3
repeat:g=rnd:until abs(g-g1)>.3
repeat:b=rnd:until abs(g-g1)>.3
for m=0 to 17:m1=17-m
f1=(m*r)/18:f2=(m*g)/18:f3=(m*b)/18:c << rgbf(f1,f2,f3)
next
for m=0 to 17:m1=17-m
f1=(m+m1*r)/18:f2=(m+m1*g)/18:f3=(m+m1*b)/18:c << rgbf(f1,f2,f3)
next
for m=0 to 17:m1=17-m
f1=(m1+m*r)/18:f2=(m1+m*g)/18:f3=(m1+m*b)/18:c << rgbf(f1,f2,f3)
next
for m=0 to 17:m1=17-m
f1=(m1*r)/18:f2=(m1*g)/18:f3=(m1*b)/18:c << rgbf(f1,f2,f3)
next
next
for n=1 to 6
p << [rnd*xmax,rnd*ymax]
f << rnd*.1
next n
for y=0 to ymax-1 step 2
for x=0 to xmax-1 step 2
d=0
for n=0 to 5
k=sqr((x-p(n)(0))^2+(y-p(n)(1))^2)
d =d+(sin(k*f(n))+1)/2
next n:d=d*60
rect x,y step 2,2 color c(d) filled
next x
next y
The first part generates a color palette c(), the 2nd block generates 6 random points and the 3rd block draws a screen full of plasma colors based on distances from the 6 points.
When that program was made it did not go nearly as fast as it can now days with 64 bit processing so I had idea to show moving plasma by moving those 6 points around the screen:
Code: QB64: [Select]
- 'points structure
- TYPE xy
- ...
- 'new points startup
- ...
- 'move points
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
The "shader" effect comes from the palette generation. Since the points are moving around on screen it is possible to repeat a pattern, that probablility is unlikely, how unlikely? Ask STxAxTIC it's crazy big math! ;-))
Notice "ectoplasm" the first post in this thread works on the same principle and I did half baked repeating method to move it around a bit.
But last night was the inspired real plasma effect!
Post by: dajan on January 21, 2020, 12:13:34 pm
Post by: STxAxTIC on January 21, 2020, 06:55:14 pm
Anyway, this thread is awesome, these programs are super awesome. My system is kindof a hunk of junk so I narrowed the view area to make it really liquid. A+ stuff, bplus.
Post by: bplus on January 21, 2020, 07:13:55 pm
Post by: SierraKen on January 21, 2020, 10:30:59 pm
Also congratulations to the Small Basic programmer! Some people are just geniuses. :)
Post by: SierraKen on January 21, 2020, 11:19:08 pm
I added a picture of it, but without the animation, it's not too close to how neat it looks in the program. You also have to click the picture to see it.
You also can swap 20 with 10 or whatever number you want to try. The larger the number, the more distance between pixels.
Code: QB64: [Select]
- _TITLE "Plasmatic press spacebar for new coloring set" ' b+ 2020-01-20 translated and modified from SmallBASIC
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- 'Updated again by Ken G. for TRON-like visual.
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- 'FOR y = 0 TO ymax - 1 STEP 2
- 'FOR x = 0 TO xmax - 1 STEP 2
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 100
Post by: bplus on January 22, 2020, 11:13:08 am
You can learn many things by jiggling the numbers, you know that I am sure.
Here is a mod that jiggles the number of moving points by resetting the constant nPoints in bas source, near top of code:
Code: QB64: [Select]
- ' from Plasmatic press spacebar for new coloring set" ' b+ 2020-01-20 translated and modified from SmallBASIC
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- CONST xmax = 800, ymax = 600, nPoints = 1 '<<<<<<<<<<<<<<<<<< use 1 to 8 after 8 it runs too slow to enjoy most interesting is 1 or 2
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 100
EDIT: although I can't see much difference, line 46 was not supposed to be FROM 0 to 1.
Post by: SierraKen on January 22, 2020, 12:26:01 pm
Post by: bplus on January 22, 2020, 02:42:44 pm
That's really awesome! I'll have to study it a bit more to learn from. I'm surprised there's no DELAY command or anything to slow it down. I tried to speed it up with a higher LIMIT number but that didn't do anything. I wonder why it's set on that speed?
_LIMIT does what I underlined above, it will delay code on a regular interval making it flow nicely at even level but only if the code is processed faster than the _LIMIT amount.
_LIMIT is not needed for stepping through this code at steps of 1 or 2 at the screen size 800 x 600 but decrease screen, or increase step size to like 20 or jiggle some other number and _LIMIT 100 (or 60) would be needed for smooth flow.
Post by: SierraKen on January 22, 2020, 04:15:28 pm
Post by: bplus on January 22, 2020, 05:30:34 pm
That makes sense, but I wonder why it's impossible to make this program go any faster?
Oh this can be made to go faster, along with big steps, smaller screens, less points, ask Steve or RhoSigma for all kinds of optimizing and mem tricks and compile NoChecking...
The real bottleneck is checking the distance of every point on screen to 6 or how many points we are using for the plasma coloring number get around using SQR.
Post by: bplus on January 22, 2020, 11:24:19 pm
I am jiggling the f factor!
Code: QB64: [Select]
- ' from Plasmatic nPoints Test Mod.bas 2020-01-22
- ' from Plasmatic press spacebar for new coloring set" ' b+ 2020-01-20 translated and modified from SmallBASIC
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- '==================================================================================================================
- '
- ' Experiments with ordered set of points, can we tell the pattern underneath?
- '
- '==================================================================================================================
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f(n) = .2
- ca = ca + da
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 30
Post by: SierraKen on January 23, 2020, 12:31:21 am
Code: QB64: [Select]
- 'Lava Lamp modified by Ken G. and from b+ and from SmallBASIC.
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 100
Post by: bplus on January 23, 2020, 01:35:11 am
Code: QB64: [Select]
- 'Lava Lamp modified by Ken G. and from b+ and from SmallBASIC. mod again B+
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f(n) = .015
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 20
Post by: SierraKen on January 23, 2020, 01:36:52 pm
Post by: bplus on January 23, 2020, 05:23:06 pm
Code: QB64: [Select]
This means I might be able to do a Plasmatic background for clock face or anything with far less code PLUS really mess with Plasma coloring that previously depends on a black border and white center like coloring a pipe in fake-3D.
Post by: SierraKen on January 23, 2020, 05:47:19 pm
Post by: SMcNeill on January 23, 2020, 06:09:15 pm
k = SQR(dx * dx + dy * dy)
k = _HYPOT(dx, dy)
Post by: bplus on January 23, 2020, 10:10:07 pm
You were talking about getting rid of SQR... Can’t you use _HYPOT?
k = SQR(dx * dx + dy * dy)
k = _HYPOT(dx, dy)
Thanks for suggestion, I tried it in following demo and it looks like SQR is a tiny bit faster, on my system the loop time is usually under .10 secs .09xxx with .10xxx showing more often with _HYPOT and .08xxx showing more with SQR. What is definitely slower is using ^.5 instead of SQR!
This is a demo of the new color Options available for Plasmatic effect, use t to toggle between Traditional Plasma that has high contrast Black between cells and White in cell centers, whereas the New Options available put any color between cells and any color as cell center:
again t to toggle between Traditional Plasma and New Options Plasma, use spacebar to change color sets:
Code: QB64: [Select]
- ' continued study of what makes Plasmatic tick, here the color pallete created
- TYPE xy
- restart:
- r2 = 255: g2 = 255: b2 = 255 'regular Plasma
- r1 = 0: g1 = 0: b1 = 0
- k$ = INKEY$
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- _TITLE t$
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- 'k = _HYPOT(dx, dy)
- '_LIMIT 100
- midInk~& = _RGBA32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##, 255)
Post by: johnno56 on January 24, 2020, 07:35:29 am
Post by: SierraKen on January 24, 2020, 05:09:44 pm
Tell me what you think of this, thanks.
Code: QB64: [Select]
- 'Lava Lamp modified by Ken G. and from b+ and from SmallBASIC. mod again B+
- 'Plasma Magnifico - updated 2015-11-26 for Android
- 'This program creates a plasma surface, which looks oily or silky.
- 'By SmallBasic and mods by B+ and SierraKen
- TYPE xy
- restart:
- r1 = r: g1 = g: b1 = b
- f1 = (m * r) / 18: f2 = (m * g) / 18: f3 = (m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m + m1 * r) / 18: f2 = (m + m1 * g) / 18: f3 = (m + m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 + m * r) / 18: f2 = (m1 + m * g) / 18: f3 = (m1 + m * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f1 = (m1 * r) / 18: f2 = (m1 * g) / 18: f3 = (m1 * b) / 18: c(i) = rgbf(f1, f2, f3): i = i + 1
- f(n) = .015
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- _LIMIT 20
Post by: bplus on January 24, 2020, 06:58:04 pm
Quote
Do you happen to know who made the original code in SmallBasic where you got this from? I ask because I want to add their name to a comment in the code thanking them for posting it on a forum.
Hi Ken,
from reply #18 I left link to SmallBASIC Library and source code name
Quote
The program I (B+) translated and modified looked like this (plasmajvsh.bas from SmallBASIC code library,
http://smallbasic.github.io/pages/samples.html
That's all I know about it, that should be more than enough.
Post by: SierraKen on January 24, 2020, 07:14:41 pm
'Lava Lamp
_TITLE "Lava Lamp"
'This program creates a plasma surface, which looks oily or silky.
'By SmallBasic code plasmajvsh.bas from here: http://smallbasic.github.io/pages/samples.html
'and mods by B+ and SierraKen from the QB64.org forum.
Post by: bplus on January 26, 2020, 02:22:58 pm
Code: QB64: [Select]
- 'inspired by "shell-like thing" by tsh73 Jan 2020 at JB
- cx = 300: cy = 300
- dr = dr + 1 / 4800: ra = ra + dr
- i = i + 1
- WHILE 1
- dx = x(i + 400) - x(i): dy = y(i + 400) - y(i)
- dx = dx / dist: dy = dy / dist
- PN = PN + .5
- shade = 1 - ((dist / 2 - j + 1 / 2) / (dist / 2)) ^ 2
- fcirc cx + j * dx, cy + j * dy, 1, c
- PN = PN - 200
- dx = x(i + 400) - x(i): dy = y(i + 400) - y(i)
- dx = dx / dist: dy = dy / dist
- PN = PN + .5
- shade = 1 - ((dist / 2 - j + 1 / 2) / (dist / 2)) ^ 2
- fcirc x(i) + j * dx, y(i) + j * dy, 2, c
- _DELAY 2
- 'from Steve Gold standard
- WHILE X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1
I haven't tried to recode Plasmatic yet but I am pretty sure it will be a very nice modification.
Post by: bplus on January 26, 2020, 03:46:32 pm
Code: QB64: [Select]
- ' Hopefully this will add shading to the new color options found in Pasmatic 4.
- CONST xxmax = 800, yymax = 600, xmax = 900, ymax = 740, xoff = (xmax - xxmax) \ 2, yoff = (ymax - yymax) \ 2
- TYPE xy
- restart: 'select rgb1 and rgb2 based on mode of color mixing
- ELSE ' traditional high contrast plasma black borders, white centers
- r1 = 0: g1 = 0: b1 = 0: r2 = 255: g2 = 255: b2 = 255 'regular Plasma
- ' create 6 x 60 bands of color palette based on coloring mode (rgb1 set and rgb2 set)
- s = 1 - ((30 - m + .5) / 30) ^ 2
- ' behind the scenes variables for motion, weighting and shaping color mixing
- 'screen labeling 3 lines for title above, 1 line instructions below
- yCP yoff - 60, "New Color Options for Plasma:"
- yCP yoff - 60, "Traditional High Contrast Plasma: Black Borders and White Centers"
- yCP yoff - 40, "Shaded Borders: RGB(" + TS$(r1 \ 1) + ", " + TS$(g1 \ 1) + ", " + TS$(b1 \ 1) + ")"
- yCP yoff - 20, "Centers: RGB(" + TS$(r2 \ 1) + ", " + TS$(g2 \ 1) + ", " + TS$(b2 \ 1) + ")"
- yCP yoff + yymax + 10, "Press t to toggle between Traditional and New Color Options Plasma"
- yCP yoff + yymax + 30, "Press spacebar to get a new color set."
- k$ = INKEY$
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- 'dist = _HYPOT(dx, dy) 'this may work faster on another system
- midInk~& = _RGBA32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##, 255)
Post by: STxAxTIC on January 26, 2020, 04:07:35 pm
Pretty bang-up job, lots of results crammed into a relatively small amount of code.
Maybe it's my system, or maybe this is a familiar demon from the old plasma days, but it runs slow on my end. This immediately caused me to look at this part:
Code: QB64: [Select]
- dx = x - p(n).x: dy = y - p(n).y
- 'dist = _HYPOT(dx, dy) 'this may work faster on another system
Two things that probably don't need pointing out, but here they are:
1) You can speed things up by using a lookup table for the SIN() function. Even a crappy lookup table with an interpolation formula will certainly get you the precision you need, but probably be faster than the native SIN() function. They did this in the old days, I can only imagine it works now.
2) I see you fiddled with different ways to calculate the square root. Two-and-a-half thoughts on this: (1) Just leave it squared, you'll probably get the same kind of results anyway. (1a) Leave it squared but modify f(n) to compensate, if you can. (2) Use a lookup table for square roots. Linear interpolation for the in-between values will only be arithmetic and won't ever involve a square root in the loop.
I suppose you can also optimize in the direction of _MEM, but it becomes very nontransparent after that.
The third option is I upgrade my system........
Post by: bplus on January 26, 2020, 04:20:34 pm
How slow is it running for you?
More options for speed,
- decrease xxmax, yymax those are the inner screen dimensions
- decrease number n of points, really 2 or 3 are enough each point is another cycle over the whole drawing area.
- increase step size on x, y through xxmax and yymaxx
I had to employ all these for SmallBASIC which is only interpreted Basic.
I don't think tables would be practical (800 * 600)^2 x1, y1, x2, y2 the distance from any point to any other = 2.304*10^11 values.
I will try the suggestion of not squaring.
Post by: STxAxTIC on January 26, 2020, 04:24:11 pm
Quote
I don't think tables would be practical (800 * 600)^2 x1, y1, x2, y2 the distance from any point to any other = 2.304*10^11 values.
That's where interpolation comes in handy. The table need only contain crude known values, like 100, 105, 110, 120, etc. So that when a request for 103 comes in, it fakes the value by using its neighbors, 100 and 105. Same goes for a trig table, just wrap SIN() around each of the numbers I just used.
Post by: bplus on January 26, 2020, 07:16:26 pm
Code: QB64: [Select]
- ' Try no SQR for distance
- CONST xxmax = 700, yymax = 500, xmax = 900, ymax = 740, xoff = (xmax - xxmax) \ 2, yoff = (ymax - yymax) \ 2
- TYPE xy
- restart: 'select rgb1 and rgb2 based on mode of color mixing
- ELSE ' traditional high contrast plasma black borders, white centers
- r1 = 0: g1 = 0: b1 = 0: r2 = 255: g2 = 255: b2 = 255 'regular Plasma
- ' create 6 x 60 bands of color palette based on coloring mode (rgb1 set and rgb2 set)
- s = 1 - ((30 - m + .5) / 30) ^ 2
- ' behind the scenes variables for motion, weighting and shaping color mixing
- 'screen labeling 3 lines for title above, 1 line instructions below
- yCP yoff - 60, "New Color Options for Plasma:"
- yCP yoff - 60, "Traditional High Contrast Plasma: Black Borders and White Centers"
- yCP yoff - 40, "Shaded Borders: RGB(" + TS$(r1 \ 1) + ", " + TS$(g1 \ 1) + ", " + TS$(b1 \ 1) + ")"
- yCP yoff - 20, "Centers: RGB(" + TS$(r2 \ 1) + ", " + TS$(g2 \ 1) + ", " + TS$(b2 \ 1) + ")"
- yCP yoff + yymax + 10, "Press t to toggle between Traditional and New Color Options Plasma"
- yCP yoff + yymax + 30, "Press spacebar to get a new color set."
- k$ = INKEY$
- p(i).x = p(i).x + p(i).dx
- p(i).y = p(i).y + p(i).dy
- stepper = 3
- d = 0
- dx = x - p(n).x: dy = y - p(n).y
- dist = .0005 * (dx * dx + dy * dy)
- 'dist = SQR(dx * dx + dy * dy)
- 'dist = _HYPOT(dx, dy) 'this may work faster on another system
- cnt = cnt + 1
- cnt = 0: tot = 0
- midInk~& = _RGBA32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##, 255)
Plasma now gets holes in it, cool!
Post by: johnno56 on January 26, 2020, 08:03:01 pm
Makes one nostalgic for the 70's... The decade that fashion forgot... lol
Post by: bplus on January 27, 2020, 07:06:45 pm
Code: QB64: [Select]
- 'inspired by "shell-like thing" by tsh73 Jan 2020 at JB
- ' 2020-01-27 Shell of another color 3 adds more improvements
- cx = 340: cy = 390
- dr = dr + 1 / 1700: ra = ra + dr ^ 2: i = i + 1
- WHILE 1
- dx = x(i + 400) - x(i): dy = y(i + 400) - y(i)
- size = 3
- size = 2
- shade = 1 - ((dist / 2 - j + 1 / 2) / (dist / 2)) ^ 2
- fcirc x(i) + j * dx, y(i) + j * dy, size, c
- _DELAY 2
- 'from Steve Gold standard
- WHILE X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1