Setting Line _RGB colours

[bplus]

Code: (Select All)

Sub myBox (H, V, K As _Unsigned Long)
    Line (H, V)-(H + 37, V + 38), K, BF
End Sub

demo

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(Rnd * 255, Rnd * 255, Rnd * 255)
Next x, y

Sub myBox (H, V, K As _Unsigned Long)
    Line (H, V)-(H + 37, V + 38), K, BF
End Sub