From 2b902d0eda628dbb5e63c5513c1ccdc27eeecde3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Oct 2012 05:28:37 -0400 Subject: [PATCH] repair for picture-to-bitmap conversion --- collects/drracket/private/pict-snip.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/pict-snip.rkt b/collects/drracket/private/pict-snip.rkt index 4fb34f1e7e..a85a1b3ee7 100644 --- a/collects/drracket/private/pict-snip.rkt +++ b/collects/drracket/private/pict-snip.rkt @@ -50,7 +50,8 @@ (define/public (convert r d) (case r [(png-bytes) - (define bm (make-bitmap w h)) + (define bm (make-bitmap (inexact->exact (ceiling w)) + (inexact->exact (ceiling h)))) (define dc (send bm make-dc)) (draw dc 0 0 0 0 w h 0 0 #f) (define b (open-output-bytes))