-- Created on: 1993-03-24 -- Created by: Philippe DAUTRY -- Copyright (c) 1993-1999 Matra Datavision -- Copyright (c) 1999-2014 OPEN CASCADE SAS -- -- This file is part of Open CASCADE Technology software library. -- -- This library is free software; you can redistribute it and/or modify it under -- the terms of the GNU Lesser General Public License version 2.1 as published -- by the Free Software Foundation, with special exception defined in the file -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -- distribution for complete text of the license and disclaimer of any warranty. -- -- Alternatively, this file may be used under the terms of Open CASCADE -- commercial license or contractual agreement. class CartesianPoint from Geom2d inherits Point from Geom2d --- Purpose : Describes a point in 2D space. A -- Geom2d_CartesianPoint is defined by a gp_Pnt2d -- point, with its two Cartesian coordinates X and Y. uses Ax2d from gp, Pnt2d from gp, Trsf2d from gp, Vec2d from gp, Geometry from Geom2d is Create (P : Pnt2d) returns CartesianPoint; --- Purpose : Returns a persistent copy of P. Create (X, Y : Real) returns CartesianPoint; SetCoord (me : mutable; X, Y : Real); --- Purpose : Set to X, Y coordinates. SetPnt2d (me : mutable; P : Pnt2d); --- Purpose : Set to P.X(), P.Y() coordinates. SetX (me : mutable; X : Real); --- Purpose : Changes the X coordinate of me. SetY (me : mutable; Y : Real); --- Purpose : Changes the Y coordinate of me. Coord (me; X, Y : out Real); --- Purpose : Returns the coordinates of . Pnt2d (me) returns Pnt2d; --- Purpose : -- Returns a non persistent cartesian point with -- the same coordinates as . -- -C++: return const& X (me) returns Real; --- Purpose : Returns the X coordinate of . Y (me) returns Real; --- Purpose : Returns the Y coordinate of . Transform (me : mutable; T : Trsf2d); Copy (me) returns like me; fields gpPnt2d : Pnt2d; end;