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)]
[h (ellipse-height atomic-shape)]
[cos2 (sqr (cos theta))]
[sin2 (sqr (sin theta))])
(values dx
dy
(+ dx (* w cos2) (* h sin2))
(+ dy (* w sin2) (* h cos2))))]
[sin2 (sqr (sin theta))]
[new-w (+ (* w cos2) (* h sin2))]
[new-h (+ (* w sin2) (* h cos2))])
(values (+ dx (/ (- new-w w) 2))
(+ dy (/ (- new-h h) 2))
(+ dx new-w (/ (- new-w w) 2))
(+ dy new-h (/ (- new-h h) 2))))]
[else
(fprintf (current-error-port) "BAD BOUNDING BOX\n")
(values 0 0 100 100)]))]))