src/PGeom/PGeom_CartesianPoint.cdl

   1 -- Created on: 1993-02-22
   2 -- Created by: Philippe DAUTRY
   3 -- Copyright (c) 1993-1999 Matra Datavision
   4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 --
   6 -- This file is part of Open CASCADE Technology software library.
   7 --
   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
  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.
  13 --
  14 -- Alternatively, this file may be used under the terms of Open CASCADE
  15 -- commercial license or contractual agreement.
  16
  17 class CartesianPoint from PGeom inherits Point from PGeom
  18
  19         ---Purpose : Point defined  in  3D space with its 3  cartesian
  20         --         coordinates X, Y, Z.
  21         --
  22         ---See Also : CartesianPoint from Geom.
  23
  24 uses Pnt from gp
  25
  26 is
  27
  28
  29   Create returns CartesianPoint from PGeom;
  30         ---Purpose : Returns a CartesianPoint with default values..
  31         ---Level: Internal
  32
  33
  34   Create (aPnt : Pnt from gp) returns CartesianPoint from PGeom;
  35         ---Purpose : Returns a CartesianPoint built with <aPnt>.
  36         ---Level: Internal
  37
  38
  39   Pnt (me : mutable; aPnt : Pnt from gp);
  40         ---Purpose : Set the field pnt.
  41         ---Level: Internal
  42
  43
  44   Pnt (me)  returns Pnt;
  45         ---Purpose : Returns the value of the field pnt.
  46         ---Level: Internal
  47
  48
  49 fields
  50
  51     pnt : Pnt from gp;
  52
  53 end;