tests/feat/featprism/S2

   1 # cts20088
   2
   3 restore [locate_data_file cts20088_base.brep] base
   4 restore [locate_data_file contour_pkv.rle] cont
   5
   6 explode base face
   7
   8 mksurface p54 base_54
   9 mkface f54 p54
  10 mksurface p55 base_55
  11 mkface f55 p55
  12
  13 featprism base cont cont 1 0 0 1 1
  14 featperform prism result f54 f55
  15
  16 set square 7238.64