0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug25890
CommitLineData
9d32c463 1puts "============"
2puts "OCC25890"
3puts "============"
4puts ""
5###############################
6## Intersection algorithm produces curves overlaped
7###############################
8
9restore [locate_data_file bug25890_f1.brep] f1
10restore [locate_data_file bug25890_f2.brep] f2
11
12set log [bopcurves f1 f2]
13regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
14
15if { ${NbCurv} != 5 } {
16 puts "Error : NbCurv is bad"
17}
18
19set nbshapes_expected "
20Number 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
32for {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}