Add dimensions to all items

2021-11-20 00:01:54 +00:00
parent 9f4ff3a75a
commit 20cf2ce26d
8 changed files with 26 additions and 11 deletions
@@ -107,7 +107,7 @@ pushOutFromWall rad cp2 (wp1,wp2)
 --    isOnWall = circOnSeg wp1 wp2 cp2 rad

 pushOutFromCorners :: Float -> [(Point2,Point2)] -> Point2 -> Point2
-pushOutFromCorners r ls p = foldr (intersectCirclePoint r) p (map fst ls)
+pushOutFromCorners r ls p = foldr (intersectCirclePoint r . fst) p ls

 --pushOutFromCorners' :: World -> Creature -> Creature
 --pushOutFromCorners' w cr = cr & crPos .~ newPos