tests/feat/featprism/O2

   1 # Original bug : pro13278
   2 # Date : 25 Nov 98
   3
   4 restore [locate_data_file CFE900_pro13gey.rle] base
   5 restore [locate_data_file pro13278_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 0 0 -1 1 1
  14 featperform prism result f6
  15
  16 # indiquer option support face Until
  17
  18 set square 603600