{-# 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