Proggies

[CharlieJV]

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)

That's a nice proggie, Dav.

I had to significantly drop the resolution, but I'm pretty happy with the port: https://basicanywheremachine-news.blogsp...ogram.html