write-arc ( instruction -- )

Vocabulary

tinyvg

Inputs

instruction

an object

Outputs

None

Definition

USING: accessors io kernel math ;

IN: tinyvg

: write-arc ( instruction -- )
    [ large-arc?>> 1 0 ? ] [ sweep?>> [ 2 bitor ] when ] bi
    write1 ;