center point of overlapping bounding boxes

[PolyPusher]

Hi,

Given to bBoxes that intersect I want to find the center point of the
two. Where do I start?

Thank you,
Eric

 

[Andrew Beckett]

PolyPusher wrote, on 10/11/11 14:36:

Hi,

Given to bBoxes that intersect I want to find the center point of the
two. Where do I start?

Thank you,
Eric

Eric

procedure(abMultiBoxCenter(@rest boxes)
centerBox(
list(apply('mapcar 'min mapcar('lowerLeft boxes))
apply('mapcar 'max mapcar('upperRight boxes))
)
)
)

You can then do:

abMultiBoxCenter(bBox1 bBox2)

(or indeed abMultiBoxCenter(bBox1 bBox2 bBox3 bBox4...) if you wanted).

Andrew.