From 54d960ad206cfe53450d61738ad0ef22d29446f3 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 16 Nov 2014 00:39:59 +0100
Subject: [PATCH] VEC: rename functions for readability

---
 Algebra/Vector.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Algebra/Vector.hs b/Algebra/Vector.hs
index 7bdc9c4..7410264 100644
--- 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