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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
|
--
-- Package: V3d.cdl
-- Author: GG
-- Created: Mercredi 22 Janvier 1992
-- Modified: stt:25-02-98; S3558: ajout ViewStdAdapter
-- ZOV - Mars 30 1998
-- stt:08-04-98; suppr. ViewStdAdapter
-- 16-09-98 ; BGN : Ajout TypeOfTriedronEcho,
-- TypeOfTriedronPosition.
-- 22-09-98; BGN: S3989 (anciennement S3819): report
-- dans Aspect des TypeOfTriedron*
---Copyright: MatraDatavision 1991,1992
--
-- Purpose: Specifications provisoires
--
--
-- Date: Vendredi 13 Novembre 1992
--
--
package V3d
---Purpose: This package contains the set of commands and services
-- of the 3D Viewer. It provides a set of high level commands
-- to control the views and viewing modes. This package is
-- complementary to the Visual3D graphic package.
-- Warning
-- The CSF_WALKTHROUGH variable enables you to
-- manage the perspective of the view in the viewer by
-- defining setenv CSF_WALKTHROUGH "Yes".
-- If you use the syntax unsetenv
-- CSF_WALKTHROUGH, you undefine the variable
-- (you make sure that the variable is deactivated). In
-- this case, the eye is located outside the 3D bounding
-- box of the view. This is the default behavior for
-- managing the view perspective.
uses
Viewer,
TColStd,
Graphic3d,
Visual3d,
MMgt,
TCollection,
Quantity,
Aspect,
PlotMgt,
Image,
gp,
OSD
is
------------------------------
---Category: The extern types
------------------------------
alias Coordinate is Length from Quantity;
---Purpose: User-defined coordinate in the reference plane of
-- view (Projection or Mapping).
alias Parameter is Parameter from Quantity;
--------------------------
--Category: The Exceptions
--------------------------
exception UnMapped inherits DomainError;
-----------------------------
---Category: The Enumerations
-----------------------------
enumeration TypeOfView is ORTHOGRAPHIC,PERSPECTIVE
end TypeOfView ;
---Purpose: Defines the type of projection of the view.
enumeration TypeOfShadingModel is COLOR,MULTICOLOR,FLAT,GOURAUD,HIDDEN
end TypeOfShadingModel ;
---Purpose:
-- Defines the type of shading for the graphic object:
-- - V3d_COLOR: simple surface color,
-- - V3d_MULTICOLOR: interpolated colors,
-- - V3d_FLAT: flat shading,
-- - V3d_GOURAUD: Gouraud shading,
-- - V3d_HIDDEN: hidden line removal.
enumeration TypeOfSurfaceDetail is TEX_NONE, TEX_ENVIRONMENT, TEX_ALL
end TypeOfSurfaceDetail;
---Purpose: Modes of visualization for objects in a view
-- - V3d_TEX_NONE: no texture mapping,
-- - V3d_TEX_ENVIRONMENT: environment mapping only,
-- - V3d_TEX_ALL: environment and texture mapping.
enumeration TypeOfVisualization is WIREFRAME,ZBUFFER
end TypeOfVisualization ;
---Purpose: Determines the type of visualization in the view, either
-- WIREFRAME or ZBUFFER (shading).
enumeration TypeOfZclipping is OFF,BACK,FRONT,SLICE
-- Type "BACK" Remove rear part
-- Type "FRONT" Remove front part
-- "SLICE" Keep the slice between the front plane
-- plane depth + half the thickness
-- and the rear plane
-- plane depth - half the thickness.
-- "OFF" ZClipping deactivated.
end TypeOfZclipping ;
---Purpose: The available options are
-- - V3d_OFF: Zclipping (clipping executed in the
-- depth of the view) is deactivated,
-- - V3d_BACK: back Zclipping is activated,
-- - V3d_FRONT: front Zclipping is activated,
-- - V3d_SLICE: both front and back Zclippings are activated.
enumeration TypeOfLight is AMBIENT,DIRECTIONAL,POSITIONAL,SPOT
end TypeOfLight ;
---Purpose: Determines the type of light.
enumeration TypeOfUpdate is ASAP,WAIT
end TypeOfUpdate ;
---Purpose: Determines the type of update of the view
-- - V3d_ASAP: as soon as possible. The view is updated immediately after a modification.
-- - V3d_WAIT: deferred. The view is updated when the Update function is called.
enumeration TypeOfAxe is X,Y,Z
end TypeOfAxe ;
---Purpose: Determines the axis type through the coordinates X, Y, Z.
enumeration TypeOfOrientation is Xpos,Ypos,Zpos,Xneg,Yneg,Zneg,
XposYpos,XposZpos,YposZpos,XnegYneg,XnegYpos,XnegZneg,
XnegZpos,YnegZneg,YnegZpos,XposYneg,XposZneg,YposZneg,
XposYposZpos,XposYnegZpos,XposYposZneg,XnegYposZpos,
XposYnegZneg,XnegYposZneg,XnegYnegZpos,XnegYnegZneg
end TypeOfOrientation ;
---Purpose: Determines the type of orientation.
enumeration TypeOfRepresentation is SIMPLE,COMPLETE,PARTIAL,SAMELAST
end TypeOfRepresentation;
enumeration TypeOfPickLight is POSITIONLIGHT,SPACELIGHT,
RADIUSTEXTLIGHT,ExtRADIUSLIGHT,IntRADIUSLIGHT,
NOTHING
end TypeOfPickLight;
enumeration TypeOfPickCamera is POSITIONCAMERA,SPACECAMERA,
RADIUSTEXTCAMERA,ExtRADIUSCAMERA,IntRADIUSCAMERA,
NOTHINGCAMERA
end TypeOfPickCamera;
enumeration TypeOfProjectionModel is
TPM_SCREEN,TPM_WALKTHROUGH
end TypeOfProjectionModel;
enumeration TypeOfBackfacingModel is
TOBM_AUTOMATIC, TOBM_ALWAYS_DISPLAYED, TOBM_NEVER_DISPLAYED
end TypeOfBackfacingModel;
---Purpose : Modes of display of back faces in the view
--
-- TOBM_AUTOMATIC graphic's structure setting is in use
-- TOBM_ALWAYS_DISPLAYED force display of back faces
-- TOBM_NEVER_DISPLAYED disable display of back faces
------------------------
---Category: The classes
------------------------
class Viewer;
---Purpose: Provides the services of a 3D viewer.
deferred class View;
---Purpose: Provides a set of services common to all types of view.
class OrthographicView;
---Purpose: Services of an orthogonal view.
class PerspectiveView;
---Purpose: Services of a perspective view.
class LayerMgr;
---Purpose: Services of layer management.
deferred class Light;
---Purpose: Provides services common to all types of luminous source.
-- (base class for AmbientLight and PositionLight)
class AmbientLight;
---Purpose: Services of ambient light sources.
deferred class PositionLight;
---Purpose: Provides services common to Positional,Directional,Spot Lights.
class PositionalLight;
---Purpose: Services of positional light sources.
class DirectionalLight;
---Purpose: Services of directional light sources.
class SpotLight;
---Purpose: Services of spot light sources.
class Camera;
---Purpose: Services of camera, edition tool of view.
class Plane;
---Pupose: Services of any kind of clipping plane.
---------------------------------
---Category: Instantiated classes
---------------------------------
private class ListOfTransient;
pointer ViewerPointer to Viewer from V3d;
pointer ViewPointer to View from V3d;
pointer LayerMgrPointer to LayerMgr from V3d;
private class RectangularGrid;
private class CircularGrid;
private class ColorScale;
private class ColorScaleLayerItem;
---------------------------------
---Category: Methodes de package
---------------------------------
GetProjAxis( Orientation : TypeOfOrientation )
returns Vector from Graphic3d ;
---Purpose: Determines the orientation vector corresponding
-- to the predefined orientation type.
ArrowOfRadius ( garrow : mutable Group from Graphic3d;
X0,Y0,Z0 : Coordinate;
DX,DY,DZ : Parameter;
Alpha : PlaneAngle from Quantity;
Lng : Parameter ) is protected;
---Level: Advanced
---Purpose: Compute the graphic structure of arrow.
-- X0,Y0,Z0 : coordinate of the arrow.
-- DX,DY,DZ : Direction of the arrow.
-- Alpha : Angle of arrow.
-- Lng : Length of arrow.
CircleInPlane ( gcircle : mutable Group from Graphic3d;
X0,Y0,Z0 : Coordinate;
VX,VY,VZ : Parameter;
Radius : Parameter ) is protected;
---Level: Advanced
---Purpose: Compute the graphic structure of circle.
-- X0,Y0,Z0 : Center of circle.
-- VX,VY,VZ : Axis of circle.
-- Radius : Radius of circle.
SwitchViewsinWindow(aPreviousView: View from V3d;
aNextView: View from V3d);
DrawSphere(aViewer: Viewer from V3d; aRadius: Length from Quantity =1000);
---Purpose: test.
PickGrid(aViewer: Viewer from V3d; aRadius: Length from Quantity =1000);
---Purpose: test.
SetPlane(aViewer: Viewer from V3d; x1,y1,z1,x2,y2,z2: Length from Quantity);
---Purpose: test.
end V3d;
|
