box b1 4 4 4
pcylinder b2 4 4
ttranslate b2 -2 2 0

bop b1 b2
bopcut result

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