7fd59977 |
1 | -- File: IGESToBRep_BRepEntity.cdl |
2 | -- Created: Wed Sep 28 10:55:01 1994 |
3 | -- Author: Marie Jose MARTZ |
4 | -- <mjm@stylox> |
5 | ---Copyright: Matra Datavision 1994 |
6 | |
7 | |
8 | class BRepEntity from IGESToBRep inherits CurveAndSurface from IGESToBRep |
9 | |
10 | ---Purpose : Provides methods to transfer BRep entities |
11 | -- ( VertexList 502, EdgeList 504, Loop 508, |
12 | -- Face 510, Shell 514, ManifoldSolid 186) |
13 | -- from IGES to CASCADE. |
14 | |
15 | uses |
16 | |
17 | CurveAndSurface from IGESToBRep, |
18 | IGESEntity from IGESData, |
19 | VertexList from IGESSolid, |
20 | EdgeList from IGESSolid, |
21 | Loop from IGESSolid, |
22 | Face from IGESSolid, |
23 | Shell from IGESSolid, |
24 | ManifoldSolid from IGESSolid, |
25 | Face from TopoDS, |
26 | Shape from TopoDS, |
27 | Vertex from TopoDS, |
28 | Trsf2d from gp |
29 | |
30 | |
31 | is |
32 | |
33 | Create returns BRepEntity; |
34 | ---Purpose : Creates a tool BRepEntity ready to run, with |
35 | -- epsilons set to 1.E-04, TheModeTopo to True, the |
36 | -- optimization of the continuity to False. |
37 | |
38 | Create(CS : CurveAndSurface from IGESToBRep) returns BRepEntity; |
39 | ---Purpose : Creates a tool BRepEntity ready to run and sets its |
40 | -- fields as CS's. |
41 | |
42 | Create(eps : Real; |
43 | epsGeom : Real; |
44 | epsCoeff : Real; |
45 | mode : Boolean; |
46 | modeapprox : Boolean; |
47 | optimized : Boolean) returns BRepEntity; |
48 | ---Purpose : Creates a tool BRepEntity ready to run. |
49 | |
50 | TransferBRepEntity (me : in out; |
51 | start : IGESEntity from IGESData) |
52 | returns Shape from TopoDS; |
53 | ---Purpose : Transfer the BRepEntity" : Face, Shell or ManifoldSolid. |
54 | |
55 | TransferVertex (me : in out; |
56 | start : VertexList from IGESSolid; |
57 | index : Integer from Standard) |
58 | returns Vertex from TopoDS; |
59 | ---Purpose : Transfer the entity number "index" of the VertexList "start" |
60 | |
61 | TransferEdge (me : in out; |
62 | start : EdgeList from IGESSolid; |
63 | index : Integer from Standard) |
64 | returns Shape from TopoDS; |
65 | ---Purpose : Transfer the entity number "index" of the EdgeList "start". |
66 | |
67 | TransferLoop (me : in out; |
68 | start : Loop from IGESSolid; |
69 | Face : Face from TopoDS; |
70 | trans : Trsf2d from gp; |
71 | uFact :Real) |
72 | returns Shape from TopoDS; |
73 | ---Purpose : Transfer the Loop Entity |
74 | |
75 | TransferFace (me : in out; |
76 | start : Face from IGESSolid) |
77 | returns Shape from TopoDS; |
78 | ---Purpose : Transfer the Face Entity |
79 | |
80 | TransferShell (me : in out; |
81 | start : Shell from IGESSolid) |
82 | returns Shape from TopoDS; |
83 | ---Purpose : Transfer the Shell Entity |
84 | |
85 | TransferManifoldSolid (me : in out; |
86 | start : ManifoldSolid from IGESSolid) |
87 | returns Shape from TopoDS; |
88 | ---Purpose : Transfer the ManifoldSolid Entity |
89 | |
90 | end BRepEntity; |