{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.Corpse where
import ShapePicture.Data
import Geometry.Data

import Control.Lens

data CorpseResurrection = NoResurrection

data Corpse = Corpse
    { _cpID  :: Int
    , _cpPos :: Point2
    , _cpDir :: Float
    , _cpSPic :: SPic
    , _cpRes :: CorpseResurrection
    }
makeLenses ''Corpse