Add wire to central laser room

2021-11-21 19:14:17 +00:00
parent 2f3896345d
commit afeb9d2b64
9 changed files with 57 additions and 35 deletions
@@ -83,8 +83,8 @@ data Room = Room
    , _rmEndWires   :: IM.IntMap RoomWire
    }
 data RoomWire
-    = RoomWire Point2 Float
-    | WallWire Point2 Float Float
+    = --RoomWire Point2 Float
+     WallWire Point2 Float Float
 data RoomPos 
    = OutLink Int    Point2  Float
    | InLink  Point2 Float
@@ -98,7 +98,6 @@ makeLenses ''PSType
 makeLenses ''PlacementSpot
 makeLenses ''Placement

-
 spNoID :: PlacementSpot -> PSType -> Placement
 spNoID ps pst = Placement ps pst Nothing (const Nothing)

@@ -108,6 +107,9 @@ pContID ps pt = Placement ps pt Nothing . intPlPlPl
 psPtCont :: PlacementSpot -> PSType -> (Placement -> Maybe Placement) -> Placement
 psPtCont ps pt = Placement ps pt Nothing

+psPt :: PlacementSpot -> PSType -> Placement
+psPt ps pt = Placement ps pt Nothing (const Nothing)
+
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a) pt Nothing (const Nothing)