Remove explicit muzzle flares for picture updated every frame

src/Dodge/Data/Flare.hs

@@ -1,30 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
-
-module Dodge.Data.Flare where
-
-import Color
-import Control.Lens
-import Data.Aeson
-import Data.Aeson.TH
-import Geometry
-
-data Flare
-    = MuzFlare
-        { _flarePoly :: [Point2]
-        , _flareColor :: Color
-        , _flareTran3 :: Point3
-        , _flareTime :: Int
-        }
-    | CircFlare
-        { _flareColor :: Color
-        , _flareAlpha :: Float
-        , _flareTran3 :: Point3
-        , _flareTime :: Int
-        }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-makeLenses ''Flare
-deriveJSON defaultOptions ''Flare

src/Dodge/Data/LWorld.hs

@@ -19,7 +19,6 @@ module Dodge.Data.LWorld (
     module Dodge.Data.Door,
     module Dodge.Data.EnergyBall,
     module Dodge.Data.Flame,
-    module Dodge.Data.Flare,
     module Dodge.Data.FloorItem,
     module Dodge.Data.ForegroundShape,
     module Dodge.Data.Gust,
@@ -65,7 +64,6 @@ import Dodge.Data.Distortion
 import Dodge.Data.Door
 import Dodge.Data.EnergyBall
 import Dodge.Data.Flame
-import Dodge.Data.Flare
 import Dodge.Data.FloorItem
 import Dodge.Data.ForegroundShape
 import Dodge.Data.Gust
@@ -111,7 +109,7 @@ data LWorld = LWorld
     , _flames :: [Flame]
     , _sparks :: [Spark]
     , _radarBlips :: [RadarBlip]
-    , _flares :: [Flare]
+    , _flares :: Picture  -- picture drawn for one frame
     , _teslaArcs :: [TeslaArc]
     , _shockwaves :: [Shockwave]
     , _lasers :: [LaserStart]