mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +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
94 lines
2.2 KiB
Plaintext
94 lines
2.2 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 ""
|
|
|
|
# intersect command for trimmed surfaces
|
|
|
|
#This value must be equal to the analogical value in bug25292_35 and bug25292_36 of "bugs modalg_5" testgrid.
|
|
set GoodNbCurv 2
|
|
|
|
restore [locate_data_file bug25292_f1.brep] f1
|
|
restore [locate_data_file bug25292_f2.brep] f2
|
|
|
|
mksurface s1 f1
|
|
mksurface s2 f2
|
|
|
|
# trim s1 in accordance with the UV-bounds of f1:
|
|
trimv s1t s1 19.1600000005 19.6600000005
|
|
|
|
# trim s2 in accordance with the UV-bounds of f2:
|
|
trim s2t s2 0. 1.570796326795 -275 275
|
|
|
|
###################
|
|
intersect res s1t s2t
|
|
###################
|
|
|
|
set che [whatis res]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} >= 0} {
|
|
#Only variable "res" exists
|
|
|
|
copy res res_1
|
|
}
|
|
|
|
set ic 1
|
|
set AllowRepeate 1
|
|
while { $AllowRepeate != 0 } {
|
|
set che [whatis res_$ic]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} < 0} {
|
|
set AllowRepeate 0
|
|
} else {
|
|
set le [length res_$ic]
|
|
regexp "The length res_$ic is +(\[-0-9.+eE\]+)" ${le} full ll
|
|
|
|
if { $ll < 1.0e-7 } {
|
|
puts "Error: Curve is too small!"
|
|
}
|
|
|
|
bounds res_$ic U1 U2
|
|
|
|
if {[dval U2-U1] < 1.0e-9} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs res_$ic s1 U1 U2 10
|
|
set Log1 [dlog get]
|
|
set List1 [split ${Log1} {TD= \t\n}]
|
|
set Tolerance 1.0e-7
|
|
set Limit_Tol 1.0e-7
|
|
set D_good 0.
|
|
checkList ${List1} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs res_$ic s2 U1 U2 10
|
|
set Log1 [dlog get]
|
|
set List1 [split ${Log1} {TD= \t\n}]
|
|
set Tolerance 1.0e-7
|
|
set Limit_Tol 1.0e-7
|
|
set D_good 0.
|
|
checkList ${List1} ${Tolerance} ${D_good} ${Limit_Tol}
|
|
|
|
incr ic
|
|
}
|
|
}
|
|
|
|
if {[expr {$ic - 1}] == $GoodNbCurv} {
|
|
puts "OK: Curve Number is good!"
|
|
} else {
|
|
puts "Error: Curve Number is bad!"
|
|
}
|