blob: a7591121f81acce9904ef3e4b5ba6816f003ec85 (
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
|
-- File: PGeom_Direction.cdl
-- Created: Mon Feb 22 17:34:08 1993
-- Author: Philippe DAUTRY
-- <fid@phobox>
-- Copyright: Matra Datavision 1993
class Direction from PGeom inherits Vector from PGeom
---Purpose : The class Direction specifies a vector that is
-- never null. It is a unit vector.
--
---See Also : Direction from Geom.
uses Vec from gp
is
Create returns mutable Direction from PGeom;
--- Purpose : Creates a unit vector with default values.
---Level: Internal
Create (aVec: Vec from gp) returns mutable Direction from PGeom;
---Purpose : Create a unit vector with <aVec>.
---Level: Internal
end;
|