beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0 mkedge w w wire w w circle profile 0 0 0 1 0 0 5 mkedge profile profile wire profile profile 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_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1 buildevol set square 86185.5