BlitzODE level changer

Blitz3D Forums/Blitz3D Beginners Area/BlitzODE level changer

fox95871 (Posted 2009) [#1]

Hi, this is for anyone good at BlitzODE. How can I free old TriMeshes? I already tried ODE_dGeomTriMeshDataDestroy and some other desperate attempts like destroying and recreating the physics world whenever LevelChanger is used, but nothing seems to work. The TriMeshes just keep piling up. By the way, I don't recommend using LevelChanger more than 3 times at this point or you might have to manually restart your computer. ;setup Graphics3D 640,480,32,1 SetBuffer BackBuffer() AntiAlias 0 Dither 0 WireFrame 0 AutoMidHandle 0 blitz=LoadFont("blitz",10,1,0,0) SetFont blitz ClearTextureFilters SeedRnd MilliSecs() Const fps=30 period=1000/fps time=MilliSecs()-period elapsed%=0 ticks%=0 tween#=0 rt%=0 Color 100,100,100 Global wireframestate%=0 ;initialize ode Global space%=ODE_dWorldCreate(0) ;set contact parameters ODE_dSetContactMode(dContactBounce) ODE_dSetMU(100);friction ODE_dSetBOUNCE(1.1) ;ode variables ;/include Const dParamLoStop %=0 Const dParamHiStop %=1 Const dParamVel %=2 Const dParamVel2 %=258 Const dParamFMax %=3 Const dParamFMax2 %=259 Const dParamFudgeFactor %=4 Const dParamBounce %=5 Const dParamCFM %=6 Const dParamStopERP %=7 Const dParamStopCFM %=8 Const dParamSuspensionERP %=9 Const dParamSuspensionCFM %=10 Const dContactMu2 %=$001 Const dContactFDir1 %=$002 Const dContactBounce %=$004 Const dContactSoftERP %=$008 Const dContactSoftCFM %=$010 Const dContactMotion1 %=$020 Const dContactMotion2 %=$040 Const dContactSlip1 %=$080 Const dContactSlip2 %=$100 Const dContactApprox0 %=$0000 Const dContactApprox1_1 %=$1000 Const dContactApprox1_2 %=$2000 Const dContactApprox1 %=$3000 ;/local Const LENGTH #=0.7*8 Const WIDTH #=0.5*8 Const HEIGHT #=0.2*8 Const RADIUS #=.16*8 Const STARTZ #=5+.5*8 Const CMASS #=50 Const WMASS #=10 ;/time Global fr%=0 Global frTime%=0 Global physicalfps%=0 ;/meshcount Global tris_count%=0 Global vert_count%=0 Global surfaces%=0 .cameracreation Global camera=CreateCamera() CameraRange camera,.1,1000000000 CameraZoom camera,1.6 PositionEntity camera,0,0,-15 Global light=CreateLight() RotateEntity light,45,45,0 AmbientLight 100,100,100 .levelcreation Global levelmesh=CreateSphere(16) FlipMesh levelmesh ScaleMesh levelmesh,5,5,5 EntityColor levelmesh,50,50,50 EntityType levelmesh,levelcollider Global TriMesh1%=ODE_dTriMeshCreate(levelmesh) .spherecreation Global sphere1_body=ODE_dBodyCreate() Global sphere1_geom=ODE_dCreateSphere(space,.5,100) ODE_dGeomSetBody sphere1_geom,sphere1_body ODE_dBodySetPosition sphere1_body,0,0,0 ODE_dBodySetRotation sphere1_body,0,0,0 Global sphere1_mesh=CreateSphere(8) ScaleEntity sphere1_mesh,.5,.5,.5 EntityColor sphere1_mesh,50,50,100 ;initial geometry position and rotation ODE_UpdateGeoms() While Not KeyHit(1) Cls Repeat elapsed=MilliSecs()-time Until elapsed ticks=elapsed/period tween#=Float(elapsed Mod period)/Float(period) For rt=1 To ticks time=time+period If rt=ticks CaptureWorld EndIf .blitz3d WireframeSwitch() LevelChanger() ;update physics world ;If KeyDown(57) ODE_dWorldQuickStep 0.1 ODE_dWorldQuickStep 0.1 UpdateWorld Next ;update geometry position and rotation ODE_UpdateGeoms() RenderWorld tween .blitz2d Text 0,0,"Controls: w numberpad1 and numberpad2" fr=fr+1 If MilliSecs()-frTime>=1000 physicalfps=fr fr=0 frTime=MilliSecs() EndIf Text 500,0,"physicalfps " +physicalfps Flip 0 Wend ODE_dCloseODE() End .odeincludefunctions ; Function ODE_UpdateGeoms() PositionEntity sphere1_mesh,ODE_dGeomGetPositionX(sphere1_geom),ODE_dGeomGetPositionY(sphere1_geom),ODE_dGeomGetPositionZ(sphere1_geom) End Function ; Function ODE_dTriMeshCreate%(mesh%) ;tris_count%=0 ;vert_count%=0 For i=1 To CountSurfaces(mesh) tris_count=tris_count+CountTriangles(GetSurface(mesh,i)) vert_count=vert_count+CountVertices(GetSurface(mesh,i)) Next ;DebugLog "Tris count: " +tris_count ;DebugLog "Vertices count: " +vert_count ;DebugLog "surface count: " +CountSurfaces(mesh) vertices_bank%=CreateBank(vert_count*4*4) indices_bank%=CreateBank(tris_count*3*4) offset%=0 offset_tris%=0 baseverts=0 For i=1 To CountSurfaces(mesh) sf=GetSurface(mesh,i) For v=0 To CountVertices(sf)-1 PokeFloat vertices_bank,offset,VertexX(sf,v) offset=offset+4 PokeFloat vertices_bank,offset,VertexY(sf,v) offset=offset+4 PokeFloat vertices_bank,offset,VertexZ(sf,v) offset=offset+8 Next For t=0 To CountTriangles(sf)-1 For j=0 To 2 v=TriangleVertex(sf,t,j)+baseverts PokeInt indices_bank,offset_tris,v offset_tris=offset_tris+4 Next Next baseverts=baseverts+CountVertices(sf) Next t_data=ODE_dGeomTriMeshDataCreate() ODE_dGeomTriMeshDataBuildSimple(t_data,vertices_bank,vert_count,indices_bank,tris_count*3) Return ODE_dCreateTriMesh(space,t_data) End Function Function WireframeSwitch() If KeyHit(17) wireframestate=1-wireframestate WireFrame wireframestate End Function .levelchanger ;level creation Function LevelChanger() If KeyHit(79) FreeEntity levelmesh ;ODE_dGeomTriMeshDataDestroy(TriMesh) ;ODE_dWorldDestroy() ;TriMesh=0 ;space=ODE_dWorldCreate(0) levelmesh=CreateCube() FlipMesh levelmesh ScaleMesh levelmesh,3,3,3 EntityColor levelmesh,50,50,50 EntityType levelmesh,levelcollider TriMesh%=ODE_dTriMeshCreate(levelmesh) EndIf If KeyHit(80) FreeEntity levelmesh ;ODE_dGeomTriMeshDataDestroy(TriMesh) ;ODE_dWorldDestroy() ;TriMesh=0 ;space=ODE_dWorldCreate(0) levelmesh=CreateSphere(16) FlipMesh levelmesh ScaleMesh levelmesh,5,5,5 EntityColor levelmesh,50,50,50 EntityType levelmesh,levelcollider TriMesh%=ODE_dTriMeshCreate(levelmesh) EndIf End Function ; These files have to be in C:\Program Files\Blitz3D\userlibs for the above example to work. http://www.mediafire.com/?mcnr93mm8g9ubd3 Last edited 2010

Nate the Great (Posted 2009) [#2]

hmm I really dont know what to do, they dont seem to have a documented command for destroying trimeshes...

fox95871 (Posted 2009) [#3]

There was one called ODE_dGeomTriMeshDataDestroy(), but it didn't work. It's in my code, commented out. Maybe I used it wrong? Who made BlitzODE by the way?