Implement different door speeds

2025-10-25 09:57:13 +01:00
parent 3f5f5d2c6b
commit c2cc38a642
7 changed files with 72 additions and 89 deletions
@@ -39,5 +39,5 @@ updateEdgeWallObs w (i, j) = fromMaybe w $ do
    let wlflags = foldMap (^. _2 . to getWallPathing) $ wlsHitUnsorted s e w
    return $ w & cWorld . incGraph %~ updateEdge (f wlflags) (i, j)
  where
-    f x y = (S.map WallObstacle x) `S.union` 
+    f x y = S.map WallObstacle x `S.union` 
        (y S.\\ (S.fromList $ map WallObstacle [minBound..maxBound]))