pcylinder s1 3 10 
pcylinder s2 4 16 
trotate s2 0 0 0 1 0 0 80
ttranslate s2 0 9 -3
ttranslate s1 s2 5 5 0
bcut s s1 s2
tscale s 0 0 0 SCALE1
explode s e
blend result s 0.5*SCALE1 s_2

checkprops result -s 19893.8