blob: 92c9fdd8ef769db534b62f1e3605b9b6708d5992 (
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
|
-- File: MAT_BasicElt.cdl
-- Created: Fri Apr 30 12:10:31 1993
-- Author: Yves FRICAUD
-- <yfr@phylox>
---Copyright: Matra Datavision 1993
class BasicElt from MAT
---Purpose: A BasicELt is associated to each elemtary
-- constituant of the figure.
inherits
TShared from MMgt
uses
Arc from MAT,
Side from MAT,
Address from Standard
is
Create (anInteger : Integer)
--- Purpose : Constructor, <anInteger> is the <index> of <me>.
returns mutable BasicElt from MAT;
StartArc(me)
--- Purpose : Return <startArcLeft> or <startArcRight> corresponding
-- to <aSide>.
returns Arc is static;
EndArc(me)
--- Purpose : Return <endArcLeft> or <endArcRight> corresponding
-- to <aSide>.
returns Arc is static;
Index (me)
--- Purpose : Return the <index> of <me> in Graph.TheBasicElts.
returns Integer is static;
GeomIndex(me)
--- Purpose : Return the <GeomIndex> of <me>.
returns Integer is static;
SetStartArc (me : mutable ; anArc : Arc)
is static;
SetEndArc (me : mutable ; anArc : Arc)
is static;
SetIndex (me : mutable ; anInteger : Integer)
is static;
SetGeomIndex(me : mutable ; anInteger : Integer)
is static;
fields
startLeftArc : Address from Standard;
endLeftArc : Address from Standard;
index : Integer;
geomIndex : Integer;
end BasicElt;
|