1 puts "TODO OCC12345 ALL: Faulty : Result shape is WRONG !!!"
2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
3 puts "========================"
5 puts "========================"
7 #################################################
8 ## puts " BOPCOMMON case_2_solid.brep and case_2_edge1.brep"
9 #################################################
11 puts [restore [locate_data_file OCC238a.brep] a]
12 puts [restore [locate_data_file case_2_edge1.brep] b]
14 puts [bopcommon result b a]
18 distmini di result_1 a_3
19 regexp {([-0-9.+eE]+)$} [dump $di_val] full dis
20 if { [expr $dis > 1.e-5] } {
21 puts "Faulty : Result shape is WRONG !!!"
23 puts " Result shape is COMPLITE"
26 checknbshapes result -vertex 14 -edge 7
28 checkprops result -l 0
31 checkview -display result -2d -path ${imagedir}/${test_image}.png