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

DIAG: fix white rectangle border

Browse Source 
For bigger dimensions 10 is not enough, so take 10 as percentage.
This commit is contained in:
hasufell 2014-10-13 19:58:09 +02:00
parent 7a7bfaa1be
commit d87dc25d26
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Graphics/Diagram/Plotter.hs
View File

@ -176,7 +176,7 @@ whiteRectB :: Diag
whiteRectB = Diag rect' whiteRectB = Diag rect'
where where
rect' p _ = rect' p _ =
whiteRect (w' p + 50) (h' p + 50) # whiteRect (w' p + (w' p / 10)) (h' p + (h' p / 10)) #
moveTo (p2 (wOff p, hOff p)) moveTo (p2 (wOff p, hOff p))
where where