read-instruction ( -- instruction )

Vocabulary

tinyvg

Inputs

None

Outputs

instruction

an object

Definition

USING: combinators generalizations ;

IN: tinyvg

: read-instruction ( -- instruction )
    read-tag {
        { 0 [ read-point <diagonal-line> ] }
        { 1 [ read-unit <horizontal-line> ] }
        { 2 [ read-unit <vertical-line> ] }
        { 3 [ [ read-point ] 3 call-n <cubic-bezier> ] }
        { 4 [ read-arc read-unit read-point <arc-circle> ] }
        {
            5
            [
                read-arc
                [ read-unit ] 3 call-n read-point <arc-ellipse>
            ]
        }
        { 6 [ <close-path> ] }
        { 7 [ [ read-point ] 2 call-n <quadratic-bezier> ] }
    } case ;