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

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>> {