Integration of OCCT 6.5.0 from SVN
[occt.git] / src / IGESSolid / IGESSolid_VertexList.cxx
CommitLineData
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}