write-color ( color -- )

Vocabulary

tinyvg

Inputs

color

an object

Outputs

None

Definition

USING: combinators kernel namespaces ;

IN: tinyvg

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