2018-04-14 16:43:05 +00:00
|
|
|
module Types.ReachPoint where
|
|
|
|
|
|
|
|
import Linear (V2(..))
|
2018-06-04 03:29:20 +00:00
|
|
|
import Types.Direction
|
2018-04-14 16:43:05 +00:00
|
|
|
|
|
|
|
data ReachPoint = ReachPoint
|
|
|
|
{ pointType :: PointType
|
|
|
|
, pointCoord :: V2 Int
|
2018-06-04 03:29:20 +00:00
|
|
|
, 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)
|