Salome HOME
Improvement of extrusion functionality
[modules/smesh.git] / src / SMESH / SMESH_MeshEditor.cxx
1 //  SMESH SMESH : idl implementation based on 'SMESH' unit's classes
2 //
3 //  Copyright (C) 2003  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.
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.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org
21 //
22 //
23 //
24 // File      : SMESH_MeshEditor.cxx
25 // Created   : Mon Apr 12 16:10:22 2004
26 // Author    : Edward AGAPOV (eap)
27
28
29 #include "SMESH_MeshEditor.hxx"
30
31 #include "SMDS_FaceOfNodes.hxx"
32 #include "SMDS_VolumeTool.hxx"
33 #include "SMDS_EdgePosition.hxx"
34 #include "SMDS_PolyhedralVolumeOfNodes.hxx"
35 #include "SMDS_FacePosition.hxx"
36 #include "SMDS_SpacePosition.hxx"
37
38 #include "SMESHDS_Group.hxx"
39 #include "SMESHDS_Mesh.hxx"
40
41 #include "SMESH_subMesh.hxx"
42 #include "SMESH_ControlsDef.hxx"
43
44 #include "utilities.h"
45
46 #include <TopTools_ListIteratorOfListOfShape.hxx>
47 #include <TopTools_ListOfShape.hxx>
48 #include <math.h>
49 #include <gp_Dir.hxx>
50 #include <gp_Vec.hxx>
51 #include <gp_Ax1.hxx>
52 #include <gp_Trsf.hxx>
53 #include <gp_Lin.hxx>
54 #include <gp_XYZ.hxx>
55 #include <gp_XY.hxx>
56 #include <gp.hxx>
57 #include <gp_Pln.hxx>
58 #include <BRep_Tool.hxx>
59 #include <Geom_Curve.hxx>
60 #include <Geom_Surface.hxx>
61 #include <Geom2d_Curve.hxx>
62 #include <Extrema_GenExtPS.hxx>
63 #include <Extrema_POnSurf.hxx>
64 #include <GeomAdaptor_Surface.hxx>
65 #include <ElCLib.hxx>
66 #include <TColStd_ListOfInteger.hxx>
67
68 #include <map>
69
70 using namespace std;
71 using namespace SMESH::Controls;
72
73 typedef map<const SMDS_MeshNode*, const SMDS_MeshNode*>              TNodeNodeMap;
74 typedef map<const SMDS_MeshElement*, list<const SMDS_MeshNode*> >    TElemOfNodeListMap;
75 typedef map<const SMDS_MeshElement*, list<const SMDS_MeshElement*> > TElemOfElemListMap;
76 typedef map<const SMDS_MeshNode*, list<const SMDS_MeshNode*> >       TNodeOfNodeListMap;
77 typedef TNodeOfNodeListMap::iterator                                 TNodeOfNodeListMapItr;
78 typedef map<const SMDS_MeshElement*, vector<TNodeOfNodeListMapItr> > TElemOfVecOfNnlmiMap;
79
80
81 //=======================================================================
82 //function : SMESH_MeshEditor
83 //purpose  :
84 //=======================================================================
85
86 SMESH_MeshEditor::SMESH_MeshEditor( SMESH_Mesh* theMesh ):
87 myMesh( theMesh )
88 {
89 }
90
91 //=======================================================================
92 //function : Remove
93 //purpose  : Remove a node or an element.
94 //           Modify a compute state of sub-meshes which become empty
95 //=======================================================================
96
97 bool SMESH_MeshEditor::Remove (const list< int >& theIDs,
98                                const bool         isNodes )
99 {
100
101   SMESHDS_Mesh* aMesh = GetMeshDS();
102   set< SMESH_subMesh *> smmap;
103
104   list<int>::const_iterator it = theIDs.begin();
105   for ( ; it != theIDs.end(); it++ )
106   {
107     const SMDS_MeshElement * elem;
108     if ( isNodes )
109       elem = aMesh->FindNode( *it );
110     else
111       elem = aMesh->FindElement( *it );
112     if ( !elem )
113       continue;
114
115     // Find sub-meshes to notify about modification
116     SMDS_ElemIteratorPtr nodeIt = elem->nodesIterator();
117     while ( nodeIt->more() )
118     {
119       const SMDS_MeshNode* node = static_cast<const SMDS_MeshNode*>( nodeIt->next() );
120       const SMDS_PositionPtr& aPosition = node->GetPosition();
121       if ( aPosition.get() ) {
122         int aShapeID = aPosition->GetShapeId();
123         if ( aShapeID ) {
124           TopoDS_Shape aShape = aMesh->IndexToShape( aShapeID );
125           SMESH_subMesh * sm = GetMesh()->GetSubMeshContaining( aShape );
126           if ( sm )
127             smmap.insert( sm );
128         }
129       }
130     }
131
132     // Do remove
133     if ( isNodes )
134       aMesh->RemoveNode( static_cast< const SMDS_MeshNode* >( elem ));
135     else
136       aMesh->RemoveElement( elem );
137   }
138
139   // Notify sub-meshes about modification
140   if ( !smmap.empty() ) {
141     set< SMESH_subMesh *>::iterator smIt;
142     for ( smIt = smmap.begin(); smIt != smmap.end(); smIt++ )
143       (*smIt)->ComputeStateEngine( SMESH_subMesh::MESH_ENTITY_REMOVED );
144   }
145   return true;
146 }
147
148 //=======================================================================
149 //function : FindShape
150 //purpose  : Return an index of the shape theElem is on
151 //           or zero if a shape not found
152 //=======================================================================
153
154 int SMESH_MeshEditor::FindShape (const SMDS_MeshElement * theElem)
155 {
156   SMESHDS_Mesh * aMesh = GetMeshDS();
157   if ( aMesh->ShapeToMesh().IsNull() )
158     return 0;
159
160   if ( theElem->GetType() == SMDSAbs_Node )
161   {
162     const SMDS_PositionPtr& aPosition =
163       static_cast<const SMDS_MeshNode*>( theElem )->GetPosition();
164     if ( aPosition.get() )
165       return aPosition->GetShapeId();
166     else
167       return 0;
168   }
169
170   TopoDS_Shape aShape; // the shape a node is on
171   SMDS_ElemIteratorPtr nodeIt = theElem->nodesIterator();
172   while ( nodeIt->more() )
173   {
174     const SMDS_MeshNode* node = static_cast<const SMDS_MeshNode*>( nodeIt->next() );
175     const SMDS_PositionPtr& aPosition = node->GetPosition();
176     if ( aPosition.get() ) {
177         int aShapeID = aPosition->GetShapeId();
178         SMESHDS_SubMesh * sm = aMesh->MeshElements( aShapeID );
179         if ( sm )
180         {
181           if ( sm->Contains( theElem ))
182             return aShapeID;
183           if ( aShape.IsNull() )
184             aShape = aMesh->IndexToShape( aShapeID );
185         }
186         else
187         {
188           //MESSAGE ( "::FindShape() No SubShape for aShapeID " << aShapeID );
189         }
190       }
191   }
192
193   // None of nodes is on a proper shape,
194   // find the shape among ancestors of aShape on which a node is
195   if ( aShape.IsNull() ) {
196     //MESSAGE ("::FindShape() - NONE node is on shape")
197     return 0;
198   }
199   TopTools_ListIteratorOfListOfShape ancIt( GetMesh()->GetAncestors( aShape ));
200   for ( ; ancIt.More(); ancIt.Next() )
201   {
202       SMESHDS_SubMesh * sm = aMesh->MeshElements( ancIt.Value() );
203       if ( sm && sm->Contains( theElem ))
204         return aMesh->ShapeToIndex( ancIt.Value() );
205   }
206
207   //MESSAGE ("::FindShape() - SHAPE NOT FOUND")
208   return 0;
209 }
210
211 //=======================================================================
212 //function : InverseDiag
213 //purpose  : Replace two neighbour triangles with ones built on the same 4 nodes
214 //           but having other common link.
215 //           Return False if args are improper
216 //=======================================================================
217
218 bool SMESH_MeshEditor::InverseDiag (const SMDS_MeshElement * theTria1,
219                                     const SMDS_MeshElement * theTria2 )
220 {
221   if (!theTria1 || !theTria2)
222     return false;
223   const SMDS_FaceOfNodes* F1 = dynamic_cast<const SMDS_FaceOfNodes*>( theTria1 );
224   if (!F1) return false;
225   const SMDS_FaceOfNodes* F2 = dynamic_cast<const SMDS_FaceOfNodes*>( theTria2 );
226   if (!F2) return false;
227
228   //  1 +--+ A  theTria1: ( 1 A B ) A->2 ( 1 2 B ) 1 +--+ A
229   //    | /|    theTria2: ( B A 2 ) B->1 ( 1 A 2 )   |\ |
230   //    |/ |                                         | \|
231   //  B +--+ 2                                     B +--+ 2
232
233   // put nodes in array and find out indices of the same ones
234   const SMDS_MeshNode* aNodes [6];
235   int sameInd [] = { 0, 0, 0, 0, 0, 0 };
236   int i = 0;
237   SMDS_ElemIteratorPtr it = theTria1->nodesIterator();
238   while ( it->more() )
239   {
240     aNodes[ i ] = static_cast<const SMDS_MeshNode*>( it->next() );
241
242     if ( i > 2 ) // theTria2
243       // find same node of theTria1
244       for ( int j = 0; j < 3; j++ )
245         if ( aNodes[ i ] == aNodes[ j ]) {
246           sameInd[ j ] = i;
247           sameInd[ i ] = j;
248           break;
249         }
250     // next
251     i++;
252     if ( i == 3 ) {
253       if ( it->more() )
254         return false; // theTria1 is not a triangle
255       it = theTria2->nodesIterator();
256     }
257     if ( i == 6 && it->more() )
258       return false; // theTria2 is not a triangle
259   }
260
261   // find indices of 1,2 and of A,B in theTria1
262   int iA = 0, iB = 0, i1 = 0, i2 = 0;
263   for ( i = 0; i < 6; i++ )
264   {
265     if ( sameInd [ i ] == 0 )
266       if ( i < 3 ) i1 = i;
267       else         i2 = i;
268     else if (i < 3)
269       if ( iA ) iB = i;
270       else      iA = i;
271   }
272   // nodes 1 and 2 should not be the same
273   if ( aNodes[ i1 ] == aNodes[ i2 ] )
274     return false;
275
276
277   // theTria1: A->2
278   aNodes[ iA ] = aNodes[ i2 ];
279   // theTria2: B->1
280   aNodes[ sameInd[ iB ]] = aNodes[ i1 ];
281
282   //MESSAGE( theTria1 << theTria2 );
283
284   GetMeshDS()->ChangeElementNodes( theTria1, aNodes, 3 );
285   GetMeshDS()->ChangeElementNodes( theTria2, &aNodes[ 3 ], 3 );
286
287   //MESSAGE( theTria1 << theTria2 );
288
289   return true;
290 }
291
292 //=======================================================================
293 //function : findTriangles
294 //purpose  : find triangles sharing theNode1-theNode2 link
295 //=======================================================================
296
297 static bool findTriangles(const SMDS_MeshNode *    theNode1,
298                           const SMDS_MeshNode *    theNode2,
299                           const SMDS_MeshElement*& theTria1,
300                           const SMDS_MeshElement*& theTria2)
301 {
302   if ( !theNode1 || !theNode2 ) return false;
303
304   theTria1 = theTria2 = 0;
305
306   set< const SMDS_MeshElement* > emap;
307   SMDS_ElemIteratorPtr it = theNode1->GetInverseElementIterator();
308   while (it->more()) {
309     const SMDS_MeshElement* elem = it->next();
310     if ( elem->GetType() == SMDSAbs_Face && elem->NbNodes() == 3 )
311       emap.insert( elem );
312   }
313   it = theNode2->GetInverseElementIterator();
314   while (it->more()) {
315     const SMDS_MeshElement* elem = it->next();
316     if ( elem->GetType() == SMDSAbs_Face &&
317          emap.find( elem ) != emap.end() )
318       if ( theTria1 ) {
319         theTria2 = elem;
320         break;
321       } else {
322         theTria1 = elem;
323       }
324   }
325   return ( theTria1 && theTria2 );
326 }
327
328 //=======================================================================
329 //function : InverseDiag
330 //purpose  : Replace two neighbour triangles sharing theNode1-theNode2 link
331 //           with ones built on the same 4 nodes but having other common link.
332 //           Return false if proper faces not found
333 //=======================================================================
334
335 bool SMESH_MeshEditor::InverseDiag (const SMDS_MeshNode * theNode1,
336                                     const SMDS_MeshNode * theNode2)
337 {
338   MESSAGE( "::InverseDiag()" );
339
340   const SMDS_MeshElement *tr1, *tr2;
341   if ( !findTriangles( theNode1, theNode2, tr1, tr2 ))
342     return false;
343
344   const SMDS_FaceOfNodes* F1 = dynamic_cast<const SMDS_FaceOfNodes*>( tr1 );
345   if (!F1) return false;
346   const SMDS_FaceOfNodes* F2 = dynamic_cast<const SMDS_FaceOfNodes*>( tr2 );
347   if (!F2) return false;
348
349   //  1 +--+ A  tr1: ( 1 A B ) A->2 ( 1 2 B ) 1 +--+ A
350   //    | /|    tr2: ( B A 2 ) B->1 ( 1 A 2 )   |\ |
351   //    |/ |                                    | \|
352   //  B +--+ 2                                B +--+ 2
353
354   // put nodes in array
355   // and find indices of 1,2 and of A in tr1 and of B in tr2
356   int i, iA1 = 0, i1 = 0;
357   const SMDS_MeshNode* aNodes1 [3];
358   SMDS_ElemIteratorPtr it;
359   for (i = 0, it = tr1->nodesIterator(); it->more(); i++ ) {
360     aNodes1[ i ] = static_cast<const SMDS_MeshNode*>( it->next() );
361     if ( aNodes1[ i ] == theNode1 )
362       iA1 = i; // node A in tr1
363     else if ( aNodes1[ i ] != theNode2 )
364       i1 = i;  // node 1
365   }
366   int iB2 = 0, i2 = 0;
367   const SMDS_MeshNode* aNodes2 [3];
368   for (i = 0, it = tr2->nodesIterator(); it->more(); i++ ) {
369     aNodes2[ i ] = static_cast<const SMDS_MeshNode*>( it->next() );
370     if ( aNodes2[ i ] == theNode2 )
371       iB2 = i; // node B in tr2
372     else if ( aNodes2[ i ] != theNode1 )
373       i2 = i;  // node 2
374   }
375
376   // nodes 1 and 2 should not be the same
377   if ( aNodes1[ i1 ] == aNodes2[ i2 ] )
378     return false;
379
380   // tr1: A->2
381   aNodes1[ iA1 ] = aNodes2[ i2 ];
382   // tr2: B->1
383   aNodes2[ iB2 ] = aNodes1[ i1 ];
384
385   //MESSAGE( tr1 << tr2 );
386
387   GetMeshDS()->ChangeElementNodes( tr1, aNodes1, 3 );
388   GetMeshDS()->ChangeElementNodes( tr2, aNodes2, 3 );
389
390   //MESSAGE( tr1 << tr2 );
391
392   return true;
393
394 }
395
396 //=======================================================================
397 //function : getQuadrangleNodes
398 //purpose  : fill theQuadNodes - nodes of a quadrangle resulting from
399 //           fusion of triangles tr1 and tr2 having shared link on
400 //           theNode1 and theNode2
401 //=======================================================================
402
403 bool getQuadrangleNodes(const SMDS_MeshNode *    theQuadNodes [],
404                         const SMDS_MeshNode *    theNode1,
405                         const SMDS_MeshNode *    theNode2,
406                         const SMDS_MeshElement * tr1,
407                         const SMDS_MeshElement * tr2 )
408 {
409   // find the 4-th node to insert into tr1
410   const SMDS_MeshNode* n4 = 0;
411   SMDS_ElemIteratorPtr it = tr2->nodesIterator();
412   while ( !n4 && it->more() )
413   {
414     const SMDS_MeshNode * n = static_cast<const SMDS_MeshNode*>( it->next() );
415     bool isDiag = ( n == theNode1 || n == theNode2 );
416     if ( !isDiag )
417       n4 = n;
418   }
419   // Make an array of nodes to be in a quadrangle
420   int iNode = 0, iFirstDiag = -1;
421   it = tr1->nodesIterator();
422   while ( it->more() )
423   {
424     const SMDS_MeshNode * n = static_cast<const SMDS_MeshNode*>( it->next() );
425     bool isDiag = ( n == theNode1 || n == theNode2 );
426     if ( isDiag )
427     {
428       if ( iFirstDiag < 0 )
429         iFirstDiag = iNode;
430       else if ( iNode - iFirstDiag == 1 )
431         theQuadNodes[ iNode++ ] = n4; // insert the 4-th node between diagonal nodes
432     }
433     else if ( n == n4 )
434     {
435       return false; // tr1 and tr2 should not have all the same nodes
436     }
437     theQuadNodes[ iNode++ ] = n;
438   }
439   if ( iNode == 3 ) // diagonal nodes have 0 and 2 indices
440     theQuadNodes[ iNode ] = n4;
441
442   return true;
443 }
444
445 //=======================================================================
446 //function : DeleteDiag
447 //purpose  : Replace two neighbour triangles sharing theNode1-theNode2 link
448 //           with a quadrangle built on the same 4 nodes.
449 //           Return false if proper faces not found
450 //=======================================================================
451
452 bool SMESH_MeshEditor::DeleteDiag (const SMDS_MeshNode * theNode1,
453                                    const SMDS_MeshNode * theNode2)
454 {
455   MESSAGE( "::DeleteDiag()" );
456
457   const SMDS_MeshElement *tr1, *tr2;
458   if ( !findTriangles( theNode1, theNode2, tr1, tr2 ))
459     return false;
460
461   const SMDS_FaceOfNodes* F1 = dynamic_cast<const SMDS_FaceOfNodes*>( tr1 );
462   if (!F1) return false;
463   const SMDS_FaceOfNodes* F2 = dynamic_cast<const SMDS_FaceOfNodes*>( tr2 );
464   if (!F2) return false;
465
466   const SMDS_MeshNode* aNodes [ 4 ];
467   if ( ! getQuadrangleNodes( aNodes, theNode1, theNode2, tr1, tr2 ))
468     return false;
469
470   //MESSAGE( endl << tr1 << tr2 );
471
472   GetMeshDS()->ChangeElementNodes( tr1, aNodes, 4 );
473   GetMeshDS()->RemoveElement( tr2 );
474
475   //MESSAGE( endl << tr1 );
476
477   return true;
478 }
479
480 //=======================================================================
481 //function : Reorient
482 //purpose  : Reverse theElement orientation
483 //=======================================================================
484
485 bool SMESH_MeshEditor::Reorient (const SMDS_MeshElement * theElem)
486 {
487   if (!theElem)
488     return false;
489   SMDS_ElemIteratorPtr it = theElem->nodesIterator();
490   if ( !it || !it->more() )
491     return false;
492
493   switch ( theElem->GetType() ) {
494
495   case SMDSAbs_Edge:
496   case SMDSAbs_Face:
497   {
498     int i = theElem->NbNodes();
499     vector<const SMDS_MeshNode*> aNodes( i );
500     while ( it->more() )
501       aNodes[ --i ]= static_cast<const SMDS_MeshNode*>( it->next() );
502     return GetMeshDS()->ChangeElementNodes( theElem, &aNodes[0], theElem->NbNodes() );
503   }
504   case SMDSAbs_Volume:
505   {
506     if (theElem->IsPoly()) {
507       const SMDS_PolyhedralVolumeOfNodes* aPolyedre =
508         static_cast<const SMDS_PolyhedralVolumeOfNodes*>( theElem );
509       if (!aPolyedre) {
510         MESSAGE("Warning: bad volumic element");
511         return false;
512       }
513
514       int nbFaces = aPolyedre->NbFaces();
515       vector<const SMDS_MeshNode *> poly_nodes;
516       vector<int> quantities (nbFaces);
517
518       // reverse each face of the polyedre
519       for (int iface = 1; iface <= nbFaces; iface++) {
520         int inode, nbFaceNodes = aPolyedre->NbFaceNodes(iface);
521         quantities[iface - 1] = nbFaceNodes;
522
523         for (inode = nbFaceNodes; inode >= 1; inode--) {
524           const SMDS_MeshNode* curNode = aPolyedre->GetFaceNode(iface, inode);
525           poly_nodes.push_back(curNode);
526         }
527       }
528
529       return GetMeshDS()->ChangePolyhedronNodes( theElem, poly_nodes, quantities );
530
531     } else {
532       SMDS_VolumeTool vTool;
533       if ( !vTool.Set( theElem ))
534         return false;
535       vTool.Inverse();
536       return GetMeshDS()->ChangeElementNodes( theElem, vTool.GetNodes(), vTool.NbNodes() );
537     }
538   }
539   default:;
540   }
541
542   return false;
543 }
544
545 //=======================================================================
546 //function : getBadRate
547 //purpose  :
548 //=======================================================================
549
550 static double getBadRate (const SMDS_MeshElement*               theElem,
551                           SMESH::Controls::NumericalFunctorPtr& theCrit)
552 {
553   SMESH::Controls::TSequenceOfXYZ P;
554   if ( !theElem || !theCrit->GetPoints( theElem, P ))
555     return 1e100;
556   return theCrit->GetBadRate( theCrit->GetValue( P ), theElem->NbNodes() );
557   //return theCrit->GetBadRate( theCrit->GetValue( theElem->GetID() ), theElem->NbNodes() );
558 }
559
560 //=======================================================================
561 //function : QuadToTri
562 //purpose  : Cut quadrangles into triangles.
563 //           theCrit is used to select a diagonal to cut
564 //=======================================================================
565
566 bool SMESH_MeshEditor::QuadToTri (set<const SMDS_MeshElement*> &       theElems,
567                                   SMESH::Controls::NumericalFunctorPtr theCrit)
568 {
569   MESSAGE( "::QuadToTri()" );
570
571   if ( !theCrit.get() )
572     return false;
573
574   SMESHDS_Mesh * aMesh = GetMeshDS();
575
576   set< const SMDS_MeshElement * >::iterator itElem;
577   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
578   {
579     const SMDS_MeshElement* elem = (*itElem);
580     if ( !elem || elem->GetType() != SMDSAbs_Face || elem->NbNodes() != 4 )
581       continue;
582
583     // retrieve element nodes
584     const SMDS_MeshNode* aNodes [4];
585     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
586     int i = 0;
587     while ( itN->more() )
588       aNodes[ i++ ] = static_cast<const SMDS_MeshNode*>( itN->next() );
589
590     // compare two sets of possible triangles
591     double aBadRate1, aBadRate2; // to what extent a set is bad
592     SMDS_FaceOfNodes tr1 ( aNodes[0], aNodes[1], aNodes[2] );
593     SMDS_FaceOfNodes tr2 ( aNodes[2], aNodes[3], aNodes[0] );
594     aBadRate1 = getBadRate( &tr1, theCrit ) + getBadRate( &tr2, theCrit );
595
596     SMDS_FaceOfNodes tr3 ( aNodes[1], aNodes[2], aNodes[3] );
597     SMDS_FaceOfNodes tr4 ( aNodes[3], aNodes[0], aNodes[1] );
598     aBadRate2 = getBadRate( &tr3, theCrit ) + getBadRate( &tr4, theCrit );
599
600     int aShapeId = FindShape( elem );
601     //MESSAGE( "aBadRate1 = " << aBadRate1 << "; aBadRate2 = " << aBadRate2
602       //      << " ShapeID = " << aShapeId << endl << elem );
603
604     if ( aBadRate1 <= aBadRate2 ) {
605       // tr1 + tr2 is better
606       aMesh->ChangeElementNodes( elem, aNodes, 3 );
607       //MESSAGE( endl << elem );
608
609       elem = aMesh->AddFace( aNodes[2], aNodes[3], aNodes[0] );
610     }
611     else {
612       // tr3 + tr4 is better
613       aMesh->ChangeElementNodes( elem, &aNodes[1], 3 );
614       //MESSAGE( endl << elem );
615
616       elem = aMesh->AddFace( aNodes[3], aNodes[0], aNodes[1] );
617     }
618     //MESSAGE( endl << elem );
619
620     // put a new triangle on the same shape
621     if ( aShapeId )
622       aMesh->SetMeshElementOnShape( elem, aShapeId );
623   }
624
625   return true;
626 }
627
628 //=======================================================================
629 //function : BestSplit
630 //purpose  : Find better diagonal for cutting.
631 //=======================================================================
632 int SMESH_MeshEditor::BestSplit (const SMDS_MeshElement*              theQuad,
633                                  SMESH::Controls::NumericalFunctorPtr theCrit)
634 {
635   if (!theCrit.get())
636     return -1;
637
638   if (!theQuad || theQuad->GetType() != SMDSAbs_Face || theQuad->NbNodes() != 4)
639     return -1;
640
641   // retrieve element nodes
642   const SMDS_MeshNode* aNodes [4];
643   SMDS_ElemIteratorPtr itN = theQuad->nodesIterator();
644   int i = 0;
645   while (itN->more())
646     aNodes[ i++ ] = static_cast<const SMDS_MeshNode*>( itN->next() );
647
648   // compare two sets of possible triangles
649   double aBadRate1, aBadRate2; // to what extent a set is bad
650   SMDS_FaceOfNodes tr1 ( aNodes[0], aNodes[1], aNodes[2] );
651   SMDS_FaceOfNodes tr2 ( aNodes[2], aNodes[3], aNodes[0] );
652   aBadRate1 = getBadRate( &tr1, theCrit ) + getBadRate( &tr2, theCrit );
653
654   SMDS_FaceOfNodes tr3 ( aNodes[1], aNodes[2], aNodes[3] );
655   SMDS_FaceOfNodes tr4 ( aNodes[3], aNodes[0], aNodes[1] );
656   aBadRate2 = getBadRate( &tr3, theCrit ) + getBadRate( &tr4, theCrit );
657
658   if (aBadRate1 <= aBadRate2) // tr1 + tr2 is better
659     return 1; // diagonal 1-3
660
661   return 2; // diagonal 2-4
662 }
663
664 //=======================================================================
665 //function : AddToSameGroups
666 //purpose  : add elemToAdd to the groups the elemInGroups belongs to
667 //=======================================================================
668
669 void SMESH_MeshEditor::AddToSameGroups (const SMDS_MeshElement* elemToAdd,
670                                         const SMDS_MeshElement* elemInGroups,
671                                         SMESHDS_Mesh *          aMesh)
672 {
673   const set<SMESHDS_GroupBase*>& groups = aMesh->GetGroups();
674   set<SMESHDS_GroupBase*>::const_iterator grIt = groups.begin();
675   for ( ; grIt != groups.end(); grIt++ ) {
676     SMESHDS_Group* group = dynamic_cast<SMESHDS_Group*>( *grIt );
677     if ( group && group->SMDSGroup().Contains( elemInGroups ))
678       group->SMDSGroup().Add( elemToAdd );
679   }
680 }
681
682 //=======================================================================
683 //function : QuadToTri
684 //purpose  : Cut quadrangles into triangles.
685 //           theCrit is used to select a diagonal to cut
686 //=======================================================================
687
688 bool SMESH_MeshEditor::QuadToTri (std::set<const SMDS_MeshElement*> & theElems,
689                                   const bool                          the13Diag)
690 {
691   MESSAGE( "::QuadToTri()" );
692
693   SMESHDS_Mesh * aMesh = GetMeshDS();
694
695   set< const SMDS_MeshElement * >::iterator itElem;
696   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
697   {
698     const SMDS_MeshElement* elem = (*itElem);
699     if ( !elem || elem->GetType() != SMDSAbs_Face || elem->NbNodes() != 4 )
700       continue;
701
702     // retrieve element nodes
703     const SMDS_MeshNode* aNodes [4];
704     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
705     int i = 0;
706     while ( itN->more() )
707       aNodes[ i++ ] = static_cast<const SMDS_MeshNode*>( itN->next() );
708
709     int aShapeId = FindShape( elem );
710     const SMDS_MeshElement* newElem = 0;
711     if ( the13Diag )
712     {
713       aMesh->ChangeElementNodes( elem, aNodes, 3 );
714       newElem = aMesh->AddFace( aNodes[2], aNodes[3], aNodes[0] );
715     }
716     else
717     {
718       aMesh->ChangeElementNodes( elem, &aNodes[1], 3 );
719       newElem = aMesh->AddFace( aNodes[3], aNodes[0], aNodes[1] );
720     }
721
722     // put a new triangle on the same shape and add to the same groups
723
724     if ( aShapeId )
725       aMesh->SetMeshElementOnShape( newElem, aShapeId );
726
727     AddToSameGroups( newElem, elem, aMesh );
728   }
729
730   return true;
731 }
732
733 //=======================================================================
734 //function : getAngle
735 //purpose  :
736 //=======================================================================
737
738 double getAngle(const SMDS_MeshElement * tr1,
739                 const SMDS_MeshElement * tr2,
740                 const SMDS_MeshNode *    n1,
741                 const SMDS_MeshNode *    n2)
742 {
743   double angle = 2*PI; // bad angle
744
745   // get normals
746   SMESH::Controls::TSequenceOfXYZ P1, P2;
747   if ( !SMESH::Controls::NumericalFunctor::GetPoints( tr1, P1 ) ||
748        !SMESH::Controls::NumericalFunctor::GetPoints( tr2, P2 ))
749     return angle;
750   gp_Vec N1 = gp_Vec( P1(2) - P1(1) ) ^ gp_Vec( P1(3) - P1(1) );
751   if ( N1.SquareMagnitude() <= gp::Resolution() )
752     return angle;
753   gp_Vec N2 = gp_Vec( P2(2) - P2(1) ) ^ gp_Vec( P2(3) - P2(1) );
754   if ( N2.SquareMagnitude() <= gp::Resolution() )
755     return angle;
756
757   // find the first diagonal node n1 in the triangles:
758   // take in account a diagonal link orientation
759   const SMDS_MeshElement *nFirst[2], *tr[] = { tr1, tr2 };
760   for ( int t = 0; t < 2; t++ )
761   {
762     SMDS_ElemIteratorPtr it = tr[ t ]->nodesIterator();
763     int i = 0, iDiag = -1;
764     while ( it->more()) {
765       const SMDS_MeshElement *n = it->next();
766       if ( n == n1 || n == n2 )
767         if ( iDiag < 0)
768           iDiag = i;
769         else {
770           if ( i - iDiag == 1 )
771             nFirst[ t ] = ( n == n1 ? n2 : n1 );
772           else
773             nFirst[ t ] = n;
774           break;
775         }
776       i++;
777     }
778   }
779   if ( nFirst[ 0 ] == nFirst[ 1 ] )
780     N2.Reverse();
781
782   angle = N1.Angle( N2 );
783   //SCRUTE( angle );
784   return angle;
785 }
786
787 // =================================================
788 // class generating a unique ID for a pair of nodes
789 // and able to return nodes by that ID
790 // =================================================
791
792 class LinkID_Gen {
793  public:
794
795   LinkID_Gen( const SMESHDS_Mesh* theMesh )
796     :myMesh( theMesh ), myMaxID( theMesh->MaxNodeID() + 1)
797   {}
798
799   long GetLinkID (const SMDS_MeshNode * n1,
800                   const SMDS_MeshNode * n2) const
801   {
802     return ( Min(n1->GetID(),n2->GetID()) * myMaxID + Max(n1->GetID(),n2->GetID()));
803   }
804
805   bool GetNodes (const long             theLinkID,
806                  const SMDS_MeshNode* & theNode1,
807                  const SMDS_MeshNode* & theNode2) const
808   {
809     theNode1 = myMesh->FindNode( theLinkID / myMaxID );
810     if ( !theNode1 ) return false;
811     theNode2 = myMesh->FindNode( theLinkID % myMaxID );
812     if ( !theNode2 ) return false;
813     return true;
814   }
815
816  private:
817   LinkID_Gen();
818   const SMESHDS_Mesh* myMesh;
819   long                myMaxID;
820 };
821
822 //=======================================================================
823 //function : TriToQuad
824 //purpose  : Fuse neighbour triangles into quadrangles.
825 //           theCrit is used to select a neighbour to fuse with.
826 //           theMaxAngle is a max angle between element normals at which
827 //           fusion is still performed.
828 //=======================================================================
829
830 bool SMESH_MeshEditor::TriToQuad (set<const SMDS_MeshElement*> &       theElems,
831                                   SMESH::Controls::NumericalFunctorPtr theCrit,
832                                   const double                         theMaxAngle)
833 {
834   MESSAGE( "::TriToQuad()" );
835
836   if ( !theCrit.get() )
837     return false;
838
839   SMESHDS_Mesh * aMesh = GetMeshDS();
840   LinkID_Gen aLinkID_Gen( aMesh );
841
842
843   // Prepare data for algo: build
844   // 1. map of elements with their linkIDs
845   // 2. map of linkIDs with their elements
846
847   map< long, list< const SMDS_MeshElement* > > mapLi_listEl;
848   map< long, list< const SMDS_MeshElement* > >::iterator itLE;
849   map< const SMDS_MeshElement*, set< long > >  mapEl_setLi;
850   map< const SMDS_MeshElement*, set< long > >::iterator itEL;
851
852   set<const SMDS_MeshElement*>::iterator itElem;
853   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
854   {
855     const SMDS_MeshElement* elem = (*itElem);
856     if ( !elem || elem->NbNodes() != 3 )
857       continue;
858
859     // retrieve element nodes
860     const SMDS_MeshNode* aNodes [4];
861     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
862     int i = 0;
863     while ( itN->more() )
864       aNodes[ i++ ] = static_cast<const SMDS_MeshNode*>( itN->next() );
865     ASSERT( i == 3 );
866     aNodes[ 3 ] = aNodes[ 0 ];
867
868     // fill maps
869     for ( i = 0; i < 3; i++ )
870     {
871       long linkID = aLinkID_Gen.GetLinkID( aNodes[ i ], aNodes[ i+1 ] );
872       // check if elements sharing a link can be fused
873       itLE = mapLi_listEl.find( linkID );
874       if ( itLE != mapLi_listEl.end() )
875       {
876         if ((*itLE).second.size() > 1 ) // consider only 2 elems adjacent by a link
877           continue;
878         const SMDS_MeshElement* elem2 = (*itLE).second.front();
879 //         if ( FindShape( elem ) != FindShape( elem2 ))
880 //           continue; // do not fuse triangles laying on different shapes
881         if ( getAngle( elem, elem2, aNodes[i], aNodes[i+1] ) > theMaxAngle )
882           continue; // avoid making badly shaped quads
883         (*itLE).second.push_back( elem );
884       }
885       else
886         mapLi_listEl[ linkID ].push_back( elem );
887       mapEl_setLi [ elem ].insert( linkID );
888     }
889   }
890   // Clean the maps from the links shared by a sole element, ie
891   // links to which only one element is bound in mapLi_listEl
892
893   for ( itLE = mapLi_listEl.begin(); itLE != mapLi_listEl.end(); itLE++ )
894   {
895     int nbElems = (*itLE).second.size();
896     if ( nbElems < 2  ) {
897       const SMDS_MeshElement* elem = (*itLE).second.front();
898       long link = (*itLE).first;
899       mapEl_setLi[ elem ].erase( link );
900       if ( mapEl_setLi[ elem ].empty() )
901         mapEl_setLi.erase( elem );
902     }
903   }
904
905   // Algo: fuse triangles into quadrangles
906
907   while ( ! mapEl_setLi.empty() )
908   {
909     // Look for the start element:
910     // the element having the least nb of shared links
911
912     const SMDS_MeshElement* startElem = 0;
913     int minNbLinks = 4;
914     for ( itEL = mapEl_setLi.begin(); itEL != mapEl_setLi.end(); itEL++ )
915     {
916       int nbLinks = (*itEL).second.size();
917       if ( nbLinks < minNbLinks )
918       {
919         startElem = (*itEL).first;
920         minNbLinks = nbLinks;
921         if ( minNbLinks == 1 )
922           break;
923       }
924     }
925
926     // search elements to fuse starting from startElem or links of elements
927     // fused earlyer - startLinks
928     list< long > startLinks;
929     while ( startElem || !startLinks.empty() )
930     {
931       while ( !startElem && !startLinks.empty() )
932       {
933         // Get an element to start, by a link
934         long linkId = startLinks.front();
935         startLinks.pop_front();
936         itLE = mapLi_listEl.find( linkId );
937         if ( itLE != mapLi_listEl.end() )
938         {
939           list< const SMDS_MeshElement* > & listElem = (*itLE).second;
940           list< const SMDS_MeshElement* >::iterator itE = listElem.begin();
941           for ( ; itE != listElem.end() ; itE++ )
942             if ( mapEl_setLi.find( (*itE) ) != mapEl_setLi.end() )
943               startElem = (*itE);
944           mapLi_listEl.erase( itLE );
945         }
946       }
947
948       if ( startElem )
949       {
950         // Get candidates to be fused
951
952         const SMDS_MeshElement *tr1 = startElem, *tr2 = 0, *tr3 = 0;
953         long link12, link13;
954         startElem = 0;
955         ASSERT( mapEl_setLi.find( tr1 ) != mapEl_setLi.end() );
956         set< long >& setLi = mapEl_setLi[ tr1 ];
957         ASSERT( !setLi.empty() );
958         set< long >::iterator itLi;
959         for ( itLi = setLi.begin(); itLi != setLi.end(); itLi++ )
960         {
961           long linkID = (*itLi);
962           itLE = mapLi_listEl.find( linkID );
963           if ( itLE == mapLi_listEl.end() )
964             continue;
965           const SMDS_MeshElement* elem = (*itLE).second.front();
966           if ( elem == tr1 )
967             elem = (*itLE).second.back();
968           mapLi_listEl.erase( itLE );
969           if ( mapEl_setLi.find( elem ) == mapEl_setLi.end())
970             continue;
971           if ( tr2 )
972           {
973             tr3 = elem;
974             link13 = linkID;
975           }
976           else
977           {
978             tr2 = elem;
979             link12 = linkID;
980           }
981
982           // add other links of elem to list of links to re-start from
983           set< long >& links = mapEl_setLi[ elem ];
984           set< long >::iterator it;
985           for ( it = links.begin(); it != links.end(); it++ )
986           {
987             long linkID2 = (*it);
988             if ( linkID2 != linkID )
989               startLinks.push_back( linkID2 );
990           }
991         }
992
993         // Get nodes of possible quadrangles
994
995         const SMDS_MeshNode *n12 [4], *n13 [4];
996         bool Ok12 = false, Ok13 = false;
997         const SMDS_MeshNode *linkNode1, *linkNode2;
998         if ( tr2 &&
999              aLinkID_Gen.GetNodes( link12, linkNode1, linkNode2 ) &&
1000              getQuadrangleNodes( n12, linkNode1, linkNode2, tr1, tr2 ))
1001           Ok12 = true;
1002         if ( tr3 &&
1003              aLinkID_Gen.GetNodes( link13, linkNode1, linkNode2 ) &&
1004              getQuadrangleNodes( n13, linkNode1, linkNode2, tr1, tr3 ))
1005           Ok13 = true;
1006
1007         // Choose a pair to fuse
1008
1009         if ( Ok12 && Ok13 )
1010         {
1011           SMDS_FaceOfNodes quad12 ( n12[ 0 ], n12[ 1 ], n12[ 2 ], n12[ 3 ] );
1012           SMDS_FaceOfNodes quad13 ( n13[ 0 ], n13[ 1 ], n13[ 2 ], n13[ 3 ] );
1013           double aBadRate12 = getBadRate( &quad12, theCrit );
1014           double aBadRate13 = getBadRate( &quad13, theCrit );
1015           if (  aBadRate13 < aBadRate12 )
1016             Ok12 = false;
1017           else
1018             Ok13 = false;
1019         }
1020
1021
1022         // Make quadrangles
1023         // and remove fused elems and removed links from the maps
1024
1025         mapEl_setLi.erase( tr1 );
1026         if ( Ok12 )
1027         {
1028           mapEl_setLi.erase( tr2 );
1029           mapLi_listEl.erase( link12 );
1030           aMesh->ChangeElementNodes( tr1, n12, 4 );
1031           aMesh->RemoveElement( tr2 );
1032         }
1033         else if ( Ok13 )
1034         {
1035           mapEl_setLi.erase( tr3 );
1036           mapLi_listEl.erase( link13 );
1037           aMesh->ChangeElementNodes( tr1, n13, 4 );
1038           aMesh->RemoveElement( tr3 );
1039         }
1040
1041         // Next element to fuse: the rejected one
1042         if ( tr3 )
1043           startElem = Ok12 ? tr3 : tr2;
1044
1045       } // if ( startElem )
1046     } // while ( startElem || !startLinks.empty() )
1047   } // while ( ! mapEl_setLi.empty() )
1048
1049   return true;
1050 }
1051
1052
1053 /*#define DUMPSO(txt) \
1054 //  cout << txt << endl;
1055 //=============================================================================
1056 //
1057 //
1058 //
1059 //=============================================================================
1060 static void swap( int i1, int i2, int idNodes[], gp_Pnt P[] )
1061 {
1062   if ( i1 == i2 )
1063     return;
1064   int tmp = idNodes[ i1 ];
1065   idNodes[ i1 ] = idNodes[ i2 ];
1066   idNodes[ i2 ] = tmp;
1067   gp_Pnt Ptmp = P[ i1 ];
1068   P[ i1 ] = P[ i2 ];
1069   P[ i2 ] = Ptmp;
1070   DUMPSO( i1 << "(" << idNodes[ i2 ] << ") <-> " << i2 << "(" << idNodes[ i1 ] << ")");
1071 }
1072
1073 //=======================================================================
1074 //function : SortQuadNodes
1075 //purpose  : Set 4 nodes of a quadrangle face in a good order.
1076 //           Swap 1<->2 or 2<->3 nodes and correspondingly return
1077 //           1 or 2 else 0.
1078 //=======================================================================
1079
1080 int SMESH_MeshEditor::SortQuadNodes (const SMDS_Mesh * theMesh,
1081                                      int               idNodes[] )
1082 {
1083   gp_Pnt P[4];
1084   int i;
1085   for ( i = 0; i < 4; i++ ) {
1086     const SMDS_MeshNode *n = theMesh->FindNode( idNodes[i] );
1087     if ( !n ) return 0;
1088     P[ i ].SetCoord( n->X(), n->Y(), n->Z() );
1089   }
1090
1091   gp_Vec V1(P[0], P[1]);
1092   gp_Vec V2(P[0], P[2]);
1093   gp_Vec V3(P[0], P[3]);
1094
1095   gp_Vec Cross1 = V1 ^ V2;
1096   gp_Vec Cross2 = V2 ^ V3;
1097
1098   i = 0;
1099   if (Cross1.Dot(Cross2) < 0)
1100   {
1101     Cross1 = V2 ^ V1;
1102     Cross2 = V1 ^ V3;
1103
1104     if (Cross1.Dot(Cross2) < 0)
1105       i = 2;
1106     else
1107       i = 1;
1108     swap ( i, i + 1, idNodes, P );
1109
1110 //     for ( int ii = 0; ii < 4; ii++ ) {
1111 //       const SMDS_MeshNode *n = theMesh->FindNode( idNodes[ii] );
1112 //       DUMPSO( ii << "(" << idNodes[ii] <<") : "<<n->X()<<" "<<n->Y()<<" "<<n->Z());
1113 //     }
1114   }
1115   return i;
1116 }
1117
1118 //=======================================================================
1119 //function : SortHexaNodes
1120 //purpose  : Set 8 nodes of a hexahedron in a good order.
1121 //           Return success status
1122 //=======================================================================
1123
1124 bool SMESH_MeshEditor::SortHexaNodes (const SMDS_Mesh * theMesh,
1125                                       int               idNodes[] )
1126 {
1127   gp_Pnt P[8];
1128   int i;
1129   DUMPSO( "INPUT: ========================================");
1130   for ( i = 0; i < 8; i++ ) {
1131     const SMDS_MeshNode *n = theMesh->FindNode( idNodes[i] );
1132     if ( !n ) return false;
1133     P[ i ].SetCoord( n->X(), n->Y(), n->Z() );
1134     DUMPSO( i << "(" << idNodes[i] <<") : "<<n->X()<<" "<<n->Y()<<" "<<n->Z());
1135   }
1136   DUMPSO( "========================================");
1137
1138
1139   set<int> faceNodes;  // ids of bottom face nodes, to be found
1140   set<int> checkedId1; // ids of tried 2-nd nodes
1141   Standard_Real leastDist = DBL_MAX; // dist of the 4-th node from 123 plane
1142   const Standard_Real tol = 1.e-6;   // tolerance to find nodes in plane
1143   int iMin, iLoop1 = 0;
1144
1145   // Loop to try the 2-nd nodes
1146
1147   while ( leastDist > DBL_MIN && ++iLoop1 < 8 )
1148   {
1149     // Find not checked 2-nd node
1150     for ( i = 1; i < 8; i++ )
1151       if ( checkedId1.find( idNodes[i] ) == checkedId1.end() ) {
1152         int id1 = idNodes[i];
1153         swap ( 1, i, idNodes, P );
1154         checkedId1.insert ( id1 );
1155         break;
1156       }
1157
1158     // Find the 3-d node so that 1-2-3 triangle to be on a hexa face,
1159     // ie that all but meybe one (id3 which is on the same face) nodes
1160     // lay on the same side from the triangle plane.
1161
1162     bool manyInPlane = false; // more than 4 nodes lay in plane
1163     int iLoop2 = 0;
1164     while ( ++iLoop2 < 6 ) {
1165
1166       // get 1-2-3 plane coeffs
1167       Standard_Real A, B, C, D;
1168       gp_Vec N = gp_Vec (P[0], P[1]).Crossed( gp_Vec (P[0], P[2]) );
1169       if ( N.SquareMagnitude() > gp::Resolution() )
1170       {
1171         gp_Pln pln ( P[0], N );
1172         pln.Coefficients( A, B, C, D );
1173
1174         // find the node (iMin) closest to pln
1175         Standard_Real dist[ 8 ], minDist = DBL_MAX;
1176         set<int> idInPln;
1177         for ( i = 3; i < 8; i++ ) {
1178           dist[i] = A * P[i].X() + B * P[i].Y() + C * P[i].Z() + D;
1179           if ( fabs( dist[i] ) < minDist ) {
1180             minDist = fabs( dist[i] );
1181             iMin = i;
1182           }
1183           if ( fabs( dist[i] ) <= tol )
1184             idInPln.insert( idNodes[i] );
1185         }
1186
1187         // there should not be more than 4 nodes in bottom plane
1188         if ( idInPln.size() > 1 )
1189         {
1190           DUMPSO( "### idInPln.size() = " << idInPln.size());
1191           // idInPlane does not contain the first 3 nodes
1192           if ( manyInPlane || idInPln.size() == 5)
1193             return false; // all nodes in one plane
1194           manyInPlane = true;
1195
1196           // set the 1-st node to be not in plane
1197           for ( i = 3; i < 8; i++ ) {
1198             if ( idInPln.find( idNodes[ i ] ) == idInPln.end() ) {
1199               DUMPSO( "### Reset 0-th node");
1200               swap( 0, i, idNodes, P );
1201               break;
1202             }
1203           }
1204
1205           // reset to re-check second nodes
1206           leastDist = DBL_MAX;
1207           faceNodes.clear();
1208           checkedId1.clear();
1209           iLoop1 = 0;
1210           break; // from iLoop2;
1211         }
1212
1213         // check that the other 4 nodes are on the same side
1214         bool sameSide = true;
1215         bool isNeg = dist[ iMin == 3 ? 4 : 3 ] <= 0.;
1216         for ( i = 3; sameSide && i < 8; i++ ) {
1217           if ( i != iMin )
1218             sameSide = ( isNeg == dist[i] <= 0.);
1219         }
1220
1221         // keep best solution
1222         if ( sameSide && minDist < leastDist ) {
1223           leastDist = minDist;
1224           faceNodes.clear();
1225           faceNodes.insert( idNodes[ 1 ] );
1226           faceNodes.insert( idNodes[ 2 ] );
1227           faceNodes.insert( idNodes[ iMin ] );
1228           DUMPSO( "loop " << iLoop2 << " id2 " << idNodes[ 1 ] << " id3 " << idNodes[ 2 ]
1229             << " leastDist = " << leastDist);
1230           if ( leastDist <= DBL_MIN )
1231             break;
1232         }
1233       }
1234
1235       // set next 3-d node to check
1236       int iNext = 2 + iLoop2;
1237       if ( iNext < 8 ) {
1238         DUMPSO( "Try 2-nd");
1239         swap ( 2, iNext, idNodes, P );
1240       }
1241     } // while ( iLoop2 < 6 )
1242   } // iLoop1
1243
1244   if ( faceNodes.empty() ) return false;
1245
1246   // Put the faceNodes in proper places
1247   for ( i = 4; i < 8; i++ ) {
1248     if ( faceNodes.find( idNodes[ i ] ) != faceNodes.end() ) {
1249       // find a place to put
1250       int iTo = 1;
1251       while ( faceNodes.find( idNodes[ iTo ] ) != faceNodes.end() )
1252         iTo++;
1253       DUMPSO( "Set faceNodes");
1254       swap ( iTo, i, idNodes, P );
1255     }
1256   }
1257
1258
1259   // Set nodes of the found bottom face in good order
1260   DUMPSO( " Found bottom face: ");
1261   i = SortQuadNodes( theMesh, idNodes );
1262   if ( i ) {
1263     gp_Pnt Ptmp = P[ i ];
1264     P[ i ] = P[ i+1 ];
1265     P[ i+1 ] = Ptmp;
1266   }
1267 //   else
1268 //     for ( int ii = 0; ii < 4; ii++ ) {
1269 //       const SMDS_MeshNode *n = theMesh->FindNode( idNodes[ii] );
1270 //       DUMPSO( ii << "(" << idNodes[ii] <<") : "<<n->X()<<" "<<n->Y()<<" "<<n->Z());
1271 //    }
1272
1273   // Gravity center of the top and bottom faces
1274   gp_Pnt aGCb = ( P[0].XYZ() + P[1].XYZ() + P[2].XYZ() + P[3].XYZ() ) / 4.;
1275   gp_Pnt aGCt = ( P[4].XYZ() + P[5].XYZ() + P[6].XYZ() + P[7].XYZ() ) / 4.;
1276
1277   // Get direction from the bottom to the top face
1278   gp_Vec upDir ( aGCb, aGCt );
1279   Standard_Real upDirSize = upDir.Magnitude();
1280   if ( upDirSize <= gp::Resolution() ) return false;
1281   upDir / upDirSize;
1282
1283   // Assure that the bottom face normal points up
1284   gp_Vec Nb = gp_Vec (P[0], P[1]).Crossed( gp_Vec (P[0], P[2]) );
1285   Nb += gp_Vec (P[0], P[2]).Crossed( gp_Vec (P[0], P[3]) );
1286   if ( Nb.Dot( upDir ) < 0 ) {
1287     DUMPSO( "Reverse bottom face");
1288     swap( 1, 3, idNodes, P );
1289   }
1290
1291   // Find 5-th node - the one closest to the 1-st among the last 4 nodes.
1292   Standard_Real minDist = DBL_MAX;
1293   for ( i = 4; i < 8; i++ ) {
1294     // projection of P[i] to the plane defined by P[0] and upDir
1295     gp_Pnt Pp = P[i].Translated( upDir * ( upDir.Dot( gp_Vec( P[i], P[0] ))));
1296     Standard_Real sqDist = P[0].SquareDistance( Pp );
1297     if ( sqDist < minDist ) {
1298       minDist = sqDist;
1299       iMin = i;
1300     }
1301   }
1302   DUMPSO( "Set 4-th");
1303   swap ( 4, iMin, idNodes, P );
1304
1305   // Set nodes of the top face in good order
1306   DUMPSO( "Sort top face");
1307   i = SortQuadNodes( theMesh, &idNodes[4] );
1308   if ( i ) {
1309     i += 4;
1310     gp_Pnt Ptmp = P[ i ];
1311     P[ i ] = P[ i+1 ];
1312     P[ i+1 ] = Ptmp;
1313   }
1314
1315   // Assure that direction of the top face normal is from the bottom face
1316   gp_Vec Nt = gp_Vec (P[4], P[5]).Crossed( gp_Vec (P[4], P[6]) );
1317   Nt += gp_Vec (P[4], P[6]).Crossed( gp_Vec (P[4], P[7]) );
1318   if ( Nt.Dot( upDir ) < 0 ) {
1319     DUMPSO( "Reverse top face");
1320     swap( 5, 7, idNodes, P );
1321   }
1322
1323 //   DUMPSO( "OUTPUT: ========================================");
1324 //   for ( i = 0; i < 8; i++ ) {
1325 //     float *p = ugrid->GetPoint(idNodes[i]);
1326 //     DUMPSO( i << "(" << idNodes[i] << ") : " << p[0] << " " << p[1] << " " << p[2]);
1327 //   }
1328
1329   return true;
1330 }*/
1331
1332 //=======================================================================
1333 //function : laplacianSmooth
1334 //purpose  : pulls theNode toward the center of surrounding nodes directly
1335 //           connected to that node along an element edge
1336 //=======================================================================
1337
1338 void laplacianSmooth(const SMDS_MeshNode*                 theNode,
1339                      const Handle(Geom_Surface)&          theSurface,
1340                      map< const SMDS_MeshNode*, gp_XY* >& theUVMap)
1341 {
1342   // find surrounding nodes
1343
1344   set< const SMDS_MeshNode* > nodeSet;
1345   SMDS_ElemIteratorPtr elemIt = theNode->GetInverseElementIterator();
1346   while ( elemIt->more() )
1347   {
1348     const SMDS_MeshElement* elem = elemIt->next();
1349     if ( elem->GetType() != SMDSAbs_Face )
1350       continue;
1351
1352     // put all nodes in array
1353     int nbNodes = 0, iNode = 0;
1354     vector< const SMDS_MeshNode*> aNodes( elem->NbNodes() );
1355     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
1356     while ( itN->more() )
1357     {
1358       aNodes[ nbNodes ] = static_cast<const SMDS_MeshNode*>( itN->next() );
1359       if ( aNodes[ nbNodes ] == theNode )
1360         iNode = nbNodes; // index of theNode within aNodes
1361       nbNodes++;
1362     }
1363     // add linked nodes
1364     int iAfter = ( iNode + 1 == nbNodes ) ? 0 : iNode + 1;
1365     nodeSet.insert( aNodes[ iAfter ]);
1366     int iBefore = ( iNode == 0 ) ? nbNodes - 1 : iNode - 1;
1367     nodeSet.insert( aNodes[ iBefore ]);
1368   }
1369
1370   // compute new coodrs
1371
1372   double coord[] = { 0., 0., 0. };
1373   set< const SMDS_MeshNode* >::iterator nodeSetIt = nodeSet.begin();
1374   for ( ; nodeSetIt != nodeSet.end(); nodeSetIt++ ) {
1375     const SMDS_MeshNode* node = (*nodeSetIt);
1376     if ( theSurface.IsNull() ) { // smooth in 3D
1377       coord[0] += node->X();
1378       coord[1] += node->Y();
1379       coord[2] += node->Z();
1380     }
1381     else { // smooth in 2D
1382       ASSERT( theUVMap.find( node ) != theUVMap.end() );
1383       gp_XY* uv = theUVMap[ node ];
1384       coord[0] += uv->X();
1385       coord[1] += uv->Y();
1386     }
1387   }
1388   int nbNodes = nodeSet.size();
1389   if ( !nbNodes )
1390     return;
1391   coord[0] /= nbNodes;
1392   coord[1] /= nbNodes;
1393
1394   if ( !theSurface.IsNull() ) {
1395     ASSERT( theUVMap.find( theNode ) != theUVMap.end() );
1396     theUVMap[ theNode ]->SetCoord( coord[0], coord[1] );
1397     gp_Pnt p3d = theSurface->Value( coord[0], coord[1] );
1398     coord[0] = p3d.X();
1399     coord[1] = p3d.Y();
1400     coord[2] = p3d.Z();
1401   }
1402   else
1403     coord[2] /= nbNodes;
1404
1405   // move node
1406
1407   const_cast< SMDS_MeshNode* >( theNode )->setXYZ(coord[0],coord[1],coord[2]);
1408 }
1409
1410 //=======================================================================
1411 //function : centroidalSmooth
1412 //purpose  : pulls theNode toward the element-area-weighted centroid of the
1413 //           surrounding elements
1414 //=======================================================================
1415
1416 void centroidalSmooth(const SMDS_MeshNode*                 theNode,
1417                       const Handle(Geom_Surface)&          theSurface,
1418                       map< const SMDS_MeshNode*, gp_XY* >& theUVMap)
1419 {
1420   gp_XYZ aNewXYZ(0.,0.,0.);
1421   SMESH::Controls::Area anAreaFunc;
1422   double totalArea = 0.;
1423   int nbElems = 0;
1424
1425   // compute new XYZ
1426
1427   SMDS_ElemIteratorPtr elemIt = theNode->GetInverseElementIterator();
1428   while ( elemIt->more() )
1429   {
1430     const SMDS_MeshElement* elem = elemIt->next();
1431     if ( elem->GetType() != SMDSAbs_Face )
1432       continue;
1433     nbElems++;
1434
1435     gp_XYZ elemCenter(0.,0.,0.);
1436     SMESH::Controls::TSequenceOfXYZ aNodePoints;
1437     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
1438     while ( itN->more() )
1439     {
1440       const SMDS_MeshNode* aNode = static_cast<const SMDS_MeshNode*>( itN->next() );
1441       gp_XYZ aP( aNode->X(), aNode->Y(), aNode->Z() );
1442       aNodePoints.push_back( aP );
1443       if ( !theSurface.IsNull() ) { // smooth in 2D
1444         ASSERT( theUVMap.find( aNode ) != theUVMap.end() );
1445         gp_XY* uv = theUVMap[ aNode ];
1446         aP.SetCoord( uv->X(), uv->Y(), 0. );
1447       }
1448       elemCenter += aP;
1449     }
1450     double elemArea = anAreaFunc.GetValue( aNodePoints );
1451     totalArea += elemArea;
1452     elemCenter /= elem->NbNodes();
1453     aNewXYZ += elemCenter * elemArea;
1454   }
1455   aNewXYZ /= totalArea;
1456   if ( !theSurface.IsNull() ) {
1457     ASSERT( theUVMap.find( theNode ) != theUVMap.end() );
1458     theUVMap[ theNode ]->SetCoord( aNewXYZ.X(), aNewXYZ.Y() );
1459     aNewXYZ = theSurface->Value( aNewXYZ.X(), aNewXYZ.Y() ).XYZ();
1460   }
1461
1462   // move node
1463
1464   const_cast< SMDS_MeshNode* >( theNode )->setXYZ(aNewXYZ.X(),aNewXYZ.Y(),aNewXYZ.Z());
1465 }
1466
1467 //=======================================================================
1468 //function : getClosestUV
1469 //purpose  : return UV of closest projection
1470 //=======================================================================
1471
1472 static bool getClosestUV (Extrema_GenExtPS& projector,
1473                           const gp_Pnt&     point,
1474                           gp_XY &           result)
1475 {
1476   projector.Perform( point );
1477   if ( projector.IsDone() ) {
1478     double u, v, minVal = DBL_MAX;
1479     for ( int i = projector.NbExt(); i > 0; i-- )
1480       if ( projector.Value( i ) < minVal ) {
1481         minVal = projector.Value( i );
1482         projector.Point( i ).Parameter( u, v );
1483       }
1484     result.SetCoord( u, v );
1485     return true;
1486   }
1487   return false;
1488 }
1489
1490 //=======================================================================
1491 //function : Smooth
1492 //purpose  : Smooth theElements during theNbIterations or until a worst
1493 //           element has aspect ratio <= theTgtAspectRatio.
1494 //           Aspect Ratio varies in range [1.0, inf].
1495 //           If theElements is empty, the whole mesh is smoothed.
1496 //           theFixedNodes contains additionally fixed nodes. Nodes built
1497 //           on edges and boundary nodes are always fixed.
1498 //=======================================================================
1499
1500 void SMESH_MeshEditor::Smooth (set<const SMDS_MeshElement*> & theElems,
1501                                set<const SMDS_MeshNode*> &    theFixedNodes,
1502                                const SmoothMethod             theSmoothMethod,
1503                                const int                      theNbIterations,
1504                                double                         theTgtAspectRatio,
1505                                const bool                     the2D)
1506 {
1507   MESSAGE((theSmoothMethod==LAPLACIAN ? "LAPLACIAN" : "CENTROIDAL") << "--::Smooth()");
1508
1509   if ( theTgtAspectRatio < 1.0 )
1510     theTgtAspectRatio = 1.0;
1511
1512   SMESH::Controls::AspectRatio aQualityFunc;
1513
1514   SMESHDS_Mesh* aMesh = GetMeshDS();
1515
1516   if ( theElems.empty() ) {
1517     // add all faces to theElems
1518     SMDS_FaceIteratorPtr fIt = aMesh->facesIterator();
1519     while ( fIt->more() )
1520       theElems.insert( fIt->next() );
1521   }
1522   // get all face ids theElems are on
1523   set< int > faceIdSet;
1524   set< const SMDS_MeshElement* >::iterator itElem;
1525   if ( the2D )
1526     for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ ) {
1527       int fId = FindShape( *itElem );
1528       // check that corresponding submesh exists and a shape is face
1529       if (fId &&
1530           faceIdSet.find( fId ) == faceIdSet.end() &&
1531           aMesh->MeshElements( fId )) {
1532         TopoDS_Shape F = aMesh->IndexToShape( fId );
1533         if ( !F.IsNull() && F.ShapeType() == TopAbs_FACE )
1534           faceIdSet.insert( fId );
1535       }
1536     }
1537   faceIdSet.insert( 0 ); // to smooth elements that are not on any TopoDS_Face
1538
1539   // ===============================================
1540   // smooth elements on each TopoDS_Face separately
1541   // ===============================================
1542
1543   set< int >::reverse_iterator fId = faceIdSet.rbegin(); // treate 0 fId at the end
1544   for ( ; fId != faceIdSet.rend(); ++fId )
1545   {
1546     // get face surface and submesh
1547     Handle(Geom_Surface) surface;
1548     SMESHDS_SubMesh* faceSubMesh = 0;
1549     TopoDS_Face face;
1550     double fToler2 = 0, vPeriod = 0., uPeriod = 0., f,l;
1551     double u1 = 0, u2 = 0, v1 = 0, v2 = 0;
1552     bool isUPeriodic = false, isVPeriodic = false;
1553     if ( *fId ) {
1554       face = TopoDS::Face( aMesh->IndexToShape( *fId ));
1555       surface = BRep_Tool::Surface( face );
1556       faceSubMesh = aMesh->MeshElements( *fId );
1557       fToler2 = BRep_Tool::Tolerance( face );
1558       fToler2 *= fToler2 * 10.;
1559       isUPeriodic = surface->IsUPeriodic();
1560       if ( isUPeriodic )
1561         vPeriod = surface->UPeriod();
1562       isVPeriodic = surface->IsVPeriodic();
1563       if ( isVPeriodic )
1564         uPeriod = surface->VPeriod();
1565       surface->Bounds( u1, u2, v1, v2 );
1566     }
1567     // ---------------------------------------------------------
1568     // for elements on a face, find movable and fixed nodes and
1569     // compute UV for them
1570     // ---------------------------------------------------------
1571     bool checkBoundaryNodes = false;
1572     set<const SMDS_MeshNode*> setMovableNodes;
1573     map< const SMDS_MeshNode*, gp_XY* > uvMap, uvMap2;
1574     list< gp_XY > listUV; // uvs the 2 uvMaps refer to
1575     list< const SMDS_MeshElement* > elemsOnFace;
1576
1577     Extrema_GenExtPS projector;
1578     GeomAdaptor_Surface surfAdaptor;
1579     if ( !surface.IsNull() ) {
1580       surfAdaptor.Load( surface );
1581       projector.Initialize( surfAdaptor, 20,20, 1e-5,1e-5 );
1582     }
1583     int nbElemOnFace = 0;
1584     itElem = theElems.begin();
1585      // loop on not yet smoothed elements: look for elems on a face
1586     while ( itElem != theElems.end() )
1587     {
1588       if ( faceSubMesh && nbElemOnFace == faceSubMesh->NbElements() )
1589         break; // all elements found
1590
1591       const SMDS_MeshElement* elem = (*itElem);
1592       if ( !elem || elem->GetType() != SMDSAbs_Face || elem->NbNodes() < 3 ||
1593           ( faceSubMesh && !faceSubMesh->Contains( elem ))) {
1594         ++itElem;
1595         continue;
1596       }
1597       elemsOnFace.push_back( elem );
1598       theElems.erase( itElem++ );
1599       nbElemOnFace++;
1600
1601       // get movable nodes of elem
1602       const SMDS_MeshNode* node;
1603       SMDS_TypeOfPosition posType;
1604       SMDS_ElemIteratorPtr itN = elem->nodesIterator();
1605       while ( itN->more() ) {
1606         node = static_cast<const SMDS_MeshNode*>( itN->next() );
1607         const SMDS_PositionPtr& pos = node->GetPosition();
1608         posType = pos.get() ? pos->GetTypeOfPosition() : SMDS_TOP_3DSPACE;
1609         if (posType != SMDS_TOP_EDGE &&
1610             posType != SMDS_TOP_VERTEX &&
1611             theFixedNodes.find( node ) == theFixedNodes.end())
1612         {
1613           // check if all faces around the node are on faceSubMesh
1614           // because a node on edge may be bound to face
1615           SMDS_ElemIteratorPtr eIt = node->GetInverseElementIterator();
1616           bool all = true;
1617           if ( faceSubMesh ) {
1618             while ( eIt->more() && all ) {
1619               const SMDS_MeshElement* e = eIt->next();
1620               if ( e->GetType() == SMDSAbs_Face )
1621                 all = faceSubMesh->Contains( e );
1622             }
1623           }
1624           if ( all )
1625             setMovableNodes.insert( node );
1626           else
1627             checkBoundaryNodes = true;
1628         }
1629         if ( posType == SMDS_TOP_3DSPACE )
1630           checkBoundaryNodes = true;
1631       }
1632
1633       if ( surface.IsNull() )
1634         continue;
1635
1636       // get nodes to check UV
1637       list< const SMDS_MeshNode* > uvCheckNodes;
1638       itN = elem->nodesIterator();
1639       while ( itN->more() ) {
1640         node = static_cast<const SMDS_MeshNode*>( itN->next() );
1641         if ( uvMap.find( node ) == uvMap.end() )
1642           uvCheckNodes.push_back( node );
1643         // add nodes of elems sharing node
1644 //         SMDS_ElemIteratorPtr eIt = node->GetInverseElementIterator();
1645 //         while ( eIt->more() ) {
1646 //           const SMDS_MeshElement* e = eIt->next();
1647 //           if ( e != elem && e->GetType() == SMDSAbs_Face ) {
1648 //             SMDS_ElemIteratorPtr nIt = e->nodesIterator();
1649 //             while ( nIt->more() ) {
1650 //               const SMDS_MeshNode* n =
1651 //                 static_cast<const SMDS_MeshNode*>( nIt->next() );
1652 //               if ( uvMap.find( n ) == uvMap.end() )
1653 //                 uvCheckNodes.push_back( n );
1654 //             }
1655 //           }
1656 //         }
1657       }
1658       // check UV on face
1659       list< const SMDS_MeshNode* >::iterator n = uvCheckNodes.begin();
1660       for ( ; n != uvCheckNodes.end(); ++n )
1661       {
1662         node = *n;
1663         gp_XY uv( 0, 0 );
1664         const SMDS_PositionPtr& pos = node->GetPosition();
1665         posType = pos.get() ? pos->GetTypeOfPosition() : SMDS_TOP_3DSPACE;
1666         // get existing UV
1667         switch ( posType ) {
1668         case SMDS_TOP_FACE: {
1669           SMDS_FacePosition* fPos = ( SMDS_FacePosition* ) pos.get();
1670           uv.SetCoord( fPos->GetUParameter(), fPos->GetVParameter() );
1671           break;
1672         }
1673         case SMDS_TOP_EDGE: {
1674           TopoDS_Shape S = aMesh->IndexToShape( pos->GetShapeId() );
1675           Handle(Geom2d_Curve) pcurve;
1676           if ( !S.IsNull() && S.ShapeType() == TopAbs_EDGE )
1677             pcurve = BRep_Tool::CurveOnSurface( TopoDS::Edge( S ), face, f,l );
1678           if ( !pcurve.IsNull() ) {
1679             double u = (( SMDS_EdgePosition* ) pos.get() )->GetUParameter();
1680             uv = pcurve->Value( u ).XY();
1681           }
1682           break;
1683         }
1684         case SMDS_TOP_VERTEX: {
1685           TopoDS_Shape S = aMesh->IndexToShape( pos->GetShapeId() );
1686           if ( !S.IsNull() && S.ShapeType() == TopAbs_VERTEX )
1687             uv = BRep_Tool::Parameters( TopoDS::Vertex( S ), face ).XY();
1688           break;
1689         }
1690         default:;
1691         }
1692         // check existing UV
1693         bool project = true;
1694         gp_Pnt pNode ( node->X(), node->Y(), node->Z() );
1695         double dist1 = DBL_MAX, dist2 = 0;
1696         if ( posType != SMDS_TOP_3DSPACE ) {
1697           dist1 = pNode.SquareDistance( surface->Value( uv.X(), uv.Y() ));
1698           project = dist1 > fToler2;
1699         }
1700         if ( project ) { // compute new UV
1701           gp_XY newUV;
1702           if ( !getClosestUV( projector, pNode, newUV )) {
1703             MESSAGE("Node Projection Failed " << node);
1704           }
1705           else {
1706             if ( isUPeriodic )
1707               newUV.SetX( ElCLib::InPeriod( newUV.X(), u1, u2 ));
1708             if ( isVPeriodic )
1709               newUV.SetY( ElCLib::InPeriod( newUV.Y(), v1, v2 ));
1710             // check new UV
1711             if ( posType != SMDS_TOP_3DSPACE )
1712               dist2 = pNode.SquareDistance( surface->Value( newUV.X(), newUV.Y() ));
1713             if ( dist2 < dist1 )
1714               uv = newUV;
1715           }
1716         }
1717         // store UV in the map
1718         listUV.push_back( uv );
1719         uvMap.insert( make_pair( node, &listUV.back() ));
1720       }
1721     } // loop on not yet smoothed elements
1722
1723     if ( !faceSubMesh || nbElemOnFace != faceSubMesh->NbElements() )
1724       checkBoundaryNodes = true;
1725
1726     // fix nodes on mesh boundary
1727
1728     if ( checkBoundaryNodes )
1729     {
1730       typedef pair<const SMDS_MeshNode*, const SMDS_MeshNode*> TLink;
1731       map< TLink, int > linkNbMap; // how many times a link encounters in elemsOnFace
1732       map< TLink, int >::iterator link_nb;
1733       // put all elements links to linkNbMap
1734       list< const SMDS_MeshElement* >::iterator elemIt = elemsOnFace.begin();
1735       for ( ; elemIt != elemsOnFace.end(); ++elemIt )
1736       {
1737         // put elem nodes in array
1738         vector< const SMDS_MeshNode* > nodes;
1739         nodes.reserve( (*elemIt)->NbNodes() + 1 );
1740         SMDS_ElemIteratorPtr itN = (*elemIt)->nodesIterator();
1741         while ( itN->more() )
1742           nodes.push_back( static_cast<const SMDS_MeshNode*>( itN->next() ));
1743         nodes.push_back( nodes.front() );
1744         // loop on elem links: insert them in linkNbMap
1745         for ( int iN = 1; iN < nodes.size(); ++iN ) {
1746           TLink link;
1747           if ( nodes[ iN-1 ]->GetID() < nodes[ iN ]->GetID() )
1748             link = make_pair( nodes[ iN-1 ], nodes[ iN ] );
1749           else
1750             link = make_pair( nodes[ iN ], nodes[ iN-1 ] );
1751           link_nb = linkNbMap.find( link );
1752           if ( link_nb == linkNbMap.end() )
1753             linkNbMap.insert( make_pair ( link, 1 ));
1754           else
1755             link_nb->second++;
1756         }
1757       }
1758       // remove nodes that are in links encountered only once from setMovableNodes
1759       for ( link_nb = linkNbMap.begin(); link_nb != linkNbMap.end(); ++link_nb ) {
1760         if ( link_nb->second == 1 ) {
1761           setMovableNodes.erase( link_nb->first.first );
1762           setMovableNodes.erase( link_nb->first.second );
1763         }
1764       }
1765     }
1766
1767     // -----------------------------------------------------
1768     // for nodes on seam edge, compute one more UV ( uvMap2 );
1769     // find movable nodes linked to nodes on seam and which
1770     // are to be smoothed using the second UV ( uvMap2 )
1771     // -----------------------------------------------------
1772
1773     set<const SMDS_MeshNode*> nodesNearSeam; // to smooth using uvMap2
1774     if ( !surface.IsNull() )
1775     {
1776       TopExp_Explorer eExp( face, TopAbs_EDGE );
1777       for ( ; eExp.More(); eExp.Next() )
1778       {
1779         TopoDS_Edge edge = TopoDS::Edge( eExp.Current() );
1780         if ( !BRep_Tool::IsClosed( edge, face ))
1781           continue;
1782         SMESHDS_SubMesh* sm = aMesh->MeshElements( edge );
1783         if ( !sm ) continue;
1784         // find out which parameter varies for a node on seam
1785         double f,l;
1786         gp_Pnt2d uv1, uv2;
1787         Handle(Geom2d_Curve) pcurve = BRep_Tool::CurveOnSurface( edge, face, f, l );
1788         if ( pcurve.IsNull() ) continue;
1789         uv1 = pcurve->Value( f );
1790         edge.Reverse();
1791         pcurve = BRep_Tool::CurveOnSurface( edge, face, f, l );
1792         if ( pcurve.IsNull() ) continue;
1793         uv2 = pcurve->Value( f );
1794         int iPar = Abs( uv1.X() - uv2.X() ) > Abs( uv1.Y() - uv2.Y() ) ? 1 : 2;
1795         // assure uv1 < uv2
1796         if ( uv1.Coord( iPar ) > uv2.Coord( iPar )) {
1797           gp_Pnt2d tmp = uv1; uv1 = uv2; uv2 = tmp;
1798         }
1799         // get nodes on seam and its vertices
1800         list< const SMDS_MeshNode* > seamNodes;
1801         SMDS_NodeIteratorPtr nSeamIt = sm->GetNodes();
1802         while ( nSeamIt->more() )
1803           seamNodes.push_back( nSeamIt->next() );
1804         TopExp_Explorer vExp( edge, TopAbs_VERTEX );
1805         for ( ; vExp.More(); vExp.Next() ) {
1806           sm = aMesh->MeshElements( vExp.Current() );
1807           if ( sm ) {
1808             nSeamIt = sm->GetNodes();
1809             while ( nSeamIt->more() )
1810               seamNodes.push_back( nSeamIt->next() );
1811           }
1812         }
1813         // loop on nodes on seam
1814         list< const SMDS_MeshNode* >::iterator noSeIt = seamNodes.begin();
1815         for ( ; noSeIt != seamNodes.end(); ++noSeIt )
1816         {
1817           const SMDS_MeshNode* nSeam = *noSeIt;
1818           map< const SMDS_MeshNode*, gp_XY* >::iterator n_uv = uvMap.find( nSeam );
1819           if ( n_uv == uvMap.end() )
1820             continue;
1821           // set the first UV
1822           n_uv->second->SetCoord( iPar, uv1.Coord( iPar ));
1823           // set the second UV
1824           listUV.push_back( *n_uv->second );
1825           listUV.back().SetCoord( iPar, uv2.Coord( iPar ));
1826           if ( uvMap2.empty() )
1827             uvMap2 = uvMap; // copy the uvMap contents
1828           uvMap2[ nSeam ] = &listUV.back();
1829
1830           // collect movable nodes linked to ones on seam in nodesNearSeam
1831           SMDS_ElemIteratorPtr eIt = nSeam->GetInverseElementIterator();
1832           while ( eIt->more() )
1833           {
1834             const SMDS_MeshElement* e = eIt->next();
1835             if ( e->GetType() != SMDSAbs_Face )
1836               continue;
1837             int nbUseMap1 = 0, nbUseMap2 = 0;
1838             SMDS_ElemIteratorPtr nIt = e->nodesIterator();
1839             while ( nIt->more() )
1840             {
1841               const SMDS_MeshNode* n =
1842                 static_cast<const SMDS_MeshNode*>( nIt->next() );
1843               if (n == nSeam ||
1844                   setMovableNodes.find( n ) == setMovableNodes.end() )
1845                 continue;
1846               // add only nodes being closer to uv2 than to uv1
1847               gp_Pnt pMid (0.5 * ( n->X() + nSeam->X() ),
1848                            0.5 * ( n->Y() + nSeam->Y() ),
1849                            0.5 * ( n->Z() + nSeam->Z() ));
1850               gp_XY uv;
1851               getClosestUV( projector, pMid, uv );
1852               if ( uv.Coord( iPar ) > uvMap[ n ]->Coord( iPar ) ) {
1853                 nodesNearSeam.insert( n );
1854                 nbUseMap2++;
1855               }
1856               else
1857                 nbUseMap1++;
1858             }
1859             // for centroidalSmooth all element nodes must
1860             // be on one side of a seam
1861             if ( theSmoothMethod == CENTROIDAL && nbUseMap1 && nbUseMap2 )
1862             {
1863               SMDS_ElemIteratorPtr nIt = e->nodesIterator();
1864               while ( nIt->more() ) {
1865                 const SMDS_MeshNode* n =
1866                   static_cast<const SMDS_MeshNode*>( nIt->next() );
1867                 setMovableNodes.erase( n );
1868               }
1869             }
1870           }
1871         } // loop on nodes on seam
1872       } // loop on edge of a face
1873     } // if ( !face.IsNull() )
1874
1875     if ( setMovableNodes.empty() ) {
1876       MESSAGE( "Face id : " << *fId << " - NO SMOOTHING: no nodes to move!!!");
1877       continue; // goto next face
1878     }
1879
1880     // -------------
1881     // SMOOTHING //
1882     // -------------
1883
1884     int it = -1;
1885     double maxRatio = -1., maxDisplacement = -1.;
1886     set<const SMDS_MeshNode*>::iterator nodeToMove;
1887     for ( it = 0; it < theNbIterations; it++ )
1888     {
1889       maxDisplacement = 0.;
1890       nodeToMove = setMovableNodes.begin();
1891       for ( ; nodeToMove != setMovableNodes.end(); nodeToMove++ )
1892       {
1893         const SMDS_MeshNode* node = (*nodeToMove);
1894         gp_XYZ aPrevPos ( node->X(), node->Y(), node->Z() );
1895
1896         // smooth
1897         bool map2 = ( nodesNearSeam.find( node ) != nodesNearSeam.end() );
1898         if ( theSmoothMethod == LAPLACIAN )
1899           laplacianSmooth( node, surface, map2 ? uvMap2 : uvMap );
1900         else
1901           centroidalSmooth( node, surface, map2 ? uvMap2 : uvMap );
1902
1903         // node displacement
1904         gp_XYZ aNewPos ( node->X(), node->Y(), node->Z() );
1905         Standard_Real aDispl = (aPrevPos - aNewPos).SquareModulus();
1906         if ( aDispl > maxDisplacement )
1907           maxDisplacement = aDispl;
1908       }
1909       // no node movement => exit
1910       if ( maxDisplacement < 1.e-16 ) {
1911         MESSAGE("-- no node movement --");
1912         break;
1913       }
1914
1915       // check elements quality
1916       maxRatio  = 0;
1917       list< const SMDS_MeshElement* >::iterator elemIt = elemsOnFace.begin();
1918       for ( ; elemIt != elemsOnFace.end(); ++elemIt )
1919       {
1920         const SMDS_MeshElement* elem = (*elemIt);
1921         if ( !elem || elem->GetType() != SMDSAbs_Face )
1922           continue;
1923         SMESH::Controls::TSequenceOfXYZ aPoints;
1924         if ( aQualityFunc.GetPoints( elem, aPoints )) {
1925           double aValue = aQualityFunc.GetValue( aPoints );
1926           if ( aValue > maxRatio )
1927             maxRatio = aValue;
1928         }
1929       }
1930       if ( maxRatio <= theTgtAspectRatio ) {
1931         MESSAGE("-- quality achived --");
1932         break;
1933       }
1934       if (it+1 == theNbIterations) {
1935         MESSAGE("-- Iteration limit exceeded --");
1936       }
1937     } // smoothing iterations
1938
1939     MESSAGE(" Face id: " << *fId <<
1940             " Nb iterstions: " << it <<
1941             " Displacement: " << maxDisplacement <<
1942             " Aspect Ratio " << maxRatio);
1943
1944     // ---------------------------------------
1945     // new nodes positions are computed,
1946     // record movement in DS and set new UV
1947     // ---------------------------------------
1948
1949     nodeToMove = setMovableNodes.begin();
1950     for ( ; nodeToMove != setMovableNodes.end(); nodeToMove++ )
1951     {
1952       SMDS_MeshNode* node = const_cast< SMDS_MeshNode* > (*nodeToMove);
1953       aMesh->MoveNode( node, node->X(), node->Y(), node->Z() );
1954       map< const SMDS_MeshNode*, gp_XY* >::iterator node_uv = uvMap.find( node );
1955       if ( node_uv != uvMap.end() ) {
1956         gp_XY* uv = node_uv->second;
1957         node->SetPosition
1958           ( SMDS_PositionPtr( new SMDS_FacePosition( *fId, uv->X(), uv->Y() )));
1959       }
1960     }
1961
1962   } // loop on face ids
1963 }
1964
1965 //=======================================================================
1966 //function : isReverse
1967 //purpose  : Return true if normal of prevNodes is not co-directied with
1968 //           gp_Vec(prevNodes[iNotSame],nextNodes[iNotSame]).
1969 //           iNotSame is where prevNodes and nextNodes are different
1970 //=======================================================================
1971
1972 static bool isReverse(const SMDS_MeshNode* prevNodes[],
1973                       const SMDS_MeshNode* nextNodes[],
1974                       const int            nbNodes,
1975                       const int            iNotSame)
1976 {
1977   int iBeforeNotSame = ( iNotSame == 0 ? nbNodes - 1 : iNotSame - 1 );
1978   int iAfterNotSame  = ( iNotSame + 1 == nbNodes ? 0 : iNotSame + 1 );
1979
1980   const SMDS_MeshNode* nB = prevNodes[ iBeforeNotSame ];
1981   const SMDS_MeshNode* nA = prevNodes[ iAfterNotSame ];
1982   const SMDS_MeshNode* nP = prevNodes[ iNotSame ];
1983   const SMDS_MeshNode* nN = nextNodes[ iNotSame ];
1984
1985   gp_Pnt pB ( nB->X(), nB->Y(), nB->Z() );
1986   gp_Pnt pA ( nA->X(), nA->Y(), nA->Z() );
1987   gp_Pnt pP ( nP->X(), nP->Y(), nP->Z() );
1988   gp_Pnt pN ( nN->X(), nN->Y(), nN->Z() );
1989
1990   gp_Vec vB ( pP, pB ), vA ( pP, pA ), vN ( pP, pN );
1991
1992   return (vA ^ vB) * vN < 0.0;
1993 }
1994
1995 //=======================================================================
1996 //function : sweepElement
1997 //purpose  :
1998 //=======================================================================
1999
2000 static void sweepElement(SMESHDS_Mesh*                         aMesh,
2001                          const SMDS_MeshElement*               elem,
2002                          const vector<TNodeOfNodeListMapItr> & newNodesItVec,
2003                          list<const SMDS_MeshElement*>&        newElems)
2004 {
2005   // Loop on elem nodes:
2006   // find new nodes and detect same nodes indices
2007   int nbNodes = elem->NbNodes();
2008   list<const SMDS_MeshNode*>::const_iterator itNN[ nbNodes ];
2009   const SMDS_MeshNode* prevNod[ nbNodes ], *nextNod[ nbNodes ];
2010   int iNode, nbSame = 0, iNotSameNode = 0, iSameNode = 0;
2011
2012   for ( iNode = 0; iNode < nbNodes; iNode++ )
2013   {
2014     TNodeOfNodeListMapItr nnIt = newNodesItVec[ iNode ];
2015     const SMDS_MeshNode*                 node         = nnIt->first;
2016     const list< const SMDS_MeshNode* > & listNewNodes = nnIt->second;
2017     if ( listNewNodes.empty() )
2018       return;
2019
2020     itNN[ iNode ] = listNewNodes.begin();
2021     prevNod[ iNode ] = node;
2022     nextNod[ iNode ] = listNewNodes.front();
2023     if ( prevNod[ iNode ] != nextNod [ iNode ])
2024       iNotSameNode = iNode;
2025     else {
2026       iSameNode = iNode;
2027       nbSame++;
2028     }
2029   }
2030   if ( nbSame == nbNodes || nbSame > 2) {
2031     MESSAGE( " Too many same nodes of element " << elem->GetID() );
2032     return;
2033   }
2034
2035   int iBeforeSame = 0, iAfterSame = 0, iOpposSame = 0;
2036   if ( nbSame > 0 ) {
2037     iBeforeSame = ( iSameNode == 0 ? nbNodes - 1 : iSameNode - 1 );
2038     iAfterSame  = ( iSameNode + 1 == nbNodes ? 0 : iSameNode + 1 );
2039     iOpposSame  = ( iSameNode - 2 < 0  ? iSameNode + 2 : iSameNode - 2 );
2040   }
2041
2042   // check element orientation
2043   int i0 = 0, i2 = 2;
2044   if ( nbNodes > 2 && !isReverse( prevNod, nextNod, nbNodes, iNotSameNode )) {
2045     //MESSAGE("Reversed elem " << elem );
2046     i0 = 2;
2047     i2 = 0;
2048     if ( nbSame > 0 ) {
2049       int iAB = iAfterSame + iBeforeSame;
2050       iBeforeSame = iAB - iBeforeSame;
2051       iAfterSame  = iAB - iAfterSame;
2052     }
2053   }
2054
2055   // make new elements
2056   int iStep, nbSteps = newNodesItVec[ 0 ]->second.size();
2057   for (iStep = 0; iStep < nbSteps; iStep++ )
2058   {
2059     // get next nodes
2060     for ( iNode = 0; iNode < nbNodes; iNode++ ) {
2061       nextNod[ iNode ] = *itNN[ iNode ];
2062       itNN[ iNode ]++;
2063     }
2064     SMDS_MeshElement* aNewElem = 0;
2065     switch ( nbNodes )
2066     {
2067     case 0:
2068       return;
2069     case 1: { // NODE
2070       if ( nbSame == 0 )
2071         aNewElem = aMesh->AddEdge( prevNod[ 0 ], nextNod[ 0 ] );
2072       break;
2073     }
2074     case 2: { // EDGE
2075
2076       if ( nbSame == 0 )
2077         aNewElem = aMesh->AddFace(prevNod[ 0 ], prevNod[ 1 ],
2078                                   nextNod[ 1 ], nextNod[ 0 ] );
2079       else
2080         aNewElem = aMesh->AddFace(prevNod[ 0 ], prevNod[ 1 ],
2081                                   nextNod[ iNotSameNode ] );
2082       break;
2083     }
2084     case 3: { // TRIANGLE
2085
2086       if ( nbSame == 0 )       // --- pentahedron
2087         aNewElem = aMesh->AddVolume (prevNod[ i0 ], prevNod[ 1 ], prevNod[ i2 ],
2088                                      nextNod[ i0 ], nextNod[ 1 ], nextNod[ i2 ] );
2089
2090       else if ( nbSame == 1 )  // --- pyramid
2091         aNewElem = aMesh->AddVolume (prevNod[ iBeforeSame ],  prevNod[ iAfterSame ],
2092                                      nextNod[ iAfterSame ], nextNod[ iBeforeSame ],
2093                                      nextNod[ iSameNode ]);
2094
2095       else // 2 same nodes:      --- tetrahedron
2096         aNewElem = aMesh->AddVolume (prevNod[ i0 ], prevNod[ 1 ], prevNod[ i2 ],
2097                                      nextNod[ iNotSameNode ]);
2098       break;
2099     }
2100     case 4: { // QUADRANGLE
2101
2102       if ( nbSame == 0 )       // --- hexahedron
2103         aNewElem = aMesh->AddVolume (prevNod[ i0 ], prevNod[ 1 ], prevNod[ i2 ], prevNod[ 3 ],
2104                                      nextNod[ i0 ], nextNod[ 1 ], nextNod[ i2 ], nextNod[ 3 ]);
2105
2106       else if ( nbSame == 1 )  // --- pyramid + pentahedron
2107       {
2108         aNewElem = aMesh->AddVolume (prevNod[ iBeforeSame ],  prevNod[ iAfterSame ],
2109                                      nextNod[ iAfterSame ], nextNod[ iBeforeSame ],
2110                                      nextNod[ iSameNode ]);
2111         newElems.push_back( aNewElem );
2112         aNewElem = aMesh->AddVolume (prevNod[ iAfterSame ], prevNod[ iOpposSame ],
2113                                      prevNod[ iBeforeSame ],  nextNod[ iAfterSame ],
2114                                      nextNod[ iOpposSame ],  nextNod[ iBeforeSame ] );
2115       }
2116       else if ( nbSame == 2 )  // pentahedron
2117       {
2118         if ( prevNod[ iBeforeSame ] == nextNod[ iBeforeSame ] )
2119           // iBeforeSame is same too
2120           aNewElem = aMesh->AddVolume (prevNod[ iBeforeSame ], prevNod[ iOpposSame ],
2121                                        nextNod[ iOpposSame ], prevNod[ iSameNode ],
2122                                        prevNod[ iAfterSame ],  nextNod[ iAfterSame ]);
2123         else
2124           // iAfterSame is same too
2125           aNewElem = aMesh->AddVolume (prevNod[ iSameNode ], prevNod[ iBeforeSame ],
2126                                        nextNod[ iBeforeSame ], prevNod[ iAfterSame ],
2127                                        prevNod[ iOpposSame ],  nextNod[ iOpposSame ]);
2128       }
2129       break;
2130     }
2131     default: {
2132       // realized for extrusion only
2133       vector<const SMDS_MeshNode*> polyedre_nodes (nbNodes*2 + 4*nbNodes);
2134       vector<int> quantities (nbNodes + 2);
2135
2136       quantities[0] = nbNodes; // bottom of prism
2137       for (int inode = 0; inode < nbNodes; inode++) {
2138         polyedre_nodes[inode] = prevNod[inode];
2139       }
2140
2141       quantities[1] = nbNodes; // top of prism
2142       for (int inode = 0; inode < nbNodes; inode++) {
2143         polyedre_nodes[nbNodes + inode] = nextNod[inode];
2144       }
2145
2146       for (int iface = 0; iface < nbNodes; iface++) {
2147         quantities[iface + 2] = 4;
2148         int inextface = (iface == nbNodes - 1) ? 0 : iface + 1;
2149         polyedre_nodes[2*nbNodes + 4*iface + 0] = prevNod[iface];
2150         polyedre_nodes[2*nbNodes + 4*iface + 1] = prevNod[inextface];
2151         polyedre_nodes[2*nbNodes + 4*iface + 2] = nextNod[inextface];
2152         polyedre_nodes[2*nbNodes + 4*iface + 3] = nextNod[iface];
2153       }
2154       aNewElem = aMesh->AddPolyhedralVolume (polyedre_nodes, quantities);
2155     }
2156     }
2157     if ( aNewElem )
2158       newElems.push_back( aNewElem );
2159
2160     // set new prev nodes
2161     for ( iNode = 0; iNode < nbNodes; iNode++ )
2162       prevNod[ iNode ] = nextNod[ iNode ];
2163
2164   } // for steps
2165 }
2166
2167 //=======================================================================
2168 //function : makeWalls
2169 //purpose  : create 1D and 2D elements around swept elements
2170 //=======================================================================
2171
2172 static void makeWalls (SMESHDS_Mesh*                 aMesh,
2173                        TNodeOfNodeListMap &          mapNewNodes,
2174                        TElemOfElemListMap &          newElemsMap,
2175                        TElemOfVecOfNnlmiMap &        elemNewNodesMap,
2176                        set<const SMDS_MeshElement*>& elemSet)
2177 {
2178   ASSERT( newElemsMap.size() == elemNewNodesMap.size() );
2179
2180   // Find nodes belonging to only one initial element - sweep them to get edges.
2181
2182   TNodeOfNodeListMapItr nList = mapNewNodes.begin();
2183   for ( ; nList != mapNewNodes.end(); nList++ )
2184   {
2185     const SMDS_MeshNode* node =
2186       static_cast<const SMDS_MeshNode*>( nList->first );
2187     SMDS_ElemIteratorPtr eIt = node->GetInverseElementIterator();
2188     int nbInitElems = 0;
2189     while ( eIt->more() && nbInitElems < 2 )
2190       if ( elemSet.find( eIt->next() ) != elemSet.end() )
2191         nbInitElems++;
2192     if ( nbInitElems < 2 ) {
2193       vector<TNodeOfNodeListMapItr> newNodesItVec( 1, nList );
2194       list<const SMDS_MeshElement*> newEdges;
2195       sweepElement( aMesh, node, newNodesItVec, newEdges );
2196     }
2197   }
2198
2199   // Make a ceiling for each element ie an equal element of last new nodes.
2200   // Find free links of faces - make edges and sweep them into faces.
2201
2202   TElemOfElemListMap::iterator   itElem      = newElemsMap.begin();
2203   TElemOfVecOfNnlmiMap::iterator itElemNodes = elemNewNodesMap.begin();
2204   for ( ; itElem != newElemsMap.end(); itElem++, itElemNodes++ )
2205   {
2206     const SMDS_MeshElement* elem = itElem->first;
2207     vector<TNodeOfNodeListMapItr>& vecNewNodes = itElemNodes->second;
2208
2209     if ( elem->GetType() == SMDSAbs_Edge )
2210     {
2211       // create a ceiling edge
2212       aMesh->AddEdge(vecNewNodes[ 0 ]->second.back(),
2213                      vecNewNodes[ 1 ]->second.back() );
2214     }
2215     if ( elem->GetType() != SMDSAbs_Face )
2216       continue;
2217
2218     bool hasFreeLinks = false;
2219
2220     set<const SMDS_MeshElement*> avoidSet;
2221     avoidSet.insert( elem );
2222
2223     // loop on a face nodes
2224     set<const SMDS_MeshNode*> aFaceLastNodes;
2225     int iNode, nbNodes = vecNewNodes.size();
2226     for ( iNode = 0; iNode < nbNodes; iNode++ )
2227     {
2228       aFaceLastNodes.insert( vecNewNodes[ iNode ]->second.back() );
2229       // look for free links of a face
2230       int iNext = ( iNode + 1 == nbNodes ) ? 0 : iNode + 1;
2231       const SMDS_MeshNode* n1 = vecNewNodes[ iNode ]->first;
2232       const SMDS_MeshNode* n2 = vecNewNodes[ iNext ]->first;
2233       // check if a link is free
2234       if ( ! SMESH_MeshEditor::FindFaceInSet ( n1, n2, elemSet, avoidSet ))
2235       {
2236         hasFreeLinks = true;
2237         // make an edge and a ceiling for a new edge
2238         if ( !aMesh->FindEdge( n1, n2 ))
2239           aMesh->AddEdge( n1, n2 );
2240         n1 = vecNewNodes[ iNode ]->second.back();
2241         n2 = vecNewNodes[ iNext ]->second.back();
2242         if ( !aMesh->FindEdge( n1, n2 ))
2243           aMesh->AddEdge( n1, n2 );
2244       }
2245     }
2246     // sweep free links into faces
2247
2248     if ( hasFreeLinks )
2249     {
2250       list<const SMDS_MeshElement*> & newVolumes = itElem->second;
2251       int iStep, nbSteps = vecNewNodes[0]->second.size();
2252       int iVol, volNb, nbVolumesByStep = newVolumes.size() / nbSteps;
2253
2254       set<const SMDS_MeshNode*> initNodeSet, faceNodeSet;
2255       for ( iNode = 0; iNode < nbNodes; iNode++ )
2256         initNodeSet.insert( vecNewNodes[ iNode ]->first );
2257
2258       for ( volNb = 0; volNb < nbVolumesByStep; volNb++ )
2259       {
2260         list<const SMDS_MeshElement*>::iterator v = newVolumes.begin();
2261         iVol = 0;
2262         while ( iVol++ < volNb ) v++;
2263         // find indices of free faces of a volume
2264         list< int > fInd;
2265         SMDS_VolumeTool vTool( *v );
2266         int iF, nbF = vTool.NbFaces();
2267         for ( iF = 0; iF < nbF; iF ++ )
2268           if (vTool.IsFreeFace( iF ) &&
2269               vTool.GetFaceNodes( iF, faceNodeSet ) &&
2270               initNodeSet != faceNodeSet) // except an initial face
2271             fInd.push_back( iF );
2272         if ( fInd.empty() )
2273           continue;
2274
2275         // create faces for all steps
2276         for ( iStep = 0; iStep < nbSteps; iStep++ )
2277         {
2278           vTool.Set( *v );
2279           vTool.SetExternalNormal();
2280           list< int >::iterator ind = fInd.begin();
2281           for ( ; ind != fInd.end(); ind++ )
2282           {
2283             const SMDS_MeshNode** nodes = vTool.GetFaceNodes( *ind );
2284             switch ( vTool.NbFaceNodes( *ind ) ) {
2285             case 3:
2286               aMesh->AddFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ] ); break;
2287             case 4:
2288               aMesh->AddFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ], nodes[ 3 ] ); break;
2289             default:
2290               {
2291                 int nbPolygonNodes = vTool.NbFaceNodes( *ind );
2292                 vector<const SMDS_MeshNode*> polygon_nodes (nbPolygonNodes);
2293                 for (int inode = 0; inode < nbPolygonNodes; inode++) {
2294                   polygon_nodes[inode] = nodes[inode];
2295                 }
2296                 aMesh->AddPolygonalFace(polygon_nodes);
2297                 break;
2298               }
2299             }
2300           }
2301           // go to the next volume
2302           iVol = 0;
2303           while ( iVol++ < nbVolumesByStep ) v++;
2304         }
2305       }
2306     } // sweep free links into faces
2307
2308     // make a ceiling face with a normal external to a volume
2309
2310     SMDS_VolumeTool lastVol( itElem->second.back() );
2311     int iF = lastVol.GetFaceIndex( aFaceLastNodes );
2312     if ( iF >= 0 )
2313     {
2314       lastVol.SetExternalNormal();
2315       const SMDS_MeshNode** nodes = lastVol.GetFaceNodes( iF );
2316       switch ( lastVol.NbFaceNodes( iF ) ) {
2317       case 3:
2318         if (!hasFreeLinks ||
2319             !aMesh->FindFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ]))
2320           aMesh->AddFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ] );
2321         break;
2322       case 4:
2323         if (!hasFreeLinks ||
2324             !aMesh->FindFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ], nodes[ 3 ]))
2325           aMesh->AddFace( nodes[ 0 ], nodes[ 1 ], nodes[ 2 ], nodes[ 3 ] );
2326         break;
2327       default:
2328         {
2329           int nbPolygonNodes = lastVol.NbFaceNodes( iF );
2330           vector<const SMDS_MeshNode*> polygon_nodes (nbPolygonNodes);
2331           for (int inode = 0; inode < nbPolygonNodes; inode++) {
2332             polygon_nodes[inode] = nodes[inode];
2333           }
2334           if (!hasFreeLinks || !aMesh->FindFace(polygon_nodes))
2335             aMesh->AddPolygonalFace(polygon_nodes);
2336         }
2337         break;
2338       }
2339     }
2340
2341   } // loop on swept elements
2342 }
2343
2344 //=======================================================================
2345 //function : RotationSweep
2346 //purpose  :
2347 //=======================================================================
2348
2349 void SMESH_MeshEditor::RotationSweep(set<const SMDS_MeshElement*> & theElems,
2350                                      const gp_Ax1&                  theAxis,
2351                                      const double                   theAngle,
2352                                      const int                      theNbSteps,
2353                                      const double                   theTol)
2354 {
2355   MESSAGE( "RotationSweep()");
2356   gp_Trsf aTrsf;
2357   aTrsf.SetRotation( theAxis, theAngle );
2358
2359   gp_Lin aLine( theAxis );
2360   double aSqTol = theTol * theTol;
2361
2362   SMESHDS_Mesh* aMesh = GetMeshDS();
2363
2364   TNodeOfNodeListMap mapNewNodes;
2365   TElemOfVecOfNnlmiMap mapElemNewNodes;
2366   TElemOfElemListMap newElemsMap;
2367
2368   // loop on theElems
2369   set< const SMDS_MeshElement* >::iterator itElem;
2370   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
2371   {
2372     const SMDS_MeshElement* elem = (*itElem);
2373     if ( !elem )
2374       continue;
2375     vector<TNodeOfNodeListMapItr> & newNodesItVec = mapElemNewNodes[ elem ];
2376     newNodesItVec.reserve( elem->NbNodes() );
2377
2378     // loop on elem nodes
2379     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2380     while ( itN->more() ) {
2381
2382       // check if a node has been already sweeped
2383       const SMDS_MeshNode* node =
2384         static_cast<const SMDS_MeshNode*>( itN->next() );
2385       TNodeOfNodeListMapItr nIt = mapNewNodes.find( node );
2386       if ( nIt == mapNewNodes.end() )
2387       {
2388         nIt = mapNewNodes.insert( make_pair( node, list<const SMDS_MeshNode*>() )).first;
2389         list<const SMDS_MeshNode*>& listNewNodes = nIt->second;
2390
2391         // make new nodes
2392         gp_XYZ aXYZ( node->X(), node->Y(), node->Z() );
2393         double coord[3];
2394         aXYZ.Coord( coord[0], coord[1], coord[2] );
2395         bool isOnAxis = ( aLine.SquareDistance( aXYZ ) <= aSqTol );
2396         const SMDS_MeshNode * newNode = node;
2397         for ( int i = 0; i < theNbSteps; i++ ) {
2398           if ( !isOnAxis ) {
2399             aTrsf.Transforms( coord[0], coord[1], coord[2] );
2400             newNode = aMesh->AddNode( coord[0], coord[1], coord[2] );
2401           }
2402           listNewNodes.push_back( newNode );
2403         }
2404       }
2405       newNodesItVec.push_back( nIt );
2406     }
2407     // make new elements
2408     sweepElement( aMesh, elem, newNodesItVec, newElemsMap[elem] );
2409   }
2410
2411   makeWalls( aMesh, mapNewNodes, newElemsMap, mapElemNewNodes, theElems );
2412
2413 }
2414
2415
2416 //=======================================================================
2417 //function : CreateNode
2418 //purpose  : 
2419 //=======================================================================
2420 const SMDS_MeshNode* SMESH_MeshEditor::CreateNode(const double x,
2421                                                   const double y,
2422                                                   const double z,
2423                                                   const double tolnode,
2424                                                   SMESH_SequenceOfNode& aNodes)
2425 {
2426   gp_Pnt P1(x,y,z);
2427   SMESHDS_Mesh * aMesh = myMesh->GetMeshDS();
2428
2429   // try to search in sequence of existing nodes
2430   // if aNodes.Length()>0 we 'nave to use given sequence
2431   // else - use all nodes of mesh
2432   if(aNodes.Length()>0) {
2433     int i;
2434     for(i=1; i<=aNodes.Length(); i++) {
2435       gp_Pnt P2(aNodes.Value(i)->X(),aNodes.Value(i)->Y(),aNodes.Value(i)->Z());
2436       if(P1.Distance(P2)<tolnode)
2437         return aNodes.Value(i);
2438     }
2439   }
2440   else {
2441     SMDS_NodeIteratorPtr itn = aMesh->nodesIterator();
2442     while(itn->more()) {
2443       const SMDS_MeshNode* aN = static_cast<const SMDS_MeshNode*> (itn->next());
2444       gp_Pnt P2(aN->X(),aN->Y(),aN->Z());
2445       if(P1.Distance(P2)<tolnode)
2446         return aN;
2447     }    
2448   }
2449
2450   // create new node and return it
2451   const SMDS_MeshNode* NewNode = aMesh->AddNode(x,y,z);
2452   return NewNode;
2453 }
2454
2455
2456 //=======================================================================
2457 //function : ExtrusionSweep
2458 //purpose  :
2459 //=======================================================================
2460
2461 void SMESH_MeshEditor::ExtrusionSweep
2462                     (set<const SMDS_MeshElement*> & theElems,
2463                      const gp_Vec&                  theStep,
2464                      const int                      theNbSteps,
2465                      TElemOfElemListMap&            newElemsMap,
2466                      const int                      theFlags,
2467                      const double                   theTolerance)
2468 {
2469   ExtrusParam aParams;
2470   aParams.myDir = gp_Dir(theStep);
2471   aParams.myNodes.Clear();
2472   aParams.mySteps = new TColStd_HSequenceOfReal;
2473   int i;
2474   for(i=1; i<=theNbSteps; i++)
2475     aParams.mySteps->Append(theStep.Magnitude());
2476
2477   ExtrusionSweep(theElems,aParams,newElemsMap,theFlags,theTolerance);
2478
2479 }
2480
2481
2482 //=======================================================================
2483 //function : ExtrusionSweep
2484 //purpose  :
2485 //=======================================================================
2486
2487 void SMESH_MeshEditor::ExtrusionSweep
2488                     (set<const SMDS_MeshElement*> & theElems,
2489                      ExtrusParam&                   theParams,
2490                      TElemOfElemListMap&            newElemsMap,
2491                      const int                      theFlags,
2492                      const double                   theTolerance)
2493 {
2494   SMESHDS_Mesh* aMesh = GetMeshDS();
2495
2496   TNodeOfNodeListMap mapNewNodes;
2497   TElemOfVecOfNnlmiMap mapElemNewNodes;
2498
2499   // loop on theElems
2500   set< const SMDS_MeshElement* >::iterator itElem;
2501   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
2502   {
2503     // check element type
2504     const SMDS_MeshElement* elem = (*itElem);
2505     if ( !elem )
2506       continue;
2507
2508     vector<TNodeOfNodeListMapItr> & newNodesItVec = mapElemNewNodes[ elem ];
2509     newNodesItVec.reserve( elem->NbNodes() );
2510
2511     // loop on elem nodes
2512     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2513     while ( itN->more() ) {
2514
2515       // check if a node has been already sweeped
2516       const SMDS_MeshNode* node =
2517         static_cast<const SMDS_MeshNode*>( itN->next() );
2518       TNodeOfNodeListMap::iterator nIt = mapNewNodes.find( node );
2519       if ( nIt == mapNewNodes.end() )
2520       {
2521         nIt = mapNewNodes.insert( make_pair( node, list<const SMDS_MeshNode*>() )).first;
2522         list<const SMDS_MeshNode*>& listNewNodes = nIt->second;
2523
2524         // make new nodes
2525         double coord[] = { node->X(), node->Y(), node->Z() };
2526         int nbsteps = theParams.mySteps->Length();
2527         for ( int i = 0; i < nbsteps; i++ ) {
2528           //aTrsf.Transforms( coord[0], coord[1], coord[2] );
2529           coord[0] = coord[0] + theParams.myDir.X()*theParams.mySteps->Value(i+1);
2530           coord[1] = coord[1] + theParams.myDir.Y()*theParams.mySteps->Value(i+1);
2531           coord[2] = coord[2] + theParams.myDir.Z()*theParams.mySteps->Value(i+1);
2532           if( theFlags & EXTRUSION_FLAG_SEW ) {
2533             const SMDS_MeshNode * newNode = CreateNode(coord[0], coord[1], coord[2],
2534                                                        theTolerance, theParams.myNodes);
2535             listNewNodes.push_back( newNode );
2536           }
2537           else {
2538             const SMDS_MeshNode * newNode = aMesh->AddNode( coord[0], coord[1], coord[2] );
2539             listNewNodes.push_back( newNode );
2540           }
2541         }
2542       }
2543       newNodesItVec.push_back( nIt );
2544     }
2545     // make new elements
2546     sweepElement( aMesh, elem, newNodesItVec, newElemsMap[elem] );
2547   }
2548   if( theFlags & EXTRUSION_FLAG_BOUNDARY ) {
2549     makeWalls( aMesh, mapNewNodes, newElemsMap, mapElemNewNodes, theElems );
2550   }
2551 }
2552
2553
2554 //=======================================================================
2555 //class    : SMESH_MeshEditor_PathPoint
2556 //purpose  : auxiliary class
2557 //=======================================================================
2558 class SMESH_MeshEditor_PathPoint {
2559 public:
2560   SMESH_MeshEditor_PathPoint() {
2561     myPnt.SetCoord(99., 99., 99.);
2562     myTgt.SetCoord(1.,0.,0.);
2563     myAngle=0.;
2564     myPrm=0.;
2565   }
2566   void SetPnt(const gp_Pnt& aP3D){
2567     myPnt=aP3D;
2568   }
2569   void SetTangent(const gp_Dir& aTgt){
2570     myTgt=aTgt;
2571   }
2572   void SetAngle(const double& aBeta){
2573     myAngle=aBeta;
2574   }
2575   void SetParameter(const double& aPrm){
2576     myPrm=aPrm;
2577   }
2578   const gp_Pnt& Pnt()const{
2579     return myPnt;
2580   }
2581   const gp_Dir& Tangent()const{
2582     return myTgt;
2583   }
2584   double Angle()const{
2585     return myAngle;
2586   }
2587   double Parameter()const{
2588     return myPrm;
2589   }
2590
2591 protected:
2592   gp_Pnt myPnt;
2593   gp_Dir myTgt;
2594   double myAngle;
2595   double myPrm;
2596 };
2597
2598 //=======================================================================
2599 //function : ExtrusionAlongTrack
2600 //purpose  :
2601 //=======================================================================
2602 SMESH_MeshEditor::Extrusion_Error
2603   SMESH_MeshEditor::ExtrusionAlongTrack (std::set<const SMDS_MeshElement*> & theElements,
2604                                          SMESH_subMesh* theTrack,
2605                                          const SMDS_MeshNode* theN1,
2606                                          const bool theHasAngles,
2607                                          std::list<double>& theAngles,
2608                                          const bool theHasRefPoint,
2609                                          const gp_Pnt& theRefPoint)
2610 {
2611   MESSAGE("SMESH_MeshEditor::ExtrusionAlongTrack")
2612   int j, aNbTP, aNbE, aNb;
2613   double aT1, aT2, aT, aAngle, aX, aY, aZ;
2614   std::list<double> aPrms;
2615   std::list<double>::iterator aItD;
2616   std::set< const SMDS_MeshElement* >::iterator itElem;
2617
2618   Standard_Real aTx1, aTx2, aL2, aTolVec, aTolVec2;
2619   gp_Pnt aP3D, aV0;
2620   gp_Vec aVec;
2621   gp_XYZ aGC;
2622   Handle(Geom_Curve) aC3D;
2623   TopoDS_Edge aTrackEdge;
2624   TopoDS_Vertex aV1, aV2;
2625
2626   SMDS_ElemIteratorPtr aItE;
2627   SMDS_NodeIteratorPtr aItN;
2628   SMDSAbs_ElementType aTypeE;
2629
2630   TNodeOfNodeListMap mapNewNodes;
2631   TElemOfVecOfNnlmiMap mapElemNewNodes;
2632   TElemOfElemListMap newElemsMap;
2633
2634   aTolVec=1.e-7;
2635   aTolVec2=aTolVec*aTolVec;
2636
2637   // 1. Check data
2638   aNbE = theElements.size();
2639   // nothing to do
2640   if ( !aNbE )
2641     return EXTR_NO_ELEMENTS;
2642
2643   // 1.1 Track Pattern
2644   ASSERT( theTrack );
2645
2646   SMESHDS_SubMesh* pSubMeshDS=theTrack->GetSubMeshDS();
2647
2648   aItE = pSubMeshDS->GetElements();
2649   while ( aItE->more() ) {
2650     const SMDS_MeshElement* pE = aItE->next();
2651     aTypeE = pE->GetType();
2652     // Pattern must contain links only
2653     if ( aTypeE != SMDSAbs_Edge )
2654       return EXTR_PATH_NOT_EDGE;
2655   }
2656
2657   const TopoDS_Shape& aS = theTrack->GetSubShape();
2658   // Sub shape for the Pattern must be an Edge
2659   if ( aS.ShapeType() != TopAbs_EDGE )
2660     return EXTR_BAD_PATH_SHAPE;
2661
2662   aTrackEdge = TopoDS::Edge( aS );
2663   // the Edge must not be degenerated
2664   if ( BRep_Tool::Degenerated( aTrackEdge ) )
2665     return EXTR_BAD_PATH_SHAPE;
2666
2667   TopExp::Vertices( aTrackEdge, aV1, aV2 );
2668   aT1=BRep_Tool::Parameter( aV1, aTrackEdge );
2669   aT2=BRep_Tool::Parameter( aV2, aTrackEdge );
2670
2671   aItN = theTrack->GetFather()->GetSubMesh( aV1 )->GetSubMeshDS()->GetNodes();
2672   const SMDS_MeshNode* aN1 = aItN->next();
2673
2674   aItN = theTrack->GetFather()->GetSubMesh( aV2 )->GetSubMeshDS()->GetNodes();
2675   const SMDS_MeshNode* aN2 = aItN->next();
2676
2677   // starting node must be aN1 or aN2
2678   if ( !( aN1 == theN1 || aN2 == theN1 ) )
2679     return EXTR_BAD_STARTING_NODE;
2680
2681   aNbTP = pSubMeshDS->NbNodes() + 2;
2682
2683   // 1.2. Angles
2684   vector<double> aAngles( aNbTP );
2685
2686   for ( j=0; j < aNbTP; ++j ) {
2687     aAngles[j] = 0.;
2688   }
2689
2690   if ( theHasAngles ) {
2691     aItD = theAngles.begin();
2692     for ( j=1; (aItD != theAngles.end()) && (j<aNbTP); ++aItD, ++j ) {
2693       aAngle = *aItD;
2694       aAngles[j] = aAngle;
2695     }
2696   }
2697
2698   // 2. Collect parameters on the track edge
2699   aPrms.push_back( aT1 );
2700   aPrms.push_back( aT2 );
2701
2702   aItN = pSubMeshDS->GetNodes();
2703   while ( aItN->more() ) {
2704     const SMDS_MeshNode* pNode = aItN->next();
2705     const SMDS_EdgePosition* pEPos =
2706       static_cast<const SMDS_EdgePosition*>( pNode->GetPosition().get() );
2707     aT = pEPos->GetUParameter();
2708     aPrms.push_back( aT );
2709   }
2710
2711   // sort parameters
2712   aPrms.sort();
2713   if ( aN1 == theN1 ) {
2714     if ( aT1 > aT2 ) {
2715       aPrms.reverse();
2716     }
2717   }
2718   else {
2719     if ( aT2 > aT1 ) {
2720       aPrms.reverse();
2721     }
2722   }
2723
2724   // 3. Path Points
2725   SMESH_MeshEditor_PathPoint aPP;
2726   vector<SMESH_MeshEditor_PathPoint> aPPs( aNbTP );
2727   //
2728   aC3D = BRep_Tool::Curve( aTrackEdge, aTx1, aTx2 );
2729   //
2730   aItD = aPrms.begin();
2731   for ( j=0; aItD != aPrms.end(); ++aItD, ++j ) {
2732     aT = *aItD;
2733     aC3D->D1( aT, aP3D, aVec );
2734     aL2 = aVec.SquareMagnitude();
2735     if ( aL2 < aTolVec2 )
2736       return EXTR_CANT_GET_TANGENT;
2737
2738     gp_Dir aTgt( aVec );
2739     aAngle = aAngles[j];
2740
2741     aPP.SetPnt( aP3D );
2742     aPP.SetTangent( aTgt );
2743     aPP.SetAngle( aAngle );
2744     aPP.SetParameter( aT );
2745     aPPs[j]=aPP;
2746   }
2747
2748   // 3. Center of rotation aV0
2749   aV0 = theRefPoint;
2750   if ( !theHasRefPoint ) {
2751     aNb = 0;
2752     aGC.SetCoord( 0.,0.,0. );
2753
2754     itElem = theElements.begin();
2755     for ( ; itElem != theElements.end(); itElem++ ) {
2756       const SMDS_MeshElement* elem = (*itElem);
2757
2758       SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2759       while ( itN->more() ) {
2760         const SMDS_MeshNode* node = static_cast<const SMDS_MeshNode*>( itN->next() );
2761         aX = node->X();
2762         aY = node->Y();
2763         aZ = node->Z();
2764
2765         if ( mapNewNodes.find( node ) == mapNewNodes.end() ) {
2766           list<const SMDS_MeshNode*> aLNx;
2767           mapNewNodes[node] = aLNx;
2768           //
2769           gp_XYZ aXYZ( aX, aY, aZ );
2770           aGC += aXYZ;
2771           ++aNb;
2772         }
2773       }
2774     }
2775     aGC /= aNb;
2776     aV0.SetXYZ( aGC );
2777   } // if (!theHasRefPoint) {
2778   mapNewNodes.clear();
2779
2780   // 4. Processing the elements
2781   SMESHDS_Mesh* aMesh = GetMeshDS();
2782
2783   for ( itElem = theElements.begin(); itElem != theElements.end(); itElem++ ) {
2784     // check element type
2785     const SMDS_MeshElement* elem = (*itElem);
2786     aTypeE = elem->GetType();
2787     if ( !elem || ( aTypeE != SMDSAbs_Face && aTypeE != SMDSAbs_Edge ) )
2788       continue;
2789
2790     vector<TNodeOfNodeListMapItr> & newNodesItVec = mapElemNewNodes[ elem ];
2791     newNodesItVec.reserve( elem->NbNodes() );
2792
2793     // loop on elem nodes
2794     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2795     while ( itN->more() ) {
2796
2797       // check if a node has been already processed
2798       const SMDS_MeshNode* node =
2799         static_cast<const SMDS_MeshNode*>( itN->next() );
2800       TNodeOfNodeListMap::iterator nIt = mapNewNodes.find( node );
2801       if ( nIt == mapNewNodes.end() ) {
2802         nIt = mapNewNodes.insert( make_pair( node, list<const SMDS_MeshNode*>() )).first;
2803         list<const SMDS_MeshNode*>& listNewNodes = nIt->second;
2804
2805         // make new nodes
2806         aX = node->X();  aY = node->Y(); aZ = node->Z();
2807
2808         Standard_Real aAngle1x, aAngleT1T0, aTolAng;
2809         gp_Pnt aP0x, aP1x, aPN0, aPN1, aV0x, aV1x;
2810         gp_Ax1 anAx1, anAxT1T0;
2811         gp_Dir aDT1x, aDT0x, aDT1T0;
2812
2813         aTolAng=1.e-4;
2814
2815         aV0x = aV0;
2816         aPN0.SetCoord(aX, aY, aZ);
2817
2818         const SMESH_MeshEditor_PathPoint& aPP0 = aPPs[0];
2819         aP0x = aPP0.Pnt();
2820         aDT0x= aPP0.Tangent();
2821
2822         for ( j = 1; j < aNbTP; ++j ) {
2823           const SMESH_MeshEditor_PathPoint& aPP1 = aPPs[j];
2824           aP1x = aPP1.Pnt();
2825           aDT1x = aPP1.Tangent();
2826           aAngle1x = aPP1.Angle();
2827
2828           gp_Trsf aTrsf, aTrsfRot, aTrsfRotT1T0;
2829           // Translation
2830           gp_Vec aV01x( aP0x, aP1x );
2831           aTrsf.SetTranslation( aV01x );
2832
2833           // traslated point
2834           aV1x = aV0x.Transformed( aTrsf );
2835           aPN1 = aPN0.Transformed( aTrsf );
2836
2837           // rotation 1 [ T1,T0 ]
2838           aAngleT1T0=-aDT1x.Angle( aDT0x );
2839           if (fabs(aAngleT1T0) > aTolAng) {
2840             aDT1T0=aDT1x^aDT0x;
2841             anAxT1T0.SetLocation( aV1x );
2842             anAxT1T0.SetDirection( aDT1T0 );
2843             aTrsfRotT1T0.SetRotation( anAxT1T0, aAngleT1T0 );
2844
2845             aPN1 = aPN1.Transformed( aTrsfRotT1T0 );
2846           }
2847
2848           // rotation 2
2849           if ( theHasAngles ) {
2850             anAx1.SetLocation( aV1x );
2851             anAx1.SetDirection( aDT1x );
2852             aTrsfRot.SetRotation( anAx1, aAngle1x );
2853
2854             aPN1 = aPN1.Transformed( aTrsfRot );
2855           }
2856
2857           // make new node
2858           aX = aPN1.X();
2859           aY = aPN1.Y();
2860           aZ = aPN1.Z();
2861           const SMDS_MeshNode* newNode = aMesh->AddNode( aX, aY, aZ );
2862           listNewNodes.push_back( newNode );
2863
2864           aPN0 = aPN1;
2865           aP0x = aP1x;
2866           aV0x = aV1x;
2867           aDT0x = aDT1x;
2868         }
2869       }
2870       newNodesItVec.push_back( nIt );
2871     }
2872     // make new elements
2873     sweepElement( aMesh, elem, newNodesItVec, newElemsMap[elem] );
2874   }
2875
2876   makeWalls( aMesh, mapNewNodes, newElemsMap, mapElemNewNodes, theElements );
2877
2878   return EXTR_OK;
2879 }
2880
2881 //=======================================================================
2882 //function : Transform
2883 //purpose  :
2884 //=======================================================================
2885
2886 void SMESH_MeshEditor::Transform (set<const SMDS_MeshElement*> & theElems,
2887                                   const gp_Trsf&                 theTrsf,
2888                                   const bool                     theCopy)
2889 {
2890   bool needReverse;
2891   switch ( theTrsf.Form() ) {
2892   case gp_PntMirror:
2893   case gp_Ax2Mirror:
2894     needReverse = true;
2895     break;
2896   default:
2897     needReverse = false;
2898   }
2899
2900   SMESHDS_Mesh* aMesh = GetMeshDS();
2901
2902   // map old node to new one
2903   TNodeNodeMap nodeMap;
2904
2905   // elements sharing moved nodes; those of them which have all
2906   // nodes mirrored but are not in theElems are to be reversed
2907   set<const SMDS_MeshElement*> inverseElemSet;
2908
2909   // loop on theElems
2910   set< const SMDS_MeshElement* >::iterator itElem;
2911   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
2912   {
2913     const SMDS_MeshElement* elem = (*itElem);
2914     if ( !elem )
2915       continue;
2916
2917     // loop on elem nodes
2918     SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2919     while ( itN->more() ) {
2920
2921       // check if a node has been already transformed
2922       const SMDS_MeshNode* node =
2923         static_cast<const SMDS_MeshNode*>( itN->next() );
2924       if (nodeMap.find( node ) != nodeMap.end() )
2925         continue;
2926
2927       double coord[3];
2928       coord[0] = node->X();
2929       coord[1] = node->Y();
2930       coord[2] = node->Z();
2931       theTrsf.Transforms( coord[0], coord[1], coord[2] );
2932       const SMDS_MeshNode * newNode = node;
2933       if ( theCopy )
2934         newNode = aMesh->AddNode( coord[0], coord[1], coord[2] );
2935       else {
2936         aMesh->MoveNode( node, coord[0], coord[1], coord[2] );
2937         // node position on shape becomes invalid
2938         const_cast< SMDS_MeshNode* > ( node )->SetPosition
2939           ( SMDS_SpacePosition::originSpacePosition() );
2940       }
2941       nodeMap.insert( TNodeNodeMap::value_type( node, newNode ));
2942
2943       // keep inverse elements
2944       if ( !theCopy && needReverse ) {
2945         SMDS_ElemIteratorPtr invElemIt = node->GetInverseElementIterator();
2946         while ( invElemIt->more() )
2947           inverseElemSet.insert( invElemIt->next() );
2948       }
2949     }
2950   }
2951
2952   // either new elements are to be created
2953   // or a mirrored element are to be reversed
2954   if ( !theCopy && !needReverse)
2955     return;
2956
2957   if ( !inverseElemSet.empty()) {
2958     set<const SMDS_MeshElement*>::iterator invElemIt = inverseElemSet.begin();
2959     for ( ; invElemIt != inverseElemSet.end(); invElemIt++ )
2960       theElems.insert( *invElemIt );
2961   }
2962
2963   // replicate or reverse elements
2964
2965   enum {
2966     REV_TETRA   = 0,  //  = nbNodes - 4
2967     REV_PYRAMID = 1,  //  = nbNodes - 4
2968     REV_PENTA   = 2,  //  = nbNodes - 4
2969     REV_FACE    = 3,
2970     REV_HEXA    = 4,  //  = nbNodes - 4
2971     FORWARD     = 5
2972     };
2973   int index[][8] = {
2974     { 2, 1, 0, 3, 4, 0, 0, 0 },  // REV_TETRA
2975     { 2, 1, 0, 3, 4, 0, 0, 0 },  // REV_PYRAMID
2976     { 2, 1, 0, 5, 4, 3, 0, 0 },  // REV_PENTA
2977     { 2, 1, 0, 3, 0, 0, 0, 0 },  // REV_FACE
2978     { 2, 1, 0, 3, 6, 5, 4, 7 },  // REV_HEXA
2979     { 0, 1, 2, 3, 4, 5, 6, 7 }   // FORWARD
2980   };
2981
2982   for ( itElem = theElems.begin(); itElem != theElems.end(); itElem++ )
2983   {
2984     const SMDS_MeshElement* elem = (*itElem);
2985     if ( !elem || elem->GetType() == SMDSAbs_Node )
2986       continue;
2987
2988     int nbNodes = elem->NbNodes();
2989     int elemType = elem->GetType();
2990
2991     if (elem->IsPoly()) {
2992       // Polygon or Polyhedral Volume
2993       switch ( elemType ) {
2994       case SMDSAbs_Face:
2995         {
2996           vector<const SMDS_MeshNode*> poly_nodes (nbNodes);
2997           int iNode = 0;
2998           SMDS_ElemIteratorPtr itN = elem->nodesIterator();
2999           while (itN->more()) {
3000             const SMDS_MeshNode* node =
3001               static_cast<const SMDS_MeshNode*>(itN->next());
3002             TNodeNodeMap::iterator nodeMapIt = nodeMap.find(node);
3003             if (nodeMapIt == nodeMap.end())
3004               break; // not all nodes transformed
3005             if (needReverse) {
3006               // reverse mirrored faces and volumes
3007               poly_nodes[nbNodes - iNode - 1] = (*nodeMapIt).second;
3008             } else {
3009               poly_nodes[iNode] = (*nodeMapIt).second;
3010             }
3011             iNode++;
3012           }
3013           if ( iNode != nbNodes )
3014             continue; // not all nodes transformed
3015
3016           if ( theCopy ) {
3017             aMesh->AddPolygonalFace(poly_nodes);
3018           } else {
3019             aMesh->ChangePolygonNodes(elem, poly_nodes);
3020           }
3021         }
3022         break;
3023       case SMDSAbs_Volume:
3024         {
3025           // ATTENTION: Reversing is not yet done!!!
3026           const SMDS_PolyhedralVolumeOfNodes* aPolyedre =
3027             (const SMDS_PolyhedralVolumeOfNodes*) elem;
3028           if (!aPolyedre) {
3029             MESSAGE("Warning: bad volumic element");
3030             continue;
3031           }
3032
3033           vector<const SMDS_MeshNode*> poly_nodes;
3034           vector<int> quantities;
3035
3036           bool allTransformed = true;
3037           int nbFaces = aPolyedre->NbFaces();
3038           for (int iface = 1; iface <= nbFaces && allTransformed; iface++) {
3039             int nbFaceNodes = aPolyedre->NbFaceNodes(iface);
3040             for (int inode = 1; inode <= nbFaceNodes && allTransformed; inode++) {
3041               const SMDS_MeshNode* node = aPolyedre->GetFaceNode(iface, inode);
3042               TNodeNodeMap::iterator nodeMapIt = nodeMap.find(node);
3043               if (nodeMapIt == nodeMap.end()) {
3044                 allTransformed = false; // not all nodes transformed
3045               } else {
3046                 poly_nodes.push_back((*nodeMapIt).second);
3047               }
3048             }
3049             quantities.push_back(nbFaceNodes);
3050           }
3051           if ( !allTransformed )
3052             continue; // not all nodes transformed
3053
3054           if ( theCopy ) {
3055             aMesh->AddPolyhedralVolume(poly_nodes, quantities);
3056           } else {
3057             aMesh->ChangePolyhedronNodes(elem, poly_nodes, quantities);
3058           }
3059         }
3060         break;
3061       default:;
3062       }
3063       continue;
3064     }
3065
3066     // Regular elements
3067     int* i = index[ FORWARD ];
3068     if ( needReverse && nbNodes > 2) // reverse mirrored faces and volumes
3069      &n