src/Geom2d/Geom2d_CartesianPoint.cdl

   1 -- File:        Geom2d_CartesianPoint.cdl
   2 -- Created:     Wed Mar 24 17:56:19 1993
   3 -- Author:      Philippe DAUTRY
   4 --              <fid@sdsun2>
   5 -- Copyright:    Matra Datavision 1993
   6
   7 ---Copyright:   Matra Datavision 1991
   8
   9
  10 class CartesianPoint from Geom2d inherits Point from Geom2d
  11
  12         --- Purpose : Describes a point in 2D space. A
  13         -- Geom2d_CartesianPoint is defined by a gp_Pnt2d
  14         -- point, with its two Cartesian coordinates X and Y.
  15
  16
  17
  18 uses Ax2d       from gp,
  19      Pnt2d      from gp,
  20      Trsf2d     from gp,
  21      Vec2d      from gp,
  22      Geometry   from Geom2d
  23
  24 is
  25
  26   Create (P : Pnt2d)   returns mutable CartesianPoint;
  27         --- Purpose : Returns a persistent copy of P.
  28
  29
  30   Create (X, Y : Real)   returns mutable CartesianPoint;
  31
  32
  33
  34   SetCoord (me : mutable; X, Y : Real);
  35         --- Purpose : Set <me> to X, Y coordinates.
  36
  37
  38   SetPnt2d (me : mutable; P : Pnt2d);
  39         --- Purpose : Set <me> to P.X(), P.Y() coordinates.
  40
  41
  42   SetX (me : mutable; X : Real);
  43         --- Purpose : Changes the X coordinate of me.
  44
  45
  46   SetY (me : mutable; Y : Real);
  47         --- Purpose : Changes the Y coordinate of me.
  48
  49
  50   Coord (me; X, Y : out Real);
  51         --- Purpose : Returns the coordinates of <me>.
  52
  53
  54   Pnt2d (me)  returns Pnt2d;
  55         --- Purpose :
  56         --  Returns a non persistent cartesian point with
  57         --  the same coordinates as <me>.
  58         -- -C++: return const&
  59
  60
  61   X (me)  returns Real;
  62         --- Purpose : Returns the X coordinate of <me>.
  63
  64
  65   Y (me)  returns Real;
  66         --- Purpose : Returns the Y coordinate of <me>.
  67
  68
  69
  70   Transform (me : mutable; T : Trsf2d);
  71
  72
  73
  74   Copy (me)  returns mutable like me;
  75
  76 fields
  77
  78   gpPnt2d : Pnt2d;
  79
  80 end;