Improve level generation speed

2021-08-16 20:56:49 +02:00
parent 37db056f23
commit 650e58bdfa
11 changed files with 168 additions and 133 deletions
@@ -95,7 +95,7 @@ updateWallZoning w = set wallsZone (foldl' (flip wallInZone) IM.empty (_walls w)
      where 
        (x,y) = zoneOfPoint $ uncurry pHalf (_wlLine wl)
        wlid  = _wlID wl
-        ips = map zoneOfPoint $ uncurry (divideLine (zoneSize)) (_wlLine wl)
+        ips = map zoneOfPoint $ uncurry (divideLine zoneSize) (_wlLine wl)


 makePath :: Tree Room -> [(Point2,Point2)]