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

closes PR 11236

Browse Source 
original commit: 08b9396e2fdea6e1430cfabc130efafe14a5c4b1
This commit is contained in:
Robby Findler 2010-09-21 16:47:55 -05:00
parent 7ce956664d
commit 7a1c34c546
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mrlib/image-core.rkt
View File

@ -774,12 +774,12 @@ has been moved out).
(define (polygon-points->path points)
(let ([path (new dc-path%)])
(send path move-to (round (point-x (car points))) (round (point-y (car points))))
(send path move-to (point-x (car points)) (point-y (car points)))
(let loop ([points (cdr points)])
(unless (null? points)
(send path line-to
(round (point-x (car points)))
(round (point-y (car points))))
(point-x (car points))
(point-y (car points)))
(loop (cdr points))))
(send path close)
;(send path line-to (round (point-x (car points))) (round (point-y (car points))))