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