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
|
-- File: Approx_ComputeLine.cdl
-- Created: Tue Jan 26 11:50:18 1993
-- Author: Laurent PAINNOT
-- <lpa@sdsun1>
---Copyright: Matra Datavision 1993
generic class ComputeLine from Approx
(MultiLine as any;
LineTool as any) --as TheLineTool(MultiLine)
uses ParametrizationType from Approx,
SequenceOfReal from TColStd,
HArray1OfReal from TColStd,
Array1OfReal from TColStd,
SequenceOfMultiCurve from AppParCurves,
HArray1OfMultiCurve from AppParCurves,
HArray1OfConstraintCouple from AppParCurves,
Constraint from AppParCurves,
SequenceOfHArray1OfReal from Approx,
MultiCurve from AppParCurves,
MultiBSpCurve from AppParCurves,
Vector from math
private class MyGradient 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.
returns ComputeLine;
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 ComputeLine;
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 ComputeLine;
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 ComputeLine;
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; TheTol3d, TheTol2d: in out Real)
---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;
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;
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; Index: Integer; tol3d: in out Real; tol2d: in out Real)
---Purpose: returns the tolerances 2d and 3d of the <Index> MultiCurve.
is static;
NbMultiCurves(me)
---Purpose: Returns the number of MultiCurve doing the approximation
-- of the MultiLine.
returns Integer
is static;
Value(me; Index: Integer = 1)
---Purpose: returns the result of the approximation.
---C++: return const&
returns MultiCurve from AppParCurves
is static;
ChangeValue(me: in out; Index: Integer = 1)
---Purpose: returns the result of the approximation.
---C++: return &
returns MultiCurve from AppParCurves
is static;
SplineValue(me: in out)
---Purpose: returns the result of the approximation.
---C++: return const&
returns MultiBSpCurve from AppParCurves
is static;
Parametrization(me; partype : in out ParametrizationType from Approx)
---Purpose: returns the type of parametrization
is static;
Parameters(me; Index: Integer = 1)
---Purpose: returns the new parameters of the approximation
-- corresponding to the points of the multicurve <Index>.
---C++: return const&
returns Array1OfReal from TColStd
is static;
SearchFirstLambda(me; Line: MultiLine; Para: Vector;
V: Vector; index: Integer)
returns Real
is static private;
SearchLastLambda(me: ; Line: MultiLine; Para: Vector;
V: Vector; index: Integer)
returns Real
is static private;
FirstTangencyVector(me; Line: MultiLine; index: Integer; V: in out Vector)
is static private;
LastTangencyVector(me; Line: MultiLine; index: Integer; V: in out Vector)
is static private;
fields
myMultiCurves: SequenceOfMultiCurve from AppParCurves;
TheMultiCurve: MultiCurve from AppParCurves;
myspline : MultiBSpCurve from AppParCurves;
alldone: Boolean from Standard;
tolreached: Boolean from Standard;
Par: ParametrizationType from Approx;
myParameters: HArray1OfReal from TColStd;
myfirstParam: HArray1OfReal from TColStd;
myPar: SequenceOfHArray1OfReal from Approx;
Tolers3d: SequenceOfReal from TColStd;
Tolers2d: SequenceOfReal from TColStd;
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;
end ComputeLine;
|
