set Object1 to {bounds:{523, 520, 750, 464}, width:227, height:56}
set Object2 to {bounds:{501, 569, 738, 514}, width:237, height:55}
return intersect(Object1, Object2)
to intersect(o1, o2)
set {L1, T1, R1, B1} to bounds of o1
set {L2, T2, R2, B2} to bounds of o2
return not ((L1 > R2) or (L2 > R1) or (B1 > T2) or (B2 > T1))
end intersect