Code: Select all
CreateBrush(1, 800, 600)
SelectBrush(1)
Cls(#WHITE)
For x = 0 to 800 step 50
Line(x, 0, x, 600, #RED,{ Thickness = 10})
Next
For y = 0 to 600 step 50
Line(0, y, 600, y, #RED, { Thickness = 10})
Next
EndSelect
DisplayBrush(1, 0, 0)
FloodFill(1, 50, 50, #WHITE, #BLUE)
DisplayBrush(1, 0, 0)
WaitLeftMouse()