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
|
--
-- File: Visual3d_PickDescriptor.cdl
-- Created: Jeudi 21 Novembre 1991
-- Author: NW,JPB,CAL
--
---Copyright: MatraDatavision 1991,1992,1993
--
class PickDescriptor from Visual3d
---Version:
---Purpose: This class contains the pick information.
-- It contains a certain number of PickPaths.
---Keywords: Pick Descriptor, Path, Structure, PickId
---Warning:
---References:
uses
Structure from Graphic3d,
ContextPick from Visual3d,
PickPath from Visual3d,
HSequenceOfPickPath from Visual3d
raises
PickError from Visual3d
is
Create ( CTX : ContextPick from Visual3d )
returns PickDescriptor from Visual3d;
---Level: Public
---Purpose: Creates a PickDescriptor <me>.
---------------------------------------------------
-- Category: Methods to modify the class definition
---------------------------------------------------
AddPickPath ( me : in out;
APickPath : PickPath from Visual3d )
is static;
---Level: Public
---Purpose: Adds a PickPath to PickDescriptor <me>.
---Category: Methods to modify the class definition
Clear ( me : in out )
is static;
---Level: Public
---Purpose: Erases all the information in <me>.
---Category: Methods to modify the class definition
----------------------------
-- Category: Inquire methods
----------------------------
Depth ( me )
returns Integer from Standard
is static;
---Level: Public
---Purpose: Returns the pick depth, that is the
-- number of PickPaths available in the PickDescriptor.
---Category: Inquire methods
PickPath ( me )
returns HSequenceOfPickPath from Visual3d
is static;
---Level: Internal
---Purpose: Returns the group of PickPaths of <me>.
---Category: Inquire methods
TopStructure ( me )
returns Structure from Graphic3d
---Level: Public
---Purpose: Returns the root structure.
-- If the pick order was of the type TOO_TOPFIRST
-- then it's the first structure.
-- If the pick order was of the type TOO_BOTTOMFIRST
-- Then it's the last structure.
-- The pick order is set by the method SetOrder
-- from ContextPick.
-- Category: Inquire methods
-- Warning: Raises PickError if Depth == 0 (no picked structure).
raises PickError from Visual3d is static;
TopPickId ( me )
returns Integer from Standard
---Level: Public
---Purpose: Returns the root structure pickid.
-- If the pick order was of the type TOO_TOPFIRST
-- then it's the first pickid.
-- If the pick order was of the type TOO_BOTTOMFIRST
-- then it's the last pickid.
-- The pick order is set by the method SetOrder
-- from ContextPick.
-- Category: Inquire methods
-- Warning: Raises PickError if Depth == 0 (no picked structure).
raises PickError from Visual3d is static;
TopElementNumber ( me )
returns Integer from Standard
---Level: Public
---Purpose: Returns the root structure element number.
-- If the pick order was of the type TOO_TOPFIRST
-- then it's the first element number.
-- If the pick order was of the type TOO_BOTTOMFIRST
-- then it's the last element number.
-- The pick order is set by the method SetOrder
-- from ContextPick.
-- Category: Inquire methods
-- Warning: Raises PickError if Depth == 0 (no picked structure).
raises PickError from Visual3d is static;
--
fields
--
-- Class : Visual3d_PickDescriptor
--
-- Purpose : Declaration of variables specific to the class
-- describing a pick.
--
-- Reminders : A pick return is defined by:
-- - a sequence of (Elem_number, Pick_Id, Struct_Id)
-- - a depth
-- pick sequence
MyPickPathSequence : HSequenceOfPickPath from Visual3d;
-- context associated to a pick
MyContext : ContextPick from Visual3d;
end PickDescriptor;
|
