blob: 19c9aef2f89b36688ece9c222b79a1aa8149e031 (
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
|
-- File: Voxel_Selector.cdl
-- Created: Wed Jul 30 15:36:49 2008
-- Author: Vladislav ROMASHKO
-- <vladislav.romashko@opencascade.com>
---Copyright: Open CASCADE S.A.
class Selector from Voxel
---Purpose: Detects voxels in the viewer 3d under the mouse cursor.
uses
View from V3d,
BoolDS from Voxel,
ColorDS from Voxel,
ROctBoolDS from Voxel
is
Create
---Purpose: An empty constructor.
returns Selector from Voxel;
Create(view : View from V3d)
---Purpose: A constructor of the selector,
-- which initializes the classes
-- by a view, where the user selects the voxels.
returns Selector from Voxel;
Init(me : in out;
view : View from V3d);
---Purpose: Initializes the selector by a view,
-- where the user selects the voxels.
SetVoxels(me : in out;
voxels : BoolDS from Voxel);
---Purpose: Defines the voxels (1bit).
SetVoxels(me : in out;
voxels : ColorDS from Voxel);
---Purpose: Defines the voxels (4bit).
SetVoxels(me : in out;
voxels : ROctBoolDS from Voxel);
---Purpose: Defines the voxels (1bit recursive splitting).
Detect(me : in out;
winx : Integer from Standard;
winy : Integer from Standard;
ix : out Integer from Standard;
iy : out Integer from Standard;
iz : out Integer from Standard)
---Purpose: Detects a voxel under the mouse cursor.
returns Boolean from Standard;
fields
myView : View from V3d;
myVoxels : Address from Standard;
myIsBool : Integer from Standard; -- 0 - ColorDS, 1 - BoolDS, 2 - ROctBoolDS
end Selector;
|
