# Original bug : pro16769
# Date : 02 Dec 98

restore [locate_data_file CFE900_pro16gff.rle] base
restore [locate_data_file pro16769_face.brep] cont

explode base face

mksurface p28 base_28
mkface f28 p28
featprism base cont cont 1 0 0 1 1
featperform prism result f28

set square 46778.2