write-outline-fill ( command n seq -- )

Vocabulary

tinyvg

Inputs

command	an object
n	an object
seq	an object

Outputs

None

Definition

USING: accessors math sequences ;

IN: tinyvg

:: write-outline-fill ( command n seq -- )
    command fill-style>> n write-style-kind
    command line-style>> seq length 1 - write-style-kind
    command fill-style>> write-style
    command line-style>> write-style
    command line-width>> write-unit ; inline