1puts "============"
2puts "OCC26717"
3puts "============"
4puts ""
5######################################################
6# Error in IntPatch_PrmPrmIntersection: change of local resolution leads to break of walking line
7######################################################
8
9smallview
10
11set expected_MaxTolerance 2.14e-05
12set tol_abs_MaxTolerance 1.e-06
13set tol_rel_MaxTolerance 1.e-06
14
15set FileName1 bug26717_xrf1_eval_fuselage.brep
16restore [locate_data_file ${FileName1}] a
17
18set FileName2 bug26717_xrf1_eval5_wing.brep
19restore [locate_data_file ${FileName2}] b
20
21bfuse r a b
22
23set aList [explode r]
24
25# check 1
26if { [llength ${aList}] == 1} {
27  puts "OK: Good explode of result"
28} else {
29  puts "Error: Bad explode of result"
30}
31
32# check2
33checknbshapes r -solid 1
34
35# check3
36checkshape r
37
38# check4
39regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance r] full MaxTolerance
40checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
41
42clear
43donly r
44fit
45
46xwd ${imagedir}/${test_image}.png
47