' ****** START INCLUDE Rgba Core:::RgbaPset(x%,y%,c&,a%b) ******
DIM r0%, g0%, b0%, a0%, r1%, g1%, b1%, a1%
DIM RgbaAreaBorder& = &h1

SUB SetRgb0(x#,y#)
    DIM c& = (POINT(x#,y#))
    r0% = _RED(c&)
    g0% = _GREEN(c&)
    b0% = _BLUE(c&)
END SUB

SUB SetRgb1(c&,a%b)
    r1% = _RED(c&)
    g1% = _GREEN(c&)
    b1% = _BLUE(c&)
    a0% = 255 - a%b
    a1% = a%b
END SUB

SUB RgbaCorePset(x#,y#)
    PSET(x#,y#), _RGB( [{ (r0%*a0%)+(r1%*a1%) }/255], [{ (g0%*a0%)+(g1%*a1%) }/255], [{ (b0%*a0%)+(b1%*a1%) }/255] )
END SUB



SUB RgbaPset(x#,y#,c&,a%b)
  SetRgb0(x#,y#)
  SetRgb1(c&,a%b)
  RgbaCorePset(x#,y#)
END SUB
'  ****** END INCLUDE Rgba Core:::RgbaPset(x%,y%,c&,a%b) ******

' 🟠🟠🟠 MAIN PROGRAM 🟠🟠🟠

' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.10.15.00.59]) on 2023.10.19 at 02:18 (Coordinated Universal Time)
' This program is a BAM port (and mods) of a QB64 program by Dav (see original code at then end of this program)
'Dav, OCT/2023
_ALERT("This low res graphics image is best viewed with the browser window resized to smaller dimensions.")
Screen _NewImage(120, 75, 32)
ti = 8
Do
  For x = 0 To _Width * ti Step ti
      For y = 0 To _Height * ti Step ti
      d = Sqr(((x - y) ^ 2) + t + ((y - x) ^ 2) + t)
      RgbaPset(x/ti,y/ti,_RGB((d + x + t) Mod 255, (d + y + t) Mod 255, (d + t) Mod 255), 10)
      Next y
  Next x
  t = t + 1
  _display
Loop


' 🟠🟠🟠 ORIGINAL QB64 PROGRAM 🟠🟠🟠

'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)