write-shx ( header indices -- )


Vocabulary
shapefiles.private

Inputs
headeran object
indicesan 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 ;