Rm useless filterValidCoords, refactor inRange

2014-10-01 20:17:59 +02:00
parent eaaa699035
commit aec00c7e4d
2 changed files with 4 additions and 10 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -9,7 +9,7 @@ import Util
 -- |Create the Diagram from the VTable.
 diagFromVTable :: VTable -> Diagram Cairo R2
 diagFromVTable meshArr
-  = position (zip (map mkPoint . filterValidCoords 0 500 $ meshArr)
+  = position (zip (map mkPoint . filter (inRange 0 500) $ meshArr)
                     (repeat dot)) # moveTo (p2(-250, -250))
   `atop` square 500 # lwG 0.05 # bg white
    where dot           = (circle 2 :: Diagram Cairo R2) # fc black