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
|
-- File: BoundSortBox.cdl
-- Created: Tue Nov 24 12:30:47 1992
-- Author: Didier PIFFAULT
-- <dpf@phylox>
---Copyright: Matra Datavision 1992
class BoundSortBox from Bnd
---Purpose: A tool to compare a bounding box or a plane with a set of
-- bounding boxes. It sorts the set of bounding boxes to give
-- the list of boxes which intersect the element being compared.
-- The boxes being sorted generally bound a set of shapes,
-- while the box being compared bounds a shape to be
-- compared. The resulting list of intersecting boxes therefore
-- gives the list of items which potentially intersect the shape to be compared.
uses Integer from Standard,
Real from Standard,
ListOfInteger from TColStd,
Pln from gp,
Box from Bnd,
HArray1OfBox from Bnd,
DataMapOfIntegerInteger from TColStd
raises NullValue from Standard, MultiplyDefined from Standard
is Create returns BoundSortBox from Bnd;
---Purpose: Constructs an empty comparison algorithm for bounding boxes.
-- The bounding boxes are then defined using the Initialize function.
Initialize (me : in out;
CompleteBox : Box from Bnd;
SetOfBox : HArray1OfBox from Bnd)
is static;
---Purpose: Initializes this comparison algorithm with
-- - the set of bounding boxes SetOfBox.
Initialize (me : in out;
SetOfBox : HArray1OfBox from Bnd)
is static;
---Purpose: Initializes this comparison algorithm with
-- - the set of bounding boxes SetOfBox, where
-- CompleteBox is given as the global bounding box of SetOfBox.
SortBoxes (me : in out)
raises NullValue from Standard is static private;
---Purpose: Prepares BoundSortBox and sorts the boxes of
-- <SetOfBox> .
Initialize (me : in out;
CompleteBox : Box from Bnd;
nbComponents : Integer from Standard)
raises NullValue from Standard is static;
---Purpose: Initializes this comparison algorithm, giving it only
-- - the maximum number nbComponents
-- of the bounding boxes to be managed. Use the Add
-- function to define the array of bounding boxes to be sorted by this algorithm.
Add (me : in out;
theBox : Box from Bnd;
boxIndex : Integer from Standard)
raises MultiplyDefined from Standard is static;
---Purpose: Adds the bounding box theBox at position boxIndex in
-- the array of boxes to be sorted by this comparison algorithm.
-- This function is used only in conjunction with the third
-- syntax described in the synopsis of Initialize.
--
-- Exceptions:
--
-- - Standard_OutOfRange if boxIndex is not in the
-- range [ 1,nbComponents ] where
-- nbComponents is the maximum number of bounding
-- boxes declared for this comparison algorithm at
-- initialization.
--
-- - Standard_MultiplyDefined if a box already exists at
-- position boxIndex in the array of boxes to be sorted by
-- this comparison algorithm.
Compare (me : in out;
theBox : Box from Bnd)
returns ListOfInteger from TColStd
---Purpose: Compares the bounding box theBox,
-- with the set of bounding boxes to be sorted by this
-- comparison algorithm, and returns the list of intersecting
-- bounding boxes as a list of indexes on the array of
-- bounding boxes used by this algorithm.
---C++: return const &
raises NullValue from Standard is static;
Compare (me : in out;
P : Pln from gp)
returns ListOfInteger from TColStd
---Purpose: Compares the plane P
-- with the set of bounding boxes to be sorted by this
-- comparison algorithm, and returns the list of intersecting
-- bounding boxes as a list of indexes on the array of
-- bounding boxes used by this algorithm.
---C++: return const &
raises NullValue from Standard is static;
Dump (me) is static;
Destroy(me: in out)
---C++: alias ~
is static;
fields myBox : Box from Bnd;
myBndComponents : HArray1OfBox from Bnd;
Xmin : Real from Standard;
Ymin : Real from Standard;
Zmin : Real from Standard;
deltaX : Real from Standard;
deltaY : Real from Standard;
deltaZ : Real from Standard;
discrX : Integer from Standard;
discrY : Integer from Standard;
discrZ : Integer from Standard;
theFound : Integer from Standard;
Crible : DataMapOfIntegerInteger from TColStd;
lastResult : ListOfInteger from TColStd;
TabBits : Address from Standard;
end BoundSortBox;
|
