7fd59977 |
1 | -- |
2 | -- File : EdgeList.cdl |
3 | -- Created : Sat 9 Jan 1993 |
4 | -- Author : CKY / Contract Toubro-Larsen ( SIVA ) |
5 | -- |
6 | ---Copyright : MATRA-DATAVISION 1993 |
7 | -- |
8 | |
9 | class EdgeList from IGESSolid inherits IGESEntity |
10 | |
11 | ---Purpose: defines EdgeList, Type <504> Form <1> |
12 | -- in package IGESSolid |
13 | -- EdgeList is defined as a segment joining two vertices |
14 | |
15 | uses |
16 | |
17 | HArray1OfIGESEntity from IGESData, |
18 | VertexList from IGESSolid, |
19 | HArray1OfVertexList from IGESSolid, |
20 | HArray1OfInteger from TColStd |
21 | |
22 | raises DimensionMismatch, OutOfRange |
23 | |
24 | is |
25 | |
26 | Create returns mutable EdgeList; |
27 | |
28 | -- Specific Methods pertaining to the class |
29 | |
30 | Init (me : mutable; |
31 | curves : HArray1OfIGESEntity; |
32 | startVertexList : HArray1OfVertexList; |
33 | startVertexIndex : HArray1OfInteger; |
34 | endVertexList : HArray1OfVertexList; |
35 | endVertexIndex : HArray1OfInteger) |
36 | raises DimensionMismatch; |
37 | ---Purpose : This method is used to set the fields of the class |
38 | -- EdgeList |
39 | -- - curves : the model space curves |
40 | -- - startVertexList : the vertex list that contains the |
41 | -- start vertices |
42 | -- - startVertexIndex : the index of the vertex in the |
43 | -- corresponding vertex list |
44 | -- - endVertexList : the vertex list that contains the |
45 | -- end vertices |
46 | -- - endVertexIndex : the index of the vertex in the |
47 | -- corresponding vertex list |
48 | -- raises exception if size of curves,startVertexList,startVertexIndex, |
49 | -- endVertexList and endVertexIndex do no match |
50 | |
51 | NbEdges (me) returns Integer; |
52 | ---Purpose : returns the number of edges in the edge list |
53 | |
54 | Curve (me; num: Integer) returns IGESEntity |
55 | raises OutOfRange; |
56 | ---Purpose : returns the num'th model space curve |
57 | -- raises Exception if num <= 0 or num > NbEdges() |
58 | |
59 | StartVertexList (me; num: Integer) returns VertexList |
60 | raises OutOfRange; |
61 | ---Purpose : returns the num'th start vertex list |
62 | -- raises Exception if num <= 0 or num > NbEdges() |
63 | |
64 | StartVertexIndex (me; num: Integer) returns Integer |
65 | raises OutOfRange; |
66 | ---Purpose : returns the index of num'th start vertex in |
67 | -- the corresponding start vertex list |
68 | -- raises Exception if num <= 0 or num > NbEdges() |
69 | |
70 | EndVertexList (me; num: Integer) returns VertexList |
71 | raises OutOfRange; |
72 | ---Purpose : returns the num'th end vertex list |
73 | -- raises Exception if num <= 0 or num > NbEdges() |
74 | |
75 | EndVertexIndex (me; num: Integer) returns Integer |
76 | raises OutOfRange; |
77 | ---Purpose : returns the index of num'th end vertex in |
78 | -- the corresponding end vertex list |
79 | -- raises Exception if num <= 0 or num > NbEdges() |
80 | |
81 | fields |
82 | |
83 | -- |
84 | -- Class : IGESSolid_EdgeList |
85 | -- |
86 | -- Purpose : Declaration of variables specific to the definition |
87 | -- of the Class EdgeList. |
88 | -- |
89 | |
90 | theCurves : HArray1OfIGESEntity; |
91 | -- the model space curves |
92 | |
93 | theStartVertexList : HArray1OfVertexList; |
94 | -- the start vertex list |
95 | |
96 | theStartVertexIndex : HArray1OfInteger; |
97 | -- the indices of the individual vertex into the start vertex list |
98 | |
99 | theEndVertexList : HArray1OfVertexList; |
100 | -- the terminate vertex list |
101 | |
102 | theEndVertexIndex : HArray1OfInteger; |
103 | -- the indices of the individual vertex into the terminate vertex list |
104 | |
105 | end EdgeList; |