read-color-map ( type length elt-size -- color-map )


Vocabulary
images.tga

Inputs
typean object
lengthan object
elt-sizean object


Outputs
color-mapan object


Definition
USING: io kernel math ;

IN: images.tga

: read-color-map ( type length elt-size -- color-map )
pick 1 = [ 8 align 8 / * read ] [ 2drop f ] if nip ; inline