2 puts "========================"
5 puts "========================"
8 restore [locate_data_file cylindre.rle] cyl
11 restore [locate_data_file contour.rle] cont
17 ttranslate cont 0 200 0
18 featdprism cyl cont cont -10 1 1
20 if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
21 puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
23 puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"