Fix haddock docs
This commit is contained in:
parent
357c427f0b
commit
a5473eaf96
@ -66,7 +66,7 @@ grahamGetCH vs = f . grahamSort $ vs
|
|||||||
f xs = xs
|
f xs = xs
|
||||||
|
|
||||||
|
|
||||||
-- |Only compute steps of the graham scan algorithm to allow
|
-- |Compute all steps of the graham scan algorithm to allow
|
||||||
-- visualizing it.
|
-- visualizing it.
|
||||||
grahamGetCHSteps :: [PT] -> [[PT]]
|
grahamGetCHSteps :: [PT] -> [[PT]]
|
||||||
grahamGetCHSteps vs = reverse . g $ (length . grahamGetCH $ vs)
|
grahamGetCHSteps vs = reverse . g $ (length . grahamGetCH $ vs)
|
||||||
|
@ -62,7 +62,7 @@ vp2 a b = (pt2Vec b) - (pt2Vec a)
|
|||||||
|
|
||||||
|
|
||||||
-- |Checks if 3 points a,b,c build a counterclock wise triangle by
|
-- |Checks if 3 points a,b,c build a counterclock wise triangle by
|
||||||
-- connecting a-b-c. This is done by computing thed determinant and
|
-- connecting a-b-c. This is done by computing the determinant and
|
||||||
-- checking the algebraic sign.
|
-- checking the algebraic sign.
|
||||||
ccw :: PT -> PT -> PT -> Bool
|
ccw :: PT -> PT -> PT -> Bool
|
||||||
ccw a b c = (bx - ax) *
|
ccw a b c = (bx - ax) *
|
||||||
|
Loading…
Reference in New Issue
Block a user