77dbd1f1 |
1 | puts "============" |
2 | puts "OCC26576" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Wrong result obtained by intersection algorithm. |
7 | ############################### |
8 | |
9 | pload DCAF |
10 | |
11 | Open [locate_data_file bug26576_study1_new_geom.cbf] D |
12 | |
13 | GetShape D 0:1:484:1:1:2 b1_src |
14 | GetShape D 0:1:478:1:1:2 b2_src |
15 | |
16 | save b1_src $imagedir/bug26576_b1.brep |
17 | save b2_src $imagedir/bug26576_b2.brep |
18 | |
19 | restore $imagedir/bug26576_b1.brep b1 |
20 | restore $imagedir/bug26576_b2.brep b2 |
21 | |
22 | explode b1 f |
23 | explode b2 f |
24 | copy b1_1 b2 |
25 | copy b2_2 b1 |
26 | |
27 | #Wrong value of Tolerance Reached. |
28 | |
29 | set log [bopcurves b1 b2 -2d] |
30 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Tolerance_Reached NbCurv |
31 | |
32 | set GoodNbCurv 2 |
33 | |
ad121848 |
34 | set expected_Tolerance_Reached 1.2482990218170969e-007 |
77dbd1f1 |
35 | set tol_abs_Tolerance_Reached 1.0e-7 |
36 | set tol_rel_Tolerance_Reached 0.0 |
37 | checkreal "Tolerance Reached" ${Tolerance_Reached} ${expected_Tolerance_Reached} ${tol_abs_Tolerance_Reached} ${tol_rel_Tolerance_Reached} |
38 | |
39 | if {${NbCurv} != ${GoodNbCurv}} { |
40 | puts "Error: ${GoodNbCurv} curves are expected but ${NbCurv} are found!" |
41 | } |
42 | |
43 | #Overlapping intersection curves. |
44 | |
45 | for {set i 1} {$i < ${NbCurv}} {incr i} { |
46 | for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} { |
47 | mkedge e1 c_$i |
48 | mkedge e2 c_$j |
49 | |
50 | set coe [checkoverlapedges e1 e2 $Tolerance_Reached] |
51 | |
52 | puts "$i<->$j: $coe" |
53 | if { [regexp "Edges is not overlaped" $coe] != 1 } { |
54 | puts "Error: c_$i and c_$j are overlaped" |
55 | } |
56 | } |
57 | } |
58 | |
59 | smallview |
60 | fit |
5747059b |
61 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |