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

fix dimensions of cached image bitmap

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-03 19:13:56 -07:00
parent 30f9c4338f
commit cf344b9926
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

@ -318,8 +318,8 @@ has been moved out).
(define/override (draw dc x y left top right bottom dx dy draw-caret?)
(unless cached-bitmap
(set! cached-bitmap (make-bitmap (+ (inexact->exact (round (bb-bottom bb))) 1)
(+ (inexact->exact (round (bb-right bb))) 1)))
(set! cached-bitmap (make-bitmap (+ (inexact->exact (round (bb-right bb))) 1)
(+ (inexact->exact (round (bb-bottom bb))) 1)))
(define bdc (make-object bitmap-dc% cached-bitmap))
(send bdc erase)
(render-image this bdc 0 0)