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
|
-- File: UniformDeflection.cdl
-- Created: Wed Feb 27 13:01:27 1991
-- Author: Jean Claude Vauthier
-- <jcv@topsn3>
---Copyright: Matra Datavision 1991, 1992
class UniformDeflection from CPnts
---Purpose : This classe defines an algorithm to create a set of points at the
-- positions of constant deflection of a given curve or a trimmed
-- circle.
-- The continuity of the curve must be at least C2.
--
-- the usage of the is the following.
--
-- class myUniformDFeflection instantiates
-- UniformDeflection(Curve, Tool);
--
--
-- Curve C; // Curve inherits from Curve or Curve2d from Adaptor2d
-- myUniformDeflection Iter1;
-- DefPntOfmyUniformDeflection P;
--
-- for(Iter1.Initialize(C, Deflection, EPSILON, True);
-- Iter1.More();
-- Iter1.Next()) {
-- P = Iter1.Value();
-- ... make something with P
-- }
-- if(!Iter1.IsAllDone()) {
-- ... something wrong happened
-- }
uses
Curve from Adaptor3d,
Curve2d from Adaptor2d,
Pnt from gp
raises DomainError from Standard,
NotDone from StdFail,
OutOfRange from Standard
is
--
Create
---Purpose: creation of a indefinite UniformDeflection
returns UniformDeflection;
Create(C : Curve from Adaptor3d; Deflection, Resolution : Real;
WithControl : Boolean )
--- Purpose : Computes a uniform deflection distribution of points
-- on the curve <C>.
-- <Deflection> defines the constant deflection value.
-- The algorithm computes the number of points and the points.
-- The curve <C> must be at least C2 else the computation can fail.
-- If just some parts of the curve is C2 it is better to give the
-- parameters bounds and to use the below constructor .
-- if <WithControl> is True, the algorithm controls the estimate
-- deflection
-- when the curve is singular at the point P(u),the algorithm
-- computes the next point as
-- P(u + Max(CurrentStep,Abs(LastParameter-FirstParameter)))
-- if the singularity is at the first point ,the next point
-- calculated is the P(LastParameter)
returns UniformDeflection;
Create(C : Curve2d from Adaptor2d; Deflection, Resolution : Real;
WithControl : Boolean )
---Purpose: As above with 2d curve
returns UniformDeflection;
Create(C : Curve from Adaptor3d; Deflection, U1, U2, Resolution : Real;
WithControl : Boolean)
--- Purpose :
-- Computes an uniform deflection distribution of points on a part of
-- the curve <C>. Deflection defines the step between the points.
-- <U1> and <U2> define the distribution span.
-- <U1> and <U2> must be in the parametric range of the curve.
returns UniformDeflection
raises DomainError;
-- raised if U1 and U2 are not in the parametric bounds of the curve.
Create(C : Curve2d from Adaptor2d; Deflection, U1, U2, Resolution : Real;
WithControl : Boolean)
--- Purpose : As above with 2d curve
returns UniformDeflection
raises DomainError;
-- raised if U1 and U2 are not in the parametric bounds of the curve.
Initialize(me : in out; C : Curve from Adaptor3d;
Deflection, Resolution : Real;
WithControl : Boolean)
---Purpose: Initialize the algoritms with <C>, <Deflection>, <UStep>,
-- <Resolution> and <WithControl>
is static;
Initialize(me : in out; C : Curve2d from Adaptor2d;
Deflection, Resolution : Real;
WithControl : Boolean)
---Purpose: Initialize the algoritms with <C>, <Deflection>, <UStep>,
-- <Resolution> and <WithControl>
is static;
Initialize(me : in out; C : Curve from Adaptor3d;
Deflection, U1, U2, Resolution : Real;
WithControl : Boolean)
---Purpose: Initialize the algoritms with <C>, <Deflection>, <UStep>,
-- <U1>, <U2> and <WithControl>
raises DomainError
is static;
Initialize(me : in out; C : Curve2d from Adaptor2d;
Deflection, U1, U2, Resolution : Real;
WithControl : Boolean)
---Purpose: Initialize the algoritms with <C>, <Deflection>, <UStep>,
-- <U1>, <U2> and <WithControl>
raises DomainError
is static;
IsAllDone (me)
--- Purpose : To know if all the calculus were done successfully
-- (ie all the points have been computed). The calculus can fail if
-- the Curve is not C1 in the considered domain.
-- Returns True if the calculus was successful.
---C++: inline
returns Boolean
is static;
Next(me : in out)
---Purpose: go to the next Point.
---C++: inline
raises OutOfRange
is static;
More(me : in out)
---Purpose: returns True if it exists a next Point.
returns Boolean
is static;
Value(me) returns Real
---Purpose : return the computed parameter
---C++: inline
is static;
Point(me) returns Pnt from gp
---Purpose : return the computed parameter
---C++: inline
is static;
Perform (me : in out)
---Purpose: algorithm
is static private;
fields
myDone : Boolean;
my3d : Boolean;
myCurve : Address from Standard;
myFinish : Boolean;
myTolCur : Real;
myControl : Boolean;
myIPoint : Integer;
myNbPoints : Integer;
myParams : Real[3];
myPoints : Pnt from gp [3] ;
myDwmax : Real;
myDeflection : Real;
myFirstParam : Real;
myLastParam : Real;
myDu : Real;
end UniformDeflection;
|
