Readd dust cloud rendering

src/Dodge/Render.hs

@@ -4,7 +4,6 @@ module Dodge.Render (
     getWindowSize,
 ) where
 
-import Shape.Parameters
 import Control.Lens
 import Control.Monad
 import qualified Control.Monad.Parallel as MP
@@ -61,11 +60,6 @@ doDrawing' win pdata u = do
     let wswp = wallSPics <> worldSPic cfig u
         ws = wswp ^. _1
         wp = wswp ^. _2
-    nCloudVs <-
-        V.foldM'
-            (pokeCloud (pdata ^. cloudVBO . vboPtr))
-            0
-            (V.fromList $ w ^. cWorld . lWorld . clouds)
     ((nWins, trueNWalls), (nShapeVs, nIndices, nSilIndices)) <-
         MP.liftM3
             (\_ a b -> (a, b))
@@ -88,28 +82,16 @@ doDrawing' win pdata u = do
                 (0, 0, 0)
                 ws
             )
---    (nCloudVs', nCloudIs') <-
---        -- Might want to sort the clouds based on z depth, not sure
---        V.foldM'
---            (pokeCloud (pdata ^. cloudVBO . vboPtr) (pdata ^. cloudEBO . uiboPtr))
---            (0, 0)
---            (V.fromList $ w ^. cWorld . lWorld . clouds)
---    (nCloudVs, nCloudIs) <-
---        V.foldM'
---            (pokeDust (pdata ^. cloudVBO . vboPtr) (pdata ^. cloudEBO . uiboPtr))
---            (nCloudVs', nCloudIs')
---            (V.fromList $ w ^. cWorld . lWorld . dusts)
-    --nCloudVs' <-
---    nCloudVs <-
---        V.foldM'
---            (pokeCloud (pdata ^. cloudVBO . vboPtr))
---            0
---            (V.fromList $ w ^. cWorld . lWorld . clouds)
---    nCloudVs <-
---        V.foldM'
---            (pokeDust (pdata ^. cloudVBO . vboPtr))
---            nCloudVs'
---            (V.fromList $ w ^. cWorld . lWorld . dusts)
+    nCloudVs' <-
+        V.foldM'
+            (pokeCloud (pdata ^. cloudVBO . vboPtr))
+            0
+            (V.fromList $ w ^. cWorld . lWorld . clouds)
+    nCloudVs <-
+        V.foldM'
+            (pokeDust (pdata ^. cloudVBO . vboPtr))
+            nCloudVs'
+            (V.fromList $ w ^. cWorld . lWorld . dusts)
     -- bind wall points, silhouette data, surface geometry
     bufferShaderLayers shadV pokeCounts
     mapM_