# Original bug : cts20077
# Date : 25 Nov 98

restore [locate_data_file CFE900_cts20geb.rle] base
restore [locate_data_file cts20077_face.brep] cont

explode base face
copy base_5 skface

featprism base cont skface 0 0 -1 0 1
featperformval prism result 100

set square 4909.72
