output-width-and-height ( image -- )

Vocabulary

images.bitmap

Inputs

image

an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: images.bitmap

: output-width-and-height ( image -- )
    [ dim>> first write4 ] [
        [ dim>> second ] [ upside-down?>> ] bi [ neg ] unless
        write4
    ] bi ;