0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26684_1
1 puts "============"
2 puts "OCC26684"
3 puts "============"
4 puts ""
5 ###################################################
6 ## Big tolerance values of the intersection curves
7 ###################################################
8
9 brestore [locate_data_file CTO909_IR2_TuyoPipe20.brep] b1
10 brestore [locate_data_file CTO909_IR2_sphere1_20.brep] b2
11
12 explode b1 f; copy b1_1 f1
13 explode b2 f; copy b2_1 f2
14
15 smallview
16 donly f1 f2
17 fit
18
19 # 1 case
20 set bop_info [bopcurves f1 f2]
21 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
22
23 checkreal "Reached tolerance" ${Tolerance} 5.8654166482879483e-009 1.e-7 0
24
25 # 2 case
26 set bop_info_2d [bopcurves f1 f2 -2d]
27 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
28
29 checkreal "Reached tolerance" ${Tolerance_2d} 1.4569392656749484e-008 1.e-7 0
30
31 checkview -screenshot -2d -path ${imagedir}/${test_image}.png