suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair for picture-to-bitmap conversion

Browse Source
This commit is contained in:
Matthew Flatt 2012-10-13 05:28:37 -04:00
parent c8dc421ec3
commit 2b902d0eda
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/pict-snip.rkt
View File

@ -50,7 +50,8 @@
(define/public (convert r d) (define/public (convert r d)
(case r (case r
[(png-bytes) [(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)) (define dc (send bm make-dc))
(draw dc 0 0 0 0 w h 0 0 #f) (draw dc 0 0 0 0 w h 0 0 #f)
(define b (open-output-bytes)) (define b (open-output-bytes))