write-shx ( header indices -- )

Vocabulary

shapefiles.private

Inputs

header	an object
indices	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: shapefiles.private

: write-shx ( header indices -- )
    [ length 8 * 100 + 2/ >>file-length write-header ]
    [ [ write-index ] each ] bi ;