tests/blend/tolblend_simple/E6

   1 #wedge b 10 10 10 0 5 0 5
   2 #explode b f
   3 #depouille s1 b 1 0 0 b_5 15  0 0 10 5 0 0
   4 #polyline p1 0 0 0 0 10 5 0 0 10 0 0 0
   5 #mkplane p1 p1
   6 #prism p p1 -5 0 0
   7 #explode p f
   8 #depouille s2 p 1 0 0 p_1 -15  0 0 10 5 0 0
   9 #explode s2 f
  10 #explode s1 f
  11 #glue s s1 s2 s1_1 s2_4
  12 #trotate s 0 0 0 0 0 1 -20
  13 #save s 5_E12.draw
  14
  15 restore [locate_data_file CFI_5_e12fgj.rle] s
  16 tscale s 0 0 0 SCALE1
  17 explode s E
  18 blend result s 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_10 0.5*SCALE1 s_12
  19 explode result So
  20 tcopy result_1 result
  21
  22 set square 10755.6