Define room link datatypes

2021-11-23 13:00:34 +00:00
parent f51a6a7216
commit 67b0d694af
6 changed files with 25 additions and 14 deletions
@@ -82,12 +82,23 @@ data Room = Room
    , _rmStartWires :: IM.IntMap RoomWire
    , _rmEndWires   :: IM.IntMap RoomWire
    }
+data RoomLink = RoomLink
+    { _rlType   :: RoomLinkType
+    , _rlPos    :: Point2
+    , _rlDir    :: Float
+    } deriving (Eq,Ord)
+data RoomLinkType
+    = OutLink
+    | InLink
+    | AnyLink
+    | LabLink Int
+    deriving (Eq,Ord)
 data RoomWire
    = --RoomWire Point2 Float
     WallWire Point2 Float Float
 data RoomPos 
-    = OutLink Int    Point2  Float
-    | InLink  Point2 Float
+    = UsedOutLink Int    Point2  Float
+    | UsedInLink  Point2 Float
    | UnusedLink Point2 Float
    | PosPl   Point2 Float
    | LabPos  Int    RoomPos