Sprites seem very slow in 1.104

Archives Forums/Blitz3D Bug Reports/Sprites seem very slow in 1.104

Vorderman (Posted 2010) [#1]

I've just been testing program speeds to try and track down a slowdown issue, and it seems that the newer B3D updates are very slow when it comes to rendering sprites. I tried the following program on a clean install of B3D v1.64 and it hits the max 60fps all the time. On B3D 1.104 it just barely manages 7 to 8fps. The PC is an Intel Core2Quad Q9550 @ 2.83ghz, Vista Enterprise 64bit SP2, 9800GTX driver version is listed as 8.15.11.8585. I've also noticed similar slowdown on my 32bit WinXP SP2 machine with a Radeon 4850. ;-------------- INITIALISATION --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- AppTitle "Basic Framework" Graphics3D GFX_width, GFX_height , 32 , GFX_fullscreen SetBuffer BackBuffer() Color 255,255,255 SeedRnd(MilliSecs()) ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- CONSTANTS --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Const gameFPS = 60 ;frame limiter Const GFX_width = 1280 Const GFX_height = 720 Const GFX_fullscreen = 2 ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- GLOBALS --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Global game.TYPE_game ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- TYPES --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Type TYPE_game Field CAM_camera1 Field CAM_orientation#[3] Field CAM_position#[3] Field LIGHT_light1 Field LIGHT_ambient[3] Field MESH_level End Type ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- E N T I T I E S ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- game = New TYPE_game game\CAM_position#[1] = 0.0 game\CAM_position#[2] = 5.0 game\CAM_position#[3] = -20.0 game\CAM_orientation#[1] = 15.0 game\CAM_orientation#[2] = 0.0 game\CAM_orientation#[3] = 0.0 game\LIGHT_ambient[1] = 30 game\LIGHT_ambient[2] = 40 game\LIGHT_ambient[3] = 50 ;camera game\CAM_camera1 = CreateCamera() CameraViewport game\CAM_camera1 , 0 , 0 , GraphicsWidth() , GraphicsHeight() PositionEntity game\CAM_camera1 , game\CAM_position#[1] , game\CAM_position#[2] , game\CAM_position#[3] CameraClsColor game\CAM_camera1 , 120 , 120 , 160 CameraZoom game\CAM_camera1 , 1.6 RotateEntity game\CAM_camera1 , game\CAM_orientation#[1] , game\CAM_orientation#[2] , game\CAM_orientation#[3] ;lighting AmbientLight game\LIGHT_ambient[1] , game\LIGHT_ambient[2] , game\LIGHT_ambient[3] game\LIGHT_light1 = CreateLight() RotateEntity game\LIGHT_light1 , 60 , 20 , 0 ;game\MESH_level = LoadMesh("mesh\seg1.b3d") ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For a=1 To 1000 ; sprite = CreateCube() sprite = CreateSprite() rad# = 1.0 PositionEntity sprite , Rnd#(-rad#,rad#) , Rnd#(-rad#,rad#) , Rnd#(-rad#,rad#) EntityColor sprite , 64,64,64 Next ;-------------- PRE-GAME SETUP ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- framePeriod = 1000 / gameFPS frameTime = MilliSecs() - framePeriod oldtime = MilliSecs() MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 ;-------------- M A I N L O O P ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- While Not KeyHit(1) ;frame limiting Repeat frameElapsed = MilliSecs() - frameTime Until frameElapsed frameTicks = frameElapsed / framePeriod frameTween# = Float ( frameElapsed Mod framePeriod ) / Float# ( framePeriod ) ;game logic loop For frameLimit = 1 To frameTicks frameTime = frameTime + framePeriod If frameLimit = frameTicks Then CaptureWorld ; G A M E L O G I C L O O P H E R E FUNC_Camera_Control() ;update game world logic UpdateWorld Next ;render RenderWorld frameTween ;calculate FPS If ( frameTicks > 0 ) FPS = gameFPS / frameTicks Else FPS = gameFPS EndIf ;on-screen FPS counter Text GraphicsWidth() - 55 , 10 , "FPS:" + FPS ;flip buffers VWait : Flip False Wend End ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- FUNCTION ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;Function - Control the camera Function FUNC_Camera_Control() ;centre mouse on button 2 If MouseHit( 2 ) MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 ;mouse panning of camera If MouseDown( 2 ) game\CAM_orientation#[1] = game\CAM_orientation#[1] - ( Float#( MouseYSpeed() ) / 10.0) game\CAM_orientation#[2] = game\CAM_orientation#[2] - ( Float#( MouseXSpeed() ) / 10.0) RotateEntity game\CAM_camera1 , game\CAM_orientation#[1] , game\CAM_orientation#[2] , game\CAM_orientation#[3] MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 EndIf ;WASD movement If KeyDown( 17 ) MoveEntity game\CAM_camera1 , 0 , 0 , 0.1 If KeyDown( 31 ) MoveEntity game\CAM_camera1 , 0 , 0 , -0.1 If KeyDown( 30 ) MoveEntity game\CAM_camera1 , -0.1 , 0 , 0 If KeyDown( 32 ) MoveEntity game\CAM_camera1 , 0.1 , 0 , 0 End Function ;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

jfk EO-11110 (Posted 2010) [#2]

On my older XP laptop your sample runs with about 20 fps with both, V1.98 and V1.104. you may however try the following code that is using a substitute for sprites, based on quads. I get only about 15 fps with it, but that's better than 3 fps... And maybe you can manage to use Copyentity for similar sprites, this would make it much faster I think. Any other single surface system would also be interesting. ;-------------- INITIALISATION --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- AppTitle "Basic Framework" Graphics3D GFX_width, GFX_height , 32 , GFX_fullscreen SetBuffer BackBuffer() Color 255,255,255 SeedRnd(MilliSecs()) ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ; init sprite substitute ---------------------- Global ps_c=0, ps_max=10000 Dim pseudo_sprites(ps_max),ps_vmode(ps_max) ; end of init sprite substitute -------------- ;-------------- CONSTANTS --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Const gameFPS = 60 ;frame limiter Const GFX_width = 1280 Const GFX_height = 720 Const GFX_fullscreen = 2 ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- GLOBALS --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Global game.TYPE_game ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- TYPES --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Type TYPE_game Field CAM_camera1 Field CAM_orientation#[3] Field CAM_position#[3] Field LIGHT_light1 Field LIGHT_ambient[3] Field MESH_level End Type ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- E N T I T I E S ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- game = New TYPE_game game\CAM_position#[1] = 0.0 game\CAM_position#[2] = 5.0 game\CAM_position#[3] = -20.0 game\CAM_orientation#[1] = 15.0 game\CAM_orientation#[2] = 0.0 game\CAM_orientation#[3] = 0.0 game\LIGHT_ambient[1] = 30 game\LIGHT_ambient[2] = 40 game\LIGHT_ambient[3] = 50 ;camera game\CAM_camera1 = CreateCamera() CameraViewport game\CAM_camera1 , 0 , 0 , GraphicsWidth() , GraphicsHeight() PositionEntity game\CAM_camera1 , game\CAM_position#[1] , game\CAM_position#[2] , game\CAM_position#[3] CameraClsColor game\CAM_camera1 , 120 , 120 , 160 CameraZoom game\CAM_camera1 , 1.6 RotateEntity game\CAM_camera1 , game\CAM_orientation#[1] , game\CAM_orientation#[2] , game\CAM_orientation#[3] ;lighting AmbientLight game\LIGHT_ambient[1] , game\LIGHT_ambient[2] , game\LIGHT_ambient[3] game\LIGHT_light1 = CreateLight() RotateEntity game\LIGHT_light1 , 60 , 20 , 0 ;game\MESH_level = LoadMesh("mesh\seg1.b3d") ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- For a=1 To 1000 ; sprite = CreateCube() sprite = CreateSprite() rad# = 1.0 PositionEntity sprite , Rnd#(-rad#,rad#) , Rnd#(-rad#,rad#) , Rnd#(-rad#,rad#) EntityColor sprite , 64,64,64 Next ;-------------- PRE-GAME SETUP ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- framePeriod = 1000 / gameFPS frameTime = MilliSecs() - framePeriod oldtime = MilliSecs() MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 ;-------------- M A I N L O O P ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- While Not KeyHit(1) ;frame limiting Repeat frameElapsed = MilliSecs() - frameTime Until frameElapsed frameTicks = frameElapsed / framePeriod frameTween# = Float ( frameElapsed Mod framePeriod ) / Float# ( framePeriod ) ;game logic loop For frameLimit = 1 To frameTicks frameTime = frameTime + framePeriod If frameLimit = frameTicks Then CaptureWorld ; G A M E L O G I C L O O P H E R E FUNC_Camera_Control() ;update game world logic UpdateWorld Next UpdateSubstSprites(game\CAM_camera1) ; update Rotation of Subst Sprites ;render RenderWorld frameTween ;calculate FPS If ( frameTicks > 0 ) FPS = gameFPS / frameTicks Else FPS = gameFPS EndIf ;on-screen FPS counter Text GraphicsWidth() - 55 , 10 , "FPS:" + FPS ;flip buffers VWait : Flip False Wend End ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;-------------- FUNCTION ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ;Function - Control the camera Function FUNC_Camera_Control() ;centre mouse on button 2 If MouseHit( 2 ) MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 ;mouse panning of camera If MouseDown( 2 ) game\CAM_orientation#[1] = game\CAM_orientation#[1] - ( Float#( MouseYSpeed() ) / 10.0) game\CAM_orientation#[2] = game\CAM_orientation#[2] - ( Float#( MouseXSpeed() ) / 10.0) RotateEntity game\CAM_camera1 , game\CAM_orientation#[1] , game\CAM_orientation#[2] , game\CAM_orientation#[3] MoveMouse GraphicsWidth() / 2 , GraphicsHeight() / 2 EndIf ;WASD movement If KeyDown( 17 ) MoveEntity game\CAM_camera1 , 0 , 0 , 0.1 If KeyDown( 31 ) MoveEntity game\CAM_camera1 , 0 , 0 , -0.1 If KeyDown( 30 ) MoveEntity game\CAM_camera1 , -0.1 , 0 , 0 If KeyDown( 32 ) MoveEntity game\CAM_camera1 , 0.1 , 0 , 0 End Function ;--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ; Sprite Substitute Functions -------------------------------------------------------------------------------------------- Function UpdateSubstSprites(camera) Local i For i=0 To ps_c-1 If ps_vmode(i)=1 ; face to camera RotateEntity pseudo_sprites(i),EntityPitch(camera,1),EntityYaw(camera,1),EntityRoll(pseudo_sprites(i),1),1 EndIf ;If ps_vmode(i)=2 ; free! ;EndIf If ps_vmode(i)=3 RotateEntity pseudo_sprites(i),EntityPitch(camera,1),EntityYaw(camera,1),EntityRoll(pseudo_sprites(i),1),1 EndIf If ps_vmode(i)=4 RotateEntity pseudo_sprites(i),EntityPitch(pseudo_sprites(i),1),EntityYaw(camera,1),EntityRoll(camera,1),1 EndIf Next End Function Function CreateSprite(parent=0) Local quad quad=CreateQuad4Sprite() If parent<>0 Then EntityParent quad,parent PositionEntity quad,EntityX(parent,1),EntityY(parent,1),EntityZ(parent,1),1 Else PositionEntity quad,0,0,0,1 EndIf EntityColor quad,255,255,255 EntityFX quad,1 Or 16 pseudo_sprites(ps_c)= quad ps_vmode(ps_c)=1 If ps_c<ps_max Then ps_c=ps_c+1 Return quad End Function Function LoadSprite(texfil$, flags=0,parent=0) Local tex, quad If ((flags And 2)=2) And ((flags And 1)=0) Then flags=flags Or 1 ; prevent crash by alpha bug tex=LoadTexture(texfil$,flags) If tex=0 Then tex=CreateTexture(4,4,0) ; then again, lets be a bit error tolerant :) quad=CreateQuad4Sprite() EntityTexture quad,tex If parent<>0 Then EntityParent quad,parent PositionEntity quad,EntityX(parent,1),EntityY(parent,1),EntityZ(parent,1),1 Else PositionEntity quad,0,0,0,1 EndIf EntityFX quad,1 Or 16 pseudo_sprites(ps_c)= quad ps_vmode(ps_c)=1 If ps_c<ps_max Then ps_c=ps_c+1 Return quad End Function Function HandleSprite(ent,x#,y#) ; seems to work now, looks kind of hacked ... surf=GetSurface(ent,1) x=-x y=-y VertexCoords surf,0,-1+x#,1+y#,0 VertexCoords surf,1,1+x#,1+y#,0 VertexCoords surf,2,-1+x#,-1+y#,0 VertexCoords surf,3,1+x#,-1+y#,0 End Function Function RotateSprite(ent,a#) RotateEntity ent,EntityPitch(ent,0), EntityYaw(ent,0),a#,0 ; End Function Function ScaleSprite(ent,w#,h#) ScaleEntity ent,w#,h#,0.001 ; for some reason I cannot use zero for the depth, it hides the HUD sprite. End Function Function SpriteViewMode(ent, vmode) Local i For i=0 To ps_c-1 If pseudo_sprites(i)=ent ps_vmode(i)=vmode EndIf Next End Function Function CreateQuad4Sprite() Local mesh%,surf%,v1%,v2%,v3%,v4% mesh=CreateMesh() surf=CreateSurface(mesh) v1=AddVertex(surf,-1,1,0,0,0) v2=AddVertex(surf,1,1,0,1,0) v3=AddVertex(surf,-1,-1,0,0,1) v4=AddVertex(surf,1,-1,0,1,1) VertexColor surf,v1,255,255,255,1.0 VertexColor surf,v3,255,255,255,1.0 VertexColor surf,v2,255,255,255,1.0 VertexColor surf,v4,255,255,255,1.0 AddTriangle(surf,0,1,2) AddTriangle(surf,3,2,1) Return mesh End Function Function ReleaseSprite(ent) Local i,i2 For i=0 To ps_c-1 If pseudo_sprites(i)=ent For i2=i To ps_c-1 pseudo_sprites(i2)=pseudo_sprites(i2+1) ps_vmode(i2)=ps_vmode(i2+1) Next ps_c=ps_c-1 Exit EndIf Next End Function ; End of Sprite Substitute Functions --------- Note: before you FreeEntity such a Sprite you'd need to ReleaseSprite() it.