0029858: Modeling Data - Regression in GeomAPI_ExtremaCurveCurve
[occt.git] / tests / lowalgos / extcc / bug29858_02
1 puts "========"
2 puts "OCC29858"
3 puts "========"
4 puts ""
5 #################################################
6 # Regression in GeomAPI_ExtremaCurveCurve
7 #################################################
8
9 # Read input
10 restore [locate_data_file bug29858_02_e1.brep] e1
11 restore [locate_data_file bug29858_02_e2.brep] e2
12
13 # Extract geometry from topology
14 mkcurve c1 e1
15 mkcurve c2 e2
16
17 # Run extrema
18 set info [extrema c1 c2]
19
20 # Check result
21 regexp {Extrema 1 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $info full x y z
22 # Point check
23 set good_x 0.001
24 set good_y 0.0073371170841145797
25 set good_z -0.083369169789921913
26 checkreal "Intersection point x:" ${x} ${good_x} 0.01 0.01
27 checkreal "Intersection point y:" ${y} ${good_y} 0.01 0.01
28 checkreal "Intersection point z:" ${z} ${good_z} 0.01 0.01