tests/blend/simple/P3

   1 #pcylinder s1 5 15
   2 #pcylinder s2 5 15
   3 #ttranslate s2 7 0 0
   4 #ttranslate s1 s2 5 5 0
   5 #fuse s s1 s2
   6 #save s H5678.draw
   7
   8 restore [locate_data_file CFI_h5678fir.rle] s
   9 tscale s 0 0 0 SCALE1
  10 explode s e
  11 blend result s 0.5*SCALE1 s_3 0.5*SCALE1 s_1 0.5*SCALE1 s_5 0.5*SCALE1 s_2
  12
  13 set square 97351.9