From 5c283aa9697c445ebc62f886e8a2b8a81d0d8162 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 8 Sep 2009 06:52:36 +0000 Subject: [PATCH] svn: r15910 --- collects/htdp/image.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/htdp/image.ss b/collects/htdp/image.ss index 7dd726815c..f8129a8c8e 100644 --- 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))))