strips-predictor ( ifd -- ifd )

Vocabulary

images.tiff

Inputs

ifd

an object

Outputs

ifd

an object

Definition

USING: combinators kernel ;

IN: images.tiff

: strips-predictor ( ifd -- ifd )
    dup predictor tag? [
        dup predictor find-tag {
            { predictor-none [ ] }
            {
                predictor-horizontal-differencing
                [ (strips-predictor) ]
            }
            [ bad-predictor ]
        } case
    ] when ;