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