POLYINT: fix comparison for different-length polygons

2014-10-28 18:51:11 +01:00 · 2014-10-28 18:51:11 +01:00 · 61e0063d78
commit 61e0063d78
parent d81b6b1cec
1 changed files with 1 additions and 1 deletions
--- a/Algorithms/PolygonIntersection/Core.hs
+++ b/Algorithms/PolygonIntersection/Core.hs
@ -83,7 +83,7 @@ sortLexPolys (pA'@(_:_), pB'@(_:_)) =
      -- current point of polygon B, so insert it into the resulting
      -- queue and traverse the rest.
      | ptCmpY (fromMaybe negInfPT (id' <$> Q.first pA))
-               (fromMaybe posInfPT (id' <$> Q.first pB)) == GT
+               (fromMaybe negInfPT (id' <$> Q.first pB)) == GT
        = Q.pushFront (go (maybeShift . snd . Q.popFront $ pA) pB)
                      (fromJust . Q.first $ pA)
      -- Same as above, except that the current point of polygon B