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

bop b1 b2
boptuc result

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