read-image-type ( -- byte )

Vocabulary

images.tga

Inputs

None

Outputs

byte

an object

Definition

USING: endian io kernel sequences ;

IN: images.tga

: read-image-type ( -- byte )
    1 read le> dup { 0 1 2 3 9 10 11 } member?
    [ bad-tga-header ] unless ; inline