1 puts "============================================================================================="
2 puts "OCC31499: Boolean Operations - Custom fuzzy value corrupts the result of CUT"
3 puts "============================================================================================="
6 restore [locate_data_file bug31499.brep] s
9 explode s_1 f; copy s_1_3 f1
10 explode s_2 f; copy s_2_4 f2
12 foreach c [directory c_*] { unset $c }
15 regexp {Tolerance Reached=([-0-9.+eE]*)} [bopcurves f1 f2 -2d] full tol3D1
18 foreach c [directory c_*] {
19 set length1 [dval $length1+[dval [lindex [length $c] 4]]]
22 foreach c [directory c_*] { unset $c }
25 regexp {Tolerance Reached=([-0-9.+eE]*)} [bopcurves f1 f2 -2d] full tol3D2
28 foreach c [directory c_*] {
29 set length2 [dval $length2+[dval [lindex [length $c] 4]]]
32 checkreal "Length of curves" $length2 $length1 1.e-7 1.e-7
34 if {$tol3D2 > 1.e-5} {
35 puts "Error: Face/Face intersection tolerance is too big when using fuzzy value"