tests/blend/tolblend_simple/C3

   1 #pcone c 25 50 50
   2 #ttranslate c 0 0 50
   3 #explode c f
   4 #prism p c_3 -25 0 -50
   5 #explode p F
   6 #glue s c p c_3 p_2
   7
   8 restore [locate_data_file 7_F1.draw] s
   9 tscale  s 0 0 0 SCALE1
  10 explode s e
  11 blend result s 5*SCALE1 s_2
  12 explode result So
  13 tcopy result_1 result
  14
  15 set square 782458