VEC: fix orientation, it was swapped
This commit is contained in:
parent
f82c948055
commit
4936023c14
@ -77,8 +77,8 @@ det a b c =
|
|||||||
-- * collinear
|
-- * collinear
|
||||||
getOrient :: PT -> PT -> PT -> Alignment
|
getOrient :: PT -> PT -> PT -> Alignment
|
||||||
getOrient a b c = case compare (det a b c) 0 of
|
getOrient a b c = case compare (det a b c) 0 of
|
||||||
GT -> CW
|
LT -> CW
|
||||||
LT -> CCW
|
GT -> CCW
|
||||||
EQ -> CL
|
EQ -> CL
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user