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_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1 buildevol set square 99053.9