Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|468\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> slow?! Argh!!!
Sat, 07 Oct 2006, 10:43
ingenium1	I mean 5.000 polies and my computer slows down!!! here it is the code: Graphics3D 1024,768,32,1 SetBuffer BackBuffer() Type Fps_Counter Field FpsT% Field FpsCur% Field FpsRate% End Type Type tree Field what Field x# Field y# Field z# End Type Global x# Global y# Global cam = CreateCamera() PositionEntity cam,90,45,0 CameraClsColor cam,100,100,200 CameraRange cam,1,1000 CameraFogMode cam,1 CameraFogRange cam,1,1000 CameraFogColor cam,100,100,200 Global lux = CreateLight(1) PositionEntity lux,0,20,0 Global terrain = CreateTerrain(1024) PositionEntity terrain,0,0,0 tex = LoadTexture ("where/Ground.bmp") ScaleTexture tex,55,55 EntityTexture terrain,tex Global tex1 = LoadTexture("where/water.bmp",1+2+8) ScaleTexture tex1,155,155 Global water = CreateTerrain(1024) EntityBlend water,3 EntityShininess water,1 EntityTexture water,tex1 ScaleEntity water,1,1,1 PositionEntity water,0,3,0 EntityAlpha water,0.5 EntityFX water,2 For c = 0 To 23 tree1.tree = New tree tree1\cosa = LoadMesh("where/tree/tree"+Rand(1,2)+".b3d") tree1\x = Rand(200,1000) tree1\y = 0 tree1\z = Rand(200,1000) EntityFX tree1\what,1 ScaleEntity tree1\cosa,0.1,0.1,0.1 PositionEntity tree1\what,tree1\x,tree1\y,tree1\z Next While Not KeyDown(1) If KeyDown(203) Then x = x + 2 If KeyDown(205) Then x = x - 2 If KeyDown(16) Then MoveEntity cam,0,0,2 If KeyDown(30) Then MoveEntity cam,0,0,-2 RotateEntity cam,30,x,0 PositionEntity cam,EntityX(cam),45,EntityZ(cam) fps = FPS_GetFps(MilliSecs()) RenderWorld() UpdateWorld() Text 0,0,fps Text 0,10,TrisRendered() Flip Wend Function FPS_GetFps(Time%) fps.FPS_Counter=Last FPS_Counter If fps=Null fps.FPS_Counter=New FPS_Counter If time>fps\FpsT fps\FpsT=Time+1000 fps\FpsRate=fps\FpsCur fps\FpsCur=0 Else fps\FpsCur=fps\FpsCur+1 EndIf Return fps\FpsRate End Function End --v -=-=- Roger Federer is go(o)d. But he is not alone. Just relax... sometimes there's no need to argue.
Sat, 07 Oct 2006, 12:11
HoboBen	How big are your textures? Could you experiment with no/smaller textures, and see if this makes more difference than the ammount of pollies? -=-=- blog \| work \| code \| more code