images: fix load errors
parent
2220515947
commit
7361bb90fa
|
@ -1,5 +1,6 @@
|
|||
! Copyright (C) 2009 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel accessors grouping sequences combinators ;
|
||||
IN: images
|
||||
|
||||
SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;
|
||||
|
|
|
@ -276,7 +276,7 @@ ERROR: unknown-component-order ifd ;
|
|||
} cleave tiff-image new-image ;
|
||||
|
||||
: tiff>image ( image -- image )
|
||||
ifds>> [ >image ] map first ;
|
||||
ifds>> [ ifd>image ] map first ;
|
||||
|
||||
: load-tiff ( path -- parsed-tiff )
|
||||
binary [
|
||||
|
|
Loading…
Reference in New Issue