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