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

add a missing degrees to radians conversion in triangle/ass

Browse Source 
closes PR 12199
This commit is contained in:
Robby Findler 2011-09-14 12:35:00 -05:00
parent 347d4d32ba
commit 0e2bd262a8
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/image-more.rkt
View File

@ -1079,7 +1079,7 @@
(define/chk (triangle/ass angle-a side-b side-c mode color)
(define (triangle-vertices/ass A b c)
(list (make-posn 0 0) (make-posn c 0) (polar->posn b A)))
(polygon (triangle-vertices/ass angle-a side-b side-c) mode color))
(polygon (triangle-vertices/ass (radians angle-a) side-b side-c) mode color))
(define/chk (triangle/sas side-a angle-b side-c mode color)
(define (triangle-vertices/sas a B c)

6
collects/2htdp/tests/test-image.rkt
View File

@ -1004,6 +1004,12 @@
=>
#t)
(test (equal~? (triangle/ass 90 60 60 'solid 'red)
(triangle/sss (* 60 (sqrt 2)) 60 60 'solid 'red)
0.001)
=>
#t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; square