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
|
-- File: Extrema_GenExtPS.cdl
-- Created: Tue Jul 18 08:20:44 1995
-- Author: Modelistation
-- <model@metrox>
---Copyright: Matra Datavision 1995
class GenExtPS 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,
Pnt from gp,
FuncExtPS from Extrema,
Surface from Adaptor3d,
SurfacePtr from Adaptor3d,
HUBTreeOfSphere from Extrema,
ExtFlag from Extrema,
ExtAlgo from Extrema,
HArray1OfSphere from Bnd,
Vector from math,
HArray2OfPnt from TColgp
raises NotDone from StdFail,
OutOfRange from Standard,
TypeMismatch from Standard
is
Create returns GenExtPS;
Create (P: Pnt; S: Surface from Adaptor3d; NbU,NbV: Integer; TolU,TolV: Real; F : ExtFlag from Extrema = Extrema_ExtFlag_MINMAX; A : ExtAlgo from Extrema = Extrema_ExtAlgo_Grad)
returns GenExtPS;
---Purpose: It calculates all the distances.
-- The function F(u,v)=distance(P,S(u,v)) has an
-- extremum when gradient(F)=0. The algorithm searchs
-- all the zeros inside the definition ranges of the
-- surface.
-- 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; S: Surface from Adaptor3d; NbU,NbV: Integer;
Umin, Usup, Vmin, Vsup: Real; TolU,TolV: Real; F : ExtFlag from Extrema = Extrema_ExtFlag_MINMAX; A : ExtAlgo from Extrema = Extrema_ExtAlgo_Grad)
returns GenExtPS;
---Purpose: It calculates all the distances.
-- The function F(u,v)=distance(P,S(u,v)) has an
-- extremum when gradient(F)=0. The algorithm searchs
-- all the zeros inside the definition ranges of the
-- surface.
-- 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; NbU, NbV: Integer; TolU, TolV: Real)
---Pupose: sets the fields of the algorithm.
is static;
Initialize(me: in out; S: Surface from Adaptor3d; NbU, NbV: Integer;
Umin, Usup, Vmin, Vsup: Real; TolU, TolV: Real)
---Pupose: sets the fields of the algorithm.
is static;
Perform(me: in out; P: Pnt from gp)
---Purpose: the algorithm is done with the point P.
-- An exception is raised if the fields have not
-- been initialized.
raises TypeMismatch from Standard
is static;
SetFlag(me : in out; F : ExtFlag from Extrema)
is static;
SetAlgo(me : in out; A : ExtAlgo from Extrema)
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;
Bidon(me) returns SurfacePtr from Adaptor3d
is static private;
BuildTree(me : in out)
is static private;
FindSolution(me: in out; P : Pnt from gp; UV : Vector from math; PasU, PasV : Real; f : ExtFlag from Extrema)
is static private;
fields
myDone : Boolean;
myInit : Boolean;
myumin : Real;
myusup : Real;
myvmin : Real;
myvsup : Real;
myusample : Integer;
myvsample : Integer;
mytolu : Real;
mytolv : Real;
mypoints : HArray2OfPnt from TColgp;
mySphereUBTree : HUBTreeOfSphere from Extrema;
mySphereArray : HArray1OfSphere from Bnd;
myF : FuncExtPS from Extrema;
myS : SurfacePtr from Adaptor3d;
myFlag : ExtFlag from Extrema;
myAlgo : ExtAlgo from Extrema;
end GenExtPS;
|
