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
|
-- File: Viewer2dTest.cdl
package Viewer2dTest
---Purpose:
uses
Draw,
TCollection,
TColStd,
TopAbs,
TopTools,
TopoDS,
V2d,
AIS2D,
AIS,
Graphic2d
is
class EventManager;
---Purpose: used to manage mouse event (move,select,shiftselect)
-- By default the events are transmitted to interactive context.
class DoubleMapOfInteractiveAndName instantiates DoubleMap
from TCollection (InteractiveObject from AIS2D,
AsciiString from TCollection,
MapTransientHasher from TColStd,
AsciiString from TCollection);
class DataMapOfText instantiates DataMap
from TCollection (AsciiString from TCollection,
Text from Graphic2d,
AsciiString from TCollection);
---Category: Create the viewer....
ViewerInit ( thePxLeft, thePxTop : Integer from Standard = 0;
thePxWidth, thePxHeight : Integer from Standard = 0);
---Purpose:
-- implemented in Viewer2dTest_ViewerCommands.cxx
---Category: Selection in the viewer....
PickShape (aType : ShapeEnum from TopAbs;
MaxPick : Integer from Standard = 5) returns Shape from TopoDS;
---Purpose: waits until a shape of type <aType> is picked in the AIS2D Viewer and returns it.
-- if <aType> == TopAbs_Shape, any shape can be picked...
-- MaxPick is the Max number before exiting, if no pick is successfull
PickShapes (aType : ShapeEnum from TopAbs;
thepicked : in out HArray1OfShape from TopTools;
MaxPick : Integer from Standard = 5)
returns Boolean from Standard;
---Purpose: wait until the array is filled with picked shapes.
-- returns True if the array is filled.
-- exit if number of unsuccesfull picks = <MaxPick>
PickObject(Type : KindOfInteractive from AIS = AIS_KOI_None;
Signature : Integer from Standard = -1;
MaxPick : Integer from Standard = 5)
returns InteractiveObject from AIS2D;
---Purpose: waits until an interactive object of a given Type
-- and signature is picked (defaut values authorize
-- selection of any Interactive Object)
-- exit if number of unsuccesfull picks = <MaxPick>
PickObjects(thepicked : in out HArray1OfTransient from TColStd;
Type : KindOfInteractive from AIS = AIS_KOI_None;
Signature : Integer from Standard = -1;
MaxPick : Integer from Standard = 5)
returns Boolean from Standard;
---Purpose: selection of several interactive objects. Number is given
-- by the size of <thepicked>
-- exit if number of unsuccesfull picks = <MaxPick>
GetMousePosition(xpix,ypix: out Integer from Standard);
GetViewerFromContext returns Viewer from V2d;
GetCollectorFromContext returns Viewer from V2d;
GetAIS2DContext returns InteractiveContext from AIS2D;
SetAIS2DContext (aContext: InteractiveContext from AIS2D);
CurrentView returns View from V2d;
CurrentView (aViou:View from V2d);
Clear ;
---Category: Change behaviour on move,select,... events.
SetEventManager (aMgr:EventManager from Viewer2dTest);
---Purpose: puts <aMgr> as current eventmanager (the
-- move,select,...will be applied to <aMgr>
UnsetEventManager;
---Purpose: removes the last EventManager from the list.
ResetEventManager;
---Purpose: clear the list of EventManagers and
-- sets the default EventManager as current
CurrentEventManager returns EventManager from Viewer2dTest;
---Category: privateMethods...
RemoveSelected;
StandardModeActivation (Mode : Integer from Standard);
---Category: Draw Commands
Commands (theCommands : in out Interpretor from Draw);
MyCommands (theCommands : in out Interpretor from Draw); -- My Own Com-s
GeneralCommands (theCommands :in out Interpretor from Draw);
ViewerCommands (theCommands :in out Interpretor from Draw);
DisplayCommands (theCommands : in out Interpretor from Draw);
ObjectCommands (theCommands :in out Interpretor from Draw);
end;
|