tests/blend/simple/N9

   1 #pcylinder s1 5 13
   2 #box s2 0 0 0 3 8 7
   3 #ttranslate s2 0 -9 2
   4 #ttranslate s1 s2 5 5 0
   5 #fuse s s1 s2
   6 #save s F5678.draw
   7
   8 restore F5678.draw s
   9 tscale s 0 0 0 SCALE1
  10 explode s e
  11 blend result s 1*SCALE1 s_7
  12
  13 set square 65250