mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
37 lines
1.0 KiB
Plaintext
Executable File
37 lines
1.0 KiB
Plaintext
Executable File
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 1.e-6]
|
|
set inter2 [2dintersect c3 c2 1.e-6]
|
|
set inter3 [2dintersect c1 c4 1.e-6]
|
|
set inter4 [2dintersect c3 c4 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"
|
|
}
|
|
|
|
av2d
|
|
2dfit
|
|
|
|
xwd ${imagedir}/${test_image}.png
|