Move debug flags to config, various perf improvements

2021-09-24 13:25:24 +01:00
parent 899cf6ef81
commit 7da1a8bc45
17 changed files with 112 additions and 265 deletions
@@ -95,12 +95,6 @@ generateFromTree t w = updateWallZoning $ placeSpots plmnts
    insertPoint  pp@(_,V2 x y) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
    --pinc = M.fromList $ pairsToIncidence pairGraph

-wallToWall :: Wall -> IM.IntMap (IM.IntMap [Wall']) -> IM.IntMap (IM.IntMap [Wall'])
-wallToWall wl wls = foldl' (flip f) wls is
-  where
-    is = uncurry zoneOfLine (_wlLine wl)
-    wl' = Wall' {_wlLine' = _wlLine wl, _wlColor' = _wlColor wl}
-    f (x,y) = insertInZoneWith x y (++) [wl']

 updateWallZoning :: World -> World
 updateWallZoning w = set (wallsZone . znObjects) (foldl' (flip wallInZone) IM.empty (_walls w)) w