tests/blend/tolblend_simple/D6

   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 #donly s_3  s_1 s_2  s_4
   8 #sewing t  s_3  s_1 s_2  s_4
   9 #explode t sh
  10 #save t_1 5_B12.draw
  11
  12 restore 5_B12.draw s
  13 tscale s 0 0 0 SCALE1
  14 explode s E
  15 blend result s 0.5*SCALE1 s_4 0.5*SCALE1 s_8 0.5*SCALE1 s_7
  16 explode result sh
  17 tcopy result_1 result
  18
  19 set square 4811.88