Tweak ledge room, rename roomRectAutoLinks

2026-02-02 10:44:27 +00:00
parent f3aaf8ba57
commit 3b7e33cab8
15 changed files with 34 additions and 32 deletions
@@ -56,7 +56,9 @@ setInLinks = setLinkType InLink
 isMidEdgeLink :: Room -> CardinalPoint -> RoomLink -> Bool
 isMidEdgeLink r x rl
    | x == North || x == South = g West (f $ r ^?! rmType . numLinkEW)
+        && OnEdge x `S.member` (rl ^. rlType)
    | otherwise = g South (f $ r ^?! rmType . numLinkNS)
+        && OnEdge x `S.member` (rl ^. rlType)
  where
    f y | even y = [y `div` 2]
        | otherwise = [y `div` 2, 1 + (y `div` 2)]