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/Algebra/Polygon.hs
+++ b/Algebra/Polygon.hs
@@ -37,7 +37,7 @@ isInsidePoly :: [P2 Double] -> (P2 Double, P2 Double) -> Bool
 isInsidePoly pts seg =
  null
    . catMaybes
-    . fmap (intersectSeg'' seg)
+    . fmap (intersectSeg seg)
    $ polySegments pts