Continue placement refactor

src/Dodge/Room/Link.hs

@@ -63,14 +63,14 @@ shiftRoomToLink l r
     r
   where 
     (p,a) = last $ _rmLinks r
-
+-- NOTE placements are shifted by the room shift
 shiftRoomBy :: (Point2,Float) -> Room -> Room
 shiftRoomBy shift r = r
     & rmPolys %~ fmap (map (shiftPointBy shift))
     & rmLinks %~ fmap (shiftLinkBy shift)
     & rmPath  %~ map (shiftPathPointBy shift)
-    & rmPS    %~ fmap (shiftPSBy shift)
     & rmBound %~ fmap (map (shiftPointBy shift))
+    & rmShift %~ shiftLinkBy shift
     & rmFloor %~ map 
         ( (tilePoly %~ map (shiftPointBy shift))
         . (tileZero %~ shiftPointBy shift    )