read-os2v1-header ( -- os2v1-header )

Vocabulary

images.bitmap

Inputs

None

Outputs

os2v1-header

an object

Definition

USING: accessors kernel math.bitwise ;

IN: images.bitmap

: read-os2v1-header ( -- os2v1-header )
    \ os2v1-header new read2 >>width read2 16 >signed >>height
    read2 >>planes read2 >>bit-count ;