From 7a1c34c546d2bf4c59f2b31066cff657e00b0640 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 21 Sep 2010 16:47:55 -0500 Subject: [PATCH] closes PR 11236 original commit: 08b9396e2fdea6e1430cfabc130efafe14a5c4b1 --- collects/mrlib/image-core.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index e8bac3ff..6c15ac3a 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -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))))