PureGDK vs DarkBasic Pro Speed - GameCreators Forum

Author

Message

slyvnr

14

Years of Service

User Offline

Joined: 2nd Nov 2009

Location: Texas

Posted: 18th Jun 2010 04:10

Link

I have both DarkBasic Pro and PureBasic.

I purchased the PureGDK so that I could do development in PureBasic as I am more comfortable with it.

I have converted the DarkBasic Quickstart Tutorial #6 - Huge Dungeons and have found the following to be true.

When running in Darkbasic I get around 1200-1400 fps on my system.

When running in PureBasic with PureGDK I get 20-25 fps (both 32 bit and 64 bit versions of PureBasic)

System is a Intel Core i7 CPU 860 running at 2.80GHz, 8gb Memory, Dual GTX 260 SLI-Linked nVidia graphics card, 1Tb System drive and 2Tb Raid 0 Data Drive.

Any ideas why there would be such a large performance difference between straight DarkBasic Pro and PureBasic with the PureGDK?

Thanks

Slyvnr

Slyvnr

Back to top

Profile PM Website

Sepnon

14

Years of Service

User Offline

Joined: 7th Feb 2010

Location: Brazil

Posted: 19th Jun 2010 00:00 Edited at: 19th Jun 2010 00:00

Link

i think it might be something wrong with the code...?
post it

Back to top

Profile PM Email

slyvnr

14

Years of Service

User Offline

Joined: 2nd Nov 2009

Location: Texas

Posted: 19th Jun 2010 01:59 Edited at: 19th Jun 2010 04:35

Link

Here is the code.

It is basically the Quickstart 6 code ported directly to PureGDK. I add a few items but not much. You will need to download the Quickstart files for Darkbasic to get the media files.

mazesize=100
Dim maze$(mazesize,mazesize)

Procedure LoadMaze(filename$)
     Shared maze$()
     OpenFile(1,filename$)
     line$=ReadString(1) ; read the Command Line data (my custom maze generator)
     mazesize=Val(Mid(line$,FindString(line$,"/Y:",0)+3,FindString(line$," ",FindString(line$,"/Y:",0)+3))) ; (get actual mazesize for < 100,100)
     For y = 0 To mazesize
          line$=ReadString(1)
          For x = 0 To mazesize
               maze$(y,x)=Mid(line$,x,1)
                If maze$(y,x)=" "
                    maze$(y,x)="."
                EndIf
          Next x
     Next y
     CloseFile(1)
     if mazesize<100
      for y = mazesize+1 to 100
        for x = mazesize+1 to 100
          maze$(y,x)="."
        next x
      next y
    endif
EndProcedure

Procedure SetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure

;SetResolution(800,600,32) 
Delay(30)
;/ Initialize PureBasic desktop library
ExamineDesktops()

;/ Show the PureGDK render window 
OpenWindow(0,100,100,800,600,"DarkBasic Professional - PureGDK", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered) 
hDBWnd=OpenDBWnd(WindowID(0),0,0,800,600) 
MoveWindow_(hDBWnd,0,0,DesktopWidth(0),DesktopHeight(0),1) 
;/ Set the window to the to the top of the z-order 
dbSetWindowSize(800,600)

dbSyncRate(0)
dbHideMouse()
backcolor=dbRGB(0,0,0)
dbColorBackdrop(backcolor)
dbCLSFill(backcolor)

maxcubes=16
cubesize=200
collisionsize=Int(cubesize/10)
speed.f=0.20
angle.f=0.0

dbFogOn()
dbFogColor(backcolor,0)
dbFogDistance(Int(maxcubes)*cubesize)
dbSetCameraRange(1,Int(maxcubes)*cubesize)
dbSetTextSize(14)
;dbCLSfill(backcolor)

currdir$=GetCurrentDirectory()
mdir$=currdir$+"media\"
LoadMaze("level_0.maze")
dbAutoCamOff()

;---------------------------------------
; Load Textures
;---------------------------------------
dbLoadImage(mdir$+"/wall2.jpg",1,0)
dbLoadImage(mdir$+"/ground.jpg",2,0)
dbLoadImage(mdir$+"/wall.jpg",3,0)
dbLoadImage(mdir$+"/wall_m_37.jpg",4,0)
dbLoadImage(mdir$+"/ground.jpg",5,0)
dbLoadImage(mdir$+"/Compass2.png",7)
dbLoadImage(mdir$+"/Arrow.png",8)

