read-rgb-565 ( -- rgba )

Vocabulary

tinyvg

Inputs

None

Outputs

rgba

an object

Definition

USING: colors endian io kernel math math.bitwise ;

IN: tinyvg

: read-rgb-565 ( -- rgba )
    2 read le>
    [ 5 bits 31 /f ] [ -5 shift 6 bits 63 /f ]
    [ -11 shift 5 bits 31 /f ] tri 1.0 <rgba> ;