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}]
}