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

regular-polygon now makes triangle

Browse Source 
svn: r8827
This commit is contained in:
Robby Findler 2008-02-29 07:27:49 +00:00
parent 7e934a6ad5
commit 634b8c35fd
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/htdp/image.ss
View File

@ -513,12 +513,11 @@ plt/collects/tests/mzscheme/image-test.ss
[h (+ bottom 1)])
(make-simple-cache-image-snip w h (floor (/ w 2)) (floor (/ h 2)) draw mask-draw)))
(define (regular-polygon sides in-radius mode color [angle 0])
(check 'regular-polygon
(λ (x) (and (integer? x) (<= 4 sides 10000)))
(λ (x) (and (integer? x) (<= 3 sides 10000)))
sides
"positive integer bigger than or equal to 4"
"positive integer bigger than or equal to 3"
"first")
(check-size 'star in-radius "second")
(check-mode 'regular-polygon mode "third")