puts "========" puts "OCC27766" puts "========" puts "" ################################################# # Incorrect section curves between attached cylinders ################################################# set ExpTol 1.0e-7 set GoodNbCurv 3 restore [locate_data_file bug27761_c1.brep] c1 restore [locate_data_file bug27761_c2.brep] c2 set log [bopcurves c1 c2 -2d] regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv if {${NbCurv} != ${GoodNbCurv}} { puts "Error: Number of curves is bad!" } checkreal TolReached $Toler $ExpTol 0.0 0.1 smallview don c_* fit disp c1 c2 checkview -screenshot -2d -path ${imagedir}/${test_image}.png