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

ALGO: fix documentation

Browse Source
This commit is contained in:
hasufell 2015-01-09 04:08:19 +01:00
parent 70e6ada121
commit 3a1361b463
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Algorithms/PolygonTriangulation.hs
View File

@ -139,8 +139,7 @@ monotoneDiagonals pts = catMaybes . go $ classifyList pts
belowS pt pts' = reverse . takeWhile (/= pt) $ sortedYX pts' belowS pt pts' = reverse . takeWhile (/= pt) $ sortedYX pts'
-- |A simple polygon with n vertices can be partitioned into y-monotone pieces -- |Triangulate a y-monotone polygon.
-- in O(n log n).
triangulate :: [PT] -> [[PT]] triangulate :: [PT] -> [[PT]]
triangulate pts = triangulate pts =
go pts . A.first reverse . splitAt 3 . reverse . sortedYX $ pts go pts . A.first reverse . splitAt 3 . reverse . sortedYX $ pts