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

fixed a bug in bitmap handling

Browse Source 
svn: r16738
This commit is contained in:
Robby Findler 2009-11-13 00:57:31 +00:00
parent 77bd8bac39
commit 01bb6b8b61
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/2htdp/private/image-more.ss
View File

@ -248,11 +248,14 @@
(1 . <= . i)))
(define (bitmap->image bm [mask-bm (send bm get-loaded-mask)])
(make-image (make-bitmap bm mask-bm 0 1 #f)
(make-bb (send bm get-width)
(send bm get-height)
(send bm get-height))
#f))
(let ([w (send bm get-width)]
[h (send bm get-height)])
(make-image (make-translate
(/ w 2)
(/ h 2)
(make-bitmap bm mask-bm 0 1 #f))
(make-bb w h h)
#f)))
(define (image-snip->image is)
(bitmap->image (send is get-bitmap)