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
|
-- File: Blend_CSWalking.cdl
-- Created: Thu Dec 2 11:33:03 1993
-- Author: Jacques GOUSSARD
-- <jag@topsn2>
---Copyright: Matra Datavision 1993
generic class CSWalking from Blend
(TheVertex as any;
TheArc as any;
TheSurface as any;
TheCurve as any;
TheVertexTool as any;
TheArcTool as any;
TheSurfaceTool as any;
TheCurveTool as any;
TheTopolTool as Transient;
TheBlendTool as any;
ThePointOnRst as any; -- as PointOnRst from Blend(TheArc)
TheSeqPointOnRst as any; -- as Iterator from Blend(ThePointOnRst)
TheExtremity as any; -- as Extremity from Blend(TheVertex,TheArc,
-- ThePointOnRst,TheSeqPointOnRst)
TheLine as Transient) -- as Line from Blend(TheVertex,TheArc,
-- ThePointOnRst,TheSeqPointOnRst,
-- TheExtremity)
---Purpose:
uses Point from Blend,
Status from Blend,
Vector from math,
Matrix from math,
Pnt from gp,
Pnt2d from gp,
Vec from gp,
Vec2d from gp,
HArray1OfReal from TColStd,
Transition from IntSurf,
CSFunction from Blend
-- CSFuncInv from Blend
raises NotDone from StdFail
is
Create(Curv : TheCurve; Surf: TheSurface; Domain: TheTopolTool)
returns CSWalking from Blend;
Perform(me: in out; F : in out CSFunction from Blend;
-- FInv : in out CSFuncInv from Blend;
Pdep : Real from Standard;
Pmax : Real from Standard;
MaxStep : Real from Standard;
TolGuide: Real from Standard;
Soldep : Vector from math;
Tolesp : Real from Standard;
Fleche : Real from Standard;
Appro : Boolean from Standard = Standard_False)
is static;
Complete(me: in out;F : in out CSFunction from Blend;
-- FInv : in out FuncInv from Blend;
Pmin : Real from Standard)
returns Boolean from Standard
raises NotDone from StdFail
is static;
InternalPerform (me: in out;F : in out CSFunction from Blend;
-- FInv : in out CSFuncInv from Blend;
Sol : in out Vector from math;
Bound : Real from Standard)
is static private;
IsDone(me)
returns Boolean from Standard
---C++: inline
is static;
Line(me)
returns TheLine
---C++: inline
---C++: return const&
raises NotDone from StdFail
is static;
-- Recadre(me: in out; FInv : in out CSFuncInv from Blend;
-- Sol: Vector from math;
-- Solrst : out Vector from math;
-- Indexsol: out Integer from Standard;
-- IsVtx: out Boolean from Standard;
-- Vtx: out TheVertex)
-- returns Boolean from Standard
-- is static private;
Transition(me:in out; A: TheArc; Param: Real from Standard;
TLine,TArc: out Transition from IntSurf)
is static private;
MakeExtremity(me:in out; Extrem : in out TheExtremity;
Index : Integer from Standard;
Param : Real from Standard;
IsVtx : Boolean from Standard;
Vtx : TheVertex)
is static private;
CheckDeflectionOnSurf(me: in out; Psurf : Pnt from gp;
Ponsurf : Pnt2d from gp;
Tgsurf : Vec from gp;
Tgonsurf: Vec2d from gp)
returns Status from Blend
is static private;
CheckDeflectionOnCurv(me: in out; Pcurv : Pnt from gp;
Poncurv : Real from Standard;
Tgcurv : Vec from gp)
returns Status from Blend
is static private;
TestArret(me: in out; F : in out CSFunction from Blend;
Sol : Vector from math;
TestDeflection : Boolean from Standard;
State: Status from Blend)
returns Status from Blend
is static private;
fields
done : Boolean from Standard;
line : TheLine;
surf : TheSurface;
curv : TheCurve;
domain : TheTopolTool;
tolesp : Real from Standard;
tolgui : Real from Standard;
pasmax : Real from Standard;
fleche : Real from Standard;
param : Real from Standard;
firstparam : Real from Standard;
firstsol : HArray1OfReal from TColStd;
previousP : Point from Blend;
rebrou : Boolean from Standard;
iscomplete : Boolean from Standard;
comptra : Boolean from Standard;
sens : Real from Standard;
end CSWalking;
|