restore intcq001.brep m
explode m
compound m_1 m_3 c1
compound m_2 m_4 c2
bsection result c1 c2 -2d -a

set length 40.5172