Work towards using room positions rather than room links in placements

2021-11-14 10:13:56 +00:00
parent 52946f33a7
commit affdde0f21
7 changed files with 28 additions and 16 deletions
@@ -6,5 +6,12 @@ import Geometry
 import qualified Data.IntMap.Strict as IM
 import Control.Lens

-putWireEnd :: Int -> (Point2,Float) -> Room -> Room
-putWireEnd i pos rm = rm  & rmEndWires %~ IM.insert i (uncurry RoomWire $ invShiftLinkBy (_rmShift rm) pos)
+putWireEndInvRmShift :: Int -> (Point2,Float) -> Room -> Room
+putWireEndInvRmShift i pos rm = 
+    rm & rmEndWires %~ IM.insert i (uncurry RoomWire $ invShiftLinkBy (_rmShift rm) pos)
+
+putWireStart :: Int -> (Point2,Float) -> Room -> Room
+putWireStart i pos rm = rm 
+    & rmStartWires %~ IM.insert i (uncurry RoomWire pos)
+
+