5 ###########################################################
\r
6 # Wrong pcurve of the section curve
\r
7 ###########################################################
\r
11 restore [locate_data_file bug24612_b1.brep] b1
\r
12 restore [locate_data_file bug24612_b2.brep] b2
\r
15 bounds s1 U1f_exp U1l_exp V1f_exp V1l_exp
\r
22 set log [bopcurves b1 b2 -2d]
\r
24 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
\r
26 if {${NbCurv} != ${NbCurv_OK}} {
\r
27 puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
\r
30 if {${Toler} > ${MaxTol}} {
\r
31 puts "Error: Tolerance is too big!"
\r
34 #Theoretically, c2d1_1 must cover V-diapason of surface s1 fully.
\r
36 set log [dump c2d1_1]
\r
38 regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
\r
39 puts "Degree=${Degree}"
\r
40 puts "Poles=${Poles}"
\r
41 puts "KnotsPoles=${KnotsPoles}"
\r
45 set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
\r
46 regexp ${exp_string} ${log} full U_begin V_begin
\r
49 puts "U_begin=${U_begin}"
\r
50 puts "V_begin=${V_begin}"
\r
51 dset V_begin ${V_begin}
\r
55 set exp_string " +${Pole} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
\r
56 regexp ${exp_string} ${log} full U_end V_end
\r
59 puts "U_end=${U_end}"
\r
60 puts "V_end=${V_end}"
\r
64 set delta_f [dval V1l_exp-V_begin]
\r
66 #ATTENTION!!! V_begin must be strictly equal V1l_exp (without any tolerance)
\r
67 if {${delta_f} != 0} {
\r
68 puts "Error: Bad value. V_begin = [dval V_begin], Vlast = [dval V1l_exp]."
\r
70 puts "OK: Good value. V_begin matches with Vlast of surface."
\r
75 set delta_l [dval V1f_exp-V_end]
\r
77 #ATTENTION!!! V_end must be strictly equal V1f_exp (without any tolerance)
\r
78 if {${delta_l} != 0} {
\r
79 puts "Error: Bad value. V_end = [dval V_end], Vfirst = [dval V1f_exp]."
\r
81 puts "OK: Good value. V_end matches with Vfirst of surface."
\r