adjust-offset/value ( ifd-entry -- obj )

Vocabulary

images.tiff

Inputs

ifd-entry

an object

Outputs

obj

an object

Definition

USING: accessors combinators endian kernel math math.bitwise
sequences ;

IN: images.tiff

: adjust-offset/value ( ifd-entry -- obj )
    [ offset/value>> 4 >endian ] [ type>> ] bi {
        { 1 [ 1 head endian> ] }
        { 3 [ 2 head endian> ] }
        { 4 [ endian> ] }
        { 6 [ 1 head endian> 8 >signed ] }
        { 8 [ 2 head endian> 16 >signed ] }
        { 9 [ endian> 32 >signed ] }
        { 11 [ endian> bits>float ] }
        { 13 [ endian> 32 >signed ] }
        [ bad-small-ifd-type ]
    } case ;