{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.ForegroundShape where
import Geometry
import ShapePicture
import Control.Lens

data ForegroundShape = ForegroundShape
    { _fsID :: Int
    , _fsPos :: Point2
    , _fsDir :: Float
    , _fsRad :: Float  -- This should probably be a bounding box
    , _fsSPic :: SPic
    }
  deriving (Eq,Ord,Show,Read)
makeLenses ''ForegroundShape