tests/blend/tolblend_simple/B5

   1 #circle c1 0 0 0 100
   2 #mkedge e1 c1 0 pi
   3 #explode e1 V
   4 #edge e2 e1_2 e1_1
   5 #wire w1 e1  e2
   6 #mkplane w1 w1
   7 #prism s1 w1 0 20 40
   8 #prism s2 w1 0 0 -60
   9 #explode s1 f
  10 #explode s2 f
  11 #sewing s s1_1 s2_1
  12
  13 restore 7_A2.draw s
  14 tscale  s 0 0 0 SCALE1
  15 explode s e
  16 blend result s 15*SCALE1 s_3
  17 explode result sh
  18 tcopy result_1 result
  19
  20 set square 803799