From 8f1ab75fe7afa56981c09df83656f6290b712920 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Wed, 1 Oct 2014 03:03:09 +0200
Subject: [PATCH] Set white background for the drawing area

---
 Diagram.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Diagram.hs b/Diagram.hs
index 587afbd..1717bf3 100644
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -9,9 +9,9 @@ import Util
 -- |Create the Diagram from the VTable.
 diagFromVTable :: VTable -> Diagram Cairo R2
 diagFromVTable meshArr
-  = square 500 # lwG 0.05
-    `atop` position (zip (map mkPoint . filterValidCoords 0 500 $ meshArr)
+  = position (zip (map mkPoint . filterValidCoords 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
           mkPoint (x,y) = p2 (x,y)