blob: aae752623fb1632c43adef0f15cc1a3e3756b921 (
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
|
-- File: OrientedEdge.cdl
-- Created: Fri Dec 1 11:11:23 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class OrientedEdge from StepShape
inherits Edge from StepShape
uses
Boolean from Standard,
Vertex from StepShape,
HAsciiString from TCollection
is
Create returns mutable OrientedEdge;
---Purpose: Returns a OrientedEdge
Init (me : mutable;
aName : mutable HAsciiString from TCollection;
aEdgeElement : mutable Edge from StepShape;
aOrientation : Boolean from Standard) is virtual;
-- Specific Methods for Field Data Access --
SetEdgeElement(me : mutable; aEdgeElement : mutable Edge);
EdgeElement (me) returns mutable Edge;
SetOrientation(me : mutable; aOrientation : Boolean);
Orientation (me) returns Boolean;
SetEdgeStart(me : mutable; aEdgeStart : mutable Vertex) is redefined;
EdgeStart (me) returns mutable Vertex is redefined;
SetEdgeEnd(me : mutable; aEdgeEnd : mutable Vertex) is redefined;
EdgeEnd (me) returns mutable Vertex is redefined;
fields
edgeElement : Edge from StepShape;
orientation : Boolean from Standard;
--
-- NB : field <edge_start> inherited from classe <edge> is redeclared.
-- it shall appears in a physical file as a *.
--
--
-- NB : field <edge_end> inherited from classe <edge> is redeclared.
-- it shall appears in a physical file as a *.
--
end OrientedEdge;
|
