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
23 set info [bopcurves b1 b2]
24 regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol
25 regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur
27 if {$bug_info_tol > 1.0e-7} {
28 puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
31 if {$bug_info_cur != 1} {
32 puts "ERROR: OCC25820 is reproduced. Too many curves were found."
35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png