read-key-color ( -- color )

Vocabulary

images.tga

Inputs

None

Outputs

color

an object

Definition

USING: colors endian io math ;

IN: images.tga

:: read-key-color ( -- color )
    1 read le> 255 /f :> alpha 1 read le> 255 /f
    1 read le> 255 /f 1 read le> 255 /f alpha <rgba> ; inline