Fix placement shifting

2021-10-03 18:24:36 +01:00
parent 2c5cdbdc73
commit b526517404
3 changed files with 17 additions and 11 deletions
@@ -30,6 +30,10 @@ placeSpot' w (shift, plmnt) =
    let (i,w') =  placeSpotID (shiftPSBy' shift (_placementSpot plmnt)) w
    in  maybe w' (curry (placeSpot' w') shift) (_idPlacement plmnt i)

+shiftPlacement :: (Point2,Float) -> Placement -> Placement
+shiftPlacement shift (Placement ps f) = Placement (shiftPSBy' shift ps)
+     (fmap (fmap $ shiftPlacement shift) f)
+
 shiftPSBy'
    :: (Point2,Float)
    -> PlacementSpot