Allow for complex room bounds for clip checks

2021-05-03 00:57:17 +02:00
parent f71724ae8b
commit 2bf23db935
14 changed files with 92 additions and 152 deletions
@@ -69,7 +69,7 @@ shiftRoomBy shift@(pos,rot) r =
   $ over rmLinks (fmap (shiftLinkBy shift))
   $ over rmPath (map (shiftPathPointBy shift))
   $ over rmPS (fmap (shiftPSBy shift))
-   $ over rmBound (map (shiftPointBy shift))
+   $ over rmBound (fmap (map (shiftPointBy shift)))
   r

 shiftLinkBy (pos,rot) (p,r) = (shiftPointBy (pos,rot) p, r + rot)