justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cancel set change, nub walls with identical wlLines instead

Browse Source
This commit is contained in:
justin
2021-03-04 19:09:37 +01:00
parent 6c1b92f8c3
commit f9777deedf
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Layout.hs
+1 -1
View File
@@ -66,7 +66,7 @@ makePath = concat . map _rmPath . flatten
wallsFromTree :: Tree Room -> IM.IntMap Wall wallsFromTree :: Tree Room -> IM.IntMap Wall
--wallsFromTree t = createInnerWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t) --wallsFromTree t = createInnerWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
wallsFromTree t = checkWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t) wallsFromTree t = checkWalls $ nubWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
--wallsFromTree t = divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t) --wallsFromTree t = divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
divideWall :: Wall -> [Wall] divideWall :: Wall -> [Wall]
src/Dodge/LevelGen.hs
+1
View File
@@ -6,6 +6,7 @@ module Dodge.LevelGen
, cutWalls , cutWalls
, createInnerWalls , createInnerWalls
, checkWalls , checkWalls
, nubWalls
) )
where where
-- imports {{{ -- imports {{{