0025890: Intersection algorithm produces curves overlaped
[occt.git] / tests / bugs / modalg_6 / bug25890
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 }