suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't draw 0-sized rectangles

Browse Source 
Closes PR 11466
This commit is contained in:
Matthew Flatt 2010-12-02 13:05:46 -07:00
parent ffb56642de
commit da2e0e9556
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/draw/private/dc.rkt
View File

@ -962,11 +962,13 @@
(cairo_new_path cr)
(cairo_rectangle cr x y width height)
(draw cr #t #f)
(cairo_new_path cr)
(cairo_rectangle cr ax ay
(- (align-x (+ x (sub1 width))) ax)
(- (align-y (+ y (sub1 height))) ay))
(draw cr #f #t))))
(let ([w2 (- (align-x (+ x (sub1 width))) ax)]
[h2 (- (align-y (+ y (sub1 height))) ay)])
(when (and (positive? w2)
(positive? h2))
(cairo_new_path cr)
(cairo_rectangle cr ax ay w2 h2)
(draw cr #f #t))))))
(def/public (draw-rounded-rectangle [real? x] [real? y] [nonnegative-real? width] [nonnegative-real? height]
[real? [radius -0.25]])