Add file

src/Dodge/Data/Flare.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Flare where
+import Color
+import Geometry
+import Control.Lens
+
+data Flare
+    = MuzFlare 
+        { _flarePoly   :: [Point2]
+        , _flareColor  :: Color
+        , _flareTran3  :: Point3
+        , _flareTime   :: Int
+        }
+    | CircFlare 
+        { _flareColor  :: Color
+        , _flareAlpha  :: Float
+        , _flareTran3  :: Point3
+        , _flareTime   :: Int
+        }
+
+makeLenses ''Flare