Move inner wall creation

2021-04-02 14:08:12 +02:00
parent 91e6e44f45
commit 4327e94e04
4 changed files with 49 additions and 39 deletions
@@ -64,8 +64,8 @@ makePath = concat . map _rmPath . flatten
 -- consider nubbing walls after dividing them
 wallsFromTree :: Tree Room -> IM.IntMap Wall
 wallsFromTree t = 
-    createInnerWalls 
-    . divideWalls 
+--    createInnerWalls 
+    divideWalls 
    . assignKeys 
    . foldr cutWalls [] -- $ map (map (g . roundPoint2)) 
 --    . map (map roundPoint2)