ALGO: fix documentation

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

View File

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