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
|
-- File: XSAlgo_AlgoContainer.cdl
-- Created: Wed Jan 19 17:49:47 2000
-- Author: data exchange team
-- <det@nnov>
---Copyright: Matra Datavision 2000
class AlgoContainer from XSAlgo inherits TShared from MMgt
---Purpose:
uses
Curve from Geom2d,
Surface from Geom,
Edge from TopoDS,
Face from TopoDS,
Shape from TopoDS,
Caller from XSAlgo,
ToolContainer from XSAlgo,
WireData from ShapeExtend,
Wire from ShapeAnalysis,
Wire from ShapeFix,
TransientProcess from Transfer,
FinderProcess from Transfer
is
Create returns mutable AlgoContainer from XSAlgo;
---Purpose: Empty constructor
SetToolContainer (me: mutable; TC: ToolContainer from XSAlgo);
---C++ : inline
---Purpose: Sets ToolContainer
ToolContainer (me) returns ToolContainer from XSAlgo;
---C++ : inline
---Purpose: Returns ToolContainer
PrepareForTransfer (me) is virtual;
---Purpose: Performs actions necessary for preparing environment
-- for transfer. Empty in Open version.
-- PerformFixShape (me; shape : Shape from TopoDS;
-- TP : TransientProcess from Transfer;
-- Prec, MaxTol: Real)
-- returns Shape from TopoDS is virtual;
---Purpose: Applies fixes to the shape resulting from transfer,
-- and updates map of entity-shape in TP in accordance with
-- substitutions made during fixes (if any)
ProcessShape (me; shape: Shape from TopoDS;
Prec, MaxTol: Real;
rscfile: CString;
seq: CString;
info: out Transient)
returns Shape from TopoDS is virtual;
---Purpose: Does shape processing with specified tolerances
-- and returns resulting shape and associated information
-- in the form of Transient.
-- This information should be later transmitted to
-- MergeTransferInfo in order to be recorded in the
-- translation map
--
---Default behaviour:
-- Applies sequence with name identified by parameter named
-- <seq> (see Interface_Static), defined in resource file
-- identified by parameter with name <rscfile>, to shape,
-- and keeps info of substitutions made during the process.
-- The Prec and MaxTol define run-time parameters
-- Runtime.Tolerance and Runtime.MaxTolerance which can be
-- referred from the resource file
-- ("param : &Runtime.Tolerance")
-- In the info returns ShapeProcess_ShapeContext with recorded
-- modifications. If info has already this type on input, uses it.
--
-- If resource file is not found, or sequence is not defined
-- there, performs default fixes:
-- - if <seq> is write.iges.sequence or write.step.sequence, does DirectFaces
-- - if <seq> is read.iges.sequence or read.step.sequence, performs FixShape
CheckPCurve (me; edge : Edge from TopoDS;
face : Face from TopoDS;
preci : Real;
isSeam: Boolean)
returns Boolean is virtual;
---Purpose: Checks quality of pcurve of the edge on the given face,
-- and corrects it if necessary.
---Remark : In Open CASCADE does nothing.
MergeTransferInfo (me; TP : TransientProcess from Transfer;
info: Transient;
startTPitem: Integer = 1) is virtual;
MergeTransferInfo (me; FP : FinderProcess from Transfer;
info: Transient) is virtual;
---Purpose: Updates translation map (TP or FP) with information
-- resulting from ShapeProcessing
-- Parameter startTPitem can be used for optimisation, to
-- restrict modifications to entities stored in TP starting
-- from item startTPitem
fields
myTC : ToolContainer from XSAlgo;
end AlgoContainer;
|
