tests/blend/tolblend_simple/A4

   1 #polyline d 0 0 0  0 5 0 7 7 -1
   2 #polyline dd -5 0 -5  -5 0 5  5 0 5  5 0 -5 -5 0 -5
   3 #mkplane dd dd
   4 #wire d d
   5 #pipe s d dd
   6 #explode s F
   7
   8 #donly s_3  s_1 s_2  s_4
   9 #sewing t  s_3  s_1 s_2  s_4
  10 #explode t sh
  11 #save t_1 5_B12.draw
  12
  13 restore [locate_data_file 5_B12.draw] s
  14 tscale s 0 0 0 SCALE1
  15 explode s E
  16 blend result s 0.5*SCALE1 s_4 0.4*SCALE1 s_8 0.6*SCALE1 s_7 0.3*SCALE1 s_3
  17 explode result sh
  18 tcopy result_1 result
  19
  20 set square 4816.07