read-strips ( ifd -- ifd )

Vocabulary

images.tiff

Inputs

ifd

an object

Outputs

ifd

an object

Definition

USING: accessors arrays io kernel math sequences ;

IN: images.tiff

: read-strips ( ifd -- ifd )
    dup
    [ strip-byte-counts find-tag ] [ strip-offsets find-tag ] bi
    2dup [ integer? ] both?
    [ seek-absolute seek-input read 1array ]
    [ [ seek-absolute seek-input read ] { } 2map-as ] if
    >>strips ;