1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
-- File: IntTools_Tools.cdl
-- Created: Thu Nov 16 11:40:16 2000
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2000
class Tools from IntTools
---Purpose:
--- The class contains handy static functions
--- dealing with the geometry and topology.
uses
Shape from TopoDS,
Vertex from TopoDS,
Edge from TopoDS,
Wire from TopoDS,
Face from TopoDS,
Pnt2d from gp,
Pnt from gp,
Dir from gp,
CommonPrt from IntTools,
Curve from IntTools,
SequenceOfCurves from IntTools,
Curve from Geom,
State from TopAbs
is
ComputeVV (myclass;V1,V2:Vertex from TopoDS)
returns Integer from Standard;
---Purpose:
--- Computes distance between vertex V1 and vertex V2,
--- if the distance is less than sum of vertex tolerances
--- returns zero,
--- otherwise returns negative value
---
HasInternalEdge (myclass;
aW: Wire from TopoDS)
returns Boolean from Standard;
---Purpose:
--- Returns True if wire aW contains edges
--- with INTERNAL orientation
---
MakeFaceFromWireAndFace (myclass;
aW: Wire from TopoDS;
aF: Face from TopoDS;
aFNew:out Face from TopoDS);
---Purpose:
--- Build a face based on surface of given face aF
--- and bounded by wire aW
---
ClassifyPointByFace (myclass;
aF: Face from TopoDS;
P: Pnt2d from gp)
returns State from TopAbs;
---Purpose:
---
---
IsVertex (myclass; E: Edge from TopoDS;
t: Real from Standard)
returns Boolean from Standard;
---Purpose:
--- Computes square distance between a point on the edge E
--- corresponded to parameter t and vertices of edge E.
--- Returns True if this distance is less than square
--- tolerance of vertex, otherwise returns false.
---
IsVertex (myclass; E: Edge from TopoDS;
V: Vertex from TopoDS;
t: Real from Standard)
returns Boolean from Standard;
---Purpose:
--- Returns True if square distance between vertex V
--- and a point on the edge E corresponded to parameter t
--- is less than square tolerance of V
---
IsVertex (myclass; aCmnPrt: CommonPrt from IntTools)
returns Boolean from Standard;
---Purpose:
--- Returns True if IsVertx for middle parameter of fist range
--- and first edge returns True
--- and if IsVertex for middle parameter of second range and
--- second range returns True,
--- otherwise returns False
---
IsMiddlePointsEqual(myclass;
E1: Edge from TopoDS;
E2: Edge from TopoDS)
returns Boolean from Standard;
---Purpose:
--- Gets boundary of parameters of E1 and E2.
--- Computes 3d points on each corresponded to average parameters.
--- Returns True if distance between computed points is less than
--- sum of edge tolerance, otherwise returns False.
---
IsVertex (myclass;
aP : Pnt from gp;
aTolPV: Real from Standard;
aV: Vertex from TopoDS)
returns Boolean from Standard;
---Purpose:
--- Returns True if the distance between point aP and
--- vertex aV is less or equal to sum of aTolPV and
--- vertex tolerance, otherwise returns False
---
IntermediatePoint (myclass;
aFirst: Real from Standard;
aLast : Real from Standard)
returns Real from Standard;
---Purpose:
--- Returns some value between aFirst and aLast
---
SplitCurve (myclass;
aC : Curve from IntTools;
aS :out SequenceOfCurves from IntTools)
returns Integer from Standard;
---Purpose:
--- Split aC by average parameter if aC is closed in 3D.
--- Returns positive value if splitting has been done,
--- otherwise returns zero.
---
RejectLines(myclass;
aSIn: SequenceOfCurves from IntTools;
aSOut:out SequenceOfCurves from IntTools);
---Purpose:
--- Puts curves from aSIn to aSOut except those curves that
--- are coincide with first curve from aSIn.
---
IsDirsCoinside (myclass;
D1:Dir from gp;
D2:Dir from gp)
returns Boolean from Standard;
---Purpose:
--- Returns True if D1 and D2 coinside
---
IsDirsCoinside (myclass;
D1 :Dir from gp;
D2 :Dir from gp;
aTol:Real from Standard)
returns Boolean from Standard;
---Purpose:
--- Returns True if D1 and D2 coinside with given tolerance
---
IsClosed (myclass;
aC : Curve from Geom)
returns Boolean from Standard;
---Purpose:
--- Returns True if aC is BoundedCurve from Geom and
--- the distance between first point
--- of the curve aC and last point
--- is less than 1.e-12
---
CurveTolerance(myclass;
aC : Curve from Geom;
aTolBase : Real from Standard)
returns Real from Standard;
---Purpose:
--- Returns adaptive tolerance for given aTolBase
--- if aC is trimmed curve and basis curve is parabola,
--- otherwise returns value of aTolBase
---
end Tools;
|