Cleanup

2025-10-03 20:14:41 +01:00
parent 2d44809900
commit cba3ca784a
13 changed files with 181 additions and 193 deletions
@@ -95,7 +95,8 @@ roomRect x y xn yn =
    m edge edgefrom1 edgefrom2 =
        zipWith (lnkBothAnd (OnEdge edge) edgefrom1 edgefrom2) [0 ..]
            . zipCountDown
-    pth = linksAndPath' lnks $ map (bimap (+.+ V2 20 20) (+.+ V2 20 20)) (makeGrid xd xn yd yn)
+    pth = linksGridToPath lnks 
+        $ map (bimap (+.+ V2 20 20) (+.+ V2 20 20)) (makeGrid xd xn yd yn)
    makeonpos (p, a) = RoomPos p 0 (S.singleton $ RoomPosOnPath $ makerpedges a) 
        NotLink mempty
    makerpedges (a, b) =