mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a6ebe9fc7c
1. New testgrid "lowalgos/intss" has been created. It will contain all test cases on geometrical intersection of two surfaces ("intersect" DRAW-command) and two faces ("bopcurves" DRAW-command).
2. New test case for the issue #28493 has been created because the problem is not reproduced on MASTER.
3. Test case (lowalgos/intss/bug24472) for the issue #29501 has been modified in order to check loops of the resulting intersection curves.
41 lines
865 B
Plaintext
41 lines
865 B
Plaintext
puts "================"
|
|
puts "OCC25416"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong section curve
|
|
#######################################################################
|
|
|
|
#Check if intersection algorithm produces overlapped curves
|
|
|
|
restore [locate_data_file bug25416_s1.draw] s1
|
|
restore [locate_data_file bug25416_s2.draw] s2
|
|
|
|
set ll [intersect ii s1 s2]
|
|
|
|
set status 0
|
|
if { [llength $ll] < 1 } {
|
|
set status 1
|
|
}
|
|
|
|
foreach i $ll {
|
|
foreach j $ll {
|
|
if { $i >= $j } continue
|
|
|
|
mkedge e1 $i
|
|
mkedge e2 $j
|
|
set coe [checkoverlapedges e1 e2]
|
|
|
|
puts "$i<->$j: $coe"
|
|
if { [regexp "Edges is not overlaped" $coe] != 1 } {
|
|
set status 2
|
|
}
|
|
}
|
|
}
|
|
|
|
if { $status != 0 } {
|
|
puts "Wrong section. Error with code $status"
|
|
} else {
|
|
puts "OK: Good section"
|
|
}
|