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
|
-- File: Extrema_ExtPS.cdl
-- Created: Tue Feb 1 15:30:11 1994
-- Author: Laurent PAINNOT
-- <lpa@nonox>
---Copyright: Matra Datavision 1994
class ExtPS from Extrema
---Purpose: It calculates all the extremum distances
-- between a point and a surface.
-- These distances can be minimum or maximum.
uses
POnSurf from Extrema,
ExtPElS from Extrema,
Pnt from gp,
SurfaceType from GeomAbs,
SequenceOfPOnSurf from Extrema,
SequenceOfReal from TColStd,
Surface from Adaptor3d,
SurfacePtr from Adaptor3d,
GenExtPS from Extrema,
ExtFlag from Extrema,
ExtAlgo from Extrema
-- ExtPExtS from Extrema,
-- ExtPRevS from Extrema
raises NotDone from StdFail,
OutOfRange from Standard,
TypeMismatch from Standard
is
Create returns ExtPS;
Create (P: Pnt from gp; S: Surface from Adaptor3d; TolU,TolV: Real;
F : ExtFlag from Extrema = Extrema_ExtFlag_MINMAX;
A : ExtAlgo from Extrema = Extrema_ExtAlgo_Grad)
returns ExtPS;
---Purpose: It calculates all the distances.
-- NbU and NbV are used to locate the close points
-- to find the zeros. They must be great enough
-- such that if there is N extrema, there will
-- be N extrema between P and the grid.
-- TolU et TolV are used to determine the conditions
-- to stop the iterations; at the iteration number n:
-- (Un - Un-1) < TolU and (Vn - Vn-1) < TolV .
Create (P: Pnt from gp; S: Surface from Adaptor3d;
Uinf, Usup, Vinf, Vsup: Real;
TolU,TolV: Real;
F : ExtFlag from Extrema = Extrema_ExtFlag_MINMAX;
A : ExtAlgo from Extrema = Extrema_ExtAlgo_Grad)
returns ExtPS;
---Purpose: It calculates all the distances.
-- NbU and NbV are used to locate the close points
-- to find the zeros. They must be great enough
-- such that if there is N extrema, there will
-- be N extrema between P and the grid.
-- TolU et TolV are used to determine the conditions
-- to stop the iterations; at the iteration number n:
-- (Un - Un-1) < TolU and (Vn - Vn-1) < TolV .
Initialize(me: in out; S: Surface from Adaptor3d;
Uinf, Usup, Vinf, Vsup: Real;
TolU, TolV: Real)
---Purpose: Initializes the fields of the algorithm.
is static;
Perform(me: in out; P: Pnt from gp)
---Purpose: Computes the distances.
-- An exception is raised if the fieds have not been
-- initialized.
raises TypeMismatch from Standard
is static;
IsDone (me) returns Boolean
---Purpose: Returns True if the distances are found.
is static;
NbExt (me) returns Integer
---Purpose: Returns the number of extremum distances.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
SquareDistance (me; N: Integer) returns Real
---Purpose: Returns the value of the Nth resulting square distance.
raises NotDone from StdFail,
-- if IsDone(me)=False.
OutOfRange
-- if N < 1 or N > NbPoints(me).
is static;
Point (me; N: Integer) returns POnSurf
---Purpose: Returns the point of the Nth resulting distance.
raises NotDone from StdFail,
-- if IsDone(me)=False.
OutOfRange
-- if N < 1 or N > NbPoints(me).
is static;
TrimmedSquareDistances(me; dUfVf, dUfVl, dUlVf, dUlVl: out Real;
PUfVf, PUfVl, PUlVf, PUlVl: out Pnt)
---Purpose: if the surface is a trimmed surface,
-- dUfVf is a square distance between <P> and the point
-- of parameter FirstUParameter and FirstVParameter <PUfVf>.
-- dUfVl is a square distance between <P> and the point
-- of parameter FirstUParameter and LastVParameter <PUfVl>.
-- dUlVf is a square distance between <P> and the point
-- of parameter LastUParameter and FirstVParameter <PUlVf>.
-- dUlVl is a square distance between <P> and the point
-- of parameter LastUParameter and LastVParameter <PUlVl>.
is static;
SetFlag(me : in out; F : ExtFlag from Extrema)
is static;
SetAlgo(me : in out; A : ExtAlgo from Extrema)
is static;
Bidon(me) returns SurfacePtr from Adaptor3d
is static private;
-- modified by NIZHNY-EAP Fri Oct 29 09:44:34 1999 ___BEGIN___
TreatSolution (me:in out; PS: POnSurf from Extrema;
Val: Real from Standard)
is static private;
-- modified by NIZHNY-EAP Fri Oct 29 09:44:37 1999 ___END___
fields
myS : SurfacePtr from Adaptor3d;
myDone : Boolean from Standard;
myExtPElS: ExtPElS from Extrema;
myExtPS : GenExtPS from Extrema;
myPoints : SequenceOfPOnSurf from Extrema;
myuinf : Real from Standard;
myusup : Real from Standard;
myvinf : Real from Standard;
myvsup : Real from Standard;
mytolu : Real from Standard;
mytolv : Real from Standard;
d11 : Real from Standard;
d12 : Real from Standard;
d21 : Real from Standard;
d22 : Real from Standard;
P11 : Pnt from gp;
P12 : Pnt from gp;
P21 : Pnt from gp;
P22 : Pnt from gp;
mySqDist : SequenceOfReal from TColStd;
mytype : SurfaceType from GeomAbs;
end ExtPS;
|
