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

ALGEBRA: fix ccw

Browse Source
This commit is contained in:
hasufell 2014-10-12 03:04:36 +02:00
parent 378f7887d4
commit e91fb6cd1e
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Algebra/Vector.hs
View File

@ -66,7 +66,7 @@ ccw a b c =
(bx - ax) * (bx - ax) *
(cy - ay) - (cy - ay) -
(by - ay) * (by - ay) *
(cx - ax) >= 0 (cx - ax) > 0
where where
(ax, ay) = unp2 a (ax, ay) = unp2 a
(bx, by) = unp2 b (bx, by) = unp2 b