b311480e |
1 | -- Created on: 1995-09-13 |
2 | -- Created by: Marie Jose MARTZ |
3 | -- Copyright (c) 1995-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class GeomEntity from GeomToIGES |
18 | |
19 | |
20 | ---Purpose : provides methods to transfer Geom entity from CASCADE to IGES. |
21 | |
22 | uses |
23 | |
24 | Real from Standard, |
25 | IGESEntity from IGESData, |
26 | IGESModel from IGESData |
27 | |
28 | is |
29 | |
30 | Create |
31 | returns GeomEntity from GeomToIGES; |
32 | ---Purpose : Creates a tool GeomEntity |
33 | |
34 | Create(GE : GeomEntity from GeomToIGES) |
35 | returns GeomEntity from GeomToIGES; |
36 | ---Purpose : Creates a tool ready to run and sets its |
37 | -- fields as GE's. |
38 | |
39 | SetModel(me : in out; model : IGESModel from IGESData); |
40 | ---Purpose : Set the value of "TheModel" |
41 | |
42 | GetModel(me) |
43 | returns IGESModel from IGESData; |
44 | ---Purpose : Returns the value of "TheModel" |
45 | |
46 | SetUnit(me: in out; unit: Real); |
47 | ---Purpose : Sets the value of the UnitFlag |
48 | |
49 | GetUnit(me) |
50 | returns Real from Standard; |
51 | ---Purpose : Returns the value of the UnitFlag of the header of the model |
52 | -- in meters. |
53 | |
54 | fields |
55 | |
56 | TheModel : IGESModel from IGESData ; |
57 | |
58 | TheUnitFactor : Real from Standard; |
59 | |
60 | end GeomEntity; |
61 | |