Cleanup

2022-02-13 17:29:32 +00:00
parent eba1713895
commit 40f1d987cb
21 changed files with 109 additions and 171 deletions
@@ -103,7 +103,8 @@ pushOutFromWall rad cp2 (wp1,wp2)
    isOnWall = circOnSegNoEndpoints wp1 wp2 cp2 rad

 pushOutFromCorners :: Float -> [(Point2,Point2)] -> Point2 -> Point2
-pushOutFromCorners r ls p = foldr (squashIntersectCirclePoint r . fst) p ls
+--pushOutFromCorners r ls p = foldr (squashIntersectCirclePoint r . fst) p ls
+pushOutFromCorners r = flip $ foldr (squashIntersectCirclePoint r . fst)

 squashIntersectCirclePoint :: Float -> Point2 -> Point2 -> Point2
 squashIntersectCirclePoint rad p cCen