WritePixel argb format

 [   A  ] [  R   ] [  G   ] [  B   ]
%00000000 00000000 00000000 00000000 - Binary

 A  R  G  B
$00 00 00 00 - Hex

RGB = ReadPixel(x, y, buffer) And $FFFFFF

graphics3d 800,600,32,2

;include "h_vein.bb"


C = CreateCamera()
T = CreateTexture(64,64,1+2+16+32+256)
T2 = CreateTexture(128,128,1+2+16+32+256)
T3 = CreateTexture(256,256,1+2+16+32+256)

For X = 0 To 63
For Y = 0 To 63
WritePixel x,y,intcolor(rand(255),rand(255),rand(255),255),TextureBuffer(T)
next
next

CameraClsColor C,64,64,64


PositionEntity C,0,0,-8

S = CreateSprite()
s1 = createsprite()
moveentity s1,-2,0,0
s2=createsprite()
moveentity s2,2,0,0
EntityTexture S,T,0,0
EntityTexture S1,T2,0,0
EntityTexture S2,T3,0,0

global fps,timenext,frames
time = millisecs()
entityblend s,1
Repeat

a# = a# + .25
if a > 360 then a = a - 360
     if frames mod 2 = 0 then
     lockbuffer texturebuffer(t)
     For Y = 0 To 63
          colorb = readpixelfast(X,Y,TextureBuffer(T))
          Colora = IntColor(Rand(255),Rand(255),Rand(255),Min(Max(Abs Cos(A)*255,Max(Y*4,255)),0))
          For X = 0 To 63
               WritePixelFast X,Y,Colora,TextureBuffer(T)
          Next
     Next
     unlockbuffer texturebuffer(t)

    lockbuffer texturebuffer(t2)
     For Y = 0 To 127
          Colora = IntColor(Rand(255),Rand(255),Rand(255),Min(Max(Abs Cos(A)*255,Max(Y*4,255)),0))
          For X = 0 To 127
               WritePixelfast X,Y,Colora,TextureBuffer(T2)
          Next
     Next
     unlockbuffer texturebuffer(t2)
     endif
     ;positiontexture t,-.5,.5
     ;rotatetexture t,a


     UpdateWorld
     RenderWorld
     Text 2,2,GetFPS(False)
     Flip False
Until Keyhit(1)

clearworld

Function GetFPS(JustChecking = False)
	If Not JustChecking Then frames = frames+1

	If MilliSecs() > timenext Then
		timenext = MilliSecs()+1000
		fps = frames
		frames = 0
	EndIf

	Return fps
End Function

; IntColor returns an integer color useable by WritePixel() and WritePixelFast()
; R = Red
; G = Green
; B = Blue
; A = Alpha.
; return = An integer color useable by functions such as WritePixel() and WritePixelFast()
Function IntColor(R,G,B,A=255)
	Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0
End Function

; RColor returns the value of Red, Green, Blue, or Alpha in C.
; c = An integer color returned by, for example, ReadPixelFast()
; c = The amount of bits C should be shifted right to.  Valid constants are: RRED, RGREEN, RBLUE, RALPHA
; return = An integer ranging from 0 to 255.
Function RColor%(c%,d%)
	Return c Shr d And 255 Shl 0
End Function

Const RALPHA = 24	;Return Alpha when using RColor
Const RRED = 16	;Return Red when using RColor
Const RGREEN = 8	;Return Green when using RColor
Const RBLUE = 0	;Return Blue when using RColor

; Calculates the minimum of two variables.
; V = The variable that you are modifying.
; M = The lowest the variable you are modifying can go.
; return = V if it is larger than M, otherwise M.
Function Min#(V#,M#)
	If V# < M# Then
		Return M#
	Else
		Return V#
	EndIf
End Function

; Calculates the maximum of two variables.
; V = The variable that you are modifying.
; M = The greatest the variable you are modifying can go.
; return = V if it is smaller than M, otherwise M.
Function Max#(V#,M#)
	If V# > M# Then
		Return M#
	Else
		Return V#
	EndIf
End Function

Graphics3D 800, 600, 0, 2

Text 0, 0, Hex$(ReadPixel(400,300))

WritePixel(400, 300, $00FFFFFF)

Text 0, 12, Hex$(ReadPixel(400, 300))

Flip

WaitKey()

End