ALGEBRA: fix ccw

2014-10-12 03:04:36 +02:00
parent 378f7887d4
commit e91fb6cd1e
1 changed files with 1 additions and 1 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