Clarify circle segment intersection

2025-10-11 11:13:35 +01:00
parent 49fb982877
commit 4949d98789
4 changed files with 28 additions and 21 deletions
@@ -91,7 +91,7 @@ pbsHit sp ep w
    | sp == ep = mempty
    | otherwise =
        sortOn (dist sp . fst)
-            . mapMaybe (\pb -> (,pb) <$> listToMaybe (intersectCircSeg (_pbPos pb) 8 sp ep))
+            . mapMaybe (\pb -> (,pb) <$> fst (intersectCircSeg (_pbPos pb) 8 sp ep))
            . IM.elems
            $ w ^. cWorld . lWorld . pulseBalls