tests/blend/simple/I6

   1 beziercurve w 3 0 0 0 5 10 0 10 15 0
   2 mkedge w w
   3 wire w w
   4 polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  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 blend result s 1*SCALE1 s_5 1*SCALE1 s_8 1*SCALE1 s_6
  11
  12 set square 80209.3