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

fixed bug in image library

Browse Source 
svn: r4230

original commit: bc388368a777f14ed0a21f50dd2cb36606a6dbd9
This commit is contained in:
Robby Findler 2006-09-03 04:03:06 +00:00
parent 9839bcbf91
commit 7c25320deb
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mrlib/cache-image-snip.ss
View File

@ -147,7 +147,9 @@
void
(lambda (x) #f))])
(if data
(argb->cache-image-snip (make-argb (first data) (second data)) (third data) (fourth data))
(argb->cache-image-snip (make-argb (first data) (second data))
(third data)
(fourth data))
(make-null-cache-image-snip))))
(super-new)))
@ -634,9 +636,16 @@ for b3, we have:
(* -255 m3))
(- 255 m3))))
(define bitmap-size/c (and/c integer? exact? (between/c 1 10000)))
(provide/contract
[overlay-bitmap (argb? number? number? (is-a?/c bitmap%) (is-a?/c bitmap%) . -> . any)]
[build-bitmap (((is-a?/c dc<%>) . -> . any) number? number? . -> . (is-a?/c bitmap%))]
[overlay-bitmap (argb? (and/c integer? exact?)
(and/c integer? exact?)
(is-a?/c bitmap%)
(is-a?/c bitmap%)
. -> .
any)]
[build-bitmap (((is-a?/c dc<%>) . -> . any) bitmap-size/c bitmap-size/c . -> . (is-a?/c bitmap%))]
[flatten-bitmap ((is-a?/c bitmap%) . -> . (is-a?/c bitmap%))]
[argb->cache-image-snip (argb? number? number? . -> . (is-a?/c cache-image-snip%))]