write-poly ( poly -- )

Vocabulary

shapefiles.private

Inputs

poly

an object

Outputs

None

Definition

USING: accessors combinators sequences ;

IN: shapefiles.private

: write-poly ( poly -- )
    {
        [ box>> [ write-double ] each ]
        [ parts>> length write-int ]
        [ points>> length write-int ]
        [ parts>> [ write-int ] each ]
        [ points>> [ write-point ] each ]
    } cleave ; inline