Split out more data files

2022-07-16 17:32:11 +01:00
parent e4a4766ddf
commit 11732358ed
9 changed files with 122 additions and 87 deletions
@@ -0,0 +1,20 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Cloud where
+import Geometry
+import Picture
+import Control.Lens
+data Cloud = Cloud
+    { _clPos :: Point3
+    , _clVel :: Point3
+    , _clPict :: Cloud -> Picture
+    , _clRad :: Float
+    , _clAlt :: Float
+    , _clTimer :: Int
+    , _clType :: CloudType
+--    , _clEffect :: Cloud -> World -> World
+    }
+data CloudType
+    = SmokeCloud
+    | GasCloud
+makeLenses ''Cloud