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

remove some misguided code,oops

db4
Doug Coleman 2009-09-26 20:34:10 -05:00
parent 030351ef87
commit 4bc6b302cf
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -78,7 +78,6 @@ ERROR: bad-checksum ;
ERROR: unknown-color-type n ; ERROR: unknown-color-type n ;
ERROR: unimplemented-color-type image ; ERROR: unimplemented-color-type image ;
ERROR: unknown-filter-method image ;
: inflate-data ( loading-png -- bytes ) : inflate-data ( loading-png -- bytes )
find-compressed-bytes zlib-inflate ; find-compressed-bytes zlib-inflate ;
@ -117,15 +116,8 @@ ERROR: unknown-filter-method image ;
png-unfilter-line png-unfilter-line
] map B{ } concat-as ; ] map B{ } concat-as ;
: filter-png ( groups loading-png -- byte-array )
filter-method>> {
{ filter-none [ reverse-png-filter ] }
[ unknown-filter-method ]
} case ;
: png-image-bytes ( loading-png -- byte-array ) : png-image-bytes ( loading-png -- byte-array )
[ [ inflate-data ] [ png-group-width ] bi group ] [ inflate-data ] [ png-group-width ] bi group reverse-png-filter ;
[ filter-png ] bi ;
: decode-greyscale ( loading-png -- loading-png ) : decode-greyscale ( loading-png -- loading-png )
unimplemented-color-type ; unimplemented-color-type ;