tests/blend/simple/I3

   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 blend result s 1*SCALE1 s_6
  11
  12 set square 99301.8