;---------------------
; Compass
;---------------------
dbMakeObjectPlain(50000,10.0,10.0,1)
dbTextureObject(50000,7)
dbSetObjectTransparency(50000,#GDK_Basic3D_DrawFirstWithAlpha)
;dbSetObjectToCameraOrientation(50000)
dbMakeObjectPlain(50001,10.0,10.0,1)
dbTextureObject(50001,8)
dbSetObjectTransparency(50001,#GDK_Basic3D_DrawFirstWithAlpha)

dbShowObject(50000)
dbPositionObject(50000,50,37,70)
dbLockObjectOn(50000)
dbShowObject(50001)
dbPositionObject(50001,50,37,70)
dbLockObjectOn(50001)

;---------------------------------------
; Define walls, floors and ceilings
;---------------------------------------
For i = 0 To (maxcubes*maxcubes)
     ; walls
     dbMakeObjectCube(100+i,cubesize)
     dbTextureObject(100+i,1)
     ; floors
     dbMakeObjectPlain(10000+i,cubesize,cubesize)
     dbRotateObject(10000+i,90,0,0)
     dbTextureObject(10000+i,2)
     ; ceiling
     dbMakeObjectPlain(20000+i,cubesize,cubesize)
     dbRotateObject(20000+i,270,0,0)
     dbTextureObject(20000+i,3)
Next i

;-------------------
; mark up and down "staircase" boxes
;-------------------
dbMakeObjectBox(95000,Int(cubesize/3),Int(cubesize/4),Int(cubesize/3))
dbTextureObject(95000,4)

dbSetAmbientLight(30)
dbMakeLight(1)
dbMakeLight(2)
dbSetPointLight(1,0,0,0)
dbSetSpotLight(2,45,90)
dbColorLight(2,dbRGB(252,216,141))
dbColorLight(1,dbRGB(236,182,100))
dbColorLight(0,dbRGB(0,0,0))

For x = 1 To mazesize
     For z = 1 To mazesize
          If maze$(x,z)="U"
               upx=x
               upy=z
               curr_x=upx*cubesize
               curr_z=upy*cubesize
          EndIf
          If maze$(x,z)="D"
               endx=x
               endy=z
               ending_x=endx*cubesize
               ending_z=endy*cubesize
          EndIf
    Next z
Next x

dbPositionCamera(curr_x,0,curr_z)

oldpostionx=dbCameraPositionX()
oldpostionz=dbCameraPositionZ()
ry.f=45.0

dbCLSFill(backcolor)

Repeat 
     
     ;-------------------------------------
     ; added some basic location information
     ; make it easier to move around and know 
     ; where you are at
     ;--------------------------------------
     kevx=Int(dbCameraPositionX()/cubesize)
     kevz=Int(dbCameraPositionZ()/cubesize)
     kevy=Int(dbCameraPositionY()/cubesize)
     
     dbText(5,30,"X =")
     dbText(40,30,Str(kevx))
     dbText(85,30,"Y = ")
     dbText(120,30,Str(kevz))
     dbText(5,40,"Exit location")
     dbText(5,50,"DX = ")
     dbText(40,50,Str(endx))
     dbText(85,50,"DY = ")
     dbText(120,50,Str(endy))
          
     ;----------------------------
     ; added some speed adjustment keys
     ; Keypad + speeds up movement
     ; Keypad - slows down movement
     ; Keypad 5 returns speed to "normal"
     ;----------------------------
     If dbKeyState(#VK_ADD)
          speed.f=speed.f+0.001
     EndIf
     If dbKeyState(#VK_SUBTRACT)
          speed.f=speed.f-0.001
     EndIf
     If  dbKeyState(#VK_NUMPAD5)
          speed.f=0.1
     EndIf
     ;-------------------
     ; keep speed within a 
     ; standard range (not to slow not to fast)
     ;-------------------
     If speed.f<=0.0 
          speed.f=0.001
     EndIf
     If speed.f>0.5
          speed.f=0.5
     EndIf
     
     ; forward movement
     If dbMouseClick()=1
          dbMoveCamera(maxcubes*speed)
     EndIf
     ; backward movement
     If dbMouseClick()=2
          dbMoveCamera(maxcubes*-1*speed)
     EndIf
     
     rx.f=dbWrapValue(rx.f+dbMouseMoveX())
     dir_x.f=rx.f*-1
     dbRotateCamera(0.0,rx.f,0.0)
     
     ; spin compass arrow based on direction faced
     dbRotateObject(50001,0,0,dir_x.f+270)
     
     tx=dbCameraPositionX()
     tz=dbCameraPositionZ()
     
     curr_x=Int(tx/cubesize)-Int(maxcubes/2)
     curr_z=Int(tz/cubesize)-Int(maxcubes/2)
     
     zzz=0
     For zz=1 To maxcubes
          For xx=1 To maxcubes
          
               zzz=zzz+1
               curposx=Int(curr_x)+xx
               curposz=Int(curr_z)+zz
               If curposx<=0 
                    curposx=0
               EndIf
               If curposx>=mazesize
                    curposx=mazesize
               EndIf
               If curposz<=0
                    curposz=0
               EndIf
               If curposz>=mazesize
                    curposz=mazesize
               EndIf
               If maze$(Int(curposx),Int(curposz))="#" 
                    dbShowObject(100+zzz)
                    dbPositionObject(100+zzz,curposx*cubesize,0.0,curposz*cubesize)
            
                    ; collision detection
                    If maze$(Int(curposx),Int(curposz))="#"
                         If tx>=((curposx*cubesize)-(cubesize/2)-collisionsize) And tx<=((curposx*cubesize)+(cubesize/2)+collisionsize) And tz>=((curposz*cubesize)-(cubesize/2)-collisionsize) And tz<=((curposz*cubesize)+(cubesize/2)+collisionsize)
                              dbPositionCamera(oldpositionx,dbCameraPositionY(),oldpositionz)
                             oldpositionx=dbCameraPositionX()
                              oldpositionz=dbCameraPositionZ()
                         EndIf
                    EndIf
               Else
                    dbHideObject(100+zzz)
               EndIf
               
               ; install floor & ceiling
               If maze$(Int(curposx),Int(curposz))=":" Or maze$(Int(curposx),Int(curposz))="S" Or maze$(Int(curposx),Int(curposz))="T" Or maze$(Int(curposx),Int(curposz))="D" Or maze$(Int(curposx),Int(curposz))="U"
                    If maze$(Int(curposx),Int(curposz))="D" Or maze$(Int(curposx),Int(curposz))="U"
                         dbShowObject(95000)
                         dbPositionObject(95000,curposx*cubesize,0.0,curposz*cubesize)
                         dbShowObject(10000+zzz)
                         dbPositionObject(10000+zzz,curposx*cubesize,(cubesize/2)*(-1),curposz*cubesize)
                         dbShowObject(20000+zzz)
                         dbPositionObject(20000+zzz,curposx*cubesize,(cubesize/2),curposz*cubesize)
                    Else
                         dbShowObject(10000+zzz)
                         dbPositionObject(10000+zzz,curposx*cubesize,(cubesize/2)*(-1),curposz*cubesize)
                         dbShowObject(20000+zzz)
                         dbPositionObject(20000+zzz,curposx*cubesize,(cubesize/2),curposz*cubesize)
                    EndIf
               Else
                    dbHideObject(10000+zzz)
                    dbHideObject(20000+zzz)
               EndIf
               
               
          Next xx
     Next zz
  
  oldpositionx=dbCameraPositionX()
  oldpositionz=dbCameraPositionZ()
  
  dbPositionLight(1,dbCameraPositionX(),dbCameraPositionY(),dbCameraPositionZ())
  dbPositionLight(2,dbCameraPositionX(),dbCameraPositionY(),dbCameraPositionZ())
  dbColorLight(1,dbRGB(200+Int(Random(50)-25),120,60))
  dbRotateLight(2,dbCameraAngleX(),dbCameraAngleY(),dbCameraAngleZ())
  
  ; show Frames Per Second
  dbText(10,100,Str(dbScreenFPS())) 
  
  dbSync() 
  
  event=WindowEvent()
  If dbKeyState(#VK_ESCAPE) Or event=#PB_Event_CloseWindow
     Quit=1
  EndIf
Until Quit

End

+ Code Snippet

mazesize=100
Dim maze$(mazesize,mazesize)

Procedure LoadMaze(filename$)
     Shared maze$()
     OpenFile(1,filename$)
     line$=ReadString(1) ; read the Command Line data (my custom maze generator)
     mazesize=Val(Mid(line$,FindString(line$,"/Y:",0)+3,FindString(line$," ",FindString(line$,"/Y:",0)+3))) ; (get actual mazesize for < 100,100)
     For y = 0 To mazesize
          line$=ReadString(1)
          For x = 0 To mazesize
               maze$(y,x)=Mid(line$,x,1)
                If maze$(y,x)=" "
                    maze$(y,x)="."
                EndIf
          Next x
     Next y
     CloseFile(1)
     if mazesize<100
      for y = mazesize+1 to 100
        for x = mazesize+1 to 100
          maze$(y,x)="."
        next x
      next y
    endif
EndProcedure

Procedure SetResolution(Width, Height, Depth, Flag=#CDS_FULLSCREEN) 
  Protected Result,dmScreenSettings.DEVMODE 
  dmScreenSettings\dmSize=SizeOf(DEVMODE)
  dmScreenSettings\dmPelsWidth=Width 
  dmScreenSettings\dmPelsHeight=Height 
  dmScreenSettings\dmBitsPerPel=Depth 
  dmScreenSettings\dmFields=#DM_PELSWIDTH|#DM_PELSHEIGHT|#DM_BITSPERPEL 
  If ChangeDisplaySettings_(@dmScreenSettings, Flag)=#DISP_CHANGE_SUCCESSFUL 
    Result=#True 
  EndIf 
  ProcedureReturn Result 
EndProcedure 

;SetResolution(800,600,32) 
Delay(30)
;/ Initialize PureBasic desktop library
ExamineDesktops() 

;/ Show the PureGDK render window 
OpenWindow(0,100,100,800,600,"DarkBasic Professional - PureGDK", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered) 
hDBWnd=OpenDBWnd(WindowID(0),0,0,800,600) 
MoveWindow_(hDBWnd,0,0,DesktopWidth(0),DesktopHeight(0),1) 
;/ Set the window to the to the top of the z-order 
dbSetWindowSize(800,600)

dbSyncRate(0)
dbHideMouse()
backcolor=dbRGB(0,0,0)
dbColorBackdrop(backcolor)
dbCLSFill(backcolor)

maxcubes=16
cubesize=200
collisionsize=Int(cubesize/10)
speed.f=0.20
angle.f=0.0

dbFogOn()
dbFogColor(backcolor,0)
dbFogDistance(Int(maxcubes)*cubesize)
dbSetCameraRange(1,Int(maxcubes)*cubesize)
dbSetTextSize(14)
;dbCLSfill(backcolor)

currdir$=GetCurrentDirectory()
mdir$=currdir$+"media\"
LoadMaze("level_0.maze")
dbAutoCamOff()

;---------------------------------------
; Load Textures
;---------------------------------------
dbLoadImage(mdir$+"/wall2.jpg",1,0)
dbLoadImage(mdir$+"/ground.jpg",2,0)
dbLoadImage(mdir$+"/wall.jpg",3,0)
dbLoadImage(mdir$+"/wall_m_37.jpg",4,0)
dbLoadImage(mdir$+"/ground.jpg",5,0)
dbLoadImage(mdir$+"/Compass2.png",7)
dbLoadImage(mdir$+"/Arrow.png",8)

;---------------------
; Compass
;---------------------
dbMakeObjectPlain(50000,10.0,10.0,1)
dbTextureObject(50000,7)
dbSetObjectTransparency(50000,#GDK_Basic3D_DrawFirstWithAlpha)
;dbSetObjectToCameraOrientation(50000)
dbMakeObjectPlain(50001,10.0,10.0,1)
dbTextureObject(50001,8)
dbSetObjectTransparency(50001,#GDK_Basic3D_DrawFirstWithAlpha)

dbShowObject(50000)
dbPositionObject(50000,50,37,70)
dbLockObjectOn(50000)
dbShowObject(50001)
dbPositionObject(50001,50,37,70)
dbLockObjectOn(50001)

;---------------------------------------
; Define walls, floors and ceilings
;---------------------------------------
For i = 0 To (maxcubes*maxcubes)
     ; walls
     dbMakeObjectCube(100+i,cubesize)
     dbTextureObject(100+i,1)
     ; floors
     dbMakeObjectPlain(10000+i,cubesize,cubesize)
     dbRotateObject(10000+i,90,0,0)
     dbTextureObject(10000+i,2)
     ; ceiling
     dbMakeObjectPlain(20000+i,cubesize,cubesize)
     dbRotateObject(20000+i,270,0,0)
     dbTextureObject(20000+i,3)
Next i

;-------------------
; mark up and down "staircase" boxes
;-------------------
dbMakeObjectBox(95000,Int(cubesize/3),Int(cubesize/4),Int(cubesize/3))
dbTextureObject(95000,4)

dbSetAmbientLight(30)
dbMakeLight(1)
dbMakeLight(2)
dbSetPointLight(1,0,0,0)
dbSetSpotLight(2,45,90)
dbColorLight(2,dbRGB(252,216,141))
dbColorLight(1,dbRGB(236,182,100))
dbColorLight(0,dbRGB(0,0,0))

For x = 1 To mazesize
     For z = 1 To mazesize
          If maze$(x,z)="U"
               upx=x
               upy=z
               curr_x=upx*cubesize
               curr_z=upy*cubesize
          EndIf
          If maze$(x,z)="D"
               endx=x
               endy=z
               ending_x=endx*cubesize
               ending_z=endy*cubesize
          EndIf
    Next z
Next x

dbPositionCamera(curr_x,0,curr_z)

oldpostionx=dbCameraPositionX()
oldpostionz=dbCameraPositionZ()
ry.f=45.0

dbCLSFill(backcolor)

Repeat 
     
     ;-------------------------------------
     ; added some basic location information
     ; make it easier to move around and know 
     ; where you are at
     ;--------------------------------------
     kevx=Int(dbCameraPositionX()/cubesize)
     kevz=Int(dbCameraPositionZ()/cubesize)
     kevy=Int(dbCameraPositionY()/cubesize)
     
     dbText(5,30,"X =")
     dbText(40,30,Str(kevx))
     dbText(85,30,"Y = ")
     dbText(120,30,Str(kevz))
     dbText(5,40,"Exit location")
     dbText(5,50,"DX = ")
     dbText(40,50,Str(endx))
     dbText(85,50,"DY = ")
     dbText(120,50,Str(endy))
          
     ;----------------------------
     ; added some speed adjustment keys
     ; Keypad + speeds up movement
     ; Keypad - slows down movement
     ; Keypad 5 returns speed to "normal"
     ;----------------------------
     If dbKeyState(#VK_ADD)
          speed.f=speed.f+0.001
     EndIf
     If dbKeyState(#VK_SUBTRACT)
          speed.f=speed.f-0.001
     EndIf
     If  dbKeyState(#VK_NUMPAD5)
          speed.f=0.1
     EndIf
     ;-------------------
     ; keep speed within a 
     ; standard range (not to slow not to fast)
     ;-------------------
     If speed.f<=0.0 
          speed.f=0.001
     EndIf
     If speed.f>0.5
          speed.f=0.5
     EndIf
     
     ; forward movement
     If dbMouseClick()=1
          dbMoveCamera(maxcubes*speed)
     EndIf
     ; backward movement
     If dbMouseClick()=2
          dbMoveCamera(maxcubes*-1*speed)
     EndIf
     
     rx.f=dbWrapValue(rx.f+dbMouseMoveX())
     dir_x.f=rx.f*-1
     dbRotateCamera(0.0,rx.f,0.0)
     
     ; spin compass arrow based on direction faced
     dbRotateObject(50001,0,0,dir_x.f+270)
     
     tx=dbCameraPositionX()
     tz=dbCameraPositionZ()
     
     curr_x=Int(tx/cubesize)-Int(maxcubes/2)
     curr_z=Int(tz/cubesize)-Int(maxcubes/2)
     
     zzz=0
     For zz=1 To maxcubes
          For xx=1 To maxcubes
          
               zzz=zzz+1
               curposx=Int(curr_x)+xx
               curposz=Int(curr_z)+zz
               If curposx<=0 
                    curposx=0
               EndIf
               If curposx>=mazesize
                    curposx=mazesize
               EndIf
               If curposz<=0
                    curposz=0
               EndIf
               If curposz>=mazesize
                    curposz=mazesize
               EndIf
               If maze$(Int(curposx),Int(curposz))="#" 
                    dbShowObject(100+zzz)
                    dbPositionObject(100+zzz,curposx*cubesize,0.0,curposz*cubesize)
            
                    ; collision detection
                    If maze$(Int(curposx),Int(curposz))="#"
                         If tx>=((curposx*cubesize)-(cubesize/2)-collisionsize) And tx<=((curposx*cubesize)+(cubesize/2)+collisionsize) And tz>=((curposz*cubesize)-(cubesize/2)-collisionsize) And tz<=((curposz*cubesize)+(cubesize/2)+collisionsize)
                              dbPositionCamera(oldpositionx,dbCameraPositionY(),oldpositionz)
                             oldpositionx=dbCameraPositionX()
                              oldpositionz=dbCameraPositionZ()
                         EndIf
                    EndIf
               Else
                    dbHideObject(100+zzz)
               EndIf
               
               ; install floor & ceiling
               If maze$(Int(curposx),Int(curposz))=":" Or maze$(Int(curposx),Int(curposz))="S" Or maze$(Int(curposx),Int(curposz))="T" Or maze$(Int(curposx),Int(curposz))="D" Or maze$(Int(curposx),Int(curposz))="U"
                    If maze$(Int(curposx),Int(curposz))="D" Or maze$(Int(curposx),Int(curposz))="U"
                         dbShowObject(95000)
                         dbPositionObject(95000,curposx*cubesize,0.0,curposz*cubesize)
                         dbShowObject(10000+zzz)
                         dbPositionObject(10000+zzz,curposx*cubesize,(cubesize/2)*(-1),curposz*cubesize)
                         dbShowObject(20000+zzz)
                         dbPositionObject(20000+zzz,curposx*cubesize,(cubesize/2),curposz*cubesize)
                    Else
                         dbShowObject(10000+zzz)
                         dbPositionObject(10000+zzz,curposx*cubesize,(cubesize/2)*(-1),curposz*cubesize)
                         dbShowObject(20000+zzz)
                         dbPositionObject(20000+zzz,curposx*cubesize,(cubesize/2),curposz*cubesize)
                    EndIf
               Else
                    dbHideObject(10000+zzz)
                    dbHideObject(20000+zzz)
               EndIf
               
               
          Next xx
     Next zz
  
  oldpositionx=dbCameraPositionX()
  oldpositionz=dbCameraPositionZ()
  
  dbPositionLight(1,dbCameraPositionX(),dbCameraPositionY(),dbCameraPositionZ())
  dbPositionLight(2,dbCameraPositionX(),dbCameraPositionY(),dbCameraPositionZ())
  dbColorLight(1,dbRGB(200+Int(Random(50)-25),120,60))
  dbRotateLight(2,dbCameraAngleX(),dbCameraAngleY(),dbCameraAngleZ())
  
  ; show Frames Per Second
  dbText(10,100,Str(dbScreenFPS())) 
  
  dbSync() 
  
  event=WindowEvent()
  If dbKeyState(#VK_ESCAPE) Or event=#PB_Event_CloseWindow
     Quit=1
  EndIf
Until Quit

End

Slyvnr

Back to top

Profile PM Website

Mistrel

Retired Moderator

18

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 25th Jun 2010 03:45

Link

Turn the debugger off.

Back to top

Profile PM Email Website

Sepnon

14

Years of Service

User Offline

Joined: 7th Feb 2010

Location: Brazil

Posted: 26th Jun 2010 00:32

Link

lol

hey, sorry, i didnt see your reply
i think there's a bug on the site

Back to top

Profile PM Email

AndyUK

21

Years of Service

User Offline

Joined: 2nd Apr 2003

Location: United Kingdom

Posted: 29th Jun 2010 20:50

Link

lol@debugger

Back to top

Profile PM Email

slyvnr

14

Years of Service

User Offline

Joined: 2nd Nov 2009

Location: Texas

Posted: 6th Jul 2010 18:20

Link

OK here is an updated based on the above.

Turned Debugger off in Purebasic under Debugger->Use Debugger checkmark is gone (off).

Also went into Compiler->Compiler Options->Compile/Run and turned it off there also all debugger option checkboxes are unchecked.

When I run within Purebasic I still get 25-30fps
When I compile standalone Purebasic I get 28-32fps

When I run "original" code in Darkbasic Pro I get 1200-1400fps
When I compile standalone Darkbasic I am getting 1400-1500fps

The fps rates are as reported using the dbScreenFPS() function in PureGDK and the SCREEN FPS () call in Darkbasic Pro.

Could the dbScreenFPS be returning a "scaled" number or maybe the Darkbasic is using wrong precision?

I think the 1200-1400fps under Darkbasic seems to be high. Although the image is flicker free and very very smooth.

I have also tried both on a slightly different system (AMD Athlon x2)

The Purebasic speed is the same @ 25-30fps while the Darkbasic Pro speeds dropped to 120-150fps on the slower system.

Really wondering if maybe the fps rate reported under Darkbasic is incorrect.

Not sure why the speed difference. There is a noticeable "flicker"/"delay" under the Purebasic version but not under the Darkbasic Version.

Slyvnr

Back to top

Profile PM Website

Sorry your browser is not supported!

PureGDK / PureGDK vs DarkBasic Pro Speed