save-factor-image ( image filename -- )

Vocabulary

tools.image

Inputs

image	an image
filename	a string

Outputs

None

Word description

Save Factor image from memory

Definition

USING: accessors combinators io io.encodings.binary io.files
kernel tools.image.private ;

IN: tools.image

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