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
@@ -100,5 +100,5 @@ wallBlips :: Point2 -> Float -> World -> ([Point2], S.Set (Point2, Point2))
 wallBlips p r = foldMap f . wlsNearCirc p r
  where
    f wl = case uncurry (intersectCircSeg p r) $ _wlLine wl of
-        [] -> mempty
-        xs -> (xs, S.singleton (wl ^. wlLine))
+        (Nothing,Nothing) -> mempty
+        (a,b) -> (maybeToList a <> maybeToList b, S.singleton (wl ^. wlLine))