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