From c018304319ff9396227fcb8d0805e75aeffdf89c Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 2 Oct 2014 14:37:51 +0200
Subject: [PATCH] Don't draw borders for the white square

---
 Diagram.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Diagram.hs b/Diagram.hs
index 6ee5b6a..e727d96 100644
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -18,7 +18,7 @@ diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
 diagFromVTable prop vt
   = position (zip (map mkPoint . filter (inRange 0 500) $ vt)
                   (repeat dot)) # moveTo (p2(-250, -250))
-     `atop` square 500 # lwG 0.05 # bg white
+     `atop` square 500 # lwG 0.00 # bg white
         where dot           = (circle $
                                getThickness prop :: Diagram Cairo R2) # fc black
               mkPoint (x,y) = p2 (x,y)