update-box ( header shape -- header )

Vocabulary

shapefiles.private

Inputs

header	an object
shape	an object

Outputs

header

an object

Definition

USING: accessors kernel math.order math.statistics sequences ;

IN: shapefiles.private

:: update-box ( header shape -- header )
    header shape points>> :> points points [ x>> ] map
    minmax :> ( x-min x-max ) points [ y>> ] map
    minmax :> ( y-min y-max )
    [ x-min [ or ] keep min ] change-x-min
    [ x-max [ or ] keep max ] change-x-max
    [ y-min [ or ] keep min ] change-y-min
    [ y-max [ or ] keep max ] change-y-max
    { x-min y-min x-max y-max } shape box<< ;