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

ALGO: rm junk

Browse Source
This commit is contained in:
hasufell 2015-01-08 01:37:49 +01:00
parent 211731af0c
commit 550957da13
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Algorithms/PolygonTriangulation.hs
View File

@ -94,21 +94,6 @@ isVRegular prev v next =
&& (not . isVMerge prev v $ next) && (not . isVMerge prev v $ next)
-- A point u is below of v ( u < v ),
-- if u_y < v_y or u_y = v_y and u_x > v_x.
below :: PT -- ^ is this one below the other?
-> PT
-> Bool
below (coords -> ux :& uy) (coords -> vx :& vy) =
(uy <= vy ) && (ux > vx)
-- A point u is above of v , if v < u.
above :: PT -- ^ is this one above the other?
-> PT
-> Bool
above = flip below
-- |Check if polygon is y-monotone. -- |Check if polygon is y-monotone.
isYmonotone :: [PT] -> Bool isYmonotone :: [PT] -> Bool