tests/blend/tolblend_simple/C1

   1 #pcone c 25 50 50 180
   2 #explode c F
   3 #prism s1 c_3 25.0001 0 -50
   4 #explode s1 F
   5 #glue t c s1 c_3 s1_4
   6 #trotate c 0 0 0 0 0 1 180
   7 #explode c F
   8 #prism s1 c_3 25.0001 0 -50
   9 #explode s1 F
  10 #glue t2 c s1 c_3 s1_4
  11 #explode t F
  12 #explode t2 F
  13 #don t_1 t_5 t2_1 t2_5
  14 #sewing s t_1 t_5 t2_1 t2_5
  15 #explode s Sh
  16
  17 restore 7_C3.draw s
  18 tscale  s 0 0 0 SCALE1
  19 explode s e
  20 blend result s 5*SCALE1 s_3 5*SCALE1 s_8
  21 explode result Sh
  22 tcopy result_1 result
  23
  24 set square 1.34325e+07