DIAG: rm whiteRect function, it's only used once

This commit is contained in:
hasufell 2014-12-03 22:11:10 +01:00
parent a7774b69a4
commit d2dc5dee02
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 7 deletions

View File

@ -85,17 +85,14 @@ yAxis =
whiteRectB :: Diag
whiteRectB = Diag rect'
where
rect' p _ = whiteRect (diagWidth p + (diagWidth p / 10))
(diagHeight p + (diagHeight p / 10))
rect' p _ = rect (diagWidth p + (diagWidth p / 10))
(diagHeight p + (diagHeight p / 10))
# lwG 0.00
# bg white
# moveTo (p2 (diagWidthOffset p, diagHeightOffset p))
where
-- |Create a white rectangle with the given width and height.
whiteRect :: Double -> Double -> Diagram Cairo R2
whiteRect x y = rect x y # lwG 0.00 # bg white
-- |Create a grid across the whole diagram with squares of the
-- given size in DiagProp.
grid :: Diag