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
|
2019-02-09 00:23:38 +00:00
|
|
|
{ pointType :: PointType
|
|
|
|
, pointCoord :: V2 Int
|
|
|
|
, pointDir :: Direction
|
|
|
|
, pointClearance :: Word
|
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
|
2018-07-21 04:43:26 +00:00
|
|
|
| Copier
|
2018-07-30 12:34:46 +00:00
|
|
|
| Computer
|
2018-07-31 20:59:25 +00:00
|
|
|
| Toilet
|
2018-08-07 12:04:49 +00:00
|
|
|
| Drink
|
2018-09-08 12:05:07 +00:00
|
|
|
| Eat
|
|
|
|
| Elevator
|
2018-04-14 16:43:05 +00:00
|
|
|
deriving (Eq, Show)
|