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

ALGO: simplify

Browse Source
This commit is contained in:
hasufell 2015-01-12 22:40:39 +01:00
parent c8541f59b4
commit 41bc7e7744
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Algorithms/PolygonTriangulation.hs
View File

@ -113,14 +113,13 @@ monotonePartitioning pts
| otherwise = go (monotoneDiagonals pts) pts | otherwise = go (monotoneDiagonals pts) pts
where where
go :: [Segment] -> [PT] -> [[PT]] go :: [Segment] -> [PT] -> [[PT]]
go [] _ = [[]] go (x:xs) pts'@(_:_)
go _ [] = [[]]
go (x:xs) pts'
| isYmonotone a && isYmonotone b = [a, b] | isYmonotone a && isYmonotone b = [a, b]
| isYmonotone b = b : go xs a | isYmonotone b = b : go xs a
| otherwise = a : go xs b | otherwise = a : go xs b
where where
[a, b] = splitPoly pts' x [a, b] = splitPoly pts' x
go _ _ = [[]]
-- |Try to eliminate the merge and split vertices by computing the -- |Try to eliminate the merge and split vertices by computing the