DIAG: fix white rectangle border
For bigger dimensions 10 is not enough, so take 10 as percentage.
This commit is contained in:
parent
7a7bfaa1be
commit
d87dc25d26
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user