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

fix `draw-arc'

Browse Source 
Closes PR 11399
 (Thanks Stephen!)
This commit is contained in:
Matthew Flatt 2010-11-08 14:32:30 -07:00
parent 90ac279096
commit 7940f14896
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -891,7 +891,7 @@
(def/public (draw-arc [real? x] [real? y] [nonnegative-real? width] [nonnegative-real? height] (def/public (draw-arc [real? x] [real? y] [nonnegative-real? width] [nonnegative-real? height]
[real? start-radians] [real? end-radians]) [real? start-radians] [real? end-radians])
(do-draw-arc 'draw-arc x y width height 0 2pi)) (do-draw-arc 'draw-arc x y width height start-radians end-radians))
(def/public (draw-ellipse [real? x] [real? y] [nonnegative-real? width] [nonnegative-real? height]) (def/public (draw-ellipse [real? x] [real? y] [nonnegative-real? width] [nonnegative-real? height])
(do-draw-arc 'draw-ellipse x y width height 0 2pi)) (do-draw-arc 'draw-ellipse x y width height 0 2pi))