0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26699
1 puts "================"
2 puts "OCC26699"
3 puts "================"
4 puts ""
5 #######################################################################
6 # Wrong section curves
7 #######################################################################
8
9 set MaxTol 1.e-7
10 set GoodNbCurv 2
11
12 restore [locate_data_file bug26699_f1.brep] f1
13 restore [locate_data_file bug26699_f2.brep] f2
14
15 set log [bopcurves f1 f2 -2d]
16
17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
18
19 if {${Toler} > ${MaxTol}} {
20   puts "Error: Tolerance is too big!"
21 }
22
23 if {${NbCurv} != ${GoodNbCurv}} {
24   puts "Error: Curve Number is bad!"
25 }
26 checklength c_1 -l 3.0
27 checklength c_2 -l 3.0
28
29 axo
30 donly f* c_*
31 fit
32 checkview -screenshot -2d -path ${imagedir}/${test_image}.png