read-graphic-control-extension ( -- graphic-control-extension )

Vocabulary

images.gif

Inputs

None

Outputs

graphic-control-extension

an object

Definition

USING: accessors endian io kernel ;

IN: images.gif

: read-graphic-control-extension
    ( -- graphic-control-extension )
    \ graphics-control-extension new 1 read le>
    GRAPHIC-CONTROL-EXTENSION-BLOCK-SIZE assert=
    1 read le> >>flags 2 read le> >>delay-time
    1 read le> >>transparent-color-index
    1 read le> BLOCK-TERMINATOR assert= ;