today i recode and same result.
here is my code:
' create the scene
MyadvancedScene = New TVSceneManager.AdvancedScene(New TV_3DVECTOR(-500, -5, -500), New TV_3DVECTOR(500, 200, 500))
MyadvancedScene.SetSceneTree(8, 40)
MyadvancedScene.OcclusionResolution = New TV_2DVECTOR(1024 / 2, 768 / 2) '512 384 (300, 225)
MyadvancedScene.OcclusionActiveOccluders = 15
MyadvancedScene.OcclusionMaxDistance = 250
MyadvancedScene.OcclusionMaxQueries = 2000
after that I laod my Mesh (a grass model):
Mesh(1) = New TVMesh
Mesh(1) = Scene.CreateMeshBuilder("GrassMesh")
Mesh(1).LoadTVM("..\..\data\grass.tvm", True, True)
Mesh(1).SetScale(0.2, 0.2, 0.2)
Mesh(1).SetBlendingMode(CONST_TV_BLENDINGMODE.TV_BLEND_ALPHA, -1)
Mesh(1).SetAlphaTest(True, 128, True, -1)
Mesh(1).SetCullMode(CONST_TV_CULLING.TV_DOUBLESIDED)
Mesh(1).EnableFrustumCulling(True)
and then I make a Loop to duplicate this mesh:
Do While I < 8000
x = RndInterval(-500, 500)
z = RndInterval(-500, 500)
Mesh(2) = Mesh(1).Duplicate("", True)
Mesh(2).Enable(True)
Mesh(2).EnableFrustumCulling(True, True)
Mesh(2).SetPosition(x, 0, z)
Mesh(2).SetRotation(0, RndInterval(0, 360), 0)
Dim obj2 As MeshObject = New MeshObject(Mesh(2))
MyadvancedScene.AddObject(obj2)
obj2.OccluderData = Mesh(1)
obj2.OcclusionEnabled = True
I = I + 1
Loop
My BIG problem is that when using CullingMode.FrustumCull I have 60 FPS. If I use CullingMode.OcclusionCull I hev only 15 or 20 and if I use TVEngine.Scene.RendelAllScene I have almost 100 FPS.
I am pretty sure there is a bug in my code, but I cannot understand where..
By the way can someone explain to me what mens FrustumCull and what mens OcclusionCull ?
Please help me

thanks