2 puts "========================"
5 puts "========================"
8 restore [locate_data_file f7] b1
11 restore [locate_data_file f3] b2
15 if [catch {bcut result b2 b1 } res] {
16 puts "Faulty OCC410: function CUT works wrongly"
18 puts " OCC410 OK: function CUT works properly"
21 checkprops result -s 93.6289
23 checkview -display result -2d -path ${imagedir}/${test_image}.png