read-color ( -- color )

Vocabulary

tinyvg

Inputs

None

Outputs

color

an object

Definition

USING: combinators kernel namespaces ;

IN: tinyvg

: read-color ( -- color )
    color-encoding get {
        { 0 [ read-rgba-8888 ] }
        { 1 [ read-rgb-565 ] }
        { 2 [ read-rgba-f32 ] }
        { 3 [ "unsupported color encoding" throw ] }
    } case ;