blob: 703243fd22829b08afd8a9bdaf3270ada3266b2e (
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
63
64
65
66
67
68
69
70
71
|
-- File: MAT_Zone.cdl
-- Created: Thu May 27 11:12:20 1993
-- Author: Yves FRICAUD
-- <yfr@phylox>
---Copyright: Matra Datavision 1993
class Zone from MAT
---Purpose:
-- Definition of Zone of Proximity of a BasicElt :
-- ----------------------------------------------
-- A Zone of proximity is the set of the points which are
-- more near from the BasicElt than any other.
--
inherits
TShared from MMgt
uses
Arc from MAT,
Side from MAT,
SequenceOfArc from MAT,
BasicElt from MAT,
Node from MAT
is
Create returns mutable Zone from MAT;
Create(aBasicElt : BasicElt from MAT)
--- Purpose: Compute the frontier of the Zone of proximity.
returns mutable Zone from MAT;
Perform(me : mutable ; aBasicElt : BasicElt from MAT)
--- Purpose: Compute the frontier of the Zone of proximity.
is static;
NumberOfArcs(me)
--- Purpose: Return the number Of Arcs On the frontier of <me>.
returns Integer
is static;
ArcOnFrontier (me ; Index : Integer)
--- Purpose: Return the Arc number <Index> on the frontier.
-- of <me>.
returns Arc
is static;
NoEmptyZone (me)
--- Purpose: Return TRUE if <me> is not empty .
returns Boolean
is static;
Limited(me)
--- Purpose: Return TRUE if <me> is Limited.
returns Boolean
is static;
NodeForTurn(me ;
anArc : Arc from MAT ;
aBasicElt : BasicElt from MAT ;
aSide : Side from MAT )
returns Node from MAT
is static private;
fields
frontier : SequenceOfArc from MAT;
limited : Boolean from Standard;
end Zone;
|