DIAG: fix white rectangle border

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

View File

@ -176,7 +176,7 @@ whiteRectB :: Diag
whiteRectB = Diag rect'
where
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))
where