output-bmp ( image -- )

Vocabulary

images.bitmap

Inputs

image

an object

Outputs

None

Definition

USING: accessors combinators io kernel math sequences ;

IN: images.bitmap

: output-bmp ( image -- )
    B{ 66 77 } write [
        bitmap>> length 14 + 40 + write4 0 write4 54 write4
        40 write4
    ] [
        {
            [ output-width-and-height ]
            [ drop 1 write2 ]
            [ drop 24 write2 ]
            [ drop 0 write4 ]
            [ bitmap>> length write4 ]
            [ drop 0 write4 ]
            [ drop 0 write4 ]
            [ drop 0 write4 ]
            [ drop 0 write4 ]
            [ bitmap>> write ]
        } cleave
    ] bi ;