From 6c728324fd57de69579ef2812f979667114f9c66 Mon Sep 17 00:00:00 2001 From: hasufell Date: Sun, 5 Oct 2014 21:33:22 +0200 Subject: [PATCH] Rm obsolete centerX/centerY --- Diagram.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Diagram.hs b/Diagram.hs index 720cb1a..2173452 100644 --- a/Diagram.hs +++ b/Diagram.hs @@ -32,8 +32,8 @@ diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2 diagFromVTable prop vt = position (zip (map mkPoint . filter (inRange (dX prop) (dY prop)) $ vt) (repeat dot)) # moveTo (p2(xOffset, yOffset)) - `atop` hrule (xuD - xlD) # centerX # moveTo (p2(0, yOffset)) - `atop` vrule (yuD - ylD) # centerY # moveTo (p2(xOffset, 0)) + `atop` hrule (xuD - xlD) # moveTo (p2(0, yOffset)) + `atop` vrule (yuD - ylD) # moveTo (p2(xOffset, 0)) `atop` emptyRect (xuD - xlD + 50) (yuD - ylD + 50) where dot = (circle $ t prop :: Diagram Cairo R2) # fc black