ALGO: use isInsidePoly

2015-01-09 03:20:13 +01:00
parent 5b092715aa
commit c96474e6fd
2 changed files with 10 additions and 5 deletions
--- a/Algorithms/PolygonTriangulation.hs
+++ b/Algorithms/PolygonTriangulation.hs
@@ -131,11 +131,7 @@ monotoneDiagonals pts = catMaybes . go $ classifyList pts
    go [] = []
    getSeg [] _ _ = Nothing
    getSeg (z:zs) pt pts'
-      | null
-        . catMaybes
-        . fmap (intersectSeg'' (z, pt))
-        $ polySegments pts
-        = Just (z, pt)
+      | isInsidePoly pts (z, pt) = Just (z, pt)
      | otherwise = getSeg zs pt pts'
    aboveS pt pts' = tail . dropWhile (/= pt) $ sortedYX pts'
    belowS pt pts' = reverse . takeWhile (/= pt) $ sortedYX pts'