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
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
|
-- File: Approx_BSplComputeLine.cdl
-- Created: Wed Sep 22 12:36:13 1993
-- Author: Modelistation
-- <model@zerox>
---Copyright: Matra Datavision 1993
generic class BSplComputeLine from Approx
(MultiLine as any;
LineTool as any) --as TheLineTool(MultiLine)
uses ParametrizationType from Approx,
SequenceOfReal from TColStd,
HArray1OfReal from TColStd,
HArray1OfInteger from TColStd,
Array1OfReal from TColStd,
Array1OfInteger from TColStd,
HArray1OfConstraintCouple from AppParCurves,
Constraint from AppParCurves,
MultiBSpCurve from AppParCurves,
MultiCurve from AppParCurves,
Vector from math
private class MyBSplGradient instantiates BSpGradient from AppParCurves
(MultiLine,
LineTool);
private class MyGradientbis instantiates Gradient from AppParCurves
(MultiLine,
LineTool);
is
Create(Line: MultiLine;
degreemin: Integer = 4;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-3;
Tolerance2d: Real = 1.0e-6;
NbIterations: Integer = 5;
cutting: Boolean = Standard_True;
parametrization: ParametrizationType from Approx =
Approx_ChordLength;
Squares: Boolean = Standard_False)
---Purpose: The MultiLine <Line> will be approximated until tolerances
-- will be reached.
-- The approximation will be done from degreemin to degreemax
-- with a cutting if the corresponding boolean is True.
-- If <Squares> is True, the computation will be done with
-- no iteration at all.
--
-- The multiplicities of the internal knots is set by
-- default.
returns BSplComputeLine;
Create(Line: MultiLine;
Parameters: Vector from math;
degreemin: Integer = 4;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-03;
Tolerance2d: Real = 1.0e-06;
NbIterations: Integer = 5;
cutting: Boolean = Standard_True;
Squares: Boolean = Standard_False)
---Purpose: The MultiLine <Line> will be approximated until tolerances
-- will be reached.
-- The approximation will be done from degreemin to degreemax
-- with a cutting if the corresponding boolean is True.
-- If <Squares> is True, the computation will be done with
-- no iteration at all.
returns BSplComputeLine;
Create(Parameters: Vector from math;
degreemin: Integer = 4;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-03;
Tolerance2d: Real = 1.0e-06;
NbIterations: Integer = 5;
cutting: Boolean = Standard_True;
Squares: Boolean = Standard_False)
---Purpose: Initializes the fields of the algorithm.
returns BSplComputeLine;
Create(degreemin: Integer = 4;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-03;
Tolerance2d: Real = 1.0e-06;
NbIterations: Integer = 5;
cutting: Boolean = Standard_True;
parametrization: ParametrizationType from Approx =
Approx_ChordLength;
Squares: Boolean = Standard_False)
---Purpose: Initializes the fields of the algorithm.
returns BSplComputeLine;
Interpol(me: in out; Line: MultiLine)
---Purpose: Constructs an interpolation of the MultiLine <Line>
-- The result will be a C2 curve of degree 3.
is static;
Init(me: in out; degreemin: Integer = 4;
degreemax: Integer = 8;
Tolerance3d: Real = 1.0e-03;
Tolerance2d: Real = 1.0e-06;
NbIterations: Integer = 5;
cutting: Boolean = Standard_True;
parametrization: ParametrizationType from Approx =
Approx_ChordLength;
Squares: Boolean = Standard_False)
---Purpose: Initializes the fields of the algorithm.
is static;
Perform(me: in out; Line: MultiLine)
---Purpose: runs the algorithm after having initialized the fields.
is static;
Compute(me: in out; Line: MultiLine; fpt, lpt: Integer;
Para: in out Vector from math; Knots: Array1OfReal;
Mults: in out Array1OfInteger)
---Purpose: is internally used in the algorithm.
returns Boolean
is static private;
ComputeCurve(me: in out; Line: MultiLine; firspt, lastpt: Integer)
---Purpose: is internally used in the algorithm.
returns Boolean
is static private;
Parameters(me; Line: MultiLine; firstP, LastP: Integer;
TheParameters: in out Vector)
---Purpose: computes new parameters between firstP and lastP.
is static private;
SetParameters(me: in out; ThePar: Vector from math)
---Purpose: The approximation will begin with the
-- set of parameters <ThePar>.
is static;
SetKnots(me: in out; Knots: Array1OfReal from TColStd)
---Purpose: The approximation will be done with the
-- set of knots <Knots>. The multiplicities will be set
-- with the degree and the desired continuity.
is static;
SetKnotsAndMultiplicities(me: in out;
Knots: Array1OfReal from TColStd;
Mults: Array1OfInteger from TColStd)
---Purpose: The approximation will be done with the
-- set of knots <Knots> and the multiplicities <Mults>.
is static;
SetDegrees(me: in out; degreemin, degreemax: Integer)
---Purpose: changes the degrees of the approximation.
is static;
SetTolerances(me: in out; Tolerance3d, Tolerance2d: Real)
---Purpose: Changes the tolerances of the approximation.
is static;
SetContinuity(me: in out; C: Integer)
---Purpose: sets the continuity of the spline.
-- if C = 2, the spline will be C2.
is static;
SetConstraints(me: in out; firstC, lastC: Constraint from AppParCurves)
---Purpose: changes the first and the last constraint points.
is static;
IsAllApproximated(me)
---Purpose: returns False if at a moment of the approximation,
-- the status NoApproximation has been sent by the user
-- when more points were needed.
returns Boolean
is static;
IsToleranceReached(me)
---Purpose: returns False if the status NoPointsAdded has been sent.
returns Boolean
is static;
Error(me; tol3d: in out Real; tol2d: in out Real)
---Purpose: returns the tolerances 2d and 3d of the MultiBSpCurve.
is static;
Value(me)
---Purpose: returns the result of the approximation.
---C++: return const&
returns MultiBSpCurve from AppParCurves;
ChangeValue(me: in out)
---Purpose: returns the result of the approximation.
---C++: return &
returns MultiBSpCurve from AppParCurves;
Parameters(me)
---Purpose: returns the new parameters of the approximation
-- corresponding to the points of the MultiBSpCurve.
---C++: return const&
returns Array1OfReal from TColStd
is static;
SearchFirstLambda(me; Line: MultiLine; Para: Vector;
Knots: Array1OfReal from TColStd;
V: Vector; index: Integer)
returns Real
is static private;
SearchLastLambda(me: ; Line: MultiLine; Para: Vector;
Knots: Array1OfReal from TColStd;
V: Vector; index: Integer)
returns Real
is static private;
TangencyVector(me; Line: MultiLine; C: MultiCurve from AppParCurves;
U: Real from Standard; V: in out Vector from math)
is static private;
FirstTangencyVector(me; Line: MultiLine; index: Integer; V: out Vector)
is static private;
LastTangencyVector(me; Line: MultiLine; index: Integer; V: out Vector)
is static private;
FindRealConstraints(me: in out; Line: MultiLine)
is static private;
fields
TheMultiBSpCurve: MultiBSpCurve from AppParCurves;
alldone : Boolean from Standard;
tolreached : Boolean from Standard;
Par : ParametrizationType from Approx;
myParameters : HArray1OfReal from TColStd;
myfirstParam : HArray1OfReal from TColStd;
myknots : HArray1OfReal from TColStd;
mymults : HArray1OfInteger from TColStd;
myhasknots : Boolean from Standard;
myhasmults : Boolean from Standard;
myConstraints : HArray1OfConstraintCouple from AppParCurves;
mydegremin : Integer from Standard;
mydegremax : Integer from Standard;
mytol3d : Real from Standard;
mytol2d : Real from Standard;
currenttol3d : Real from Standard;
currenttol2d : Real from Standard;
mycut : Boolean from Standard;
mysquares : Boolean from Standard;
myitermax : Integer from Standard;
myfirstC : Constraint from AppParCurves;
mylastC : Constraint from AppParCurves;
realfirstC : Constraint from AppParCurves;
reallastC : Constraint from AppParCurves;
mycont : Integer from Standard;
mylambda1 : Real from Standard;
mylambda2 : Real from Standard;
end BSplComputeLine;
|
