write-record ( shape index -- )

Vocabulary

shapefiles.private

Inputs

shape	an object
index	an object

Outputs

None

Definition

USING: endian io io.encodings.binary io.streams.byte-array
kernel math sequences ;

IN: shapefiles.private

: write-record ( shape index -- )
    1 + 4 >be write binary [ write-shape ] with-byte-writer
    [ length 2/ 4 >be write ] [ write ] bi ;