0024002: Overall code and build procedure refactoring -- automatic
[occt.git] / src / IGESAppli / IGESAppli_ElementResults.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 //--------------------------------------------------------------------
17 //--------------------------------------------------------------------
18 // UNFINISHED & UNSTARTED
19
20 #include <IGESAppli_ElementResults.hxx>
21 #include <IGESAppli_FiniteElement.hxx>
22 #include <IGESBasic_HArray1OfHArray1OfInteger.hxx>
23 #include <IGESBasic_HArray1OfHArray1OfReal.hxx>
24 #include <IGESDimen_GeneralNote.hxx>
25 #include <Standard_DimensionMismatch.hxx>
26 #include <Standard_OutOfRange.hxx>
27 #include <Standard_Type.hxx>
28
29 IGESAppli_ElementResults::IGESAppli_ElementResults ()    {  }
30
31     void  IGESAppli_ElementResults::Init
32   (const Handle(IGESDimen_GeneralNote)& aNote,
33    const Standard_Integer aSubCase, const Standard_Real aTime,
34    const Standard_Integer nbResults, const Standard_Integer aResRepFlag,
35    const Handle(TColStd_HArray1OfInteger)& allElementIdents,
36    const Handle(IGESAppli_HArray1OfFiniteElement)&    allFiniteElems,
37    const Handle(TColStd_HArray1OfInteger)&            allTopTypes,
38    const Handle(TColStd_HArray1OfInteger)&            nbLayers,
39    const Handle(TColStd_HArray1OfInteger)&            allDataLayerFlags,
40    const Handle(TColStd_HArray1OfInteger)&            allnbResDataLocs,
41    const Handle(IGESBasic_HArray1OfHArray1OfInteger)& allResDataLocs,
42    const Handle(IGESBasic_HArray1OfHArray1OfReal)&    allResults) // UNFINISHED
43 {
44   // raises exception if sizes are not consistent, (lower = 1 too)
45   // but how to check is not clear ??
46   Standard_Integer num = allElementIdents->Length();
47   if (allElementIdents->Lower()  != 1 ||
48       allFiniteElems->Lower()    != 1 || allFiniteElems->Upper()    != num ||
49       allTopTypes->Lower()       != 1 || allTopTypes->Upper()       != num ||
50       nbLayers->Lower()          != 1 || nbLayers->Upper()          != num ||
51       allDataLayerFlags->Lower() != 1 || allDataLayerFlags->Upper() != num ||
52       allnbResDataLocs->Lower()  != 1 || allnbResDataLocs->Upper()  != num ||
53       allResDataLocs->Lower()    != 1 || allResDataLocs->Upper()    != num ||
54       allResults->Lower()        != 1 || allResults->Upper()        != num )
55     Standard_DimensionMismatch::Raise("IGESAppli_ElementsResults : Init");
56   for (Standard_Integer i = 1; i <= num; i ++) {
57     Standard_Integer nl  = nbLayers->Value(i);
58     Standard_Integer nrl = allnbResDataLocs->Value(i);
59     if (allResDataLocs->Value(i)->Lower() != 1 || 
60         allResDataLocs->Value(i)->Upper() != nrl)
61       Standard_DimensionMismatch::Raise("IGESAppli_ElementsResults : DataLoc");
62     if (allResults->Value(i)->Lower() != 1 ||
63         allResults->Value(i)->Upper() != nl*nrl*nbResults)
64       Standard_DimensionMismatch::Raise("IGESAppli_ElementsResults : Results");
65   }
66
67   theNote                 = aNote;
68   theSubcaseNumber        = aSubCase;
69   theTime                 = aTime;
70   theNbResultValues       = nbResults;
71   theResultReportFlag     = aResRepFlag;
72   theElementIdentifiers   = allElementIdents;
73   theElements             = allFiniteElems;
74   theElementTopologyTypes = allTopTypes;
75   theNbLayers             = nbLayers;
76   theDataLayerFlags       = allDataLayerFlags;
77   theNbResultDataLocs     = allnbResDataLocs;
78   theResultDataLocs       = allResDataLocs;
79   theResultData           = allResults;
80   InitTypeAndForm(148,FormNumber());
81 // FormNumber -> Type of the Results
82 }
83
84     void  IGESAppli_ElementResults::SetFormNumber (const Standard_Integer form)
85 {
86   if (form < 0 || form > 34) Standard_OutOfRange::Raise
87     ("IGESAppli_ElementResults : SetFormNumber");
88   InitTypeAndForm(148,form);
89 }
90
91
92     Handle(IGESDimen_GeneralNote)  IGESAppli_ElementResults::Note () const
93 {
94   return theNote;
95 }
96
97     Standard_Integer  IGESAppli_ElementResults::SubCaseNumber () const
98 {
99   return theSubcaseNumber;
100 }
101
102     Standard_Real  IGESAppli_ElementResults::Time () const
103 {
104   return theTime;
105 }
106
107     Standard_Integer  IGESAppli_ElementResults::NbResultValues () const
108 {
109   return theNbResultValues;
110 }
111
112     Standard_Integer  IGESAppli_ElementResults::ResultReportFlag () const
113 {
114   return theResultReportFlag;
115 }
116
117     Standard_Integer  IGESAppli_ElementResults::NbElements () const
118 {
119   return theElements->Length();
120 }
121
122     Standard_Integer  IGESAppli_ElementResults::ElementIdentifier
123   (const Standard_Integer Index) const
124 {
125   return theElementIdentifiers->Value(Index);
126 }
127
128     Handle(IGESAppli_FiniteElement)  IGESAppli_ElementResults::Element
129   (const Standard_Integer Index) const
130 {
131   return theElements->Value(Index);
132 }
133
134     Standard_Integer  IGESAppli_ElementResults::ElementTopologyType
135   (const Standard_Integer Index) const
136 {
137   return theElementTopologyTypes->Value(Index);
138 }
139
140     Standard_Integer  IGESAppli_ElementResults::NbLayers
141   (const Standard_Integer Index) const
142 {
143   return theNbLayers->Value(Index);
144 }
145
146     Standard_Integer  IGESAppli_ElementResults::DataLayerFlag
147   (const Standard_Integer Index) const
148 {
149   return theDataLayerFlags->Value(Index);
150 }
151
152     Standard_Integer  IGESAppli_ElementResults::NbResultDataLocs
153   (const Standard_Integer Index) const
154 {
155   return theNbResultDataLocs->Value(Index);
156 }
157
158 //  ?? VERIFIER
159
160     Standard_Integer  IGESAppli_ElementResults::ResultDataLoc
161   (const Standard_Integer NElem, const Standard_Integer NLoc) const
162 {
163   return theResultDataLocs->Value(NElem)->Value(NLoc);
164 }
165
166     Standard_Integer  IGESAppli_ElementResults::NbResults
167   (const Standard_Integer Index) const
168 {
169   return theResultData->Value(Index)->Length();
170 }
171
172     Standard_Real  IGESAppli_ElementResults::ResultData
173   (const Standard_Integer NElem, const Standard_Integer num) const
174 {
175   return theResultData->Value(NElem)->Value(num);
176 }
177
178     Standard_Integer  IGESAppli_ElementResults::ResultRank
179   (const Standard_Integer NElem, const Standard_Integer NVal,
180    const Standard_Integer NLay, const Standard_Integer NLoc) const
181 {
182   Standard_Integer num = NVal + theNbResultValues *
183     (NLay + theNbLayers->Value(NElem) * NLoc);
184   return num;
185 }
186
187     Standard_Real  IGESAppli_ElementResults::ResultData
188   (const Standard_Integer NElem, const Standard_Integer NVal,
189    const Standard_Integer NLay, const Standard_Integer NLoc) const
190 {
191   return theResultData->Value(NElem)->Value(ResultRank(NElem,NVal,NLay,NLoc));
192 }
193
194     Handle(TColStd_HArray1OfReal)  IGESAppli_ElementResults::ResultList
195   (const Standard_Integer NElem) const
196 {
197   return theResultData->Value(NElem);
198 }