From d7626b177abc3499b85d9bf863a974ca55380795 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 28 Sep 2009 15:59:20 -0500 Subject: [PATCH] fix png loading --- basis/images/png/png.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/images/png/png.factor b/basis/images/png/png.factor index 3dfbaefbd7..2af44e4e1d 100755 --- a/basis/images/png/png.factor +++ b/basis/images/png/png.factor @@ -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 ]