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

random testing found bugs (please include in release)

Browse Source 
svn: r17792
This commit is contained in:
Robby Findler 2010-01-24 02:02:56 +00:00
parent 5f9a774880
commit c0cea48170
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

@ -367,7 +367,7 @@
(cond (cond
[(overlay? shape) [(overlay? shape)
(let ([top-shape (rotate-normalized-shape angle (overlay-top shape))] (let ([top-shape (rotate-normalized-shape angle (overlay-top shape))]
[bottom-shape (rotate-simple angle (overlay-bottom shape))]) [bottom-shape (rotate-cropped-simple angle (overlay-bottom shape))])
(make-overlay top-shape bottom-shape))] (make-overlay top-shape bottom-shape))]
[else [else
(rotate-cropped-simple angle shape)])) (rotate-cropped-simple angle shape)]))
@ -430,7 +430,7 @@
(cond (cond
[(overlay? shape) [(overlay? shape)
(let ([top-ltrb (normalized-shape-bb (overlay-top shape))] (let ([top-ltrb (normalized-shape-bb (overlay-top shape))]
[bottom-ltrb (simple-bb (overlay-bottom shape))]) [bottom-ltrb (cropped-simple-bb (overlay-bottom shape))])
(union-ltrb top-ltrb bottom-ltrb))] (union-ltrb top-ltrb bottom-ltrb))]
[else [else
(cropped-simple-bb shape)])) (cropped-simple-bb shape)]))