mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
b5ef9d9151
1. Algorithm of aStepU1 computing was changed. 2. Interface to allow convert gp_XY(Z) to the math_Vector has been added. 3. Algorithm of point in V-boundaries computing has been changed. 4. Situation when intersection line walks along V-boundary of cylinder(s) is processed better. 5. Intersection lines are created with their individual step along U1 parameter. 6. Points processing has been moved to the assembly level. 7. Extend output of "bfuseblend" and "bcutblend" DRAW-command. 8. New option for "bfuseblend" and "bcutblend" command has been added. Update Test cases Test cases for issue CR25742
92 lines
2.3 KiB
Plaintext
92 lines
2.3 KiB
Plaintext
puts "================"
|
|
puts "OCC25292"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Face/Face intersection algorithm gives different results for different order of the arguments
|
|
#######################################################################
|
|
|
|
puts "##############################"
|
|
puts "#!!!Search \"Attention\" keyword on this web-page for additional checking!!!"
|
|
puts "##############################"
|
|
puts ""
|
|
puts ""
|
|
|
|
# bopcurves command
|
|
|
|
restore [locate_data_file bug25292_f1.brep] f1
|
|
restore [locate_data_file bug25292_f2.brep] f2
|
|
|
|
#############################
|
|
set log [bopcurves f2 f1 -2d]
|
|
#############################
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
#This value must be equal to the analogical value in bug25292_31 and bug25292_32 of "bugs modalg_5" testgrid.
|
|
set MaxTol 1.0e-8
|
|
|
|
#This value must be equal to the analogical value in bug25292_31 and bug25292_32 of "bugs modalg_5" testgrid.
|
|
set GoodNbCurv 1
|
|
|
|
if {${Toler} > ${MaxTol}} {
|
|
puts "Error: Tolerance is too big!"
|
|
}
|
|
if {${NbCurv} != ${GoodNbCurv}} {
|
|
puts "Error: Curve Number is bad!!"
|
|
}
|
|
|
|
#-------------
|
|
|
|
mksurface s1 f1
|
|
mksurface s2 f2
|
|
|
|
for {set i 1} {$i <= ${NbCurv}} {incr i} {
|
|
set log [dump c_$i]
|
|
|
|
regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
|
|
puts "Degree=${Degree}"
|
|
puts "Poles=${Poles}"
|
|
puts "KnotsPoles=${KnotsPoles}"
|
|
puts ""
|
|
|
|
set Knot 1
|
|
set exp_string "Knots :\n\n +${Knot} : +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
|
|
regexp ${exp_string} ${log} full U1 Mult1
|
|
|
|
set Knot ${KnotsPoles}
|
|
set exp_string " +${Knot} : +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
|
|
regexp ${exp_string} ${log} full U2 Mult2
|
|
|
|
puts "U1=${U1}"
|
|
puts "U2=${U2}"
|
|
|
|
if {[expr {$U2 - $U1}] < 1.0e-20} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs c_$i s1 ${U1} ${U2} 10
|
|
set Log2 [dlog get]
|
|
set List2 [split ${Log2} {TD= \t\n}]
|
|
set Tolerance 1.0e-7
|
|
set Limit_Tol 1.0e-8
|
|
set D_good 0.
|
|
checkList ${List2} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs c_$i s2 ${U1} ${U2} 10
|
|
set Log2 [dlog get]
|
|
set List2 [split ${Log2} {TD= \t\n}]
|
|
set Tolerance 1.0e-7
|
|
set Limit_Tol 1.0e-8
|
|
set D_good 0.
|
|
checkList ${List2} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
}
|
|
|
|
smallview
|
|
fit
|
|
set only_screen_axo 1
|