Partial fix to level generation

2021-03-29 12:26:16 +02:00
parent c959b7d59c
commit 502832b2b8
3 changed files with 9 additions and 11 deletions
@@ -68,7 +68,7 @@ wallsFromTree t =
    . divideWalls 
    . assignKeys 
    . foldr cutWalls [] -- $ map (map (g . roundPoint2)) 
-    . map (map roundPoint2)
+--    . map (map roundPoint2)
    $ (concatMap _rmPolys $ flatten t)
  where
    assignKeys = IM.fromList . zip [0..] . zipWith f [0..]