ALGO: fix algorithm to show collinear points as part of the hull

There was also a bug to be fixed when doing this. We missed an important pattern match case which casued wrong results.
2014-10-12 19:19:44 +02:00
parent bfcc9bfdf7
commit 37b38115ae
2 changed files with 22 additions and 14 deletions
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@@ -66,7 +66,7 @@ ccw a b c =
  (bx - ax)   *
    (cy - ay) -
    (by - ay) *
-    (cx - ax) > 0
+    (cx - ax) >= 0
  where
    (ax, ay) = unp2 a
    (bx, by) = unp2 b