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
|
-- File: PositionLight.cdl
-- Created: Fri Nov 21 17:49:00 1997
-- Author: ZOV
-- ZOV - Mars 30 1998
---Copyright: Matra Datavision 1992
deferred class PositionLight from V3d
inherits Light from V3d
---Purpose: Base class for Positional, Spot and Directional Light classes
uses
Viewer from V3d,
Coordinate from V3d,
View from V3d,
TypeOfRepresentation from V3d,
TypeOfPickLight from V3d,
NameOfColor from Quantity,
Coefficient from Quantity,
Parameter from Quantity,
Structure from Graphic3d,
Vertex from Graphic3d,
Group from Graphic3d
raises BadValue from Viewer
is
Initialize( VM : mutable Viewer ) ;
--------------------------------------------------------
---Category: Methods to modify the Attributes of the Light
--------------------------------------------------------
SetPosition ( me : mutable; X,Y,Z : Coordinate ) is deferred;
---Level: Public
---Purpose: Defines the position of the light source. Should be redefined!
SetTarget (me : mutable; X,Y,Z : Coordinate);
---Level: Public
---Purpose: Defines the target of the light (the center
-- of the sphere)
SetRadius ( me : mutable; Radius : Parameter) raises BadValue from Viewer is static;
---Level: Public
---Purpose: Define the radius.
---Warning: raises BadValue from Viewer if the radius is <= 0 or if the light is directional
OnHideFace (me : mutable; aView : View from V3d);
---Level: Public
---Purpose: Calculate the position of the light, on the hide face
-- of the picking sphere.
OnSeeFace (me : mutable; aView : View from V3d);
---Level: Public
---Purpose: Calculate the position of the light, on the seen face
-- of the picking sphere.
Tracking (me : mutable; aView : View from V3d;
WathPick : TypeOfPickLight from V3d;
Xpix,Ypix : Integer from Standard) is static;
---Level: Public
---Purpose: Tracking the light position, or the light space,
-- or the radius of the light space, that depends of
-- initial picking "WhatPick" (see the pick method).
-- If WhatPick is SPACELIGHT, then the parameters
-- Xpix, Ypix are the coordinates of a translation vector.
---------------------------------------------------
---Category: Displaying methods
---------------------------------------------------
Display(me: mutable; aView: View from V3d; Representation : TypeOfRepresentation = V3d_SIMPLE)
is virtual;
---Level: Public
---Purpose: Display the graphic structure of light source
-- in the choosen view. We have three type of representation
-- - SIMPLE : Only the light source is displayed.
-- - PARTIAL : The light source and the light space are
-- displayed.
-- - COMPLETE : The light source, the light space and the
-- radius of light space are displayed.
-- We can choose the "SAMELAST" as parameter of representation
-- In this case the graphic structure representation will be
-- the last displayed.
Erase(me: mutable) is static;
---Level: Public
---Purpose: Erase the graphic structure of light source.
---------------------------------------------------
---Category: Inquire methods
---------------------------------------------------
Pick ( me; aView: View from V3d; Xpix, Ypix: Integer from Standard)
returns TypeOfPickLight from V3d is virtual;
---Level: Public
---Purpose: Returns the type of pick element.
-- "POSITIONLIGHT" : Representation of position light.
-- "SPACELIGHT" : Representation of lighting space.
-- "RADIUSLIGHT" : Representation of lighting space radius.
-- "NOTHING" : Any component of light.
-- Determinate which type of tracking apply.
Radius (me ) returns Parameter is static;
---Level: Public
---Purpose: Returns the radius of the picking sphere.
SeeOrHide (me; aView: View from V3d) returns Boolean is static;
---Level: Public
---Purpose: Returns the visibility status
-- If True the source is visible.
-- If False it's hidden.
Position ( me; X,Y,Z : out Coordinate ) is deferred;
---Level: Public
---Purpose : Returns the position of the light source.
Target ( me; X,Y,Z : out Coordinate) is static;
---Level: Public
---Purpose: Returns the position of the target of the light source.
-----------------------------------------
---Category: Private or Protected methods
-----------------------------------------
Symbol ( me ; gsymbol : mutable Group from Graphic3d ;
aView : View from V3d ) is deferred private;
---Level: Internal
---Purpose: Defines representation of the light source.
fields
MyTarget: Vertex from Graphic3d is protected;
MyTypeOfRepresentation: TypeOfRepresentation from V3d is protected;
end PositionalLight;
|
