Cleanup

2021-11-23 21:48:01 +00:00
parent b7d6eeaa84
commit 86f363c2f9
19 changed files with 93 additions and 122 deletions
@@ -20,7 +20,7 @@ import qualified Control.Foldl as L

 createPathGrid :: Room -> Room
 createPathGrid rm = rm
-    { _rmPath = linksAndPath (map lnkPosDir $ _rmOutLinks rm ++ _rmInLinks rm) filterGrid }
+    { _rmPath = linksAndPath (map lnkPosDir $ _rmLinks rm) filterGrid }
  where
    filterGrid = filter (\p -> pairInPolys (_rmPolys rm) p && testCrossWalls outerWalls p) grid
    grid = fromMaybe [] $ shiftedGrid <$> minx <*> maxx <*> miny <*> maxy