tests/feat/featprism/K9

   1 # Original bug : cts18754
   2 # Date : 20 Mar 98
   3
   4 restore [locate_data_file CTO900_cts18754-part.rle] base
   5 restore [locate_data_file cts18754-tool.rle] wire
   6
   7 mkplane cont wire
   8
   9 explode base face
  10 copy base_1 funtil
  11
  12 featprism base cont cont 0 1 0 1 1
  13 featperform prism result funtil
  14
  15 set square 1.36014e+06