Faster GrabPixmap , GrabToPixmap()

BlitzMax Forums/BlitzMax Programming/Faster GrabPixmap , GrabToPixmap()

grable (Posted February) [#1]

An attempt at an optimized GrabPixmap, GrabToPixmap. Which doesnt allocate a new pixmap every time, and tries to minimize copying. !! They arent really any faster, except for GrabToPixmap_D3D9 on Windows 7. Note that it does NOT check for out of bounds! So make sure to stay within the screen And its made for 32-bit frame buffers, dont try it on anything else ;) SuperStrict Import BRL.GLMax2D Import BRL.D3D9Max2D Private Global _d3ddev:IDirect3DDevice9 Global _d3dsurf:IDirect3DSurface9 Global _glpixels:Byte Ptr Function free_resources() If _d3dsurf Then _d3dsurf.Release_() If _glpixels Then MemFree _glpixels EndFunction OnEnd free_resources Public Function InitGrabToPixmap_D3D9( g:TGraphics) If Not g Then Throw "no graphics!" _d3ddev = TD3D9Graphics(TMax2DGraphics(g)._graphics).GetDirect3DDevice() _d3ddev.CreateOffscreenPlainSurface( GraphicsWidth(),GraphicsHeight(), D3DFMT_X8R8G8B8, D3DPOOL_SYSTEMMEM, _d3dsurf, Null) EndFunction Function InitGrabToPixmap_GL( g:TGraphics) If Not g Then Throw "no graphics!" _glpixels = MemAlloc( GraphicsWidth() * GraphicsHeight() * 4) EndFunction Function GrabToPixmap_D3D9( pix:TPixmap, x:Int = 0, y:Int = 0) Local surf:IDirect3DSurface9 If _d3ddev.GetRenderTarget( 0, surf) < 0 Then Throw "GetRendderTarget failed" ' ** slow on Windows 7 ' Local s:Byte Ptr, d:Byte Ptr ' If surf.GetDC(s) < 0 Then Throw "src.GetDC failed" ' If _d3dsurf.GetDC(d) < 0 Then Throw "dst.GetDC failed" ' ' BitBlt Int(d), 0,0, pix.Width,pix.Height, Int(s),x,y, ROP_SRCCOPY ' ' _d3dsurf.ReleaseDC(d) ' surf.ReleaseDC(s) ' surf.Release_() If _d3ddev.GetRenderTargetData( surf, _d3dsurf) < 0 Then Throw "GetRendderTargetData failed" surf.Release_() Local lockedrect:D3DLOCKED_RECT = New D3DLOCKED_RECT If _d3dsurf.LockRect( lockedrect, Null, D3DLOCK_READONLY) < 0 Then Throw "surf.LockRect failed" ' convert rectangle BGRA to RGBA Local src:Byte Ptr = lockedrect.pBits + (y * lockedrect.Pitch) Local dst:Byte Ptr = pix.Pixels For Local yy:Int = 0 Until pix.Height Local lsrc:Int Ptr = Int Ptr(src) + x Local ldst:Int Ptr = Int Ptr(dst) For Local xx:Int = 0 Until pix.Width Local p:Int = lsrc[xx] ldst[xx] = ((p & $FF) Shl 16) | ((p & $FF0000) Shr 16) | (p & $FF00FF00) Next src :+ lockedrect.Pitch dst :+ pix.Pitch Next _d3dsurf.UnlockRect() EndFunction Function GrabToPixmap_GL( pix:TPixmap, x:Int = 0, y:Int = 0) Local blend:Int = GetBlend() glDisable(GL_BLEND) glDisable(GL_ALPHA_TEST) glReadPixels( x,y, pix.Width,pix.Height, GL_RGBA, GL_UNSIGNED_BYTE, _glpixels) ' flip Y Local src:Byte Ptr = _glpixels + (pix.Pitch * (pix.Height - 1)) Local dst:Byte Ptr = pix.Pixels For Local y:Int = 0 Until pix.Height Local lsrc:Int Ptr = Int Ptr(src) Local ldst:Int Ptr = Int Ptr(dst) For Local x:Int = 0 Until pix.Width ldst[x] = lsrc[x] Next src :- pix.Pitch dst :+ pix.Pitch Next SetBlend blend EndFunction D3D9 Example: SuperStrict Import "GrabToPixmap.bmx" SetGraphicsDriver D3D9Max2DDriver() InitGrabToPixmap_D3D9 Graphics(800,600) Local pix:TPixmap = CreatePixmap( GraphicsWidth(), GraphicsHeight(), PF_RGBA8888) Local img:TImage Local angle:Float SetBlend ALPHABLEND Repeat img = LoadImage(pix) SetImageHandle img, 400,300 angle :+ 1 If angle >= 360 Then angle = 0 SetRotation Sin(angle) * Cos(angle) * 3 SetColor 255,255,255 DrawImage img, 400,300 SetRotation 0 SetColor Rand(256),Rand(256),Rand(256) DrawRect 200,200,400,200 GrabToPixmap_D3D9 pix ' pix = GrabPixmap( 0,0, GraphicsWidth(),GraphicsHeight()) SetColor 255,255,255 DrawText FPS(), 0,0 Flip Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End Function FPS:Int() Const UPDATE:Float = 0.5 Global count:Int, lastcount:Int, lastupdate:Int If (MilliSecs() - lastupdate) > Int(UPDATE * 1000.0) lastcount = Float(count / UPDATE) count = 1 lastupdate = MilliSecs() Else count :+ 1 EndIf Return lastcount EndFunction GL Example: SuperStrict Import "GrabToPixmap.bmx" SetGraphicsDriver GLMax2DDriver() InitGrabToPixmap_GL Graphics(800,600) Local pix:TPixmap = CreatePixmap( GraphicsWidth(), GraphicsHeight(), PF_RGBA8888) Local img:TImage Local angle:Float SetBlend ALPHABLEND Repeat img = LoadImage(pix) SetImageHandle img, 400,300 angle :+ 1 If angle >= 360 Then angle = 0 SetRotation Sin(angle) * Cos(angle) * 3 SetColor 255,255,255 DrawImage img, 400,300 SetRotation 0 SetColor Rand(256),Rand(256),Rand(256) DrawRect 200,200,400,200 GrabToPixmap_GL pix ' pix = GrabPixmap( 0,0, GraphicsWidth(),GraphicsHeight()) SetColor 255,255,255 DrawText FPS(), 0,0 Flip Cls Until KeyHit(KEY_ESCAPE) Or AppTerminate() End Function FPS:Int() Const UPDATE:Float = 0.5 Global count:Int, lastcount:Int, lastupdate:Int If (MilliSecs() - lastupdate) > Int(UPDATE * 1000.0) lastcount = Float(count / UPDATE) count = 1 lastupdate = MilliSecs() Else count :+ 1 EndIf Return lastcount EndFunction

grable (Posted February) [#2]

Hmm, maybe i should have tested this before posting. But on Windows 10 i dont notice any difference between GrabPixmap and GrabToPixmap... EDIT: Made GrabToPixmap_D3D9 use an offscreen surface, makes it faster than GrabPixmap on windows 7.

gpete (Posted February) [#3]

Grable , what is this for? what I am looking for is a method to read the red value of an image file to generate a color map for a blitz3d terrain. I have someone else's example of a terrain colorer. Is that what you are working on?

grable (Posted February) [#4]

Its a GrabPixmap replacement. I thought it would be faster by not allocating anything, but i guess i was wrong :p Still, one nice thing about it is that it copies into an already existing pixmap, for what thats worth. read the red value of an image file You can do that with TPixmap.

grable (Posted February) [#5]

Fixed bug in GrabToPixmap_D3D9 not respecting x,y coords.