remove debug, fix bootstrap
parent
725a07b62d
commit
bdb95d7fc3
|
@ -30,7 +30,7 @@ GENERIC: stream>image ( stream class -- image )
|
||||||
swap types get set-at ;
|
swap types get set-at ;
|
||||||
|
|
||||||
: load-image ( path -- image )
|
: load-image ( path -- image )
|
||||||
[ open-image-file ] [ image-class new ] bi load-image* ;
|
[ open-image-file ] [ image-class ] bi load-image* ;
|
||||||
|
|
||||||
M: byte-array load-image*
|
M: byte-array load-image*
|
||||||
[ binary <byte-reader> ] dip stream>image ;
|
[ binary <byte-reader> ] dip stream>image ;
|
||||||
|
|
|
@ -449,7 +449,6 @@ ERROR: unhandled-compression compression ;
|
||||||
dup strips>> concat >>bitmap ;
|
dup strips>> concat >>bitmap ;
|
||||||
|
|
||||||
: (strips-predictor) ( ifd -- ifd )
|
: (strips-predictor) ( ifd -- ifd )
|
||||||
B
|
|
||||||
[ ]
|
[ ]
|
||||||
[ image-width find-tag ]
|
[ image-width find-tag ]
|
||||||
[ samples-per-pixel find-tag ] tri
|
[ samples-per-pixel find-tag ] tri
|
||||||
|
|
Loading…
Reference in New Issue