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

fix png loading

db4
Doug Coleman 2009-09-28 15:59:20 -05:00
parent 8755f0bba0
commit d7626b177a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6,7 +6,7 @@ io.binary io.encodings.ascii io.encodings.string kernel locals
math math.bitwise math.ranges sequences sorting ;
IN: images.png
TUPLE: png-image < image ;
SINGLETON: png-image
"png" png-image register-image-class
TUPLE: loading-png
@ -128,7 +128,7 @@ ERROR: unimplemented-color-type image ;
[ png-group-width ] tri group reverse-png-filter ;
: loading-png>image ( loading-png -- image )
[ png-image new ] dip {
[ image new ] dip {
[ png-image-bytes >>bitmap ]
[ [ width>> ] [ height>> ] bi 2array >>dim ]
[ drop ubyte-components >>component-type ]