i have the following code:
Code: Select all
If OpenScreen(800,600,32,"")
Repeat
FlipBuffers()
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
Box(400, 300, 100, 100, RGB(255, 0, 0))
StopDrawing()
For y = 0 To 600
For x = 0 To 800: xx+1: If xx=800: xx=0: yy+1: EndIf: Next
If yy=600: yy=0: EndIf
Next
C = GetPixel_(GetForegroundWindow_(), xx, yy)
StartDrawing(ScreenOutput())
DrawText(Str(C))
StopDrawing()
ExamineKeyboard()
Until KeyboardPushed(#PB_KEY_ESCAPE)
EndIf





