Split gasses and clouds

2025-12-02 21:47:17 +00:00
parent 984a114310
commit b2cb8cfe11
11 changed files with 262 additions and 192 deletions
@@ -21,7 +21,6 @@ data CloudType
    = Smoke
    | RocketSmoke
    | CryoReleaseCloud
-    | GasCloud
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Dust = Dust
@@ -32,8 +31,22 @@ data Dust = Dust
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

+data Gas = Gas
+    { _gsPos :: Point3
+    , _gsVel :: Point3
+    , _gsTimer :: Int
+    , _gsType :: GasType
+    }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
+data GasType = PoisonGas
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 makeLenses ''Cloud
 deriveJSON defaultOptions ''CloudType
 deriveJSON defaultOptions ''Cloud
 makeLenses ''Dust
 deriveJSON defaultOptions ''Dust
+makeLenses ''Gas
+deriveJSON defaultOptions ''GasType
+deriveJSON defaultOptions ''Gas