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

Fixes usage of argb-pixels

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-25 12:01:44 -05:00
parent 68051f845a
commit 6474b519bb
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/tests/htdp-lang/htdp-image.rktl
View File

@ -96,8 +96,8 @@
(let ([bm-normal (make-object bitmap% (max 1 width) (max 1 height))]
[bm-bitmap (make-object bitmap% (max 1 width) (max 1 height))]
[s-normal (make-bytes (* width height 4))]
[s-bitmap (make-bytes (* width height 4))])
[s-normal (make-bytes (* (max 1 width) (max 1 height) 4))]
[s-bitmap (make-bytes (* (max 1 width) (max 1 height) 4))])
(send bdc set-bitmap bm-normal)
(send bdc clear)