ifd>image ( ifd -- image )

Vocabulary

images.tiff

Inputs

ifd

an object

Outputs

image

an object

Definition

USING: accessors arrays combinators images kernel ;

IN: images.tiff

: ifd>image ( ifd -- image )
    [ <image> ] dip {
        [
            [ image-width find-tag ] [ image-length find-tag ]
            bi 2array >>dim
        ]
        [
            ifd-component-order
            [ >>component-order ] [ >>component-type ] bi*
        ]
        [ bitmap>> >>bitmap ]
    } cleave ;