Commit before generalising FromWest/South etc

2022-06-14 10:37:24 +01:00
parent d17f83928a
commit 4a910566e6
14 changed files with 137 additions and 126 deletions
@@ -105,8 +105,8 @@ setFallback fallback
    )

 unusedOffPathAwayFromLink :: Float -> PlacementSpot
-unusedOffPathAwayFromLink x = rprBool $ \rp r -> _rpLinkStatus rp == NotLink 
-    && _rpPlacementUse rp == 0 
+--unusedOffPathAwayFromLink x = rprBool $ \rp r -> _rpLinkStatus rp == NotLink 
+unusedOffPathAwayFromLink x = rprBool $ \rp r -> _rpPlacementUse rp == 0 
    && all ( (>x) . dist (_rpPos rp) ) (usedRoomLinkPoss r)
    && RoomPosOffPath `S.member` _rpType rp