96 lines
2.1 KiB
Haskell
96 lines
2.1 KiB
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE LambdaCase #-}
|
|
|
|
module Dodge.Data.Room (
|
|
module Dodge.Data.Room,
|
|
module Dodge.Data.CardinalPoint,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import qualified Data.Set as S
|
|
import Dodge.Data.CardinalPoint
|
|
import Geometry
|
|
|
|
data RoomPos = RoomPos
|
|
{ _rpPos :: Point2
|
|
, _rpDir :: Float
|
|
, _rpFlags :: S.Set RoomPosFlag
|
|
, _rpType :: RPLinkStatus
|
|
, _rpPlacementUse :: S.Set UsedPos
|
|
}
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data RoomLink = RoomLink
|
|
{ _rlType :: S.Set RoomLinkType
|
|
, _rlPos :: Point2
|
|
, _rlDir :: Float
|
|
}
|
|
deriving (Eq, Ord)
|
|
|
|
data RoomType
|
|
= DefaultRoomType
|
|
| RectRoomType
|
|
{ _numLinkEW :: Int
|
|
, _numLinkNS :: Int
|
|
, _linkGapEW :: Float
|
|
, _linkGapNS :: Float
|
|
, _rmWidth :: Float
|
|
, _rmHeight :: Float
|
|
}
|
|
deriving (Eq, Ord)
|
|
|
|
data RoomLinkType
|
|
= OutLink
|
|
| InLink
|
|
| LabLink Int
|
|
| PolyEdge Int
|
|
| OnEdge CardinalPoint
|
|
| FromEdge CardinalPoint Int
|
|
| BlockedLink
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data RoomWire
|
|
= --RoomWire Point2 Float
|
|
WallWire Point2 Float Float
|
|
|
|
-- the link constructors should probably be combined in some way
|
|
data RPLinkStatus
|
|
= UsedOutLink
|
|
{ _rplsType :: S.Set RoomLinkType
|
|
, _rplsChildNum :: Int
|
|
, _rplsOutRoomID :: Int
|
|
}
|
|
| UsedInLink
|
|
{ _rplsType :: S.Set RoomLinkType
|
|
, _rplsInRoomID :: Int
|
|
}
|
|
| UnusedLink {_rplsType :: S.Set RoomLinkType}
|
|
| NotLink {_rpOnPath :: Bool}
|
|
deriving (Eq, Ord, Show)
|
|
|
|
notLink :: RPLinkStatus -> Bool
|
|
notLink = \case
|
|
NotLink {} -> True
|
|
_ -> False
|
|
|
|
data PathFromEdge = PathFromEdge CardinalPoint Int
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data RoomPosFlag
|
|
= RoomPosOnGrid {_onGridFromEdges :: S.Set PathFromEdge}
|
|
| RoomPosOffGrid {_offGridFromEdges :: S.Set PathFromEdge}
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data UsedPos
|
|
= UsedPosLow
|
|
| UsedPosMid
|
|
| UsedPosHigh
|
|
| UsedPosFloor
|
|
deriving (Eq, Ord, Show)
|
|
|
|
makeLenses ''RoomLink
|
|
makeLenses ''RoomPos
|
|
makeLenses ''RoomPosFlag
|
|
makeLenses ''RPLinkStatus
|