From b310c35a3892149ad80f7a7a5463600a3f7de9af Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 2 Dec 2009 05:01:08 +0000 Subject: [PATCH] PR 10634 svn: r17158 --- collects/mrlib/image-core.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mrlib/image-core.ss b/collects/mrlib/image-core.ss index 8f77c5b7b6..875bc9a745 100644 --- a/collects/mrlib/image-core.ss +++ b/collects/mrlib/image-core.ss @@ -626,8 +626,8 @@ the mask bitmap and the original bitmap are all together in a single bytes! [orig-h (send orig-bm get-height)] [x-scale (bitmap-x-scale bitmap)] [y-scale (bitmap-y-scale bitmap)] - [scale-w (* x-scale (send orig-bm get-width))] - [scale-h (* y-scale (send orig-bm get-height))] + [scale-w (ceiling (inexact->exact (* x-scale (send orig-bm get-width))))] + [scale-h (ceiling (inexact->exact (* y-scale (send orig-bm get-height))))] [new-bm (make-object bitmap% scale-w scale-h)] [new-mask (make-object bitmap% scale-w scale-h)]) (send new-bm set-loaded-mask new-mask) @@ -734,6 +734,6 @@ the mask bitmap and the original bitmap are all together in a single bytes! render-image) ;; method names -(provide get-shape get-bb get-normalized?) +(provide get-shape get-bb get-normalized? get-normalized-shape) (provide np-atomic-shape? atomic-shape? simple-shape?)