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

PR 10635

Browse Source 
svn: r17156

original commit: 4c18e8212f0978cc98d2151163b6993e4bd8bd46
This commit is contained in:
Robby Findler 2009-12-02 04:42:35 +00:00
parent 84ae3db260
commit 471bd95f5c
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/private/image-core-bitmap.ss
View File

@ -59,8 +59,8 @@ instead of this scaling code, we use the dc<%>'s scaling code.
[h (send bm get-height)] [h (send bm get-height)]
[bytes (make-bytes (* w h NUM-CHANNELS) 0)]) [bytes (make-bytes (* w h NUM-CHANNELS) 0)])
(send bm get-argb-pixels 0 0 w h bytes #f) (send bm get-argb-pixels 0 0 w h bytes #f)
(when (send bm get-loaded-mask) (when mask
(send (send bm get-loaded-mask) get-argb-pixels 0 0 w h bytes #t)) (send mask get-argb-pixels 0 0 w h bytes #t))
(values bytes w h))) (values bytes w h)))
(define (bytes->bitmap bytes w h) (define (bytes->bitmap bytes w h)