# Original bug : cts21322
# Date : 16 Sept 98

restore [locate_data_file contour.rle] cont
mkplane cont cont

puts "*"

restore [locate_data_file CFE900_cts21gbs.rle] base
restore [locate_data_file cts21322_face.rle] wire

explode base face
copy base_6 fsketch

splitshape cont1 fsketch fsketch wire
explode cont1
bcut cont fsketch cont1_1

featprism base cont fsketch 1 0 0 0 1
if { [catch { featperform prism result } ] != 0 } {
  puts "Error in featperform"
}

checkprops result -s 683.581
