Setting Line _RGB colours

[PhilOfPerth]

You will have to DIM Shared V and H in main because they are not passed as arguments to the sub.

Yes, got that; thanks.

---

Demo 2:

Code: (Select All)

Screen _NewImage(800, 600, 32)
For y = 0 To 600 Step 38
    For x = 0 To 800 Step 37
        myBox x, y, _RGB32(x * 255 / 800, Abs(x - y) * 255 / 800, y * 255 / 800)
        Line (x, y)-(x + 37, y + 38), &HFFFFFFFF, B
Next x, y
Sleep
Sub myBox (H, V, K As _Unsigned Long)
    Line (H, V)-(H + 37, V + 38), K, BF
End Sub

You never cease to amaze me!