From 522c290678dbd070adf787a9746ffad2df765765 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 28 Sep 2009 18:05:30 +0000 Subject: [PATCH] svn: r16146 --- collects/2htdp/private/image-more.ss | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/collects/2htdp/private/image-more.ss b/collects/2htdp/private/image-more.ss index 6855332c9a..408cfd13f5 100644 --- a/collects/2htdp/private/image-more.ss +++ b/collects/2htdp/private/image-more.ss @@ -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)]))]))