Don't draw borders for the white square

2014-10-02 14:37:51 +02:00 · 2014-10-02 14:37:51 +02:00 · c018304319
commit c018304319
parent cb53b2b61d
1 changed files with 1 additions and 1 deletions
--- 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)