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

This code appears to have been copied from the other

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-25 12:03:10 -05:00
parent 6474b519bb
commit bd7ffb282f
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/deinprogramm/image.rkt
View File

@ -101,8 +101,8 @@
(let ([bm-normal (make-object bitmap% (max 1 width) (max 1 height))] (let ([bm-normal (make-object bitmap% (max 1 width) (max 1 height))]
[bm-bitmap (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-normal (make-bytes (* (max 1 width) (max 1 height) 4))]
[s-bitmap (make-bytes (* width height 4))]) [s-bitmap (make-bytes (* (max 1 width) (max 1 height) 4))])
(send bdc set-bitmap bm-normal) (send bdc set-bitmap bm-normal)
(send bdc clear) (send bdc clear)