1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 // This file is part of Open CASCADE Technology software library.
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
14 // modif du 14/09/95 mjm
15 // prise en compte de l'unite choisi par l'utilisateur
16 // pour l'ecriture du fichier IGES.
18 #include <Geom_CartesianPoint.hxx>
19 #include <Geom_Point.hxx>
20 #include <GeomToIGES_GeomEntity.hxx>
21 #include <GeomToIGES_GeomPoint.hxx>
24 #include <IGESGeom_Point.hxx>
25 #include <Interface_Macros.hxx>
27 //=============================================================================
28 // GeomToIGES_GeomPoint
29 //=============================================================================
30 GeomToIGES_GeomPoint::GeomToIGES_GeomPoint
31 (const GeomToIGES_GeomEntity& GE)
32 :GeomToIGES_GeomEntity(GE)
37 //=============================================================================
38 // GeomToIGES_GeomPoint
39 //=============================================================================
41 GeomToIGES_GeomPoint::GeomToIGES_GeomPoint()
43 :GeomToIGES_GeomEntity()
48 //=============================================================================
49 // Transfer de Point de Geom vers IGES
51 //=============================================================================
53 Handle(IGESGeom_Point) GeomToIGES_GeomPoint::TransferPoint
54 ( const Handle(Geom_Point)& P)
56 Handle(IGESGeom_Point) Piges = new IGESGeom_Point;
63 Handle(IGESBasic_SubfigureDef) voidsubdef;
64 Piges-> Init(gp_XYZ(X/GetUnit(),Y/GetUnit(),Z/GetUnit()), voidsubdef);
68 //=============================================================================
69 // Transfer de Point de Geom vers IGES
71 //=============================================================================
73 Handle(IGESGeom_Point) GeomToIGES_GeomPoint::TransferPoint
74 ( const Handle(Geom_CartesianPoint)& P)
77 Handle(IGESGeom_Point) Piges = new IGESGeom_Point;
84 Handle(IGESBasic_SubfigureDef) voidsubdef;
85 Piges-> Init(gp_XYZ(X/GetUnit(),Y/GetUnit(),Z/GetUnit()), voidsubdef);