1# Original bug : cts21199
2# Date : 12 Oct 98
3# Feature next
4
5cpulimit 700
6#aki 10092004
7
8restore [locate_data_file cts21199_base.rle] base
9restore [locate_data_file cts21199_face.rle] cont
10
11explode base face
12copy base_1 funtil
13
14featprism base cont cont 0 0 -1 1 1
15if { [catch { featperform prism result funtil } ] != 0 } {
16  puts "Error in featperform"
17}
18
19checkprops result -s 18033.5
20