write-rgb-565 ( rgba -- )

Vocabulary

tinyvg

Inputs

rgba

an object

Outputs

None

Definition

USING: colors combinators endian io kernel math ;

IN: tinyvg

: write-rgb-565 ( rgba -- )
    >rgba-components drop {
        [ 31 * >integer ]
        [ 63 * >integer 5 shift bitor ]
        [ 31 * >integer 11 shift bitor ]
    } spread 2 >le write ;