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
@@ -4,9 +4,8 @@ import Dodge.Data.Cloud

 clAlt :: Cloud -> Float
 clAlt cl = case _clType cl of
-    FlamerSmokeCloud -> 90
-    RocketCloud -> 30
-    Dust _ -> 1
+    Smoke -> 90
+    RocketSmoke -> 30
    CryoReleaseCloud -> 50
    GasCloud -> 20