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

handle RGBA pngs (when inflate finally works)

db4
Joe Groff 2009-08-23 09:51:12 -05:00
parent f93363567e
commit 556adeb9b4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/images/png/png.factor
View File

@ -95,7 +95,11 @@ ERROR: unimplemented-color-type image ;
unimplemented-color-type ;
: decode-truecolor-alpha ( loading-png -- loading-png )
unimplemented-color-type ;
[ <image> ] dip {
[ png-image-bytes >>bitmap ]
[ [ width>> ] [ height>> ] bi 2array >>dim ]
[ drop RGBA >>component-order ubyte-components >>component-type ]
} cleave ;
: decode-png ( loading-png -- loading-png )
dup color-type>> {