circle w -20 0 0 20
mkedge w w 0 pi/2
wire w w
polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
mkplane profile profile
pipe s w profile
tscale s 0 0 0 SCALE1
fsameparameter s SCALE1*1.e-7
explode s E
mkevol result s
updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
buildevol

checkprops result -s 87027.5