puts "============" puts "OCC26684" puts "============" puts "" ################################################### ## Big tolerance values of the intersection curves ################################################### brestore [locate_data_file CTO909_IR2_TuyoPipe20.brep] b1 brestore [locate_data_file CTO909_IR2_sphere1_20.brep] b2 explode b1 f; copy b1_1 f1 explode b2 f; copy b2_1 f2 smallview donly f1 f2 fit # 1 case set bop_info [bopcurves f1 f2] regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance checkreal "Reached tolerance" ${Tolerance} 5.8654166482879483e-009 1.e-7 0 # 2 case set bop_info_2d [bopcurves f1 f2 -2d] regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d checkreal "Reached tolerance" ${Tolerance_2d} 1.4569392656749484e-008 1.e-7 0 checkview -screenshot -2d -path ${imagedir}/${test_image}.png