mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
35 lines
882 B
Plaintext
35 lines
882 B
Plaintext
puts "========"
|
|
puts "OCC25488"
|
|
puts "========"
|
|
puts ""
|
|
######################################################
|
|
# Wrong result of two trimmed cylinders intersection
|
|
######################################################
|
|
|
|
set Tolerance 3.0e-7
|
|
set D_good 0.
|
|
set Limit_Tol 1.0e-7
|
|
|
|
restore [locate_data_file OCC25488_sb1_1t.draw] sb1
|
|
restore [locate_data_file OCC25488_sb2_1t.draw] sb2
|
|
|
|
set bug_info [intersect res sb1 sb2]
|
|
|
|
set i 0
|
|
while {$i != [llength $bug_info]} {
|
|
set res_i [lindex $bug_info $i]
|
|
dlog reset
|
|
dlog on
|
|
xdistcs ${res_i} sb1 0 1 10
|
|
set BugLog [dlog get]
|
|
set BugList [split ${BugLog} {TD= \t\n}]
|
|
checkList ${BugList} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
dlog reset
|
|
dlog on
|
|
xdistcs ${res_i} sb2 0 1 10
|
|
set BugLog [dlog get]
|
|
set BugList [split ${BugLog} {TD= \t\n}]
|
|
checkList ${BugList} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
set i [expr {$i + 1}]
|
|
}
|