Correct room link position numbering

2021-11-22 16:42:19 +00:00
parent b4759e4a27
commit 5d9ea4b733
23 changed files with 184 additions and 85 deletions
@@ -69,9 +69,10 @@ placeRoomWires rm w = IM.foldr ($) w

 placeWire :: Room -> RoomWire -> RoomWire -> World -> World
 placeWire rm (WallWire p _ h1) (WallWire q _ h2) = foregroundShape 
-    %~ (col ( (thinHighBarChain h2 $ map (shiftPointBy rs) doOrdering) <> 
-        (barPP 1.5 (addZ h1 p) (addZ h2 p))
-        ) <>
+    %~ (col ( thinHighBarChain h2 (map (shiftPointBy rs) doOrdering) 
+            <> barPP 1.5 (addZ h1 p) (addZ h2 p)
+            ) 
+        <>
        )
  where
    --TODO use rmWalls for non convex rooms