* NEW VERSION *
Just to give the various graphics drivers a good kicking.
Uses Rects, Ovals, Lines, Text, Image
I get these results (full screen)
Native > 1816 m/secs
OpenGL > 6645 m/secs **
DirectDraw > 851 m/secs
Winner = DirectDraw
** For some reason OpenGL flickers in full screen.
Buffer {Flip} problem?
Also, it appears to ignore Flip False (therefore waiting for the screen to sync). This gives poor results.
If I use Flip True then directdraw is tiny bit slower.
Just to give the various graphics drivers a good kicking.
Uses Rects, Ovals, Lines, Text, Image
; GFX Driver test for BlitzPlus v1.34 Const screenmode=1 ; 0=auto 1=full 2=win 3=scaled numdrivers=CountGfxDrivers() Dim tm(numdrivers) For drv=1 To numdrivers SetGfxDriver drv Graphics 640,480,0,screenmode img=CreateImage(96,96) : SetBuffer ImageBuffer(img) Color 255,0,0 For s=1 To 20 Step 5 : Oval s,s,96-s,96-s,0 : Next SetBuffer BackBuffer() : Cls Text 320,240,GfxDriverName(drv),1,1 Flip False : Delay 1500 t=MilliSecs() Gosub RunTest tm(drv)=MilliSecs()-t EndGraphics Next msg$="Test Results (in millisecs)"+Chr$(10)+Chr$(10) For drv=1 To numdrivers dname$=Left$(GfxDriverName(drv)+" ",10)+": " msg$=msg$+dname$+tm(drv)+Chr$(10) Next Notify msg$ End .RunTest drawmode=1 For d=1 To 10000 Color Rand(255),Rand(255),Rand(255) If d Mod 1000=0 Then drawmode=drawmode+1 If drawmode=6 Then drawmode=1 Select drawmode Case 1 : Text Rand(640),Rand(480),"Blitz GFX Driver Test" Case 2 : Rect Rand(640),Rand(480),Rand(10,40),Rand(10,40),1 Case 3 : Oval Rand(640),Rand(480),Rand(20,80),Rand(20,80),1 Case 4 : Line Rand(640),Rand(480),Rand(640),Rand(480) Case 5 : DrawImage img,Rand(640),Rand(480) End Select If d Mod 25=0 Flip False Next Return
I get these results (full screen)
Native > 1816 m/secs
OpenGL > 6645 m/secs **
DirectDraw > 851 m/secs
Winner = DirectDraw
** For some reason OpenGL flickers in full screen.
Buffer {Flip} problem?
Also, it appears to ignore Flip False (therefore waiting for the screen to sync). This gives poor results.
If I use Flip True then directdraw is tiny bit slower.