tracer/src/Types/ReachPoint.hs

17 lines
275 B
Haskell
Raw Normal View History

2018-04-14 16:43:05 +00:00
module Types.ReachPoint where
import Linear (V2(..))
import Types.Direction
2018-04-14 16:43:05 +00:00
data ReachPoint = ReachPoint
{ pointType :: PointType
, pointCoord :: V2 Int
, pointDir :: Direction
2018-04-14 16:43:05 +00:00
}
2018-06-07 22:29:46 +00:00
deriving (Eq, Show)
2018-04-14 16:43:05 +00:00
data PointType
= RoomExit
| Table
deriving (Eq, Show)