1 puts "========"
2 puts "OCC29430"
3 puts "========"
4 puts ""
5 #################################################
6 # [Regression] Curve evaluation at boundary point.
7 #################################################
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.
17 OCC29430 result p1 p2
19 vertex v1 p1
20 vertex v2 p2
22 explode result v
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.
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
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 }
42 if { [dval dv12_val] < 1.0e-7 } {
43   puts "Error: Start and End points of the wire are the same."
44 }