blob: 28312dcb6a9b1369184ba9831fde873e4df0bd8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
-- File: PGeom_CartesianPoint.cdl
-- Created: Mon Feb 22 17:20:17 1993
-- Author: Philippe DAUTRY
-- <fid@phobox>
-- Copyright: Matra Datavision 1993
class CartesianPoint from PGeom inherits Point from PGeom
---Purpose : Point defined in 3D space with its 3 cartesian
-- coordinates X, Y, Z.
--
---See Also : CartesianPoint from Geom.
uses Pnt from gp
is
Create returns mutable CartesianPoint from PGeom;
---Purpose : Returns a CartesianPoint with default values..
---Level: Internal
Create (aPnt : Pnt from gp) returns mutable CartesianPoint from PGeom;
---Purpose : Returns a CartesianPoint built with <aPnt>.
---Level: Internal
Pnt (me : mutable; aPnt : Pnt from gp);
---Purpose : Set the field pnt.
---Level: Internal
Pnt (me) returns Pnt;
---Purpose : Returns the value of the field pnt.
---Level: Internal
fields
pnt : Pnt from gp;
end;
|