hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Graphics/Diagram/Plotter.hs
View File

@ -85,17 +85,14 @@ yAxis =
whiteRectB :: Diag whiteRectB :: Diag
whiteRectB = Diag rect' whiteRectB = Diag rect'
where where
rect' p _ = whiteRect (diagWidth p + (diagWidth p / 10)) rect' p _ = rect (diagWidth p + (diagWidth p / 10))
(diagHeight p + (diagHeight p / 10)) (diagHeight p + (diagHeight p / 10))
# lwG 0.00
# bg white
# moveTo (p2 (diagWidthOffset p, diagHeightOffset p)) # moveTo (p2 (diagWidthOffset p, diagHeightOffset p))
where 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 -- |Create a grid across the whole diagram with squares of the
-- given size in DiagProp. -- given size in DiagProp.
grid :: Diag grid :: Diag