(strips-predictor) ( ifd -- ifd )

Vocabulary

images.tiff

Inputs

ifd

an object

Outputs

ifd

an object

Definition

USING: accessors arrays grouping kernel math math.vectors
sequences ;

IN: images.tiff

: (strips-predictor) ( ifd -- ifd )
    [ ] [ image-width find-tag ] [ samples-per-pixel find-tag ]
    tri [ * ] keep '[
        _ group [
            _ [ group ] [ 0 <array> ] bi [ v+ ] accumulate*
            concat
        ] map B{ } concat-as
    ] change-bitmap ;