read-GIF89a ( loading-gif -- loading-gif )

Vocabulary

images.gif

Inputs

loading-gif

an object

Outputs

loading-gif

an object

Definition

USING: accessors kernel ;

IN: images.gif

: read-GIF89a ( loading-gif -- loading-gif )
    read-logical-screen-descriptor read-global-color-table
    [ read-data dup loading?>> ] loop ;