tests/blend/tolblend_simple/B1

   1 #wedge b 4 10 10 0 5 0 5
   2 #explode b f
   3 #depouille s1 b 1 0 0 b_5 30  0 0 10 5 0 0
   4 #copy s1 s2
   5 #trotate s2 0 0 5 0 1 0 180
   6 #explode s2 f
   7 #explode s1 f
   8 #glue s s1 s2 s1_1 s2_1
   9 #trotate s 0 0 0 0 0 1 -25
  10 #save s 5_I12.draw
  11
  12 restore [locate_data_file CFI_5_i12fgn.rle]  s
  13 tscale s 0 0 0 SCALE1
  14 explode s E
  15 blend result s 0.5*SCALE1 s_11 0.5*SCALE1 s_12 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_9  0.5*SCALE1 s_10
  16 explode result So
  17 tcopy result_1 result
  18
  19 set square 6034.39