blob: 7717acc399e4115639a418ca76a9c7897eb9cac5 (
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
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
|
--
-- File: Visual3d_ContextPick.cdl
-- Created: Lundi 25 Novembre 1991
-- Author: NW,JPB,CAL
--
---Copyright: MatraDatavision 1991,1992,1993
--
class ContextPick from Visual3d
---Version:
---Purpose: This class allows the creation and update of
-- a pick context for one view of the viewer.
-- A context allows the control of different parameters
-- before the activation of a pick.
--
-- * the pick aperture.
-- * the depth of pick, the number of sub-structures selected.
-- * the order of picking, the possibility to traverse
-- the pick structures starting from the root
-- or the leaves.
---Keywords: Pick, Context, Aperture, Depth, Order, Structure
---Warning:
---References:
uses
TypeOfOrder from Visual3d
raises
ContextPickDefinitionError from Visual3d
is
Create
returns ContextPick from Visual3d;
---Level: Public
---Purpose: Creates a context from default values
--
-- Aperture : 4.0
-- Depth : 10
-- Order : TOO_TOPFIRST
Create ( Aperture : Real from Standard;
Depth : Integer from Standard;
Order : TypeOfOrder from Visual3d )
returns ContextPick from Visual3d
---Level: Public
---Purpose: Creates a context with the values defined
-- Warning: Raises ContextPickDefinitionError if <Depth> or
-- <Aperture> is a negative value.
raises ContextPickDefinitionError;
-----------------------------------------------------
-- Category: Methods to modifies the class definition
-----------------------------------------------------
SetAperture ( me : in out;
Aperture : Real from Standard )
---Level: Public
---Purpose: Modifies the size of the pick window.
-- Category: Methods to modifies the class definition
-- Warning: Raises ContextPickDefinitionError if <Aperture> is
-- a negative value.
raises ContextPickDefinitionError is static;
SetDepth ( me : in out;
Depth : Integer from Standard )
---Level: Public
---Purpose: Modifies the pick depth a priori.
-- Category: Methods to modifies the class definition
-- Warning: Raises ContextPickDefinitionError if <Depth> is
-- a negative value.
raises ContextPickDefinitionError is static;
SetOrder ( me : in out;
Order : TypeOfOrder from Visual3d ) is static;
---Level: Public
---Purpose: Modifies the order of picking.
--
-- TypeOfOrder : TOO_TOPFIRST
-- TOO_BOTTOMFIRST
--
---Category: Methods to modifies the class definition
----------------------------
-- Category: Inquire methods
----------------------------
Aperture ( me )
returns Real from Standard is static;
---Level: Public
---Purpose: Returns the size of the pick window <me>.
---Category: Inquire methods
Depth ( me )
returns Integer from Standard is static;
---Level: Public
---Purpose: Returns the effective pick depth of <me>.
---Category: Inquire methods
Order ( me )
returns TypeOfOrder from Visual3d is static;
---Level: Public
---Purpose: Returns the order of picking of <me>.
--
-- TypeOfOrder : TOO_TOPFIRST
-- TOO_BOTTOMFIRST
--
---Category: Inquire methods
--
fields
--
-- Class : Visual3d_ContextPick
--
-- Purpose : Declaration of variables specific to
-- pick contexts
--
-- Reminders : A pick context is defined by:
-- - the pick aperture
-- - the depth demanded
-- - the order of traversing the structure
-- aperture of pick
MyAperture : Real from Standard;
-- depth of pick
MyDepth : Integer from Standard;
-- order of traversing pick structures
MyOrder : TypeOfOrder from Visual3d;
end ContextPick;
|
