tests/feat/featprism/N9

   1 # Original bug : cts20870
   2 # Date : 25 Nov 98
   3
   4 restore [locate_data_file CFE900_cts20gem.rle] base
   5 restore [locate_data_file cts20870_face.brep] cont
   6
   7 explode base face
   8 copy base_6 funtil
   9
  10 mksurface p6 base_6
  11 mkface f6 p6
  12
  13 featprism base cont cont -1 0 0 1 1
  14 featperform prism result f6
  15
  16 # Prendre option face Until + support
  17
  18 set square 813.9