;TEST
Graphics 800, 600,32,2
SetBuffer BackBuffer()

Gbank = CreateBank(800*600*LockedFormat()):ClsColor 51,51,51
While Not KeyHit(1)
	Cls
	
	msec = MilliSecs()
	LockBuffer
	msec1 = MilliSecs()
	CopyBufferToBank(GBank)
	msec1 = MilliSecs()-msec1
	
	SX = SX + 5
	If SX >= 512
		SY = SY + 5
		SX = 0
	EndIf
	If SY >= 512
		SY = 0
	EndIf
	For Y = 0 To 128
		For X = 0 To 128
			Pos = (SY * 1024*4) + (Y * 1024*4) + (SX * 4) + (X * 4)
			PokeByte GBank, Pos, X * Y
			PokeByte GBank, Pos+1, SX * X * Y
			PokeByte GBank, Pos+2, SY * X * Y
			PokeByte GBank, Pos+3, SX * SY + X * Y
		Next
	Next
	msec2 = MilliSecs()
	CopyBankToBuffer(GBank)
	msec2 = MilliSecs()-msec2
	UnlockBuffer
	msec = MilliSecs()-msec
	
	CopyRectToBank(20, 20, 100, 100, GBank, BackBuffer())
	
	Text 0,0, msec
	Text 0,15, msec1
	Text 0,30, msec2
	Text 0,45, SX
	Text 0,60, SY
	Flip 0
Wend
End

;ENDTEST
Function LockedFormat(buffer = 0)
	Local bnkFormat, format
	
	If buffer = 0 Then buffer = GraphicsBuffer()
	bnkFormat = CreateBank(4)
	apiRtlMoveMemory bnkFormat, buffer+104, 4
	format = PeekInt(bnkFormat, 0)
	FreeBank bnkFormat
	
	Return format
End Function

Function LockedPitch(buffer = 0)
	Local bnkPitch, pitch
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkPitch = CreateBank(12)
	apiRtlMoveMemory bnkPitch, buffer+92, 12
	pitch = PeekInt(bnkPitch, 0)*PeekInt(bnkPitch, 8)/8
	FreeBank bnkPitch
	
	Return pitch
End Function

Function BufferWidth(buffer = 0)
	Local bnkWidth, width
	
	If buffer = 0 Then Return GraphicsWidth()
	bnkWidth = CreateBank(4)
	apiRtlMoveMemory bnkWidth, buffer+92, 4
	width = PeekInt(bnkWidth, 0)
	FreeBank bnkWidth
	
	Return width
End Function

Function BufferHeight(buffer = 0)
	Local bnkHeight, height
	
	If buffer = 0 Then Return GraphicsHeight()
	bnkHeight = CreateBank(4)
	apiRtlMoveMemory bnkHeight, buffer+96, 4
	height = PeekInt(bnkHeight, 0)
	FreeBank bnkHeight
	
	Return height
End Function

Function CopyRectToBank(X, Y, W, H, bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = W*H*PeekInt(bnkInfo, 28)/8
	
End Function

Function CopyBufferToBank(bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = PeekInt(bnkInfo, 20)*PeekInt(bnkInfo, 24)*PeekInt(bnkInfo, 28)/8
	
	If BankSize(bank)<size Or PeekInt(bnkInfo, 0)=0 Then
		FreeBank bnkInfo
		Return False
	Else
		apiRtlMoveMemory bank, PeekInt(bnkInfo, 0), size
		FreeBank bnkInfo
		Return True
	EndIf
End Function

Function CopyBankToBuffer(bank, buffer = 0)
	Local bnkInfo, size
	
	If buffer=0 Then buffer = GraphicsBuffer()
	bnkInfo = CreateBank(32)
	apiRtlMoveMemory bnkInfo, buffer+72, 32
	size = PeekInt(bnkInfo, 20)*PeekInt(bnkInfo, 24)*PeekInt(bnkInfo, 28)/8
	
	If BankSize(bank)<size Or PeekInt(bnkInfo, 0)=0 Then
		FreeBank bnkInfo
		Return False
	Else
		apiRtlMoveMemory2 PeekInt(bnkInfo, 0), bank, size
		FreeBank bnkInfo
		Return True
	EndIf
End Function