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

fix byte swapping on greyscale-alpha

db4
Doug Coleman 2009-10-08 20:37:00 -05:00
parent fd4c6b73bb
commit 796b1c8977
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,7 +215,7 @@ ERROR: invalid-color-type/bit-depth loading-png ;
: decode-greyscale-alpha ( loading-image -- byte-array' ) : decode-greyscale-alpha ( loading-image -- byte-array' )
[ raw-bytes ] [ bit-depth>> ] bi 16 = [ [ raw-bytes ] [ bit-depth>> ] bi 16 = [
3 group [ first3 swapd 3array ] map B{ } concat-as 4 group [ first4 [ swap ] 2dip 4array ] map B{ } concat-as
] when ; ] when ;
: loading-png>bitmap ( loading-png -- bytes component-order ) : loading-png>bitmap ( loading-png -- bytes component-order )