ee41d7906db4f27da7316530121d26aaab616bfc
[occt.git] / tests / lowalgos / 2dinter / bug23587
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
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]
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
33 av2d
34 2dfit
35
36 xwd ${imagedir}/${test_image}.png