read-tag ( -- line-width/f tag )

Vocabulary

tinyvg

Inputs

None

Outputs

line-width/f	an object
tag	an object

Definition

USING: io kernel math math.bitwise ;

IN: tinyvg

: read-tag ( -- line-width/f tag )
    read1 [ 4 bit? [ read-unit ] [ f ] if ] [ 3 bits ] bi ;