2014-09-30 22:05:29 +00:00
|
|
|
module Util where
|
|
|
|
|
|
|
|
|
|
|
|
-- |Checks whether the Coordinates are in a given range.
|
2014-10-01 18:17:59 +00:00
|
|
|
inRange :: Double -- ^ min
|
2014-09-30 22:05:29 +00:00
|
|
|
-> Double -- ^ max
|
2014-10-01 18:17:59 +00:00
|
|
|
-> (Double, Double) -- ^ Coordinates to check
|
2014-09-30 22:05:29 +00:00
|
|
|
-> Bool -- ^ result
|
2014-10-01 18:17:59 +00:00
|
|
|
inRange min' max' (x, y)
|
2014-09-30 22:05:29 +00:00
|
|
|
| x <= max' && x >= min' && y <= max' && y >= min' = True
|
|
|
|
| otherwise = False
|
|
|
|
|
|
|
|
|