From 9765f3e584559a909cc71a88d23944fd29b43c1d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 9 Sep 2010 05:53:17 -0600 Subject: [PATCH] fix region set-poly --- collects/racket/draw/region.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/racket/draw/region.rkt b/collects/racket/draw/region.rkt index 339c2fd01f..8d4593f106 100644 --- a/collects/racket/draw/region.rkt +++ b/collects/racket/draw/region.rkt @@ -226,12 +226,12 @@ (let ([p (new dc-path%)]) (let ([i (car pts)]) (if (pair? i) - (send p move-to (car i) (cdr i)) - (send p move-to (point-x i) (point-y i)))) + (send p move-to (+ x (car i)) (+ y (cdr i))) + (send p move-to (+ x (point-x i)) (+ y (point-y i))))) (for ([i (in-list (cdr pts))]) (if (pair? i) - (send p line-to (car i) (cdr i)) - (send p line-to (point-x i) (point-y i)))) + (send p line-to (+ x (car i)) (+ y (cdr i))) + (send p line-to (+ x (point-x i)) (+ y (point-y i))))) (send p close) (when matrix (send p transform matrix)) (set! paths (list (cons p fill-style))))))