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

ALGO: improve naming of functions

Browse Source
This commit is contained in:
hasufell
2015-01-09 03:58:05 +01:00
parent 825dd9baa9
commit 54284193cd
2 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Algorithms/PolygonTriangulation.hs
View File

@@ -107,18 +107,16 @@ isYmonotone poly =
$ classifyList poly
monotonize :: [PT] -> [[PT]]
monotonize pts
| isYmonotone pts = partitionPoly pts
| and . fmap isYmonotone $ maybeMonotone =
concat . fmap partitionPoly $ maybeMonotone
| otherwise = (\(x, y) -> x ++ (concat . fmap monotonize $ y))
monotonePartitioning :: [PT] -> [[PT]]
monotonePartitioning pts
| isYmonotone pts = [pts]
| and . fmap isYmonotone $ maybeMonotone = maybeMonotone
| otherwise = (\(x, y) -> x ++ (concat . fmap monotonePartitioning $ y))
(partition isYmonotone maybeMonotone)
where
go (x:xs) = splitPoly pts x ++ go xs
go _ = []
maybeMonotone = go (monotoneDiagonals pts)
maybeMonotone = foldr (\x y -> splitPoly pts x ++ y)
[]
(monotoneDiagonals pts)
monotoneDiagonals :: [PT] -> [(PT, PT)]
@@ -137,8 +135,8 @@ monotoneDiagonals pts = catMaybes . go $ classifyList pts
belowS pt pts' = reverse . takeWhile (/= pt) $ sortedYX pts'
partitionPoly :: [PT] -> [[PT]]
partitionPoly pts =
triangulate :: [PT] -> [[PT]]
triangulate pts =
go pts . A.first reverse . splitAt 3 . reverse . sortedYX $ pts
where
go xs (p@[_, _], r:rs) = go xs (r:p, rs)