Tweak gibs

2022-06-04 00:40:51 +01:00
parent fa60ea0028
commit 4f4c039fec
7 changed files with 49 additions and 22 deletions
@@ -283,12 +283,6 @@ collideCircWalls p1 p2 rad
 --  where 
 --    f (a,_) = magV (p1 -.- a)
 --
-- | Looks for first collision of a point with walls.
-- If found, gives point and wall.
-collidePointWallsWall :: Point2 -> Point2 -> IM.IntMap Wall -> Maybe (Point2,Wall)
-collidePointWallsWall p1 p2 
-    = safeMinimumOn (dist p1 . fst)
-    . IM.mapMaybe ( \wl -> uncurry (intersectSegSeg p1 p2) (_wlLine wl) <&> ( , wl ) ) 

 -- | Looks for first collision of a point with walls.
 -- If found, gives point and normal of wall.