write-style-kind ( style n -- )

Vocabulary

tinyvg

Inputs

style	an object
n	an object

Outputs

None

Definition

USING: combinators io kernel math ;

IN: tinyvg

: write-style-kind ( style n -- )
    swap {
        { [ dup flat-colored? ] [ drop 0 ] }
        { [ dup linear-gradient? ] [ drop 1 ] }
        { [ dup radial-gradient? ] [ drop 2 ] }
    } cond 6 shift bitor write1 ;