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

fixed an imprecision error

Browse Source 
svn: r16633

original commit: 53f82909283cfe8444e3340d4a9f11b1edbe8fa7
This commit is contained in:
Robby Findler 2009-11-09 16:59:53 +00:00
parent d264ada81b
commit 4e19eb92e0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mrlib/image-core.ss
View File

@ -432,15 +432,16 @@ has been moved out).
[points (polygon-points simple-shape)])
(send path move-to (point-x (car points)) (point-y (car points)))
(let loop ([point (make-rectangular (point-x (car points)) (point-y (car points)))]
[last-point (car points)]
[points (cdr points)])
(unless (null? points)
(let* ([vec (make-rectangular (- (point-x (car points))
(real-part point))
(point-x last-point))
(- (point-y (car points))
(imag-part point)))]
(point-y last-point)))]
[endpoint (+ point vec (make-polar -1 (angle vec)))])
(send path line-to (real-part endpoint) (imag-part endpoint))
(loop endpoint (cdr points)))))
(send path line-to (real-part endpoint) (imag-part endpoint))
(loop endpoint (car points) (cdr points)))))
(send path line-to (point-x (car points)) (point-y (car points)))
(send dc set-pen (mode-color->pen (polygon-mode simple-shape) (polygon-color simple-shape)))
(send dc set-brush (mode-color->brush (polygon-mode simple-shape) (polygon-color simple-shape)))