Test aggressive object culling

2022-06-17 20:14:47 +01:00
parent f365f18ee8
commit 261bb0bb6b
11 changed files with 38 additions and 16 deletions
@@ -107,10 +107,12 @@ doDrawing pdata u = do
    currentProgram $= Just (_shadProg lwShad)
    uniform (head $  _shadUnis lwShad) $= viewFrom3d
    bindVertexArrayObject $= Just (_vao $ _shadVAO lwShad)
-    glDrawArrays 
-        (marshalEPrimitiveMode $ _shadPrim lwShad) 
-        0 
-        (fromIntegral nWalls)
+    if not (_debug_remove_LOS cfig)
+        then glDrawArrays 
+            (marshalEPrimitiveMode $ _shadPrim lwShad) 
+            0 
+            (fromIntegral nWalls)
+        else return ()
    --draw walls onto base buffer
    if cfig ^. graphics_wall_textured
        then renderTextureWalls pdata nWalls