Fix wall zoning bug

2021-08-16 16:54:27 +02:00
parent c58ee6d56c
commit 37db056f23
4 changed files with 63 additions and 11 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 (2*zoneSize)) (_wlLine wl)
+        ips = map zoneOfPoint $ uncurry (divideLine (zoneSize)) (_wlLine wl)


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