Add bee pheremones

2026-04-23 10:30:43 +01:00
parent f6e257464d
commit d06660fd06
8 changed files with 212 additions and 167 deletions
@@ -77,10 +77,15 @@ doDrawing' win pdata u = do
                (0, 0, 0)
                ws
            )
+    ncvs'' <- -- foldM (pokeCloud $ pdata ^. cloudVBO . vboPtr) 0 (w ^. cWorld . lWorld . clouds)
+        V.foldM'
+            (pokeBeePheremone (pdata ^. cloudVBO . vboPtr))
+            0
+            (V.fromList $ w ^. cWorld . lWorld . beePheremones)
    nCloudVs' <- -- foldM (pokeCloud $ pdata ^. cloudVBO . vboPtr) 0 (w ^. cWorld . lWorld . clouds)
        V.foldM'
            (pokeCloud (pdata ^. cloudVBO . vboPtr))
-            0
+            ncvs''
            (V.fromList $ w ^. cWorld . lWorld . clouds)
    nCloudVs <-
        V.foldM'