tests/feat/featprism/O7

   1 # Original bug : cts20077
   2 # Date : 25 Nov 98
   3
   4 restore [locate_data_file CFE900_cts20geb.rle] base
   5 restore [locate_data_file cts20077_face.brep] cont
   6
   7 explode base face
   8 copy base_5 skface
   9
  10 featprism base cont cont   0 0 -1 0 1
  11 featperformval prism result 100
  12
  13 set square 4909.72