0031499: Boolean Operations - Custom fuzzy value corrupts the result of CUT
[occt.git] / tests / bugs / modalg_7 / bug31499_2
1 puts "============================================================================================="
2 puts "OCC31499: Boolean Operations - Custom fuzzy value corrupts the result of CUT"
3 puts "============================================================================================="
4 puts ""
5
6 restore [locate_data_file bug31499.brep] s
7
8 explode s So
9 explode s_1 f; copy s_1_3 f1
10 explode s_2 f; copy s_2_4 f2
11
12 foreach c [directory c_*] { unset $c }
13
14 bfuzzyvalue 1.e-7
15 regexp {Tolerance Reached=([-0-9.+eE]*)} [bopcurves f1 f2 -2d] full tol3D1
16
17 set length1 0.0
18 foreach c [directory c_*] {
19   set length1 [dval $length1+[dval [lindex [length $c] 4]]]
20 }
21
22 foreach c [directory c_*] { unset $c }
23
24 bfuzzyvalue 1.e-5
25 regexp {Tolerance Reached=([-0-9.+eE]*)} [bopcurves f1 f2 -2d] full tol3D2
26
27 set length2 0.0
28 foreach c [directory c_*] {
29   set length2 [dval $length2+[dval [lindex [length $c] 4]]]
30 }
31
32 checkreal "Length of curves" $length2 $length1 1.e-7 1.e-7
33
34 if {$tol3D2 > 1.e-5} {
35   puts "Error: Face/Face intersection tolerance is too big when using fuzzy value"
36 }