DIAG: fix white rectangle border

For bigger dimensions 10 is not enough, so take 10 as percentage.
2014-10-13 19:58:09 +02:00 · 2014-10-13 19:58:09 +02:00 · d87dc25d26
parent 7a7bfaa1be
commit d87dc25d26
1 changed files with 1 additions and 1 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@ -176,7 +176,7 @@ whiteRectB :: Diag
 whiteRectB = Diag rect'
  where
    rect' p _ =
-      whiteRect (w' p + 50) (h' p + 50) #
+      whiteRect (w' p + (w' p / 10)) (h' p + (h' p / 10)) #
        moveTo (p2 (wOff p, hOff p))
      where