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)