From 1309cd03d7f1ac6475bfd5bce2a66d34879fdb56 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 26 Feb 2010 03:38:00 +0000 Subject: [PATCH] PR 10783 addendum svn: r18346 original commit: 700a530f4e4e0d971bd8a12f53aa9b07d5008956 --- collects/mrlib/image-core.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/image-core.ss b/collects/mrlib/image-core.ss index f81e1a78..c81735f2 100644 --- a/collects/mrlib/image-core.ss +++ b/collects/mrlib/image-core.ss @@ -562,8 +562,8 @@ has been moved out). (define (save-image-as-bitmap image filename kind) (let* ([bb (send image get-bb)] [bm (make-object bitmap% - (ceiling (inexact->exact (bb-right bb))) - (ceiling (inexact->exact (bb-bottom bb))))] + (+ 1 (ceiling (inexact->exact (bb-right bb)))) + (+ 1 (ceiling (inexact->exact (bb-bottom bb)))))] [bdc (make-object bitmap-dc% bm)]) (send bdc clear) (render-image image bdc 0 0)