From d87dc25d26a72e12f9d3989367a84774ce63a3ae Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Mon, 13 Oct 2014 19:58:09 +0200
Subject: [PATCH] DIAG: fix white rectangle border

For bigger dimensions 10 is not enough, so take 10 as percentage.
---
 Graphics/Diagram/Plotter.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs
index 1062e20..b1764bf 100644
--- 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