read-color-correction-table ( -- correction-table )

Vocabulary

images.tga

Inputs

None

Outputs

correction-table

an object

Definition

USING: colors endian io kernel math sequences ;

IN: images.tga

:: read-color-correction-table ( -- correction-table )
    256 <iota> [
        drop 4 <iota> [
            drop 2 read le> 65535 /f
            :> alpha 2 read le> 65535 /f 2 read le> 65535 /f
            2 read le> 65535 /f alpha <rgba>
        ] map
    ] map ; inline