read-outline-fill ( style-kind -- fill-style line-style line-width count )

Vocabulary

tinyvg

Inputs

style-kind

an object

Outputs

fill-style	an object
line-style	an object
line-width	an object
count	an object

Definition

USING: io kernel math math.bitwise ;

IN: tinyvg

: read-outline-fill
    ( style-kind -- fill-style line-style line-width count )
    read1 [ -6 shift ] [ 6 bits ] bi
    [ [ read-style ] bi@ read-unit ] dip ;