compress-data ( image -- image' )

Vocabulary

tools.image.compression.private

Inputs

image

an object

Outputs

image'

an object

Definition

USING: accessors kernel tools.image tools.image.compression ;

IN: tools.image.compression.private

: compress-data ( image -- image' )
    dup uncompressed-data? [ dup data>> compress >>data ] when ;