0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27310_2
1 puts "========"
2 puts "OCC27310"
3 puts "========"
4 puts ""
5 #################################################
6 # Huge tolerance obtained in the result of intersection of two cylindrical faces
7 #################################################
8
9 set ExpTol 7.7015195151142059e-006
10 set GoodNbCurv 2
11
12 restore [locate_data_file OCC496a.brep] a 
13 restore [locate_data_file OCC496b.brep] b
14
15 explode a f
16 explode b f
17
18 set log [bopcurves a_10 b_4 -2d]
19
20 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
21
22 if {${NbCurv} != ${GoodNbCurv}} {
23   puts "Error: Number of curves is bad!"
24 }
25
26 checkreal TolReached $Toler $ExpTol 0.0 0.1
27
28 smallview
29 don c_*
30 fit
31 disp a_10 b_4
32
33 checkview -screenshot -2d -path ${imagedir}/${test_image}.png