save-factor-image ( image filename -- )

Vocabulary

tools.image-uncompressor

Inputs

image	an image
filename	a string

Outputs

None

Word description

Save Factor image from memory

Definition

USING: accessors combinators generalizations io
io.encodings.binary io.files ;

IN: tools.image-uncompressor

: save-factor-image ( image filename -- )
    binary [
        {
            [ leader>> ]
            [ header>> ]
            [ data>> ]
            [ code>> ]
            [ footer>> ]
        } cleave [ write ] 5 napply
    ] with-file-writer ;