mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
8dc56d0f88
Creation of IntPatch_Points is forbidden in tangent-zones exceptionally domain boundaries of intersected surface.
36 lines
804 B
Plaintext
36 lines
804 B
Plaintext
puts "========"
|
|
puts "OCC29494"
|
|
puts "========"
|
|
puts ""
|
|
#################################################
|
|
# Intersection line between two parametric surfaces is restricted incorrectly if it matches
|
|
# the surface boundary
|
|
#################################################
|
|
|
|
restore [locate_data_file bug29488_shapes.brep] s
|
|
explode s
|
|
|
|
explode s_4 f; copy s_4_13 f1
|
|
explode s_6 f; copy s_6_18 f2
|
|
|
|
smallview
|
|
clear
|
|
bopcurves f1 f2 -2d
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves f1 f2 -2d] full Toler NbCurv
|
|
|
|
if {$Toler > 1.0e-7} {
|
|
puts "Error: Big tolerance is returned by intersector"
|
|
}
|
|
|
|
if {$NbCurv != 1} {
|
|
puts "Error: Please check NbCurves for intersector"
|
|
} else {
|
|
checklength c_1 -l 19.2
|
|
}
|
|
|
|
fit
|
|
disp f1 f2
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|