0022627: Change OCCT memory management defaults
[occt.git] / src / GeomToIGES / GeomToIGES_GeomPoint.cxx
CommitLineData
7fd59977 1// File: GeomToIGES_GeomPoint.cxx
2
3// modif du 14/09/95 mjm
4// prise en compte de l'unite choisi par l'utilisateur
5// pour l'ecriture du fichier IGES.
6
7#include <GeomToIGES_GeomPoint.ixx>
8
9#include <gp_Pnt.hxx>
10#include <gp_XYZ.hxx>
11
12#include <Geom_Point.hxx>
13
14#include <IGESGeom_Point.hxx>
15
16#include <Interface_Macros.hxx>
17
18
19//=============================================================================
20// GeomToIGES_GeomPoint
21//=============================================================================
22
23GeomToIGES_GeomPoint::GeomToIGES_GeomPoint
24(const GeomToIGES_GeomEntity& GE)
25:GeomToIGES_GeomEntity(GE)
26{
27}
28
29
30//=============================================================================
31// GeomToIGES_GeomPoint
32//=============================================================================
33
34GeomToIGES_GeomPoint::GeomToIGES_GeomPoint()
35
36:GeomToIGES_GeomEntity()
37{
38}
39
40
41//=============================================================================
42// Transfer de Point de Geom vers IGES
43// TranferPoint
44//=============================================================================
45
46Handle(IGESGeom_Point) GeomToIGES_GeomPoint::TransferPoint
47( const Handle(Geom_Point)& P)
48{
49 Handle(IGESGeom_Point) Piges = new IGESGeom_Point;
50 if (P.IsNull()) {
51 return Piges;
52 }
53
54 Standard_Real X,Y,Z;
55 P->Coord (X,Y,Z);
56 Handle(IGESBasic_SubfigureDef) voidsubdef;
57 Piges-> Init(gp_XYZ(X/GetUnit(),Y/GetUnit(),Z/GetUnit()), voidsubdef);
58 return Piges;
59}
60
61//=============================================================================
62// Transfer de Point de Geom vers IGES
63// TranferPoint
64//=============================================================================
65
66Handle(IGESGeom_Point) GeomToIGES_GeomPoint::TransferPoint
67( const Handle(Geom_CartesianPoint)& P)
68{
69
70 Handle(IGESGeom_Point) Piges = new IGESGeom_Point;
71 if (P.IsNull()) {
72 return Piges;
73 }
74
75 Standard_Real X,Y,Z;
76 P->Coord (X,Y,Z);
77 Handle(IGESBasic_SubfigureDef) voidsubdef;
78 Piges-> Init(gp_XYZ(X/GetUnit(),Y/GetUnit(),Z/GetUnit()), voidsubdef);
79 return Piges;
80}