Simplify clouds

2025-12-02 21:02:07 +00:00
parent c89d5af6a3
commit bd50262ca4
5 changed files with 33 additions and 50 deletions
@@ -1,20 +0,0 @@
-module Dodge.Cloud (clAlt) where
-
-import Dodge.Data.Cloud
-
-clAlt :: Cloud -> Float
-clAlt cl = case _clType cl of
-    Smoke -> 90
-    RocketSmoke -> 30
-    CryoReleaseCloud -> 50
-    GasCloud -> 20
-
--clRad :: Cloud -> Float
--clRad cl = case _clType cl of
--    SmokeCloud -> 15
--    FlamerSmokeCloud -> 6
--    RocketCloud -> 15
--    StoneDust -> 15
--    CryoReleaseCloud -> 10
--    GasCloud -> 15
--    BloodCloud -> 10