0023258: Missing parenthesis
[occt.git] / src / IGESGeom / IGESGeom_Boundary.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2012 OPEN CASCADE SAS
4 //
5 // The content of this file is subject to the Open CASCADE Technology Public
6 // License Version 6.5 (the "License"). You may not use the content of this file
7 // except in compliance with the License. Please obtain a copy of the License
8 // at http://www.opencascade.org and read it completely before using this file.
9 //
10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 //
13 // The Original Code and all software distributed under the License is
14 // distributed on an "AS IS" basis, without warranty of any kind, and the
15 // Initial Developer hereby disclaims all such warranties, including without
16 // limitation, any warranties of merchantability, fitness for a particular
17 // purpose or non-infringement. Please see the License for the specific terms
18 // and conditions governing the rights and limitations under the License.
19
20 //--------------------------------------------------------------------
21 //--------------------------------------------------------------------
22
23 #include <IGESGeom_Boundary.ixx>
24
25
26 IGESGeom_Boundary::IGESGeom_Boundary ()    {  }
27
28
29     void  IGESGeom_Boundary::Init
30   (const Standard_Integer aType,
31    const Standard_Integer aPreference,
32    const Handle(IGESData_IGESEntity)& aSurface,
33    const Handle(IGESData_HArray1OfIGESEntity)& allModelCurves,
34    const Handle(TColStd_HArray1OfInteger)& allSenses,
35    const Handle(IGESBasic_HArray1OfHArray1OfIGESEntity)& allParameterCurves)
36 {
37   Standard_Integer num1 = allSenses->Length();
38   if ( allSenses->Lower()          != 1 ||
39       (allModelCurves->Lower()     != 1 || allModelCurves->Length() != num1) ||
40       (allParameterCurves->Lower() != 1 || allParameterCurves->Length() != num1))
41     Standard_DimensionMismatch::Raise("IGESGeom_Boundary: Init");
42
43   theType            = aType;
44   thePreference      = aPreference;
45   theSurface         = aSurface;
46   theModelCurves     = allModelCurves;
47   theSenses          = allSenses;
48   theParameterCurves = allParameterCurves;
49   InitTypeAndForm(141,0);
50 }
51
52
53     Standard_Integer  IGESGeom_Boundary::BoundaryType () const
54 {
55   return theType;
56 }
57
58     Standard_Integer  IGESGeom_Boundary::PreferenceType () const
59 {
60   return thePreference;
61 }
62
63     Handle(IGESData_IGESEntity)  IGESGeom_Boundary::Surface () const
64 {
65   return theSurface;
66 }
67
68     Standard_Integer  IGESGeom_Boundary::NbModelSpaceCurves () const
69 {
70   return theModelCurves->Length();
71 }
72
73     Standard_Integer  IGESGeom_Boundary::Sense (const Standard_Integer Index) const
74 {
75   return theSenses->Value(Index);
76 }
77
78     Handle(IGESData_IGESEntity)  IGESGeom_Boundary::ModelSpaceCurve
79   (const Standard_Integer Index) const
80 {
81   return theModelCurves->Value(Index);
82 }
83
84     Standard_Integer  IGESGeom_Boundary::NbParameterCurves
85   (const Standard_Integer Index) const
86 {
87   if (theParameterCurves->Value(Index).IsNull()) return 0;
88   return  theParameterCurves->Value(Index)->Length();
89 }
90
91     Handle(IGESData_HArray1OfIGESEntity)  IGESGeom_Boundary::ParameterCurves
92   (const Standard_Integer Index) const
93 {
94   return theParameterCurves->Value(Index);
95 }
96
97     Handle(IGESData_IGESEntity)  IGESGeom_Boundary::ParameterCurve
98   (const Standard_Integer Index, const Standard_Integer Num) const
99 {
100   return theParameterCurves->Value(Index)->Value(Num);
101 }