VEC: rename functions for readability

2014-11-16 00:39:59 +01:00 · 2014-11-16 00:39:59 +01:00 · 54d960ad20
parent 84bfeb27e0
commit 54d960ad20
1 changed files with 2 additions and 2 deletions
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@ -14,8 +14,8 @@ import MyPrelude
 inRange :: Square -- ^ the square, defined by x/y dimensions
        -> PT     -- ^ Coordinate
        -> Bool   -- ^ result
-inRange ((xlD, xuD), (ylD, yuD)) p =
-  x <= xuD && x >= xlD && y <= yuD && y >= ylD
+inRange ((xmin, xmax), (ymin, ymax)) p =
+  x <= xmax && x >= xmin && y <= ymax && y >= ymin
  where
    (x, y) = unp2 p