Fix placement movement bug

2021-10-01 09:51:47 +01:00
parent 4b5a75f4af
commit 5f17841811
6 changed files with 23 additions and 26 deletions
@@ -91,6 +91,7 @@ shiftPSBy
 shiftPSBy (pos,rot) ps = ps
    & placementSpot . psPos %~ shiftPointBy (pos,rot)
    & placementSpot . psRot %~ (+ rot)
+    & idPlacement %~ fmap (fmap $ shiftPSBy (pos,rot))

 shiftPathPointBy  
    :: (Point2,Float)