indexBase 0
include "window.inc"

Window "HLS Texture",256,256,4
int x, y, c, color

clsColor 0,0,0

while not WinExit
if key 27 then exit while
For x=0 To Width 
   For y=0 To Height 
      c = x xor y 
      Poke x, y, c, c, c
   Next
Next  
Pause   

Dim col as TRGB
For x=0 To Width
   For y=0 To Height
      c = (x xor y)
      col.r = 255 - c
      col.g = c
      col.b = Mod(c, 128)
      Poke x, y, col.r, col.g, col.b 
   Next
Next
Pause

For x=0 To Width
   For y=0 To Height
      c = (x xor y)
      Pixel x, y, ColorHLStoRGB(c, 120, 230)
   Next
Next
Pause
wend   

WinEnd