puts "========================"
puts " OCC407 "
puts "(case 1)"
puts "========================"
puts ""

pcylinder b1 1 4
pcylinder b2 1 4
trotate b2 0 0 2 1 0 0 90
trotate b2 0 0 2 0 1 0 60

bfuse result  b2 b1 
checkshape -top result

checkprops result -s 46.8319 
checkshape result
set 2dviewer 0