update-box ( header shape -- header )


Vocabulary
shapefiles.private

Inputs
headeran object
shapean object


Outputs
headeran object


Definition


:: 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<< ;