read-color-map-type ( -- byte )

Vocabulary

images.tga

Inputs

None

Outputs

byte

an object

Definition

USING: endian io kernel sequences ;

IN: images.tga

: read-color-map-type ( -- byte )
    1 read le> dup { 0 1 } member? [ bad-tga-header ] unless ;