svn: r15910

2009-09-08 06:52:36 +00:00 · 2009-09-08 06:52:36 +00:00 · 5c283aa969
commit 5c283aa969
parent e95e50435c
1 changed files with 1 additions and 1 deletions
--- a/collects/htdp/image.ss
+++ b/collects/htdp/image.ss
@ -561,7 +561,7 @@ plt/collects/tests/mzscheme/htdp-image.ss
      (cond
        [(zero? n) null]
        [else
-         (let ([angle (+ delta-angle (* 2 pi n (/ 1 points)))])
+         (let ([angle (+ delta-angle (/ (* 2 pi n) points))])
           (cons (make-object point% 
                   (+ radius (* radius (cos angle)))
                   (+ radius (* radius (sin angle))))