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

fixed the bug uncovered by the test in the previous commit (to 2htdp/tests/test-image.ss)

Browse Source 
svn: r17499
This commit is contained in:
Robby Findler 2010-01-06 18:43:51 +00:00
parent 01c507c1ff
commit 07fcfd8eee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -471,8 +471,8 @@
(rotated-rectangular-bounding-box w h (text-angle atomic-shape)))] (rotated-rectangular-bounding-box w h (text-angle atomic-shape)))]
[(bitmap? atomic-shape) [(bitmap? atomic-shape)
(let ([bb (bitmap-raw-bitmap atomic-shape)]) (let ([bb (bitmap-raw-bitmap atomic-shape)])
(rotated-rectangular-bounding-box (send bb get-width) (rotated-rectangular-bounding-box (* (send bb get-width) (bitmap-x-scale atomic-shape))
(send bb get-height) (* (send bb get-height) (bitmap-y-scale atomic-shape))
(bitmap-angle atomic-shape)))] (bitmap-angle atomic-shape)))]
[else [else
(fprintf (current-error-port) "using bad bounding box for ~s\n" atomic-shape) (fprintf (current-error-port) "using bad bounding box for ~s\n" atomic-shape)