Add rooms, placements and room positions

2022-03-08 22:57:58 +00:00
parent 2e1c7f2687
commit ff6064a3b6
14 changed files with 315 additions and 138 deletions
@@ -100,6 +100,13 @@ lnkBothAnd rlt (p,a) = RoomLink
    , _rlDir = a
    }

+lnkBothAnd' :: RoomLinkType -> (Int -> RoomLinkType) -> Int -> (Point2,Float) -> RoomLink
+lnkBothAnd' rlt ltcon i (p,a) = RoomLink 
+    {_rlType = S.fromList [OutLink,InLink,rlt,ltcon i]
+    ,_rlPos = p 
+    , _rlDir = a
+    }
+
 toBothLnk :: (Point2,Float) -> RoomLink
 toBothLnk (p,a) = RoomLink 
    {_rlType = S.fromList [OutLink,InLink]