[occt.git] / tests / lowalgos / 2dinter / bug23587

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
Commit	Line	Data
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