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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
-- File: IGESToBRep_CurveAndSurface.cdl
-- Created: Mon Mar 14 14:02:21 1994
-- Authors: Christophe GUYOT & Frederic UNTEREINER
-- <fun@ecolox>
---Copyright: Matra Datavision 1994
class CurveAndSurface from IGESToBRep
---Purpose: Provides methods to transfer CurveAndSurface from IGES to CASCADE.
uses
Integer from Standard,
Real from Standard,
Boolean from Standard,
Shape from TopoDS,
IGESEntity from IGESData,
IGESModel from IGESData,
CString from Standard,
TransientProcess from Transfer,
Surface from Geom,
Msg from Message
is
Create returns CurveAndSurface;
---Purpose: Creates a tool CurveAndSurface ready to run, with
-- epsilons set to 1.E-04, myModeTopo to True, the
-- optimization of the continuity to False.
Create(CS : CurveAndSurface from IGESToBRep) returns CurveAndSurface;
---Purpose: Creates a tool CurveAndSurface ready to run and sets its
-- fields as CS's.
Create(eps : Real;
epsGeom : Real;
epsCoeff : Real;
mode : Boolean;
modeapprox : Boolean;
optimized : Boolean) returns CurveAndSurface;
---Purpose: Creates a tool CurveAndSurface ready to run.
Init(me: in out);
---Purpose: Initializes the field of the tool CurveAndSurface with
-- default creating values.
SetEpsilon(me: in out; eps : Real);
---C++: inline
---Purpose: Changes the value of "myEps"
GetEpsilon(me) returns Real;
---C++: inline
---Purpose: Returns the value of "myEps"
SetEpsCoeff(me: in out; eps : Real);
---C++: inline
---Purpose: Changes the value of "myEpsCoeff"
GetEpsCoeff(me) returns Real;
---C++: inline
---Purpose: Returns the value of "myEpsCoeff"
SetEpsGeom(me: in out; eps : Real);
---Purpose: Changes the value of "myEpsGeom"
GetEpsGeom(me) returns Real;
---C++: inline
---Purpose: Returns the value of "myEpsGeom"
SetMinTol(me: in out; mintol: Real);
---C++: inline
---Purpose: Changes the value of "myMinTol"
SetMaxTol(me: in out; maxtol: Real);
---C++: inline
---Purpose: Changes the value of "myMaxTol"
UpdateMinMaxTol(me: in out);
---Purpose: Sets values of "myMinTol" and "myMaxTol" as follows
-- myMaxTol = Max ("read.maxprecision.val", myEpsGeom * myUnitFactor)
-- myMinTol = Precision::Confusion()
-- Remark: This method is automatically invoked each time the values
-- of "myEpsGeom" or "myUnitFactor" are changed
GetMinTol(me) returns Real;
---C++: inline
---Purpose: Returns the value of "myMinTol"
GetMaxTol(me) returns Real;
---C++: inline
---Purpose: Returns the value of "myMaxTol"
SetModeApprox(me: in out; mode : Boolean);
---C++: inline
---Purpose: Changes the value of "myModeApprox"
GetModeApprox(me) returns Boolean;
---C++: inline
---Purpose: Returns the value of "myModeApprox"
SetModeTransfer(me: in out; mode : Boolean);
---C++: inline
---Purpose: Changes the value of "myModeIsTopo"
GetModeTransfer(me) returns Boolean;
---C++: inline
---Purpose: Returns the value of "myModeIsTopo"
SetOptimized(me: in out; optimized : Boolean);
---C++: inline
---Purpose: Changes the value of "myContIsOpti"
GetOptimized(me) returns Boolean;
---C++: inline
---Purpose: Returns the value of "myContIsOpti"
GetUnitFactor(me) returns Real;
---C++: inline
---Purpose: Returns the value of " myUnitFactor"
SetSurfaceCurve(me: in out; ival : Integer);
---C++: inline
---Purpose: Changes the value of "mySurfaceCurve"
GetSurfaceCurve(me) returns Integer;
---C++: inline
---Purpose: Returns the value of " mySurfaceCurve" 0 = value in
-- file , 2 = kepp 2d and compute 3d 3 = keep 3d and
-- compute 2d
SetModel(me: in out; model : IGESModel from IGESData);
---Purpose: Set the value of "myModel"
GetModel(me) returns IGESModel from IGESData;
---C++: inline
---Purpose: Returns the value of "myModel"
SetContinuity(me: in out; continuity : Integer);
---C++: inline
---Purpose: Changes the value of "myContinuity"
-- if continuity = 0 do nothing else
-- if continuity = 1 try C1
-- if continuity = 2 try C2
GetContinuity(me) returns Integer;
---C++: inline
---Purpose: Returns the value of "myContinuity"
SetTransferProcess(me: in out; TP: TransientProcess from Transfer);
---C++: inline
---Purpose: Set the value of "myMsgReg"
GetTransferProcess(me) returns TransientProcess from Transfer;
---C++: inline
---Purpose: Returns the value of "myMsgReg"
TransferCurveAndSurface(me: in out; start : IGESEntity from IGESData)
returns Shape from TopoDS;
---Purpose: Returns the result of the transfert of any IGES Curve
-- or Surface Entity. If the transfer has failed, this
-- member return a NullEntity.
TransferGeometry(me: in out; start : IGESEntity from IGESData)
returns Shape from TopoDS;
---Purpose: Returns the result of the transfert the geometry of
-- any IGESEntity. If the transfer has failed, this
-- member return a NullEntity.
SendFail (me: in out; start: IGESEntity from IGESData; amsg: Msg from Message);
---C++: inline
---Purpose: Records a new Fail message
SendWarning (me: in out; start: IGESEntity from IGESData; amsg: Msg from Message);
---C++: inline
---Purpose: Records a new Warning message
SendMsg (me: in out; start: IGESEntity from IGESData; amsg: Msg from Message);
---C++: inline
---Purpose: Records a new Information message from the definition
-- of a Msg (Original+Value)
HasShapeResult (me; start : IGESEntity from IGESData) returns Boolean;
---Purpose: Returns True if start was already treated and has a result in "myMap"
-- else returns False.
GetShapeResult (me; start : IGESEntity from IGESData) returns Shape from TopoDS;
---Purpose: Returns the result of the transfer of the IGESEntity "start" contained
-- in "myMap" . (if HasShapeResult is True).
SetShapeResult (me: in out; start : IGESEntity from IGESData; result : Shape from TopoDS);
---Purpose: set in "myMap" the result of the transfer of the IGESEntity "start".
NbShapeResult (me; start : IGESEntity from IGESData) returns Integer;
---Purpose: Returns the number of shapes results contained in "myMap" for the
-- IGESEntity start ( type VertexList or EdgeList).
GetShapeResult (me; start: IGESEntity from IGESData; num: Integer) returns Shape from TopoDS;
---Purpose: Returns the numth result of the IGESEntity start (type VertexList or
-- EdgeList) in "myMap". (if NbShapeResult is not null).
AddShapeResult (me: in out; start: IGESEntity from IGESData; result: Shape from TopoDS);
---Purpose: set in "myMap" the result of the transfer of the entity of the
-- IGESEntity start ( type VertexList or EdgeList).
SetSurface(me: in out; theSurface: Surface from Geom);
Surface(me) returns Surface from Geom;
GetUVResolution(me: in out) returns Real;
fields
myEps : Real;
myEpsCoeff : Real;
myEpsGeom : Real;
myMinTol : Real; -- Minimum tolerance used by translation algorithms
myMaxTol : Real; -- Maximum tolerance used by translation algorithms
myModeIsTopo : Boolean;
myModeApprox : Boolean;
myContIsOpti : Boolean;
myUnitFactor : Real;
mySurfaceCurve : Integer;
myContinuity : Integer;
mySurface : Surface from Geom;
myUVResolution : Real;
myIsResolCom : Boolean;
myModel : IGESModel from IGESData ;
myTP : TransientProcess from Transfer;
end CurveAndSurface;
|
