tests/blend/buildevol/E1

   1 circle w -20 0 0 20
   2 mkedge w w 0 pi/2
   3 wire w w
   4 polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
   5 mkplane profile profile
   6 pipe s w profile
   7 tscale s 0 0 0 SCALE1
   8 fsameparameter s SCALE1*1.e-7
   9 explode s E
  10 mkevol result s
  11 updatevol s_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
  12 buildevol
  13
  14 set square 99053.9