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

VEC: improve readability

Browse Source
This commit is contained in:
hasufell 2014-12-18 00:33:24 +01:00
parent 1545861e5b
commit 2b15585b41
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Algebra/Vector.hs
View File

@ -49,10 +49,10 @@ inRange ((xmin, ymin), (xmax, ymax)) (coords -> x :& y)
-- |Get the angle between two vectors. -- |Get the angle between two vectors.
getAngle :: Vec -> Vec -> Double getAngle :: Vec -> Vec -> Double
getAngle a b = getAngle a b =
acos . acos
flip (/) (vecLength a * vecLength b) . . flip (/) (vecLength a * vecLength b)
scalarProd a $ . scalarProd a
b $ b
-- |Get the length of a vector. -- |Get the length of a vector.