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

svn: r16146

Browse Source
This commit is contained in:
Robby Findler 2009-09-28 18:05:30 +00:00
parent 53a796d7af
commit 522c290678
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/2htdp/private/image-more.ss
View File

@ -421,11 +421,13 @@
[w (ellipse-width atomic-shape)] [w (ellipse-width atomic-shape)]
[h (ellipse-height atomic-shape)] [h (ellipse-height atomic-shape)]
[cos2 (sqr (cos theta))] [cos2 (sqr (cos theta))]
[sin2 (sqr (sin theta))]) [sin2 (sqr (sin theta))]
(values dx [new-w (+ (* w cos2) (* h sin2))]
dy [new-h (+ (* w sin2) (* h cos2))])
(+ dx (* w cos2) (* h sin2)) (values (+ dx (/ (- new-w w) 2))
(+ dy (* w sin2) (* h cos2))))] (+ dy (/ (- new-h h) 2))
(+ dx new-w (/ (- new-w w) 2))
(+ dy new-h (/ (- new-h h) 2))))]
[else [else
(fprintf (current-error-port) "BAD BOUNDING BOX\n") (fprintf (current-error-port) "BAD BOUNDING BOX\n")
(values 0 0 100 100)]))])) (values 0 0 100 100)]))]))