From 330049fde6a2360a27c2477bcf880b4dda8f75c9 Mon Sep 17 00:00:00 2001 From: hasufell Date: Mon, 6 Oct 2014 21:22:32 +0200 Subject: [PATCH] Rename showEmptyRectB and emptyRect to showWhiteRectB and whiteRect --- Diagram.hs | 12 ++++++------ Gtk.hs | 2 +- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Diagram.hs b/Diagram.hs index a0ab5ff..21a303a 100644 --- a/Diagram.hs +++ b/Diagram.hs @@ -113,10 +113,10 @@ showYAxis = Diag f -- |Creates a Diagram that shows a white rectangle which is a little -- bit bigger as both X and Y axis dimensions from DiagProp. -showEmptyRectB :: Diag -showEmptyRectB = Diag f +showWhiteRectB :: Diag +showWhiteRectB = Diag f where - f p _ = emptyRect (xuD p - xlD p + 50) (yuD p - ylD p + 50) + f p _ = whiteRect (xuD p - xlD p + 50) (yuD p - ylD p + 50) @@ -124,7 +124,7 @@ showEmptyRectB = Diag f diag :: DiagProp -> VTable -> Diagram Cairo R2 diag p = case alg p of 0 -> mkDiag - (mconcat [showCoordinates, showXAxis, showYAxis, showEmptyRectB]) + (mconcat [showCoordinates, showXAxis, showYAxis, showWhiteRectB]) p _ -> mempty @@ -139,5 +139,5 @@ diagS p mesh -- |Create a white rectangle with the given width and height. -emptyRect :: Double -> Double -> Diagram Cairo R2 -emptyRect x y = rect x y # lwG 0.00 # bg white +whiteRect :: Double -> Double -> Diagram Cairo R2 +whiteRect x y = rect x y # lwG 0.00 # bg white diff --git a/Gtk.hs b/Gtk.hs index f7c9101..c2d8882 100644 --- a/Gtk.hs +++ b/Gtk.hs @@ -253,5 +253,5 @@ clearDiag mygui = do let (_, r) = renderDia Cairo (CairoOptions "" (Width 600) SVG False) - (emptyRect 600 600) + (whiteRect 600 600) renderWithDrawable dw r