7 #restore Intersection_Shell1_Case1.brep S1
8 #restore Intersection_Shell2_Case1.brep S2
10 restore [locate_data_file buc60788a.brep] S1
12 restore [locate_data_file buc60788b.brep] S2
17 set nb_info [nbshapes result]
18 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full err
19 regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full err1
21 if { $err != 4 && $err1 != 3} {
22 puts "Faulty : result (res) is incorrect"