                 strips>bitmap
                 fix-bitmap-endianness
                 strips-predictor
+                handle-alpha-data
                 drop
             ] each
         ] with-endianness

        [ unknown-component-order ]
    } case ;

: ifd>image ( ifd -- image )
    {
        [ [ image-width find-tag ] [ image-length find-tag ] bi 2array ]

io.binary io.encodings.ascii io.encodings.binary
io.encodings.string io.encodings.utf8 io.files kernel math
math.bitwise math.order math.parser pack prettyprint sequences
strings math.vectors specialized-arrays.float ;
IN: images.tiff

TUPLE: tiff-image < image ;
