Proggies

[bplus]

Hey bplus, here's another little proggie you may like, a fake voronoi like pattern plasma.

- Dav

Code: (Select All)

'fake-voronoi-plasma.bas

'Dav, OCT/2023

Screen _NewImage(800, 600, 32)

Do

    For x = 0 To _Width Step 2

        For y = 0 To _Height Step 2

            d = Sqr(((x - y) ^ 2) + t + ((y - x) ^ 2) + t)

            Line (x, y)-Step(2, 2), _RGBA((d + x + t) Mod 255, (d + y + t) Mod 255, (d + t) Mod 255, 10), BF

        Next

    Next

    t = t + 1

    _Limit 30

Loop Until InKey$ = Chr$(27)

I am seeing no Plasma nor Voronoi; thought about adding it... feeling lazy today. Maybe when I am up at 3AM unable to sleep.

Hey maybe you want to try? For Voronoi add 3 to a dozen points to measure the screen (x, y) distance to each save the shortest distance. Maybe try a polygon and rotate it? Get nice symmetry in image.

For plasma, rd(i) = rnd or rnd*rnd same for green gn(i) and blue bl(i)
_RGB32(127 + 127 * Sin(rd(n) * cN), 127 + 127 * Sin(gn(n) * cN), 127 + 127 * Sin(bl(n) * cN))
for CN use the dist, Then move the half dozen points around should be interesting!

Wait that is too, too much calculation. BTW I commented out LIMIT in code above and didn't speed up the graphics.