write-rectangle ( rectangle -- )

Vocabulary

tinyvg

Inputs

rectangle

an object

Outputs

None

Definition

USING: accessors combinators ;

IN: tinyvg

: write-rectangle ( rectangle -- )
    {
        [ x>> write-unit ]
        [ y>> write-unit ]
        [ width>> write-unit ]
        [ height>> write-unit ]
    } cleave ;