pcylinder b1 1 2
dset r sqrt(2)/2
box b2 -r -r 0 2*r 2*r 1

bop b1 b2
bopcut result

checkprops result -s 24.5064
checkview -display result -2d -otherwise { b1 b2 } -s -path ${imagedir}/${test_image}.png