Refactor vao preload

2021-02-19 12:41:46 +01:00
parent f4db9bf9a1
commit f6efe98181
16 changed files with 441 additions and 485 deletions
@@ -22,7 +22,10 @@ import Control.Lens
 -- }}}

 update :: World -> World
-update w = let w1 = updateParticles' $ updateParticles 
+update w 
+    | _menuState w /= InGame = w
+    | otherwise = 
+            let w1 = updateParticles' $ updateParticles 
                     $ updateLightSources
                     $ zoneClouds
                     $ updateClouds
@@ -31,16 +34,16 @@ update w = let w1 = updateParticles' $ updateParticles
                     $ updateBlocks -- $ zoning 
                     $ updateSeenWalls 
                                                     w
-               w2 = -- updateWeaponCounters $
+                w2 = -- updateWeaponCounters $
                 simpleCrSprings 
                 $ zoneCreatures $ wallEvents
                 $ set worldEvents id $ _worldEvents w1
                                 w1
-               w3 = updateCamera
+                w3 = updateCamera
                           $ updateAfterParticles'
                           $ colCrsWalls 
                             w2
-           in  checkEndGame $ ppEvents w3
+            in  checkEndGame $ ppEvents w3
    where -- zoning w = set wallsZone (IM.foldr wallInZone IM.empty (_walls w))
          --               w
          -- wallInZone wl | dist (_wlLine wl !! 0) (_wlLine wl !! 1) <= 2*zoneSize