read-plain-text-extension ( -- plain-text-extension )

Vocabulary

images.gif

Inputs

None

Outputs

plain-text-extension

an object

Definition

USING: accessors endian io kernel ;

IN: images.gif

: read-plain-text-extension ( -- plain-text-extension )
    \ plain-text-extension new 1 read le> >>block-size
    2 read le> >>text-grid-left 2 read le> >>text-grid-top
    2 read le> >>text-grid-width 2 read le> >>text-grid-height
    1 read le> >>cell-width 1 read le> >>cell-height
    1 read le> >>text-fg-color-index
    1 read le> >>text-bg-color-index
    read-sub-blocks >>plain-text-data ;