(tested only in PB 4.51, 32-bit XP Pro)
Code: Select all
; Try 16-bit and 32-bit...
ScreenW.i = 640
ScreenH.i = 480
;ScreenD.i = 32
ScreenD.i = 16
If InitSprite()
If OpenScreen(ScreenW, ScreenH, ScreenD, "GrabSprite Test")
; Comment out any GrabSprite() you'd like...
GrabSprite(0, 0, 0, ScreenW, ScreenH) ; Before ClearScreen & FlipBuffers
ClearScreen(#Red)
GrabSprite(0, 0, 0, ScreenW, ScreenH) ; After ClearScreen, Before FlipBuffers
FlipBuffers()
GrabSprite(0, 0, 0, ScreenW, ScreenH) ; After ClearScreen & FlipBuffers
Delay(1000)
ClearScreen(#Green)
GrabSprite(0, 0, 0, ScreenW, ScreenH) ; Another ClearScreen
FlipBuffers()
GrabSprite(0, 0, 0, ScreenW, ScreenH) ; Another FlipBuffers
Delay(1000)
Else
Debug "No screen."
EndIf
Else
Debug "No sprite."
EndIf

