From 07fcfd8eee9d36946dceda4e535bba3ba9f4efcd Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 6 Jan 2010 18:43:51 +0000 Subject: [PATCH] fixed the bug uncovered by the test in the previous commit (to 2htdp/tests/test-image.ss) svn: r17499 --- collects/2htdp/private/image-more.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/private/image-more.ss b/collects/2htdp/private/image-more.ss index f58fd00780..e6f2956a98 100644 --- a/collects/2htdp/private/image-more.ss +++ b/collects/2htdp/private/image-more.ss @@ -471,8 +471,8 @@ (rotated-rectangular-bounding-box w h (text-angle atomic-shape)))] [(bitmap? atomic-shape) (let ([bb (bitmap-raw-bitmap atomic-shape)]) - (rotated-rectangular-bounding-box (send bb get-width) - (send bb get-height) + (rotated-rectangular-bounding-box (* (send bb get-width) (bitmap-x-scale atomic-shape)) + (* (send bb get-height) (bitmap-y-scale atomic-shape)) (bitmap-angle atomic-shape)))] [else (fprintf (current-error-port) "using bad bounding box for ~s\n" atomic-shape)