read-style ( style-kind -- style )

Vocabulary

tinyvg

Inputs

style-kind

an object

Outputs

style

an object

Definition

USING: combinators ;

IN: tinyvg

: read-style ( style-kind -- style )
    {
        { 0 [ read-color-index <flat-colored> ] }
        { 1 [ linear-gradient read-gradient ] }
        { 2 [ radial-gradient read-gradient ] }
    } case ;