mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-09 20:08:43 +08:00
102 lines
2.9 KiB
Plaintext
Executable File
102 lines
2.9 KiB
Plaintext
Executable File
-- Created on: 1993-03-10
|
|
-- Created by: JCV
|
|
-- Copyright (c) 1993-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
--
|
|
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
-- except in compliance with the License. Please obtain a copy of the License
|
|
-- at http://www.opencascade.org and read it completely before using this file.
|
|
--
|
|
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
--
|
|
-- The Original Code and all software distributed under the License is
|
|
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
-- Initial Developer hereby disclaims all such warranties, including without
|
|
-- limitation, any warranties of merchantability, fitness for a particular
|
|
-- purpose or non-infringement. Please see the License for the specific terms
|
|
-- and conditions governing the rights and limitations under the License.
|
|
|
|
|
|
|
|
class CartesianPoint from Geom inherits Point from Geom
|
|
|
|
|
|
---Purpose : Describes a point in 3D space. A
|
|
-- Geom_CartesianPoint is defined by a gp_Pnt point,
|
|
-- with its three Cartesian coordinates X, Y and Z.
|
|
|
|
uses Ax1 from gp,
|
|
Ax2 from gp,
|
|
Pnt from gp,
|
|
Trsf from gp,
|
|
Vec from gp,
|
|
Geometry from Geom
|
|
|
|
is
|
|
|
|
Create (P : Pnt) returns mutable CartesianPoint;
|
|
---Purpose : Returns a transient copy of P.
|
|
|
|
|
|
Create (X, Y, Z : Real) returns mutable CartesianPoint;
|
|
|
|
---Purpose: Constructs a point defined by its three Cartesian coordinates X, Y and Z.
|
|
|
|
SetCoord (me : mutable; X, Y, Z : Real);
|
|
---Purpose : Assigns the coordinates X, Y and Z to this point.
|
|
|
|
|
|
SetPnt (me : mutable; P : Pnt);
|
|
---Purpose : Set <me> to P.X(), P.Y(), P.Z() 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.
|
|
|
|
|
|
SetZ (me : mutable; Z : Real);
|
|
---Purpose : Changes the Z coordinate of me.
|
|
|
|
|
|
Coord (me; X, Y, Z : out Real);
|
|
---Purpose : Returns the coordinates of <me>.
|
|
|
|
|
|
Pnt (me) returns Pnt;
|
|
---Purpose :
|
|
-- Returns a non transient cartesian point with
|
|
-- the same coordinates as <me>.
|
|
|
|
|
|
|
|
X (me) returns Real;
|
|
---Purpose : Returns the X coordinate of <me>.
|
|
|
|
|
|
Y (me) returns Real;
|
|
---Purpose : Returns the Y coordinate of <me>.
|
|
|
|
|
|
Z (me) returns Real;
|
|
---Purpose : Returns the Z coordinate of <me>.
|
|
|
|
|
|
|
|
Transform (me : mutable; T : Trsf);
|
|
---Purpose: Applies the transformation T to this point.
|
|
|
|
Copy (me) returns mutable like me;
|
|
---Purpose: Creates a new object which is a copy of this point.
|
|
|
|
fields
|
|
|
|
gpPnt : Pnt;
|
|
|
|
end;
|