Separate Clouds and Dust

2025-06-25 14:51:15 +01:00
parent d61ea304ad
commit d4b2f23c9d
19 changed files with 341 additions and 213 deletions
@@ -1,4 +1,4 @@
-module Dodge.WorldEvent.Cloud (makeCloudAt) where
+module Dodge.WorldEvent.Cloud (makeCloudAt,makeDustAt) where

 import Dodge.Data.World
 import Geometry.Data
@@ -13,3 +13,13 @@ makeCloudAt ct t p =
            , _clTimer = t
            , _clType = ct
            }
+
+makeDustAt :: Material -> Int -> Point3 -> World -> World
+makeDustAt ct t p =
+    cWorld . lWorld . dusts
+        .:~ Dust
+            { _dsPos = p
+            , _dsVel = V3 0 0 0
+            , _dsTimer = t
+            , _dsType = ct
+            }