tests/blend/simple/P7

   1 #pcylinder s1 5 20
   2 #pcylinder s2 5 12
   3 #ttranslate s2 5 0 3
   4 #ttranslate s1 s2 5 5 0
   5 #fuse s s1 s2
   6 #save s I5678.draw
   7
   8 restore [locate_data_file I5678.draw] s
   9 tscale s 0 0 0 SCALE1
  10 explode s e
  11 blend result s 0.5*SCALE1 s_4 0.5*SCALE1 s_5 0.5*SCALE1 s_13
  12
  13 checkprops result -s 99977