mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
714c3bfccc
1. Step of Walking-line has been increased as possible and now computes by iteratively adaptive algorithm (every iteration checks if current step is too big/small and decreases/increases one). 2. Interface of IntWalk_PWalking class has been changed 2.1. Method MaxStep() has been added in order to know about maximal distance between 2D-points. 2.2. Method ComputePasInit(...) has been added in order to initial step value computation. 2.3. Fields myTolTang (tolerance for intersection algorithm) and myStepMin (minimal step value) have been added. Correction of some test cases. Creation test case for this issue. Changes to eliminate compiler warnings.
69 lines
1.8 KiB
Plaintext
69 lines
1.8 KiB
Plaintext
puts "========="
|
|
puts "OCC24585"
|
|
puts "========="
|
|
puts ""
|
|
###########################################################
|
|
# Wrong pcurve of the section curve
|
|
###########################################################
|
|
|
|
set ExpectedTol 5.6061116035240048e-005
|
|
set NbCurv_OK 1
|
|
|
|
restore [locate_data_file bug24585_b1.brep] b1
|
|
restore [locate_data_file bug24585_b2.brep] b2
|
|
|
|
mksurface s1 b1
|
|
bounds s1 U1f_exp U1l_exp V1f_exp V1l_exp
|
|
|
|
set log [bopcurves b1 b2 -2d]
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
if {${NbCurv} != ${NbCurv_OK}} {
|
|
puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
|
|
}
|
|
|
|
set tol_abs 0.0
|
|
set tol_rel 0.01
|
|
checkreal "Tolerance Reached" ${Toler} ${ExpectedTol} ${tol_abs} ${tol_rel}
|
|
|
|
bounds c2d1_1 U1 U2
|
|
2dcvalue c2d1_1 U1 U_begin V_begin
|
|
2dcvalue c2d1_1 U2 U_end V_end
|
|
|
|
#Theoretically, c2d1_1 must cover U-diapason of surface s1 fully.
|
|
|
|
set delta_f [dval U1f_exp-U_begin]
|
|
|
|
#ATTENTION!!! U_begin must be strictly equal U1f_exp (without any tolerance)
|
|
if {${delta_f} != 0} {
|
|
puts "Error: Bad value. U_begin = [dval U_begin], Ufirst = [dval U1f_exp]."
|
|
} else {
|
|
puts "OK: Good value. U_begin matches with Ufirst of surface."
|
|
}
|
|
|
|
puts ""
|
|
|
|
set delta_l [dval U1l_exp-U_end]
|
|
|
|
#ATTENTION!!! U_end must be strictly equal U1l_exp (without any tolerance)
|
|
if {${delta_l} != 0} {
|
|
puts "Error: Bad value. U_end = [dval U_end], Ulast = [dval U1l_exp]."
|
|
} else {
|
|
puts "OK: Good value. U_end matches with Ulast of surface."
|
|
}
|
|
|
|
puts ""
|
|
puts "Check if tangents in first and last point of line have the same directions"
|
|
|
|
#See bug#26752
|
|
cvalue c_1 U1 xx yy zz dx1 dy1 dz1
|
|
cvalue c_1 U2 xx yy zz dx2 dy2 dz2
|
|
|
|
set DP [dval dx1*dx2+dy1*dy2+dz1*dz2]
|
|
if {${DP} < 0} {
|
|
puts "Error: Tangents are reversed. Bug 26752 is reproduced."
|
|
} else {
|
|
puts "OK: Tangents are not reversed."
|
|
}
|