read-ifd ( offset -- ifd )


Vocabulary
images.tiff

Inputs
offsetan object


Outputs
ifdan object


Definition
USING: endian io kernel sequences ;

IN: images.tiff

: read-ifd ( offset -- ifd )
dup seek-absolute seek-input 2 read endian> dup
[ read-ifd-entry ] replicate 4 read endian> <ifd> ;