From c0cea4817088477496a8f1392539d429f23b6465 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 24 Jan 2010 02:02:56 +0000 Subject: [PATCH] random testing found bugs (please include in release) svn: r17792 --- 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 291d358e6f..d97cd4c798 100644 --- a/collects/2htdp/private/image-more.ss +++ b/collects/2htdp/private/image-more.ss @@ -367,7 +367,7 @@ (cond [(overlay? 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))] [else (rotate-cropped-simple angle shape)])) @@ -430,7 +430,7 @@ (cond [(overlay? 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))] [else (cropped-simple-bb shape)]))