tests/blend/simple/M2

   1 #box s1 0 0 0 10 10 10
   2 #pcylinder s2 3 4 90
   3 #trotate s2 0 0 0 0 0 1 90
   4 #ttranslate s2 5 1.5 10
   5 #fuse s s1 s2
   6 #save s C5678.draw
   7
   8 restore C5678.draw s
   9 tscale s 0 0 0 SCALE1
  10 explode s e
  11 blend result s 0.5*SCALE1 s_14 0.5*SCALE1 s_18 0.5*SCALE1 s_13
  12
  13 set square 64088.4