Cleanup

src/Dodge/Render.hs

@@ -58,6 +58,7 @@ doDrawing' win pdata u = do
         viewFroms@(V2 vfx vfy) = w ^. wCam . camViewFrom
         shadV = _pictureShaders pdata
         nFls = w ^. cWorld . numberFloorVerxs
+        nchs = w ^. cWorld . numberChasmVerxs
     -- bind as much data into vbos as feasible at this point
     -- count mutable vectors setup
     pokeCounts <- UMV.replicate (numLayers * numShads) 0
@@ -181,6 +182,13 @@ doDrawing' win pdata u = do
         (fromIntegral nIndices)
         GL_UNSIGNED_SHORT
         nullPtr
+    -- draw chasm shader blocking floor
+    glUseProgram (pdata ^. chasmShader . shaderUINT)
+    glBindVertexArray $ pdata ^. chasmShader . shaderVAO . vaoName
+    glDrawArrays
+        (_unPrimitiveMode $ pdata ^. chasmShader . shaderPrimitive)
+        0
+        (fromIntegral nchs)
     --draw floor onto base buffer
     glUseProgram (pdata ^. floorShader . shaderUINT)
     glBindVertexArray $ pdata ^. floorShader . shaderVAO . vaoName