Tweak corpses

2026-02-11 09:57:01 +00:00
parent e608664f11
commit 38eef8fd54
4 changed files with 10 additions and 24 deletions
@@ -185,6 +185,3 @@ isWalkable :: Point2 -> Point2 -> World -> Bool
 isWalkable p1 p2 w = isFlyable p1 p2 w && not (any f (w ^. cWorld . cliffs))
  where
    f = isJust . uncurry (intersectSegSeg p1 p2)
--isWalkable p1 p2 w = isFlyable p1 p2 w && not (getAny $ foldMap f (w ^. cWorld . chasms))
--  where
--    f = foldMap (Any . isJust . uncurry (intersectSegSeg p1 p2)) . loopPairs