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 |
14 | GetShape D 0:1:478:1:1:2 b2 |
15 | |
16 | explode b1 f |
17 | explode b2 f |
18 | copy b1_1 b1 |
19 | copy b2_2 b2 |
20 | donly b1 b2 |
21 | |
22 | #Wrong value of Tolerance Reached. |
23 | |
24 | set log [bopcurves b1 b2 -2d] |
25 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Tolerance_Reached NbCurv |
26 | |
27 | set GoodNbCurv 2 |
28 | |
ad121848 |
29 | set expected_Tolerance_Reached 1.2482990218170969e-007 |
77dbd1f1 |
30 | set tol_abs_Tolerance_Reached 1.0e-7 |
31 | set tol_rel_Tolerance_Reached 0.0 |
32 | checkreal "Tolerance Reached" ${Tolerance_Reached} ${expected_Tolerance_Reached} ${tol_abs_Tolerance_Reached} ${tol_rel_Tolerance_Reached} |
33 | |
34 | if {${NbCurv} != ${GoodNbCurv}} { |
35 | puts "Error: ${GoodNbCurv} curves are expected but ${NbCurv} are found!" |
36 | } |
37 | |
38 | #Overlapping intersection curves. |
39 | |
40 | for {set i 1} {$i < ${NbCurv}} {incr i} { |
41 | for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} { |
42 | mkedge e1 c_$i |
43 | mkedge e2 c_$j |
44 | |
45 | set coe [checkoverlapedges e1 e2 $Tolerance_Reached] |
46 | |
47 | puts "c_$i<->c_$j: $coe" |
48 | if { [regexp "Edges is not overlaped" $coe] != 1 } { |
49 | puts "Error: c_$i and c_$j are overlaped" |
50 | } |
51 | } |
52 | } |
53 | |
54 | smallview |
55 | fit |
5747059b |
56 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |