steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-graphics: set premultiplied-alpha? in make-bitmap-image. Fixes #73

db4
Slava Pestov 2011-09-08 23:08:16 -07:00
parent 104583f888
commit 8d4891a5af
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/core-graphics/core-graphics.factor
View File

@ -155,4 +155,5 @@ PRIVATE>
: make-bitmap-image ( dim quot -- image ) : make-bitmap-image ( dim quot -- image )
'[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap '[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap
ARGB >>component-order ARGB >>component-order
ubyte-components >>component-type ; inline ubyte-components >>component-type
t >>premultiplied-alpha? ; inline

3
basis/images/cocoa/cocoa.factor
View File

@ -57,8 +57,7 @@ PRIVATE>
image CGImageGetHeight :> h image CGImageGetHeight :> h
{ w h } [ { w h } [
0 0 w h <CGRect> image CGContextDrawImage 0 0 w h <CGRect> image CGContextDrawImage
] make-bitmap-image ] make-bitmap-image ;
t >>premultiplied-alpha? ;
M: ns-image stream>image M: ns-image stream>image
drop stream-contents <CGImage> CGImage>image ; drop stream-contents <CGImage> CGImage>image ;