DIAGRAM: trim text coordinates to 2 decimal places

2014-10-26 00:19:58 +02:00
parent 55e2ddd500
commit 90eaa45289
1 changed files with 2 additions and 1 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -31,8 +31,9 @@ coordPoints = Diag cp
 -- in text format, such as "(1.0, 2.0)".
 pointToTextCoord :: PT -> Diagram Cairo R2
 pointToTextCoord pt =
-  text ("(" ++ show x ++ ", " ++ show y ++ ")") # scale 10
+  text ("(" ++ (show . trim') x ++ ", " ++ (show . trim') y ++ ")") # scale 10
  where
+    trim' x' = (fromInteger . round $ x' * (10^2)) / (10.0^^2)
    (x, y) = unp2 pt