]> SALOME platform Git repositories - modules/smesh.git/blob - src/DriverUNV/DriverUNV_R_SMDS_Mesh.cxx
Salome HOME
Cosmetic changes
[modules/smesh.git] / src / DriverUNV / DriverUNV_R_SMDS_Mesh.cxx
1 // Copyright (C) 2007-2020  CEA/DEN, EDF R&D, OPEN CASCADE
2 //
3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
5 //
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License, or (at your option) any later version.
10 //
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 // Lesser General Public License for more details.
15 //
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19 //
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
21 //
22
23 #include "DriverUNV_R_SMDS_Mesh.h"
24 #include "SMDS_Mesh.hxx"
25 #include "SMDS_MeshGroup.hxx"
26
27 #include "utilities.h"
28
29 #include "UNV164_Structure.hxx"
30 #include "UNV2411_Structure.hxx"
31 #include "UNV2412_Structure.hxx"
32 #include "UNV2417_Structure.hxx"
33 #include "UNV2420_Structure.hxx"
34 #include "UNV_Utilities.hxx"
35
36 #include <Basics_Utils.hxx>
37
38 using namespace std;
39
40
41 #ifdef _DEBUG_
42 static int MYDEBUG = 0;
43 #else
44 static int MYDEBUG = 0;
45 #endif
46
47 namespace
48 {
49   /*!
50    * \brief Move node coordinates to the global Cartesian CS
51    */
52   void transformNodes( UNV2411::TDataSet::const_iterator fromNode,
53                        UNV2411::TDataSet::const_iterator endNode,
54                        const UNV2420::TRecord &          csRecord )
55   {
56     const int csLabel = fromNode->exp_coord_sys_num;
57
58     UNV2411::TDataSet::const_iterator nodeIt;
59
60     // apply Transformation Matrix
61     if ( !csRecord.isIdentityMatrix() )
62     {
63       for ( nodeIt = fromNode; nodeIt != endNode; ++nodeIt )
64       {
65         const UNV2411::TRecord& nodeRec = *nodeIt;
66         if ( nodeRec.exp_coord_sys_num == csLabel )
67           csRecord.ApplyMatrix( (double*) nodeRec.coord );
68       }
69     }
70
71     // transform from Cylindrical CS
72     if ( csRecord.coord_sys_type == UNV2420::Cylindrical )
73     {
74       for ( nodeIt = fromNode; nodeIt != endNode; ++nodeIt )
75       {
76         const UNV2411::TRecord& nodeRec = *nodeIt;
77         if ( nodeRec.exp_coord_sys_num == csLabel )
78           csRecord.FromCylindricalCS( (double*) nodeRec.coord );
79       }
80     }
81     // transform from Spherical CS
82     else if ( csRecord.coord_sys_type == UNV2420::Spherical )
83     {
84       for ( nodeIt = fromNode; nodeIt != endNode; ++nodeIt )
85       {
86         const UNV2411::TRecord& nodeRec = *nodeIt;
87         if ( nodeRec.exp_coord_sys_num == csLabel )
88           csRecord.FromSphericalCS( (double*) nodeRec.coord );
89       }
90     }
91   }
92 }
93
94 DriverUNV_R_SMDS_Mesh::~DriverUNV_R_SMDS_Mesh()
95 {
96   TGroupNamesMap::iterator grp2name = myGroupNames.begin();
97   for ( ; grp2name != myGroupNames.end(); ++grp2name )
98     delete grp2name->first;
99 }
100
101 Driver_Mesh::Status DriverUNV_R_SMDS_Mesh::Perform()
102 {
103   Kernel_Utils::Localizer loc;
104   Status aResult = DRS_OK;
105 #if defined(WIN32) && defined(UNICODE)
106   std::wstring aFile = Kernel_Utils::utf8_decode_s(myFile);
107   std::ifstream in_stream(aFile.c_str());
108 #else
109   std::ifstream in_stream(myFile.c_str());
110 #endif
111   try
112   {
113     {
114       // Read Units
115       UNV164::TRecord aUnitsRecord;
116       UNV164::Read( in_stream, aUnitsRecord );
117
118       // Read Coordinate systems
119       UNV2420::TDataSet aCoordSysDataSet;
120       UNV2420::Read(in_stream, myMeshName, aCoordSysDataSet);
121
122       // Read nodes
123       using namespace UNV2411;
124       TDataSet aDataSet2411;
125       UNV2411::Read(in_stream,aDataSet2411);
126       if(MYDEBUG) MESSAGE("Perform - aDataSet2411.size() = "<<aDataSet2411.size());
127
128       // Move nodes in a global CS
129       if ( !aCoordSysDataSet.empty() )
130       {
131         UNV2420::TDataSet::const_iterator csIter = aCoordSysDataSet.begin();
132         for ( ; csIter != aCoordSysDataSet.end(); ++csIter )
133         {
134           // find any node in this CS
135           TDataSet::const_iterator nodeIter = aDataSet2411.begin();
136           for (; nodeIter != aDataSet2411.end(); nodeIter++)
137             if ( nodeIter->exp_coord_sys_num == csIter->coord_sys_label )
138             {
139               transformNodes( nodeIter, aDataSet2411.end(), *csIter );
140               break;
141             }
142         }
143       }
144       // Move nodes to SI unit system
145       const double lenFactor = aUnitsRecord.factors[ UNV164::LENGTH_FACTOR ];
146       if ( lenFactor != 1. )
147       {
148         TDataSet::iterator nodeIter = aDataSet2411.begin(), nodeEnd;
149         for ( nodeEnd = aDataSet2411.end(); nodeIter != nodeEnd; nodeIter++)
150         {
151           UNV2411::TRecord& nodeRec = *nodeIter;
152           nodeRec.coord[0] *= lenFactor;
153           nodeRec.coord[1] *= lenFactor;
154           nodeRec.coord[2] *= lenFactor;
155         }
156       }
157
158       // Create nodes in the mesh
159       TDataSet::const_iterator anIter = aDataSet2411.begin();
160       for(; anIter != aDataSet2411.end(); anIter++)
161       {
162         const TRecord& aRec = *anIter;
163         myMesh->AddNodeWithID(aRec.coord[0],aRec.coord[1],aRec.coord[2],aRec.label);
164       }
165     }
166     {
167       using namespace UNV2412;
168       TDataSet aDataSet2412;
169       UNV2412::Read(in_stream,aDataSet2412);
170       TDataSet::const_iterator anIter = aDataSet2412.begin();
171       if(MYDEBUG) MESSAGE("Perform - aDataSet2412.size() = "<<aDataSet2412.size());
172       for(; anIter != aDataSet2412.end(); anIter++)
173       {
174         SMDS_MeshElement* anElement = NULL;
175         const TRecord& aRec = *anIter;
176         if(IsBeam(aRec.fe_descriptor_id)) {
177           switch ( aRec.node_labels.size() ) {
178           case 2: // edge with two nodes
179             //MESSAGE("add edge " << aLabel << " " << aRec.node_labels[0] << " " << aRec.node_labels[1]);
180             anElement = myMesh->AddEdgeWithID(aRec.node_labels[0],
181                                               aRec.node_labels[1],
182                                               aRec.label);
183             break;
184           case 3: // quadratic edge (with 3 nodes)
185             //MESSAGE("add edge " << aRec.label << " " << aRec.node_labels[0] << " " << aRec.node_labels[1] << " " << aRec.node_labels[2]);
186             anElement = myMesh->AddEdgeWithID(aRec.node_labels[0],
187                                               aRec.node_labels[2],
188                                               aRec.node_labels[1],
189                                               aRec.label);
190           }
191         }
192         else if(IsFace(aRec.fe_descriptor_id)) {
193           //MESSAGE("add face " << aRec.label);
194           switch(aRec.fe_descriptor_id){
195           case 41: // Plane Stress Linear Triangle
196           case 51: // Plane Strain Linear Triangle
197           case 61: // Plate Linear Triangle
198           case 74: // Membrane Linear Triangle
199           case 81: // Axisymmetric Solid Linear Triangle
200           case 91: // Thin Shell Linear Triangle
201             anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
202                                               aRec.node_labels[1],
203                                               aRec.node_labels[2],
204                                               aRec.label);
205             break;
206
207           case 42: //  Plane Stress Parabolic Triangle
208           case 52: //  Plane Strain Parabolic Triangle
209           case 62: //  Plate Parabolic Triangle
210           case 72: //  Membrane Parabolic Triangle
211           case 82: //  Axisymmetric Solid Parabolic Triangle
212           case 92: //  Thin Shell Parabolic Triangle
213             if ( aRec.node_labels.size() == 7 )
214               anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
215                                                 aRec.node_labels[2],
216                                                 aRec.node_labels[4],
217                                                 aRec.node_labels[1],
218                                                 aRec.node_labels[3],
219                                                 aRec.node_labels[5],
220                                                 aRec.node_labels[6],
221                                                 aRec.label);
222             else
223               anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
224                                                 aRec.node_labels[2],
225                                                 aRec.node_labels[4],
226                                                 aRec.node_labels[1],
227                                                 aRec.node_labels[3],
228                                                 aRec.node_labels[5],
229                                                 aRec.label);
230             break;
231
232           case 44: // Plane Stress Linear Quadrilateral
233           case 54: // Plane Strain Linear Quadrilateral
234           case 64: // Plate Linear Quadrilateral
235           case 71: // Membrane Linear Quadrilateral
236           case 84: // Axisymmetric Solid Linear Quadrilateral
237           case 94: // Thin Shell Linear Quadrilateral
238             anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
239                                               aRec.node_labels[1],
240                                               aRec.node_labels[2],
241                                               aRec.node_labels[3],
242                                               aRec.label);
243             break;
244
245           case 45: // Plane Stress Parabolic Quadrilateral
246           case 55: // Plane Strain Parabolic Quadrilateral
247           case 65: // Plate Parabolic Quadrilateral
248           case 75: // Membrane Parabolic Quadrilateral
249           case 85: // Axisymmetric Solid Parabolic Quadrilateral
250           case 95: // Thin Shell Parabolic Quadrilateral
251             if ( aRec.node_labels.size() == 9 )
252               anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
253                                                 aRec.node_labels[2],
254                                                 aRec.node_labels[4],
255                                                 aRec.node_labels[6],
256                                                 aRec.node_labels[1],
257                                                 aRec.node_labels[3],
258                                                 aRec.node_labels[5],
259                                                 aRec.node_labels[7],
260                                                 aRec.node_labels[8],
261                                                 aRec.label);
262             else
263               anElement = myMesh->AddFaceWithID(aRec.node_labels[0],
264                                                 aRec.node_labels[2],
265                                                 aRec.node_labels[4],
266                                                 aRec.node_labels[6],
267                                                 aRec.node_labels[1],
268                                                 aRec.node_labels[3],
269                                                 aRec.node_labels[5],
270                                                 aRec.node_labels[7],
271                                                 aRec.label);
272             break;
273           }
274         }
275         else if(IsVolume(aRec.fe_descriptor_id)){
276           //MESSAGE("add volume " << aRec.label);
277           switch(aRec.fe_descriptor_id){
278
279           case 111: // Solid Linear Tetrahedron - TET4
280             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
281                                                 aRec.node_labels[2],
282                                                 aRec.node_labels[1],
283                                                 aRec.node_labels[3],
284                                                 aRec.label);
285             break;
286
287           case 118: // Solid Quadratic Tetrahedron - TET10
288             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
289                                                 aRec.node_labels[4],
290                                                 aRec.node_labels[2],
291
292                                                 aRec.node_labels[9],
293
294                                                 aRec.node_labels[5],
295                                                 aRec.node_labels[3],
296                                                 aRec.node_labels[1],
297
298                                                 aRec.node_labels[6],
299                                                 aRec.node_labels[8],
300                                                 aRec.node_labels[7],
301                                                 aRec.label);
302             break;
303
304           case 112: // Solid Linear Prism - PRISM6
305             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
306                                                 aRec.node_labels[2],
307                                                 aRec.node_labels[1],
308                                                 aRec.node_labels[3],
309                                                 aRec.node_labels[5],
310                                                 aRec.node_labels[4],
311                                                 aRec.label);
312             break;
313
314           case 113: // Solid Quadratic Prism - PRISM15
315             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
316                                                 aRec.node_labels[4],
317                                                 aRec.node_labels[2],
318
319                                                 aRec.node_labels[9],
320                                                 aRec.node_labels[13],
321                                                 aRec.node_labels[11],
322
323                                                 aRec.node_labels[5],
324                                                 aRec.node_labels[3],
325                                                 aRec.node_labels[1],
326
327                                                 aRec.node_labels[14],
328                                                 aRec.node_labels[12],
329                                                 aRec.node_labels[10],
330
331                                                 aRec.node_labels[6],
332                                                 aRec.node_labels[8],
333                                                 aRec.node_labels[7],
334                                                 aRec.label);
335             break;
336
337           case 115: // Solid Linear Brick - HEX8
338             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
339                                                 aRec.node_labels[3],
340                                                 aRec.node_labels[2],
341                                                 aRec.node_labels[1],
342                                                 aRec.node_labels[4],
343                                                 aRec.node_labels[7],
344                                                 aRec.node_labels[6],
345                                                 aRec.node_labels[5],
346                                                 aRec.label);
347             break;
348
349           case 116: // Solid Quadratic Brick - HEX20
350             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
351                                                 aRec.node_labels[6],
352                                                 aRec.node_labels[4],
353                                                 aRec.node_labels[2],
354
355                                                 aRec.node_labels[12],
356                                                 aRec.node_labels[18],
357                                                 aRec.node_labels[16],
358                                                 aRec.node_labels[14],
359
360                                                 aRec.node_labels[7],
361                                                 aRec.node_labels[5],
362                                                 aRec.node_labels[3],
363                                                 aRec.node_labels[1],
364
365                                                 aRec.node_labels[19],
366                                                 aRec.node_labels[17],
367                                                 aRec.node_labels[15],
368                                                 aRec.node_labels[13],
369
370                                                 aRec.node_labels[8],
371                                                 aRec.node_labels[11],
372                                                 aRec.node_labels[10],
373                                                 aRec.node_labels[9],
374                                                 aRec.label);
375             break;
376
377           case 114: // pyramid of 13 nodes (quadratic) - PIRA13
378             anElement = myMesh->AddVolumeWithID(aRec.node_labels[0],
379                                                 aRec.node_labels[6],
380                                                 aRec.node_labels[4],
381                                                 aRec.node_labels[2],
382
383                                                 aRec.node_labels[12],
384
385                                                 aRec.node_labels[7],
386                                                 aRec.node_labels[5],
387                                                 aRec.node_labels[3],
388                                                 aRec.node_labels[1],
389
390                                                 aRec.node_labels[8],
391                                                 aRec.node_labels[11],
392                                                 aRec.node_labels[10],
393                                                 aRec.node_labels[9],
394                                                 aRec.label);
395             break;
396
397           }
398         }
399         if(!anElement)
400           MESSAGE("DriverUNV_R_SMDS_Mesh::Perform - can not add element with ID = "<<aRec.label<<" and type = "<<aRec.fe_descriptor_id);
401       }
402     }
403     {
404       using namespace UNV2417;
405       TDataSet aDataSet2417;
406       UNV2417::Read(in_stream,aDataSet2417);
407       if(MYDEBUG) MESSAGE("Perform - aDataSet2417.size() = "<<aDataSet2417.size());
408       if (aDataSet2417.size() > 0)
409       {
410         TDataSet::const_iterator anIter = aDataSet2417.begin();
411         for ( ; anIter != aDataSet2417.end(); anIter++ )
412         {
413           const TRecord& aRec = anIter->second;
414           int        aNodesNb = aRec.NodeList.size();
415           int     aElementsNb = aRec.ElementList.size();
416
417           bool useSuffix = ((aNodesNb > 0) && (aElementsNb > 0));
418           if ( aNodesNb > 0 )
419           {
420             SMDS_MeshGroup* aNodesGroup = new SMDS_MeshGroup( myMesh );
421             std::string aGrName = (useSuffix) ? aRec.GroupName + "_Nodes" : aRec.GroupName;
422             int i = aGrName.find( "\r" );
423             if (i > 0)
424               aGrName.erase (i, 2);
425             myGroupNames.insert( std::make_pair( aNodesGroup, aGrName ));
426
427             for ( int i = 0; i < aNodesNb; i++ )
428               if ( const SMDS_MeshNode* aNode = myMesh->FindNode( aRec.NodeList[i] ))
429                 aNodesGroup->Add( aNode );
430           }
431           if ( aElementsNb > 0 )
432           {
433             std::vector< SMDS_MeshGroup* > aGroupVec( SMDSAbs_NbElementTypes, (SMDS_MeshGroup*)0 );
434             const char* aSuffix[] = { "", "", "_Edges", "_Faces", "_Volumes", "_0D", "_Balls" };
435             bool createdGroup = false;
436             for ( int i = 0; i < aElementsNb; i++)
437             {
438               const SMDS_MeshElement* aElement = myMesh->FindElement( aRec.ElementList[i] );
439               if ( !aElement ) continue;
440
441               SMDS_MeshGroup * & aGroup = aGroupVec[ aElement->GetType() ];
442               if ( !aGroup )
443               {
444                 aGroup = new SMDS_MeshGroup( myMesh );
445                 if (!useSuffix && createdGroup) useSuffix = true;
446                 std::string aGrName = aRec.GroupName;
447                 int i = aGrName.find( "\r" );
448                 if ( i > 0 )
449                   aGrName.erase (i, 2);
450                 if ( useSuffix )
451                   aGrName += aSuffix[ aElement->GetType() ];
452                 myGroupNames.insert( std::make_pair( aGroup, aGrName ));
453                 createdGroup = true;
454               }
455               aGroup->Add(aElement);
456             }
457           }
458         }
459       }
460     }
461   }
462   catch(const std::exception& exc){
463     INFOS("Follow exception was cought:\n\t"<<exc.what());
464   }
465   catch(...){
466     INFOS("Unknown exception was cought !!!");
467   }
468   if (myMesh)
469   {
470     myMesh->Modified();
471     myMesh->CompactMesh();
472   }
473   return aResult;
474 }