# Original bug : cts20358
# Date : 17Juillet98

restore [locate_data_file CFE900_cts20gap.rle] base
restore [locate_data_file cts20358b.rle] cont

explode base face
copy base_15 ffrom
copy base_17 funtil

## creation des faces infinies support
mksurface p15 base_15
mkface f15 p15
mksurface p17 base_17
mkface f17 p17

featprism base cont cont 0 0 -1 0 1
featperform prism result f15 f17


checkprops result -s 1105.82
