7fd59977 |
1 | //-------------------------------------------------------------------- |
2 | // |
3 | // File Name : IGESSolid_VertexList.cxx |
4 | // Date : |
5 | // Author : CKY / Contract Toubro-Larsen |
6 | // Copyright : MATRA-DATAVISION 1993 |
7 | // |
8 | //-------------------------------------------------------------------- |
9 | |
10 | #include <IGESSolid_VertexList.ixx> |
11 | #include <Standard_DimensionMismatch.hxx> |
12 | |
13 | |
14 | IGESSolid_VertexList::IGESSolid_VertexList () { } |
15 | |
16 | |
17 | void IGESSolid_VertexList::Init |
18 | (const Handle(TColgp_HArray1OfXYZ)& Vertices) |
19 | { |
20 | if (Vertices.IsNull() || Vertices->Lower() != 1) |
21 | Standard_DimensionMismatch::Raise("IGESSolid_VertexList : Init"); |
22 | theVertices = Vertices; |
23 | InitTypeAndForm(502,1); |
24 | } |
25 | |
26 | Standard_Integer IGESSolid_VertexList::NbVertices () const |
27 | { |
28 | return (theVertices.IsNull() ? 0 : theVertices->Length()); |
29 | } |
30 | |
31 | gp_Pnt IGESSolid_VertexList::Vertex (const Standard_Integer Index) const |
32 | { |
33 | return gp_Pnt(theVertices->Value(Index)); |
34 | } |