# Original bug : cts21199
# Date : 12 Oct 98
# Feature next

cpulimit 700
#aki 10092004

restore [locate_data_file cts21199_base.rle] base
restore [locate_data_file cts21199_face.rle] cont

explode base face
copy base_1 funtil

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

checkprops result -s 18033.5
