0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29430
1 puts "========"
2 puts "OCC29430"
3 puts "========"
4 puts ""
5 #################################################
6 # [Regression] Curve evaluation at boundary point.
7 #################################################
8
9 pload QAcommands
10
11 # After launching the command below we will obtain
12 # some wire (stored in "result" variable) containing
13 # a single edge based on arc of circle and its first and last
14 # 3D-points (p1 and p2 correspondingly) taken from
15 # composite curve (BRepAdaptor_CompCurve) built on this wire. 
16
17 OCC29430 result p1 p2
18
19 vertex v1 p1
20 vertex v2 p2
21
22 explode result v
23
24 # Now, let's check 
25 # 1. whether p1 and p2 match the vertices of the wire;
26 # 2. whether p1 and p2 are different points.
27
28 distmini d11 result_1 v1
29 distmini d12 result_1 v2
30 distmini d21 result_2 v1
31 distmini d22 result_2 v2
32 distmini dv12 v1 v2
33
34
35 if { ([dval d11_val] > 1.0e-7) && ([dval d21_val] > 1.0e-7) } {
36   puts "Error: Start point of the wire does not match any its vertex."
37 }
38 if { ([dval d12_val] > 1.0e-7) && ([dval d22_val] > 1.0e-7) } { 
39   puts "Error: End point of the wire does not match any its vertex."
40 }
41
42 if { [dval dv12_val] < 1.0e-7 } { 
43   puts "Error: Start and End points of the wire are the same."
44 }
45
46