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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
--
-- File: Graphic3d_Vector.cdl
-- Created: Jeudi 29 Aout 1991
-- Author: NW,JPB,CAL
--
---Copyright: MatraDatavision 1991,1992,1993
--
class Vector from Graphic3d
---Purpose: This class allows the creation and update
-- of a 3D vector.
uses
Vertex from Graphic3d
raises
VectorError from Graphic3d
is
Create
returns Vector from Graphic3d;
---Level: Public
---Purpose: Creates a vector with 1.0, 0.0, 0.0 coordinates.
Create ( AX, AY, AZ : Real from Standard )
returns Vector from Graphic3d;
---Level: Public
---Purpose: Creates a vector with <AX>, <AY>, <AZ> coordinates.
Create ( APoint1, APoint2 : Vertex from Graphic3d )
returns Vector from Graphic3d;
---Level: Public
---Purpose: Creates a vector from 2 points <APoint1> and <APoint2>.
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
Normalize ( me : in out )
---Level: Public
---Purpose: Normalises <me>.
-- Category: Methods to modify the class definition
-- Warning: Raises VectorError if <me> is null.
raises VectorError from Graphic3d is static;
SetCoord ( me : in out;
Xnew, Ynew, Znew : Real from Standard )
is static;
---Level: Public
---Purpose: Modifies the coordinates of the vector <me>.
---Category: Methods to modify the class definition
SetXCoord ( me : in out;
Xnew : Real from Standard )
is static;
---Level: Public
---Purpose: Modifies the X coordinate of the vector <me>.
---Category: Methods to modify the class definition
SetYCoord ( me : in out;
Ynew : Real from Standard )
is static;
---Level: Public
---Purpose: Modifies the Y coordinate of the vector <me>.
---Category: Methods to modify the class definition
SetZCoord ( me : in out;
Znew : Real from Standard )
is static;
---Level: Public
---Purpose: Modifies the Z coordinate of the vector <me>.
---Category: Methods to modify the class definition
----------------------------
-- Category: Inquire methods
----------------------------
Coord ( me;
AX, AY, AZ : out Real from Standard )
is static;
---Level: Public
---Purpose: Returns the coordinates of the vector <me>.
---Category: Inquire methods
IsNormalized ( me )
returns Boolean from Standard
is static;
---Level: Public
---Purpose: Returns Standard_True if <me> has length 1.
---Category: Inquire methods
LengthZero ( me )
returns Boolean from Standard
is static;
---Level: Public
---Purpose: Returns Standard_True if <me> has length zero.
---Category: Inquire methods
X ( me )
returns Real from Standard
is static;
---Level: Public
---Purpose: Returns the X coordinates of the vector <me>.
---Category: Inquire methods
Y ( me )
returns Real from Standard
is static;
---Level: Public
---Purpose: Returns the Y coordinate of the vector <me>.
---Category: Inquire methods
Z ( me )
returns Real from Standard
is static;
---Level: Public
---Purpose: Returns the Z coordinate of the vector <me>.
---Category: Inquire methods
--------------------------
-- Category: Class methods
--------------------------
IsParallel ( myclass;
AV1 : Vector from Graphic3d;
AV2 : Vector from Graphic3d )
returns Boolean from Standard;
---Level: Public
---Purpose: Returns Standard_True if the vector <AV1> and
-- <AV2> are parallel.
---Category: Class methods
NormeOf ( myclass;
AX, AY, AZ : Real from Standard )
returns Real from Standard;
---Level: Public
---Purpose: Returns the norm of the vector <AX>, <AY>, <AZ>.
---Category: Class methods
NormeOf ( myclass;
AVector : Vector from Graphic3d )
returns Real from Standard;
---Level: Public
---Purpose: Returns the norm of the vector <AVector>.
---Category: Class methods
--
fields
--
-- Class : Graphic3d_Vector
--
-- Purpose : Declaration of variables specific to vectors
--
-- Reminder : A vector is defined by its components or by
-- two points
-- It can be normalised.
--
-- the coordinates of a vector
MyX : ShortReal from Standard;
MyY : ShortReal from Standard;
MyZ : ShortReal from Standard;
-- the norm of a vector
MyNorme : ShortReal from Standard;
end Vector;
|
