lookup-jpeg-proc ( sequence -- object )

Vocabulary

images.tiff

Inputs

sequence

an object

Outputs

object

an object

Definition

USING: combinators ;

IN: images.tiff

: lookup-jpeg-proc ( sequence -- object )
    {
        { 1 [ jpeg-proc-baseline ] }
        { 14 [ jpeg-proc-lossless ] }
        [ bad-jpeg-proc ]
    } case ;