Finalize and allow drawing

Util.hs

@@ -0,0 +1,19 @@
+module Util where
+
+
+-- |Checks whether the Coordinates are in a given range.
+inRange :: (Double, Double) -- ^ Coordinates to check
+        -> Double           -- ^ min
+        -> Double           -- ^ max
+        -> Bool             -- ^ result
+inRange (x, y) min' max'
+  | x <= max' && x >= min' && y <= max' && y >= min' = True
+  | otherwise = False
+
+
+-- |Filter the valid coordinates.
+filterValidCoords :: Double             -- ^ min
+                    -> Double             -- ^ max
+                    -> [(Double, Double)] -- ^ unfiltered
+                    -> [(Double, Double)] -- ^ filtered
+filterValidCoords min' max' = filter (\(x, y) -> inRange (x, y) min' max')