Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug23587
CommitLineData
305cc3f8 1puts "============"
2puts "CR23587"
3puts "==========="
4puts ""
5###############################################################################
6# Operation "2dintersect "in TestHarness can not find intersection point of two intersecting 2d curves.
7###############################################################################
8
9restore [locate_data_file bug23587_IntEdges.brep] a
10
11explode a
12
13plane pl1 0 0 0 0 0 1
14trim trpl1 pl1 -1000 1000 -1000 1000
15mkface f1 trpl1
16pcurve c1 a_1 f1
17pcurve c2 a_2 f1
18pcurve c3 a_3 f1
19pcurve c4 a_4 f1
20set inter1 [2dintersect c1 c2 1.e-6]
21set inter2 [2dintersect c3 c2 1.e-6]
22set inter3 [2dintersect c1 c4 1.e-6]
23set inter4 [2dintersect c3 c4 1.e-6]
24set int1 [regexp {Intersection point 1} $inter1]
25set int2 [regexp {Intersection point 1} $inter2]
26set int3 [regexp {Intersection point 1} $inter3]
27set int4 [regexp {Intersection point 1} $inter4]
28
29if { $int1 == 0 || $int2 == 0 || $int3 == 0 || $int4 ==0 } {
30 puts "Error : Intersection is not found"
31}
32
33av2d
342dfit
35
36xwd ${imagedir}/${test_image}.png