src/GeomToIGES/GeomToIGES_GeomPoint.cxx

   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
  23 GeomToIGES_GeomPoint::GeomToIGES_GeomPoint
  24 (const GeomToIGES_GeomEntity& GE)
  25 :GeomToIGES_GeomEntity(GE)
  26 {
  27 }
  28
  29
  30 //=============================================================================
  31 // GeomToIGES_GeomPoint
  32 //=============================================================================
  33
  34 GeomToIGES_GeomPoint::GeomToIGES_GeomPoint()
  35
  36 :GeomToIGES_GeomEntity()
  37 {
  38 }
  39
  40
  41 //=============================================================================
  42 // Transfer de Point de Geom vers IGES
  43 // TranferPoint
  44 //=============================================================================
  45
  46 Handle(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
  66 Handle(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 }