5 ###########################################################
6 # Wrong pcurve of the section curve
7 ###########################################################
11 restore [locate_data_file bug24585_b1.brep] b1
12 restore [locate_data_file bug24585_b2.brep] b2
15 bounds s1 U1f_exp U1l_exp V1f_exp V1l_exp
17 set log [bopcurves b1 b2 -2d]
19 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
21 if {${NbCurv} != ${NbCurv_OK}} {
22 puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
25 if {${Toler} > ${MaxTol}} {
26 puts "Error: Tolerance is too big!"
30 2dcvalue c2d1_1 U1 U_begin V_begin
31 2dcvalue c2d1_1 U2 U_end V_end
33 #Theoretically, c2d1_1 must cover U-diapason of surface s1 fully.
35 set delta_f [dval U1f_exp-U_begin]
37 #ATTENTION!!! U_begin must be strictly equal U1f_exp (without any tolerance)
38 if {${delta_f} != 0} {
39 puts "Error: Bad value. U_begin = [dval U_begin], Ufirst = [dval U1f_exp]."
41 puts "OK: Good value. U_begin matches with Ufirst of surface."
46 set delta_l [dval U1l_exp-U_end]
48 #ATTENTION!!! U_end must be strictly equal U1l_exp (without any tolerance)
49 if {${delta_l} != 0} {
50 puts "Error: Bad value. U_end = [dval U_end], Ulast = [dval U1l_exp]."
52 puts "OK: Good value. U_end matches with Ulast of surface."