mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
00302ba4e7
1. Checking, if intersection curve is collapsed, is added. (file GeomInt_LineConstructor.cxx) 2. Earlier, intersection line was considered as valid if only mid-point of every interval of this line is into two intersected surfaces (with given tolerance). That's no good because after inserting of new points, old points, which is considered as valid only because they are into beginning or into end of interval (therefore, they was not checked), moved to mid of interval and became invalid. Therefore, checking for first and last points was added. (file GeomInt_LineConstructor.cxx) 3. Intersection line became valid (see bug description) after adding of new additional points into it (file IntPatch_PrmPrmIntersection.cxx). Methods for finding and adding of new points were added. (file IntWalk_PWalking_1.gxx) Some test cases were changed. Test cases for issue CR24472
46 lines
901 B
Plaintext
Executable File
46 lines
901 B
Plaintext
Executable File
puts "========="
|
|
puts "CR24299"
|
|
puts "========="
|
|
puts ""
|
|
###############################
|
|
## Wrong section curve
|
|
###############################
|
|
|
|
restore [locate_data_file pro19653a.brep] b1
|
|
restore [locate_data_file pro19653b.brep] b2
|
|
|
|
explode b1 f
|
|
explode b2 f
|
|
mksurface s1 b1_1
|
|
mksurface s2 b2_1
|
|
intersect i s1 s2
|
|
|
|
dlog reset
|
|
dlog on
|
|
xdistcs i_2 s1 0 1 10
|
|
set Log1 [dlog get]
|
|
|
|
set List1 [split ${Log1} {TD= \t\n}]
|
|
|
|
set L1 [llength ${List1}]
|
|
set L2 10
|
|
set L3 5
|
|
set N [expr (${L1} - ${L2})/${L3} + 1]
|
|
set Tolerance 1.0e-5
|
|
set D_good 0.
|
|
|
|
for {set i 1} {${i} <= ${N}} {incr i} {
|
|
set j1 [expr ${L2} + (${i}-1)*${L3}]
|
|
set j2 [expr ${j1} + 2]
|
|
set T [lindex ${List1} ${j1}]
|
|
set D [lindex ${List1} ${j2}]
|
|
#puts "i=${i} j1=${j1} j2=${j2} T=${T} D=${D}"
|
|
if { [expr abs(${D} - ${D_good})] > ${Tolerance} } {
|
|
puts "Error: i=${i} T=${T} D=${D}"
|
|
}
|
|
}
|
|
|
|
smallview
|
|
fit
|
|
set only_screen_axo 1
|