renamd parsed-tiff to loading-tiff
parent
a3f0c6c057
commit
60a0170e38
|
@ -11,8 +11,8 @@ IN: images.tiff
|
|||
|
||||
SINGLETON: tiff-image
|
||||
|
||||
TUPLE: parsed-tiff endianness the-answer ifd-offset ifds ;
|
||||
CONSTRUCTOR: parsed-tiff ( -- tiff ) V{ } clone >>ifds ;
|
||||
TUPLE: loading-tiff endianness the-answer ifd-offset ifds ;
|
||||
CONSTRUCTOR: loading-tiff ( -- tiff ) V{ } clone >>ifds ;
|
||||
|
||||
TUPLE: ifd count ifd-entries next
|
||||
processed-tags strips bitmap ;
|
||||
|
@ -410,7 +410,7 @@ ERROR: bad-small-ifd-type n ;
|
|||
[ nip unhandled-ifd-entry swap ]
|
||||
} case ;
|
||||
|
||||
: process-ifds ( parsed-tiff -- parsed-tiff )
|
||||
: process-ifds ( loading-tiff -- loading-tiff )
|
||||
[
|
||||
[
|
||||
dup ifd-entries>>
|
||||
|
@ -501,12 +501,12 @@ ERROR: unknown-component-order ifd ;
|
|||
: tiff>image ( image -- image )
|
||||
ifds>> [ ifd>image ] map first ;
|
||||
|
||||
: with-tiff-endianness ( parsed-tiff quot -- )
|
||||
: with-tiff-endianness ( loading-tiff quot -- )
|
||||
[ dup endianness>> ] dip with-endianness ; inline
|
||||
|
||||
: load-tiff-ifds ( path -- parsed-tiff )
|
||||
: load-tiff-ifds ( path -- loading-tiff )
|
||||
binary [
|
||||
<parsed-tiff>
|
||||
<loading-tiff>
|
||||
read-header [
|
||||
dup ifd-offset>> read-ifds
|
||||
process-ifds
|
||||
|
@ -538,10 +538,10 @@ ERROR: unknown-component-order ifd ;
|
|||
drop "no planar configuration" throw
|
||||
] if ;
|
||||
|
||||
: process-tif-ifds ( parsed-tiff -- )
|
||||
: process-tif-ifds ( loading-tiff -- )
|
||||
ifds>> [ process-ifd ] each ;
|
||||
|
||||
: load-tiff ( path -- parsed-tiff )
|
||||
: load-tiff ( path -- loading-tiff )
|
||||
[ load-tiff-ifds dup ] keep
|
||||
binary [
|
||||
[ process-tif-ifds ] with-tiff-endianness
|
||||
|
|
Loading…
Reference in New Issue