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
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
-- File: MultiPointConstraint.cdl
-- Created: Mon Dec 2 09:03:29 1991
-- Author: Laurent PAINNOT
-- <lpa@topsn3>
---Copyright: Matra Datavision 1991, 1992
class MultiPointConstraint from AppDef
inherits MultiPoint from AppParCurves
---Purpose: Describes a MultiPointConstraint used in a
-- Multiline. MultiPointConstraints are composed
-- of several two or three-dimensional points.
-- The purpose is to define the corresponding
-- points that share a common constraint in order
-- to compute the approximation of several lines in parallel.
-- Notes:
-- - The order of points of a MultiPointConstraints is very important.
-- Users must give 3D points first, and then 2D points.
-- - The constraints for the points included in a
-- MultiPointConstraint are always identical for
-- all points, including the parameter.
-- - If a MultiPointConstraint is a "tangency"
-- point, the point is also a "passing" point.
uses Pnt from gp,
Pnt2d from gp,
Vec from gp,
Vec2d from gp,
Array1OfPnt from TColgp,
Array1OfPnt2d from TColgp,
Array1OfVec from TColgp,
Array1OfVec2d from TColgp,
Constraint from AppParCurves,
OStream from Standard,
TShared from MMgt
raises OutOfRange from Standard,
ConstructionError from Standard,
DimensionError from Standard
is
Create
---Purpose: creates an undefined MultiPointConstraint.
returns MultiPointConstraint from AppDef;
Create(NbPoints, NbPoints2d: Integer)
---Purpose: constructs a set of Points used to approximate a Multiline.
-- These Points can be of 2 or 3 dimensions.
-- Points will be initialized with SetPoint and SetPoint2d.
returns MultiPointConstraint from AppDef;
Create(tabP: Array1OfPnt)
---Purpose: creates a MultiPoint only composed of 3D points.
returns MultiPointConstraint from AppDef;
Create(tabP: Array1OfPnt2d)
---Purpose: creates a MultiPoint only composed of 2D points.
returns MultiPointConstraint from AppDef;
Create(tabP: Array1OfPnt; tabP2d: Array1OfPnt2d)
---Purpose: constructs a set of Points used to approximate a Multiline.
-- These Points can be of 2 or 3 dimensions.
-- Points will be initialized with SetPoint and SetPoint2d.
returns MultiPointConstraint from AppDef;
Create(tabP: Array1OfPnt; tabP2d: Array1OfPnt2d;
tabVec: Array1OfVec; tabVec2d: Array1OfVec2d;
tabCur: Array1OfVec; tabCur2d: Array1OfVec2d)
---Purpose: creates a MultiPointConstraint with a constraint of
-- Curvature.
-- An exception is raised if
-- (length of <tabP> + length of <tabP2d> ) is different
-- from (length of <tabVec> + length of <tabVec2d> ) or
-- from (length of <tabCur> + length of <tabCur2d> )
returns MultiPointConstraint from AppDef
raises ConstructionError from Standard;
Create(tabP: Array1OfPnt; tabP2d: Array1OfPnt2d;
tabVec: Array1OfVec; tabVec2d: Array1OfVec2d)
---Purpose: creates a MultiPointConstraint with a constraint of
-- Tangency.
-- An exception is raised if
-- (length of <tabP> + length of <tabP2d> ) is different
-- from (length of <tabVec> + length of <tabVec2d> )
returns MultiPointConstraint from AppDef
raises ConstructionError from Standard;
Create(tabP: Array1OfPnt; tabVec: Array1OfVec; tabCur: Array1OfVec)
---Purpose: creates a MultiPointConstraint only composed of 3d points
-- with constraints of curvature.
-- An exception is raised if the length of tabP is different
-- from the length of tabVec or from tabCur.
returns MultiPointConstraint from AppDef
raises ConstructionError;
Create(tabP: Array1OfPnt; tabVec: Array1OfVec)
---Purpose: creates a MultiPointConstraint only composed of 3d points
-- with constraints of tangency.
-- An exception is raised if the length of tabP is different
-- from the length of tabVec.
returns MultiPointConstraint
raises ConstructionError;
Create(tabP2d: Array1OfPnt2d; tabVec2d: Array1OfVec2d)
---Purpose: creates a MultiPointConstraint only composed of 2d points
-- with constraints of tangency.
-- An exception is raised if the length of tabP is different
-- from the length of tabVec2d.
returns MultiPointConstraint from AppDef
raises ConstructionError from Standard;
Create(tabP2d: Array1OfPnt2d;
tabVec2d: Array1OfVec2d;
tabCur2d: Array1OfVec2d)
---Purpose: creates a MultiPointConstraint only composed of 2d points
-- with constraints of curvature.
-- An exception is raised if the length of tabP is different
-- from the length of tabVec2d or from tabCur2d.
returns MultiPointConstraint from AppDef
raises ConstructionError from Standard;
SetTang(me: in out; Index: Integer; Tang: Vec)
---Purpose: sets the value of the tangency of the point of range
-- Index.
-- An exception is raised if Index <0 or if Index > number
-- of 3d points.
-- An exception is raised if Tang has an incorrect number of
-- dimensions.
raises OutOfRange from Standard,
DimensionError from Standard
is static;
Tang(me; Index: Integer)
---Purpose: returns the tangency value of the point of range Index.
-- An exception is raised if Index < 0 or if Index > number
-- of 3d points.
returns Vec from gp
raises OutOfRange from Standard
is static;
SetTang2d(me: in out; Index: Integer; Tang2d: Vec2d)
---Purpose: sets the value of the tangency of the point of range
-- Index.
-- An exception is raised if Index <number of 3d points or if
-- Index > total number of Points
-- An exception is raised if Tang has an incorrect number of
-- dimensions.
raises OutOfRange from Standard,
DimensionError from Standard
is static;
Tang2d(me; Index: Integer)
---Purpose: returns the tangency value of the point of range Index.
-- An exception is raised if Index < number of 3d points or
-- if Index > total number of points.
returns Vec2d from gp
raises OutOfRange from Standard
is static;
SetCurv(me: in out; Index: Integer; Curv: Vec)
---Purpose: Vec sets the value of the normal vector at the
-- point of index Index. The norm of the normal
-- vector at the point of position Index is set to the normal curvature.
-- An exception is raised if Index <0 or if Index > number
-- of 3d points.
-- An exception is raised if Curv has an incorrect number of
-- dimensions.
raises OutOfRange from Standard,
DimensionError from Standard
is static;
Curv(me; Index: Integer)
---Purpose: returns the normal vector at the point of range Index.
-- An exception is raised if Index < 0 or if Index > number
-- of 3d points.
returns Vec from gp
raises OutOfRange from Standard
is static;
SetCurv2d(me: in out; Index: Integer; Curv2d: Vec2d)
---Purpose: Vec sets the value of the normal vector at the
-- point of index Index. The norm of the normal
-- vector at the point of position Index is set to the normal curvature.
-- An exception is raised if Index <0 or if Index > number
-- of 3d points.
-- An exception is raised if Curv has an incorrect number of
-- dimensions.
raises OutOfRange from Standard,
DimensionError from Standard
is static;
Curv2d(me; Index: Integer)
---Purpose: returns the normal vector at the point of range Index.
-- An exception is raised if Index < 0 or if Index > number
-- of 3d points.
returns Vec2d from gp
is static;
IsTangencyPoint(me)
---Purpose: returns True if the MultiPoint has a tangency value.
returns Boolean
raises OutOfRange from Standard
is static;
IsCurvaturePoint(me)
---Purpose: returns True if the MultiPoint has a curvature value.
returns Boolean
raises OutOfRange from Standard
is static;
Dump(me; o: in out OStream)
---Purpose: Prints on the stream o information on the current
-- state of the object.
-- Is used to redefine the operator <<.
is redefined;
fields
ttabTang: TShared from MMgt;
ttabCurv: TShared from MMgt;
ttabTang2d: TShared from MMgt;
ttabCurv2d: TShared from MMgt;
end MultiPointConstraint from AppDef;
|
