repair for picture-to-bitmap conversion

2012-10-13 05:28:37 -04:00 · 2012-10-13 05:28:37 -04:00 · 2b902d0eda
commit 2b902d0eda
parent c8dc421ec3
1 changed files with 2 additions and 1 deletions
--- 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))