read-image-descriptor ( -- image-descriptor )

Vocabulary

images.gif

Inputs

None

Outputs

image-descriptor

an object

Definition

USING: accessors endian io kernel math ;

IN: images.gif

: read-image-descriptor ( -- image-descriptor )
    \ image-descriptor new 2 read le> >>left 2 read le> >>top
    2 read le> >>width 2 read le> >>height 1 read le> >>flags
    1 read le> 1 + >>first-code-size ;