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

fix the png conversion code for 2htdp/image images

Browse Source 
closes PR 12061
  please merge to the release branch

original commit: 56b82ba83c5d29afaafbed602c8e14873a14f953
This commit is contained in:
Robby Findler 2011-07-22 08:09:17 -05:00
parent 21ea7fb026
commit ad8348a51d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/image-core.rkt
View File

@ -231,8 +231,8 @@ has been moved out).
(define (to-bitmap img)
(let* ([bb (send img get-bb)]
[bm (make-bitmap
(add1 (inexact->exact (ceiling (bb-right bb))))
(add1 (inexact->exact (ceiling (bb-bottom bb)))))]
(inexact->exact (ceiling (bb-right bb)))
(inexact->exact (ceiling (bb-bottom bb))))]
[bdc (new bitmap-dc% [bitmap bm])])
(send bdc erase)
(render-image img bdc 0 0)