Fix placement shifting

2021-10-03 18:24:36 +01:00
parent 2c5cdbdc73
commit b526517404
3 changed files with 17 additions and 11 deletions
@@ -87,9 +87,11 @@ combineRooms r r' = defaultRoom
    { _rmPolys = _rmPolys r ++ _rmPolys r'
    , _rmLinks = _rmLinks r ++ _rmLinks r'
    , _rmPath  = _rmPath  r ++ _rmPath  r'
-    , _rmPS    = _rmPS    r ++ _rmPS    r'
+    , _rmPS    = map (shiftPlacement $ _rmShift r) (_rmPS r) 
+                    ++ map (shiftPlacement $ _rmShift r') (_rmPS r')
    , _rmBound = _rmBound r ++ _rmBound r'
    , _rmFloor = _rmFloor r ++ _rmFloor r'
+    , _rmShift  = (V2 0 0 , 0)
    }
 --{- The top fourth of a room of a given height.  -}
 --fourth