Separate Clouds and Dust

src/Dodge/Data/Cloud.hs

@@ -11,31 +11,31 @@ import Data.Aeson
 import Data.Aeson.TH
 import Geometry
 
-data CloudDraw
-    = CloudColor Float-- Color -- radius-multiply fade-time color
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data Cloud = Cloud
     { _clPos :: Point3
     , _clVel :: Point3
---    , _clPict :: CloudDraw
---    , _clRad :: Float
---    , _clAlt :: Float
     , _clTimer :: Int
     , _clType :: CloudType
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data CloudType
-    = --SmokeCloud
-     FlamerSmokeCloud
-    | RocketCloud
+    = Smoke
+    | RocketSmoke
     | CryoReleaseCloud
     | GasCloud
-    | Dust Material
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
+data Dust = Dust
+    { _dsPos :: Point3
+    , _dsVel :: Point3
+    , _dsTimer :: Int
+    , _dsType :: Material
+    }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Cloud
-deriveJSON defaultOptions ''CloudDraw
 deriveJSON defaultOptions ''CloudType
 deriveJSON defaultOptions ''Cloud
+makeLenses ''Dust
+deriveJSON defaultOptions ''Dust