tests/blend/bfuseblend/A9

   1 box b -30 -30 -30 60 60 20
   2 ellipse w1 0 0 0 15 10
   3 mkedge w1 w1 0 pi/2
   4 trotate w1 0 0 0 1 0 0 90
   5 polyline w2 15 0 0  27 0 -12  0 0 -12  0 0 10
   6 orientation w2 R
   7 wire w w1 w2
   8 revol r w 0 0 0 0 0 1 360
   9 shape s So
  10 add r s
  11 trotate s b 0 0 0 1 1 0 -40
  12 trotate s b 0 0 0 0 0 1 -10
  13 tscale b 0 0 0 SCALE1
  14 tscale s 0 0 0 SCALE1
  15 bfuseblend result s b 1*SCALE1
  16
  17 checkprops result -s 1.29262e+06