box b1 4 4 4
pcylinder b2 1 4
ttranslate b2 3 0 0

bop b1 b2
bopcut result

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