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

fix region set-poly

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-09 05:53:17 -06:00
parent f13b569b75
commit 9765f3e584
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/racket/draw/region.rkt
View File

@ -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))))))