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

fix Slideshow rounded-rectangle

Browse Source 
svn: r16434
This commit is contained in:
Matthew Flatt 2009-10-26 19:32:58 +00:00
parent 9dc53f261e
commit 2ab4f88188
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/texpict/utils.ss
View File

@ -280,9 +280,9 @@
w
h))
(define (rounded-rectangle w h [corner-radius 0.25] #:angle [angle 0])
(define (rounded-rectangle w h [corner-radius -0.25] #:angle [angle 0])
(let ([dc-path (new dc-path%)])
(send dc-path rounded-rectangle 0 0 w h (- corner-radius))
(send dc-path rounded-rectangle 0 0 w h corner-radius)
(send dc-path rotate angle)
(let-values ([(x y w h) (send dc-path get-bounding-box)])
(dc (λ (dc dx dy)