9d32c463 |
1 | puts "============" |
2 | puts "OCC25890" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Intersection algorithm produces curves overlaped |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug25890_f1.brep] f1 |
10 | restore [locate_data_file bug25890_f2.brep] f2 |
11 | |
12 | set log [bopcurves f1 f2] |
13 | regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv |
14 | |
15 | if { ${NbCurv} != 5 } { |
16 | puts "Error : NbCurv is bad" |
17 | } |
18 | |
19 | set nbshapes_expected " |
20 | Number of shapes in shape |
21 | VERTEX : 0 |
22 | EDGE : 0 |
23 | WIRE : 0 |
24 | FACE : 0 |
25 | SHELL : 0 |
26 | SOLID : 0 |
27 | COMPSOLID : 0 |
28 | COMPOUND : 1 |
29 | SHAPE : 1 |
30 | " |
31 | |
32 | for {set i 1} {$i <= $NbCurv} {incr i} { |
33 | for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} { |
34 | puts " Check c_$i and c_$j" |
35 | mkedge e1 c_$i |
36 | mkedge e2 c_$j |
37 | bcommon rr e1 e2 |
38 | checknbshapes rr -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes" |
39 | } |
40 | } |