read-command ( -- command/f )

Vocabulary

tinyvg

Inputs

None

Outputs

command/f

an object

Definition

USING: combinators io kernel math math.bitwise ;

IN: tinyvg

: read-command ( -- command/f )
    read1 [ -6 shift ] [ 6 bits ] bi {
        { 0 [ 0 assert= f ] }
        { 1 [ read-fill-polygon ] }
        { 2 [ read-fill-rectangles ] }
        { 3 [ read-fill-path ] }
        { 4 [ read-draw-lines ] }
        { 5 [ read-draw-line-loop ] }
        { 6 [ read-draw-line-strip ] }
        { 7 [ read-draw-line-path ] }
        { 8 [ read-outline-fill-polygon ] }
        { 9 [ read-outline-fill-rectangles ] }
        { 10 [ read-outline-fill-path ] }
    } case ;