mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
9d32c463ad
1. Function IntImp_Int2S::ChangePoint() has been added (see cdl for detail information). 2. Attempt to forbidden break WLine if it goes along surface boundary. Code optimization. 2nd optimization Test case for issue CR25890
41 lines
873 B
Plaintext
Executable File
41 lines
873 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC25890"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## Intersection algorithm produces curves overlaped
|
|
###############################
|
|
|
|
restore [locate_data_file bug25890_f1.brep] f1
|
|
restore [locate_data_file bug25890_f2.brep] f2
|
|
|
|
set log [bopcurves f1 f2]
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
if { ${NbCurv} != 5 } {
|
|
puts "Error : NbCurv is bad"
|
|
}
|
|
|
|
set nbshapes_expected "
|
|
Number of shapes in shape
|
|
VERTEX : 0
|
|
EDGE : 0
|
|
WIRE : 0
|
|
FACE : 0
|
|
SHELL : 0
|
|
SOLID : 0
|
|
COMPSOLID : 0
|
|
COMPOUND : 1
|
|
SHAPE : 1
|
|
"
|
|
|
|
for {set i 1} {$i <= $NbCurv} {incr i} {
|
|
for {set j [expr $i+1]} {$j <= $NbCurv} {incr j} {
|
|
puts " Check c_$i and c_$j"
|
|
mkedge e1 c_$i
|
|
mkedge e2 c_$j
|
|
bcommon rr e1 e2
|
|
checknbshapes rr -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"
|
|
}
|
|
}
|