0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27310_1
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 1.0e-7
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_8 b_2 -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_8 b_2
32
33 checkview -screenshot -2d -path ${imagedir}/${test_image}.png