Cleanup

2025-07-30 09:20:41 +01:00
parent 210171fbc9
commit 18770480e7
13 changed files with 41 additions and 12 deletions
@@ -19,4 +19,10 @@ postWorldLoad rdata cw = do
            0
            (cw ^. cwTiles)
    bufferPokedVBO (rdata ^. floorVBO) nfloorvxs
+    nchasmvxs <- foldM (pokeChasm (rdata ^. chasmVBO . vboPtr))
+            0
+            (cw ^. chasms)
+    bufferPokedVBO (rdata ^. chasmVBO) nchasmvxs
    return $ cw & numberFloorVerxs .~ nfloorvxs
+         & numberChasmVerxs .~ nchasmvxs
+