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 set info [bopcurves b1 b2] regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur 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." } checkview -screenshot -2d -path ${imagedir}/${test_image}.png