pcylinder b1 4 8
pcone b2 1 6 8
ttranslate b2 0 0 -1
trotate b2 0 0 4 0 1 0 -90

bop b1 b2
bopcommon result

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