Remove dependency on gloss

2015-11-25 21:49:48 +01:00
parent f5c4657401
commit 329f4a6ff7
4 changed files with 104 additions and 22 deletions
--- a/Algorithms/PolygonIntersection.hs
+++ b/Algorithms/PolygonIntersection.hs
@@ -127,7 +127,7 @@ intersectionPoints xs' = rmdups . go $ xs'
    segIntersections :: ([(P2 Double, P2 Double)], [(P2 Double, P2 Double)]) -> [P2 Double]
    segIntersections (a@(_:_), b@(_:_)) =
      catMaybes
-      . fmap (\[x, y] -> intersectSeg' x y)
+      . fmap (\[(x1, y1), (x2, y2)] -> intersectSegSeg x1 y1 x2 y2)
      $ combinations a b
    segIntersections _ = []