mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
7c32c7c41f
1. Dump of WLine is shown with more precise. 2. Equation solving with more precise. 3. Dump of Multy-line. 4. Code optimization. Some test cases were updated in accordance with their new behaviour. Correction of test cases for issue CR25531
41 lines
1.0 KiB
Plaintext
41 lines
1.0 KiB
Plaintext
puts "========"
|
|
puts "OCC25488"
|
|
puts "========"
|
|
puts ""
|
|
######################################################
|
|
# Wrong result of two trimmed cylinders intersection
|
|
######################################################
|
|
|
|
set Tolerance 1.1e-7
|
|
set D_good 0.
|
|
set Limit_Tol 1.0e-7
|
|
|
|
puts "##############################"
|
|
puts "#!!!Search \"Attention\" keyword on this web-page for additional checking!!!"
|
|
puts "##############################"
|
|
puts ""
|
|
puts ""
|
|
|
|
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}]
|
|
}
|