7fd59977 |
1 | -- File: SelectBasics_SortAlgo.cdl |
2 | -- Created: Mon Jan 23 17:15:55 1995 |
3 | -- Author: Didier Piffault |
4 | -- <rmi@photon> |
5 | -- Full Copy of Select_Rectangle (Didier Piffault 94) |
6 | ---Copyright: Matra Datavision 1995 |
7 | |
8 | |
9 | class SortAlgo from SelectBasics |
10 | |
11 | ---Purpose: Quickly selection of a rectangle in a set of rectangles |
12 | |
13 | |
14 | uses Integer from Standard, |
15 | Real from Standard, |
16 | MapIteratorOfMapOfInteger from TColStd, |
17 | MapOfInteger from TColStd, |
18 | ListIteratorOfListOfInteger from TColStd, |
19 | Box2d from Bnd, |
20 | HArray1OfBox2d from Bnd, |
21 | BoundSortBox2d from Bnd |
22 | |
23 | |
24 | is Create |
25 | ---Purpose: Empty rectangle selector. |
26 | returns SortAlgo from SelectBasics; |
27 | |
28 | Create (ClippingRectangle : Box2d from Bnd; |
29 | sizeOfSensitiveArea : Real from Standard; |
30 | theRectangles : HArray1OfBox2d from Bnd) |
31 | ---Purpose: Creates a initialized selector. |
32 | returns SortAlgo from SelectBasics; |
33 | |
34 | Initialize (me : in out; |
35 | ClippingRectangle : Box2d from Bnd; |
36 | sizeOfSensitiveArea : Real from Standard; |
37 | theRectangles : HArray1OfBox2d from Bnd) |
38 | ---Purpose: Clears and initializes the selector. |
39 | is static; |
40 | |
41 | |
42 | InitSelect (me : in out; |
43 | x, y : Real from Standard) |
44 | ---Purpose: Searchs the items on this position. |
45 | is static; |
46 | |
47 | |
48 | InitSelect (me : in out; |
49 | rect : Box2d from Bnd) |
50 | ---Purpose: Searchs the items in this rectangle. |
51 | is static; |
52 | |
53 | |
54 | |
55 | More(me) |
56 | ---Purpose: Returns true if there is something selected. |
57 | returns Boolean from Standard is static; |
58 | |
59 | Next(me : in out) |
60 | ---Purpose: Sets value on the next selected item. |
61 | is static; |
62 | |
63 | Value(me) |
64 | ---Purpose: Returns the index of the selected rectangle. |
65 | returns Integer from Standard is static; |
66 | |
67 | |
68 | fields clipRect : Box2d from Bnd; |
69 | sizeArea : Real from Standard; |
70 | sortedRect : BoundSortBox2d from Bnd; |
71 | myMap : MapOfInteger from TColStd; |
72 | curResult : MapIteratorOfMapOfInteger from TColStd; |
73 | |
74 | end SortAlgo; |
75 | |
76 | |
77 | |