{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.ArcStep where
import Dodge.Data.CrWlID
import Geometry.Data
import Control.Lens
data ArcStep = ArcStep
    { _asPos :: Point2
    , _asDir :: Float
    , _asObject :: CrWlID --Maybe (Either Creature Wall)
    }
  deriving (Eq,Ord,Show,Read)
data NextArcStep = EndArc
    | DefaultArcStep
  deriving (Eq,Ord,Show,Read)
makeLenses ''ArcStep