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
|
-- File: ExtCS.cdl
-- Created: Thu Feb 21 19:12:30 1991
-- Author: Isabelle GRIGNON
-- <isg@topsn3>
---Copyright: Matra Datavision 1991
class ExtCS from Extrema
---Purpose: It calculates all the extremum distances
-- between a curve and a surface.
-- These distances can be minimum or maximum.
uses POnSurf from Extrema,
POnCurv from Extrema,
ExtElCS from Extrema,
Pnt from gp,
SurfaceType from GeomAbs,
CurveType from GeomAbs,
SequenceOfPOnSurf from Extrema,
SequenceOfPOnCurv from Extrema,
SequenceOfReal from TColStd,
Curve from Adaptor3d,
Surface from Adaptor3d,
SurfacePtr from Adaptor3d
raises NotDone from StdFail,
OutOfRange from Standard,
TypeMismatch from Standard
is
Create returns ExtCS;
Create (C: Curve from Adaptor3d;
S: Surface from Adaptor3d;
TolC, TolS: Real)
returns ExtCS;
---Purpose: It calculates all the distances between C and S.
Create (C: Curve from Adaptor3d;
S: Surface from Adaptor3d;
UCinf, UCsup: Real;
Uinf, Usup, Vinf, Vsup: Real;
TolC, TolS: Real)
returns ExtCS;
---Purpose: It calculates all the distances between C and S.
-- UCinf and UCmax are the start and end parameters
-- of the curve.
Initialize(me: in out; S: Surface from Adaptor3d;
Uinf, Usup, Vinf, Vsup: Real;
TolC, TolS: Real)
---Purpose: Initializes the fields of the algorithm.
is static;
Perform(me: in out; C: Curve from Adaptor3d; Uinf, Usup: Real)
---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;
IsParallel (me) returns Boolean
---Purpose: Returns True if the curve is on a parallel surface.
raises NotDone from StdFail
-- if IsDone(me)=False.
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;
Points (me; N: Integer; P1: out POnCurv; P2: out POnSurf)
---Purpose: Returns the point of the Nth resulting distance.
raises NotDone from StdFail,
-- if IsDone(me)=False.
OutOfRange from Standard
-- if N < 1 or N > NbPoints(me).
is static;
Bidon(me) returns SurfacePtr from Adaptor3d
is static private;
fields
myS : SurfacePtr from Adaptor3d;
myDone : Boolean from Standard;
myIsPar : Boolean from Standard;
myExtElCS: ExtElCS from Extrema;
myPOnS : SequenceOfPOnSurf from Extrema;
myPOnC : SequenceOfPOnCurv from Extrema;
myuinf : Real from Standard;
myusup : Real from Standard;
myvinf : Real from Standard;
myvsup : Real from Standard;
mytolC : Real from Standard;
mytolS : Real from Standard;
myucinf : Real from Standard;
myucsup : Real from Standard;
mySqDist : SequenceOfReal from TColStd;
myStype : SurfaceType from GeomAbs;
end ExtCS;
|
