tests/blend/bfuseblend/B2

   1 box b -15 -15 -15 15 30 30
   2 beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
   3 mkedge w w
   4 wire w w
   5 circle profile 0 0 0 1 0 0 5
   6 mkedge profile profile
   7 wire profile profile
   8 mkplane profile profile
   9 pipe s w profile
  10 tscale b 0 0 0 SCALE1
  11 tscale s 0 0 0 SCALE1
  12 fsameparameter s SCALE1*1.e-7
  13 explode s E
  14 bfuseblend result s b 1*SCALE1
  15
  16 set square 431283