0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27175
1 puts "================"
2 puts "OCC27175"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Intersection algorithm with increased tolerance works incorrect with some shapes
7 #######################################################################
8
9 set ExpectTol 3.002046539399851e-006
10 set GoodNbCurv 2
11
12 plane pl 0.195808075898442 -0.229262227170656 4.05546403129991 0 0 1
13 psphere s1 pl 0.03101752454
14 restore [locate_data_file bug27128-Helix_Pipe.brep] s2
15
16 explode s1 f
17 explode s2 f
18
19 settolerance s1_1 2.0e-6
20 settolerance s2_2 2.0e-6
21 bopcurves s1_1 s2_2 -2d
22
23 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves s1_1 s2_2 -2d] full Toler NbCurv
24
25 checkreal "Tolerance Reached" ${Toler} ${ExpectTol} 0.0 0.1
26
27 if {${NbCurv} != ${GoodNbCurv}} {
28   puts "Error: Curve Number is bad!"
29 }