write-header ( header -- )

Vocabulary

shapefiles.private

Inputs

header

an object

Outputs

None

Definition

USING: accessors byte-arrays combinators endian io kernel ;

IN: shapefiles.private

: write-header ( header -- )
    {
        [ file-code>> 4 >be write ]
        [ drop 20 <byte-array> write ]
        [ file-length>> 4 >be write ]
        [ version>> write-int ]
        [ shape-type>> write-int ]
        [ x-min>> 0.0 or write-double ]
        [ y-min>> 0.0 or write-double ]
        [ x-max>> 0.0 or write-double ]
        [ y-max>> 0.0 or write-double ]
        [ z-min>> 0.0 or write-double ]
        [ z-max>> 0.0 or write-double ]
        [ m-min>> 0.0 or write-double ]
        [ m-max>> 0.0 or write-double ]
    } cleave ;