5 ###################################################
6 ## Big tolerance values of the intersection curves
7 ###################################################
9 brestore [locate_data_file IR2_TuyoPipeBSpline_20_draw2.brep] b1
10 brestore [locate_data_file IR2_sphere2_20.brep] b2
12 explode b1 f; copy b1_1 f1
13 explode b2 f; copy b2_1 f2
20 set bop_info [bopcurves f1 f2]
21 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
23 checkreal "Reached tolerance" ${Tolerance} 1.2530391548405894e-008 1.e-7 0
26 set bop_info_2d [bopcurves f1 f2 -2d]
27 regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
29 checkreal "Reached tolerance" ${Tolerance_2d} 1.8067758590039568e-005 0 1.e-2