Move flame into its own datatype

src/Dodge/Data/Flame.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Flame where
+import Control.Lens
+import Geometry.Data
+import Color
+data Flame = Flame
+    { _flVel    :: Point2
+    , _flColor  :: Color
+    , _flPos    :: Point2
+    , _flWidth  :: Float 
+    , _flTimer  :: Int
+    , _flZ      :: Float
+    , _flOriginalVel :: Point2
+    }
+makeLenses ''Flame