blob: 761a6781d14dfbab098d403636aba7a2cf4542e9 (
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
45
|
-- File: PGeom_Vector.cdl
-- Created: Mon Feb 22 17:30:39 1993
-- Author: Philippe DAUTRY
-- <fid@phobox>
-- Copyright: Matra Datavision 1993
deferred class Vector from PGeom inherits Geometry from PGeom
---Purpose : Defines a vector in 3D space.
-- It can be a Direction (unitary vector) or a vector
-- with magnitude.
--
---See Also : Vector from Geom.
uses Vec from gp
is
Initialize;
---Purpose: Initializes the field(s) with default value(s).
---Level: Internal
Initialize(aVec: Vec from gp);
---Purpose: Initializes the field vec with <aVec>.
---Level: Internal
Vec (me: mutable; aVec: Vec from gp);
---Purpose : Set the field vec.
---Level: Internal
Vec (me) returns Vec from gp;
---Purpose : Returns the value of the field vec.
---Level: Internal
fields
vec : Vec from gp is protected;
end;
|