5 ###################################################################
6 # No Intersection Curves between surface of revolution and planes
7 ###################################################################
9 restore [locate_data_file OCC25820-Revolution_5.brep] b1
13 restore [locate_data_file OCC25820-Translation_3.brep] b2
28 set bug_info [dlog get]
30 set bug_info [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string last "\n" $bug_info] - 1}]]]
31 set bug_info_tol [string trim [string range $bug_info [expr {[string first "=" $bug_info] + 1}] [expr {[string first "\n" $bug_info] - 1}]]]
32 set bug_info_cur [string trim [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string length $bug_info] - 1}]]]
33 set bug_info_cur [string trim [string range $bug_info_cur 0 [expr {[string first " " $bug_info_cur] - 1}]]]
35 if {$bug_info_tol > 1.0e-7} {
36 puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
39 if {$bug_info_cur != 1} {
40 puts "ERROR: OCC25820 is reproduced. Too many curves were found."