Add support for group placements

2021-05-14 19:46:52 +02:00
parent 0b26761be5
commit 2b09bf2072
18 changed files with 307 additions and 266 deletions
@@ -73,9 +73,13 @@ shiftRoomBy shift@(pos,rot) r =
   r

 shiftLinkBy (pos,rot) (p,r) = (shiftPointBy (pos,rot) p, r + rot)
-shiftPSBy (pos,rot) ps = case ps of
-    PS {} -> over psPos (shiftPointBy (pos,rot))
-                            $ over psRot (+rot)
-                            ps
+shiftPSBy (pos,rot) ps = ps
+    & placementSpot . psPos %~ shiftPointBy (pos,rot)
+    & placementSpot . psRot %~ (+ rot)
+
+--shiftPSBy (pos,rot) ps = case ps of
+--    PS {} -> over psPos (shiftPointBy (pos,rot))
+--                            $ over psRot (+rot)
+--                            ps

 shiftPathPointBy s (p1,p2) = (shiftPointBy s p1, shiftPointBy s p2)