hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

POLYINT: fix comparison for different-length polygons

Browse Source
This commit is contained in:
hasufell 2014-10-28 18:51:11 +01:00
parent d81b6b1cec
commit 61e0063d78
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Algorithms/PolygonIntersection/Core.hs
View File

@ -83,7 +83,7 @@ sortLexPolys (pA'@(_:_), pB'@(_:_)) =
-- current point of polygon B, so insert it into the resulting -- current point of polygon B, so insert it into the resulting
-- queue and traverse the rest. -- queue and traverse the rest.
| ptCmpY (fromMaybe negInfPT (id' <$> Q.first pA)) | 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) = Q.pushFront (go (maybeShift . snd . Q.popFront $ pA) pB)
(fromJust . Q.first $ pA) (fromJust . Q.first $ pA)
-- Same as above, except that the current point of polygon B -- Same as above, except that the current point of polygon B