repair for picture-to-bitmap conversion

(cherry picked from commit 2b902d0eda)
This commit is contained in:
Matthew Flatt 2012-10-13 05:28:37 -04:00 committed by Ryan Culpepper
parent f63b0d2622
commit 513f85baa2

View File

@ -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))