Integration of OCCT 6.5.0 from SVN
[occt.git] / src / IGESAppli / IGESAppli_PWBArtworkStackup.cxx
1 //--------------------------------------------------------------------
2 //
3 //  File Name : IGESAppli_PWBArtworkStackup.cxx
4 //  Date      :
5 //  Author    : CKY / Contract Toubro-Larsen
6 //  Copyright : MATRA-DATAVISION 1993
7 //
8 //--------------------------------------------------------------------
9
10 #include <IGESAppli_PWBArtworkStackup.ixx>
11 #include <Standard_DimensionMismatch.hxx>
12
13
14     IGESAppli_PWBArtworkStackup::IGESAppli_PWBArtworkStackup ()    {  }
15
16
17     void  IGESAppli_PWBArtworkStackup::Init
18   (const Standard_Integer nbPropVal,
19    const Handle(TCollection_HAsciiString)& anArtIdent,
20    const Handle(TColStd_HArray1OfInteger)& allLevelNums)
21 {
22   if (allLevelNums->Lower() != 1)
23     Standard_DimensionMismatch::Raise("IGESAppli_PWBArtworkStackup : Init");
24   theNbPropertyValues    = nbPropVal;
25   theArtworkStackupIdent = anArtIdent;
26   theLevelNumbers        = allLevelNums;
27   InitTypeAndForm(406,25);
28 }
29
30     Standard_Integer  IGESAppli_PWBArtworkStackup::NbPropertyValues () const
31 {
32   return theNbPropertyValues;
33 }
34
35     Handle(TCollection_HAsciiString)  IGESAppli_PWBArtworkStackup::Identification () const
36 {
37   return theArtworkStackupIdent;
38 }
39
40     Standard_Integer  IGESAppli_PWBArtworkStackup::NbLevelNumbers () const
41 {
42   return theLevelNumbers->Length();
43 }
44
45     Standard_Integer  IGESAppli_PWBArtworkStackup::LevelNumber
46   (const Standard_Integer Index) const
47 {
48   return theLevelNumbers->Value(Index);
49 }