mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
64a4475285
Correct the behavior of the command 2dapprox for the case of points input in the command line. Restore the work of the command 2dinterpole (implemented in the same method as 2dapprox). Add test cases. Correct generation of snapshots for the tests lowalgos/2dinter/*.
37 lines
1.0 KiB
Plaintext
37 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "CR23587"
|
|
puts "==========="
|
|
puts ""
|
|
###############################################################################
|
|
# Operation "2dintersect "in TestHarness can not find intersection point of two intersecting 2d curves.
|
|
###############################################################################
|
|
|
|
restore [locate_data_file bug23587_IntEdges.brep] a
|
|
|
|
explode a
|
|
|
|
plane pl1 0 0 0 0 0 1
|
|
trim trpl1 pl1 -1000 1000 -1000 1000
|
|
mkface f1 trpl1
|
|
pcurve c1 a_1 f1
|
|
pcurve c2 a_2 f1
|
|
pcurve c3 a_3 f1
|
|
pcurve c4 a_4 f1
|
|
set inter1 [2dintersect c1 c2 -tol 1.e-6]
|
|
set inter2 [2dintersect c3 c2 -tol 1.e-6]
|
|
set inter3 [2dintersect c1 c4 -tol 1.e-6]
|
|
set inter4 [2dintersect c3 c4 -tol 1.e-6]
|
|
set int1 [regexp {Intersection point 1} $inter1]
|
|
set int2 [regexp {Intersection point 1} $inter2]
|
|
set int3 [regexp {Intersection point 1} $inter3]
|
|
set int4 [regexp {Intersection point 1} $inter4]
|
|
|
|
if { $int1 == 0 || $int2 == 0 || $int3 == 0 || $int4 ==0 } {
|
|
puts "Error : Intersection is not found"
|
|
}
|
|
|
|
smallview -2D-
|
|
2dfit
|
|
|
|
xwd ${imagedir}/${test_image}.png
|