0024174: [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
[occt.git] / tests / bugs / modalg_5 / bug24174_1
1 puts "========================"
2 puts "OCC24174"
3 puts "========================" 
4 puts ""
5 #######################################################################
6 # [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
7 #######################################################################
8
9 pload XSDRAW
10
11 restore [locate_data_file  bug24174_Comp1.brep] a
12
13 explode a
14 sewing result 0.1 a_1 a_2
15
16 # 0
17 set log_1 [tolmax a_1]
18 regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a_1
19 set log_2 [tolmax a_2]
20 regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_a_2
21 set CMP_TOL ${MaxTolerance_a_1}
22 if { ${MaxTolerance_a_2} > ${CMP_TOL} } {
23    set CMP_TOL ${MaxTolerance_a_2}
24 }
25
26 # 1
27 checkshape result
28
29 # 2
30 set log_3 [tolmax result]
31 regexp {max tol = ([-0-9.+eE]+)} ${log_3} full MaxTolerance_result
32 if { ${MaxTolerance_result} > ${CMP_TOL} } {
33    puts "Error: invalid tolerance"
34 }
35
36 # 3
37 freebounds ${result} 0
38 set s [explode result_c e]
39
40 set Number [ llength ${s} ]
41 puts "Number of free edges is ${Number}"
42 set Number_Free_Edges 12
43 if { ${Number} != ${Number_Free_Edges} } {
44    puts "Error : Number of free edges is ${Number}"
45 }
46
47 set 2dviewer 1