; #### RAWMEM-GFX Variables
Global RMG_buffer_bank
Global RMG_buffer_format
Global RMG_buffer_pitch
; ****

Const gfx_w=1280
Const gfx_h=1024

Local i,x,y
Local value

SetGfxDriver 1

AppTitle "Lockedpixels Test"
Graphics gfx_w,gfx_h,32;,2
LockBuffer()
RAWMEM_GFX_Init ()

;[Block] WritePixel
; WritePixelFast
value= 0 Or (255 Shl 8) Or (0 Shl 16)

startfast= MilliSecs()
For i= 0 To 9
	For y= 0 To gfx_h-1
		For x= 0 To gfx_w-1
			WritePixelFast (x,y,value)
		Next
	Next
Next
timefast= MilliSecs()-startfast

; WritePixelBank
value= 255 Or (0 Shl 8) Or (255 Shl 16)
startbank= MilliSecs()
For i= 0 To 9
	For y= 0 To gfx_h-1
		For x= 0 To gfx_w-1
			WritePixelBank (x,y,value)
		Next
	Next
Next
timebank= MilliSecs()-startbank

Notify "10mal "+(gfx_w*gfx_w)+"Pixel zeichnen:"+Chr$(10)+"WritePixelFast: "+timefast+"ms"+Chr$(10)+"WritePixelBank: "+timebank+"ms"
;[End]

;[Block] ReadPixel
; ReadPixelFast
value= 0 Or (255 Shl 8) Or (0 Shl 16)

startfast= MilliSecs()
For i= 0 To 9
	For y= 0 To gfx_h-1
		For x= 0 To gfx_w-1
			WritePixelFast (x,y,value)
		Next
	Next
Next
timefast= MilliSecs()-startfast

; ReadPixelBank
value= 255 Or (0 Shl 8) Or (255 Shl 16)
startbank= MilliSecs()
For i= 0 To 9
	For y= 0 To gfx_h-1
		For x= 0 To gfx_w-1
			WritePixelBank (x,y,value)
		Next
	Next
Next
timebank= MilliSecs()-startbank

Notify "10mal "+(gfx_w*gfx_w)+"Pixel lesen:"+Chr$(10)+"ReadPixelFast: "+timefast+"ms"+Chr$(10)+"ReadPixelBank: "+timebank+"ms"
;[End]

UnlockBuffer FrontBuffer()
EndGraphics
End

; #### Functions - developing RAWMEM-GFX
Function RAWMEM_GFX_Init (buffer=0)
	; Initiates a buffer for working with it on a low-öevel basis.
	; @param:
	;	buffer	- Buffer this operation should aply to, standard is current buffer
	; @return:
	;	int		1 indicates success, 0 indicates an error.
	If buffer=0 Then buffer= GraphicsBuffer()
	
	RMG_buffer_bank= LockedPixels(buffer)
	RMG_buffer_format= LockedFormat(buffer)
	RMG_buffer_pitch= LockedPitch(buffer)
	
	If RMG_buffer_bank Then
		Return 1
	Else
		Return 0
	EndIf
End Function

Function ReadPixelBank (x,y)
	; Reads pixeldata from a bufferbank.
	; @param:
	;	x		- X-Koordinate
	;	y		- Y-Koordinate
	; @return:
	;	int		RGB value as it is used by ReadPixel/-Fast
	Local i
	Local value
	Local buffer_offset
	
	If RMG_buffer_format=3 Then
		buffer_offset= y*RMG_buffer_pitch+x*3
		
		value= PeekByte(RMG_buffer_bank,buffer_offset) Shl 16
		value= value+ PeekByte(RMG_buffer_bank,buffer_offset+1) Shl 8
		value= value+ PeekByte(RMG_buffer_bank,buffer_offset+2)
	ElseIf RMG_buffer_format=4 Then
		value= PeekInt (RMG_buffer_bank,y*RMG_buffer_pitch+(x Shl 2))
	Else
		AppTitle "bitdepht error"
		RuntimeError "Something got really fucked up,"+Chr$(10)+"and you managed to create a 16bit buffer on this system, weird!"
	EndIf
	
	Return value
End Function

Function WritePixelBank (x,y,col_int)
	; Writes pixeldata to a buffer bank
	; @param:
	;	x		- X-Koordinate
	;	y		- Y-Koordinate
	;	col_int	- New color of specified pixel
	Local buffer_offset
	Local buffer_bank= RMG_buffer_bank
	
	If RMG_buffer_format= 3 Then
		buffer_offset= y*RMG_buffer_pitch+x*3
		
		PokeByte (buffer_bank,buffer_offset,col_int Shr 16)	; Red	
		PokeByte (buffer_bank,buffer_offset+1,col_int Shr 8); Green
		PokeByte (buffer_bank,buffer_offset+2,col_int)		; Blue
	
	ElseIf RMG_buffer_format= 4
		PokeInt buffer_bank,y*RMG_buffer_pitch+(x Shl 2),col_int
	Else
		AppTitle "bitdepht error"
		RuntimeError "Something got really fucked up,"+Chr$(10)+"and you managed to create a 16bit buffer on this system, weird!"
	EndIf
End Function
; ****