0025820: No Intersection Curves between surface of revolution and planes

[occt.git] / tests / bugs / modalg_6 / bug25820_3

puts "========"
puts "OCC25820"
puts "========"
puts ""
###################################################################
# No Intersection Curves between surface of revolution and planes
###################################################################

restore [locate_data_file OCC25820-Revolution_5.brep] b1
explode b1 f
copy b1_4 b1

restore [locate_data_file OCC25820-Translation_3.brep] b2
explode b2 f
copy b2_3 b2

smallview
clear
display b1
display b2
fit

dlog reset
dlog on
decho off
bopcurves b1 b2
decho on
set bug_info [dlog get]

set bug_info [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string last "\n" $bug_info] - 1}]]]
set bug_info_tol [string trim [string range $bug_info [expr {[string first "=" $bug_info] + 1}] [expr {[string first "\n" $bug_info] - 1}]]]
set bug_info_cur [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
set bug_info_cur [string trim [string range $bug_info_cur 0 [expr {[string first " " $bug_info_cur] - 1}]]]

if {$bug_info_tol > 1.0e-7} {
  puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
}

if {$bug_info_cur != 1} {
  puts "ERROR: OCC25820 is reproduced. Too many curves were found."
}

set only_screen_axo 1