tests/feat/featprism/K8

   1 # Original bug : cts21128
   2 # Date : 21August98
   3
   4 restore [locate_data_file cts21126_base.brep] base
   5 restore [locate_data_file cts21128b.rle] cont
   6
   7 explode base face
   8 copy base_3 funtil
   9
  10 ## creation face infinie support
  11 mksurface p3 base_3
  12 mkface f3 p3
  13
  14 featprism base cont cont 0 0 1 0 1
  15 featperform prism result f3
  16
  17 set square 2814.01