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

VEC: rename functions for readability

Browse Source
This commit is contained in:
hasufell 2014-11-16 00:39:59 +01:00
parent 84bfeb27e0
commit 54d960ad20
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Algebra/Vector.hs
View File

@ -14,8 +14,8 @@ import MyPrelude
inRange :: Square -- ^ the square, defined by x/y dimensions inRange :: Square -- ^ the square, defined by x/y dimensions
-> PT -- ^ Coordinate -> PT -- ^ Coordinate
-> Bool -- ^ result -> Bool -- ^ result
inRange ((xlD, xuD), (ylD, yuD)) p = inRange ((xmin, xmax), (ymin, ymax)) p =
x <= xuD && x >= xlD && y <= yuD && y >= ylD x <= xmax && x >= xmin && y <= ymax && y >= ymin
where where
(x, y) = unp2 p (x, y) = unp2 p