Salome HOME
[bos #38046] [EDF] (2023-T3) Stand alone and Remote versions for GMSH meshers.
[plugins/gmshplugin.git] / src / GMSHPlugin / GMSHPlugin_Mesher.cxx
index 847526ef4e68c8943521c7100d00fd19115bf0fe..8753e41ae8865064641575c19519df20e3a79f33 100644 (file)
@@ -1,5 +1,5 @@
 // Copyright (C) 2012-2015  ALNEOS
-// Copyright (C) 2016-2021  EDF R&D
+// Copyright (C) 2016-2023  EDF
 //
 // This library is free software; you can redistribute it and/or
 // modify it under the terms of the GNU Lesser General Public
 #include "GMSHPlugin_Mesher.hxx"
 #include "GMSHPlugin_Hypothesis_2D.hxx"
 
-#include <SMDS_FaceOfNodes.hxx>
 #include <SMDS_MeshElement.hxx>
 #include <SMDS_MeshNode.hxx>
 #include <SMESHDS_Mesh.hxx>
-#include <SMESH_Block.hxx>
 #include <SMESH_Comment.hxx>
 #include <SMESH_ComputeError.hxx>
-#include <SMESH_File.hxx>
 #include <SMESH_Gen_i.hxx>
 #include <SMESH_Mesh.hxx>
 #include <SMESH_MesherHelper.hxx>
 #include <SMESH_subMesh.hxx>
+#include <StdMeshers_FaceSide.hxx>
 #include <utilities.h>
+#include <StdMeshers_QuadToTriaAdaptor.hxx>
 
+//CAS
+#include <BRep_Tool.hxx>
+#include <GeomAPI_ProjectPointOnCurve.hxx>
+#include <gp_Pnt.hxx>
+
+#include <gmsh.h>
 #include <vector>
 #include <limits>
 
-#include <BRep_Tool.hxx>
-#include <Bnd_B3d.hxx>
-#include <GCPnts_AbscissaPoint.hxx>
-#include <GeomAdaptor_Curve.hxx>
-#include <NCollection_Map.hxx>
-#include <OSD_File.hxx>
-#include <OSD_Path.hxx>
-#include <Standard_ErrorHandler.hxx>
-#include <Standard_ProgramError.hxx>
-#include <TCollection_AsciiString.hxx>
 #include <TopExp.hxx>
 #include <TopExp_Explorer.hxx>
-#include <TopTools_DataMapIteratorOfDataMapOfShapeInteger.hxx>
-#include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
-#include <TopTools_DataMapOfShapeInteger.hxx>
-#include <TopTools_DataMapOfShapeShape.hxx>
-#include <TopTools_ListIteratorOfListOfShape.hxx>
-#include <TopTools_MapOfShape.hxx>
 #include <TopoDS.hxx>
 
+#include <MLine.h>
+#include <MTriangle.h>
+#include <MQuadrangle.h>
 #if GMSH_MAJOR_VERSION >=4
 #include <GmshGlobal.h>
 #include <gmsh/Context.h>
@@ -151,6 +143,13 @@ namespace
     }
     return shape;
   }
+
+  double segmentSize( const UVPtStructVec& nodeParam, size_t i )
+  {
+    double l1 = SMESH_NodeXYZ( nodeParam[i].node ).Distance( nodeParam[i-1].node );
+    double l2 = SMESH_NodeXYZ( nodeParam[i].node ).Distance( nodeParam[i+1].node );
+    return 0.5 * ( l1 + l2 );
+  }
 }
 
 //=============================================================================
@@ -159,10 +158,14 @@ namespace
  */
 //=============================================================================
 
-GMSHPlugin_Mesher::GMSHPlugin_Mesher (SMESH_Mesh* mesh,
-                                      const TopoDS_Shape& aShape)
+GMSHPlugin_Mesher::GMSHPlugin_Mesher (SMESH_Mesh*         mesh,
+                                      const TopoDS_Shape& aShape,
+                                      bool                is2D,
+                                      bool                is3D)
   : _mesh    (mesh),
-    _shape   (aShape)
+    _shape   (aShape),
+    _is2d    (is2D),
+    _is3d    (is3D)
 {
   // il faudra peut ĂȘtre mettre un truc par defaut si l'utilisateur ne rentre rien en para
   //defaultParameters();
@@ -183,12 +186,18 @@ void GMSHPlugin_Mesher::SetParameters(const GMSHPlugin_Hypothesis* hyp)
     _remeshPara      = hyp->GetRemeshPara();
     _smouthSteps     = hyp->GetSmouthSteps();
     _sizeFactor      = hyp->GetSizeFactor();
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=10
+    _meshCurvatureSize = hyp->GetMeshCurvatureSize();
+#endif
     _minSize         = hyp->GetMinSize();
     _maxSize         = hyp->GetMaxSize();
     _secondOrder     = hyp->GetSecondOrder();
     _useIncomplElem  = hyp->GetUseIncomplElem();
-    _is2d            = hyp->GetIs2d();
+    _verbLvl         = hyp->GetVerbosityLevel();
     _compounds       = hyp->GetCompoundOnEntries();
+    // 6 in the enum corresponds to 99 in gmsh
+    if(_verbLvl == 6)
+      _verbLvl = 99;
   }
   else
   {
@@ -201,11 +210,13 @@ void GMSHPlugin_Mesher::SetParameters(const GMSHPlugin_Hypothesis* hyp)
     _remeshPara      = 0;
     _smouthSteps     = 1;
     _sizeFactor      = 1;
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=10
+    _meshCurvatureSize = 0;
+#endif
     _minSize         = 0;
     _maxSize         = 1e22;
     _secondOrder     = false;
     _useIncomplElem  = true;
-    _is2d            = false;
     _compounds.clear();
   }
 }
@@ -221,19 +232,386 @@ void GMSHPlugin_Mesher::SetParameters(const GMSHPlugin_Hypothesis* hyp)
 void GMSHPlugin_Mesher::SetMaxThreadsGmsh()
 {
   MESSAGE("GMSHPlugin_Mesher::SetMaxThreadsGmsh");
-  if (_compounds.size() > 0)
+  // compound meshing (_compounds.size() > 0) and quad meshing (_algo2d >= 5) will
+  // not be multi-threaded
+  if (_compounds.size() > 0 || _algo2d >= 5){
     _maxThreads = 1;
+  }
   else
     _maxThreads = omp_get_max_threads();
 }
 #endif
 
+
 //================================================================================
 /*!
- * \brief Set Gmsh Options
+ * \brief Check that the passed nodes are all IN the face
+ * \param element the element
+ * \param F the geom Face
+ * \param uvValues a vector of size elem->NbCornerNodes() to save the uv coordinate points on the face
+ * \return true if all the nodes are IN the face
  */
+ //================================================================================
+bool GMSHPlugin_Mesher::IsAllNodesInSameFace( const SMDS_MeshElement* element, const TopoDS_Face& F, 
+                                                std::vector<gp_XY>& uvValues )
+{
+  Handle(ShapeAnalysis_Surface) sprojector = new ShapeAnalysis_Surface( BRep_Tool::Surface( F ));
+  double tol = BRep_Tool::MaxTolerance( F, TopAbs_FACE );
+  int nbN = element->NbCornerNodes();
+  gp_Pnt surfPnt(0,0,0);
+  for ( int i = 0; i < nbN; ++i )
+  {
+    SMESH_NodeXYZ nXYZ( element->GetNode( i ) );
+    gp_XY uv = sprojector->ValueOfUV( nXYZ, tol ).XY();
+    surfPnt = sprojector->Value( uv );
+    double dist = surfPnt.Distance( nXYZ );
+    if ( dist > tol )
+      return false;
+    else
+      uvValues[ i ] = uv;
+  }
+  return true;
+}
+
+//================================================================================
+/*!
+ * \brief Associate mesh elements to geometrical faces.
+ * \param the list of elements
+ * \return a map between faces (incremental order) and mesh elements found to be placed on the face
+ */
+ //================================================================================
+std::map<int,std::vector<std::tuple<smIdType,bool,std::vector<gp_XY>>>> GMSHPlugin_Mesher::AssociateElementsToFaces( std::map<const SMDS_MeshElement*, bool, TIDCompare>& listElements )
+{
+  // Map faces to elementId and uv of nodes.
+  // Index by face id
+  // Index vector with element smIdType, [ gp_XY_0, gp_XY_1, gp_XY_2 ]
+  std::map<int,std::vector<std::tuple<smIdType,bool,std::vector<gp_XY>>>> elementToFaceMap;
+  SMESHDS_Mesh* meshDS = _mesh->GetMeshDS();
+  SMDS_ElemIteratorPtr iteratorElem = meshDS->elementsIterator(SMDSAbs_Face);
+  for ( auto const& [elem, IsReverse] : listElements ) // loop on elements on a geom face
+  {  
+    int nbN = elem->NbCornerNodes();
+    std::vector<gp_XY> uvValues(nbN);
+    if ( nbN > 4 /*this restriction might be eliminated. Have to adapt FillGeomMapMeshUsing2DMeshIterator function too */)
+      throw std::string("Polygon sub-meshes not supported");
+
+    int faceId = 1;
+    for( GModel::fiter it = _gModel->firstFace(); it != _gModel->lastFace(); ++it )
+    {
+      GFace *gFace = *it;
+      TopoDS_Face topoFace = *((TopoDS_Face*)gFace->getNativePtr());
+      if ( IsAllNodesInSameFace( elem, topoFace, uvValues ) )
+      {
+        elementToFaceMap[ faceId ].push_back( std::make_tuple( elem->GetID(), IsReverse, uvValues ) );     
+        break;
+      }
+      faceId++;
+    }
+  }
+  return elementToFaceMap;
+}
+
+//================================================================================
+/*!
+ * \brief Add the elements found associated to the face as gmsh elements
+ */
+ //================================================================================
+void GMSHPlugin_Mesher::Set2DMeshes( std::vector< const SMDS_MeshNode* >& nodeVec, std::map<const SMDS_MeshElement*, bool, TIDCompare>& listElements )
+{
+  std::map< const SMDS_MeshNode* , const MVertex * > nodes2mvertMap;
+  SMESHDS_Mesh* meshDS = _mesh->GetMeshDS();
+  auto elementToFaceMap = AssociateElementsToFaces( listElements );
+  int faceId = 1;
+  std::vector<MVertex *> mVertices;
+
+  for(GModel::fiter it = _gModel->firstFace(); it != _gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+    gFace->deleteMesh();
+
+    auto element2uv = elementToFaceMap.find( faceId )->second;
+
+    const int numberOfEntries = element2uv.size();
+    
+    for (int el = 0; el < numberOfEntries; el++)
+    {
+      const smIdType elementId      = std::get<0>( element2uv[ el ] ); // smesh element id
+      bool isReverse                = std::get<1>( element2uv[ el ] );
+      const SMDS_MeshElement* elem = meshDS->FindElement( elementId );
+
+      int nbN = elem->NbCornerNodes();
+      mVertices.resize( nbN );
+
+      for ( int i = 0; i < nbN; ++i )
+      {
+        const SMDS_MeshNode* n = elem->GetNode( i );
+        MVertex *           mv = nullptr;
+        auto n2v = nodes2mvertMap.find( n );
+        if ( n2v != nodes2mvertMap.end() )
+        {
+          mv = const_cast< MVertex*>( n2v->second );
+        }
+        else
+        {
+          if ( n->GetPosition()->GetDim() < 2 )
+            throw std::string("Wrong mapping of edge nodes to GMSH nodes");
+          SMESH_NodeXYZ xyz = n;
+          gp_XY uv = std::get<2>(element2uv[ el ])[ i ];
+          mv = new MFaceVertex( xyz.X(), xyz.Y(), xyz.Z(), gFace, uv.X(), uv.Y() );
+          gFace->mesh_vertices.push_back( mv );
+          nodes2mvertMap.insert({ n, mv });
+          _nodeMap.insert      ({ mv, n });
+          _premeshednodeMap.insert({ mv, n });
+        }
+        mVertices[ i ] = mv;
+      }
+       // create GMSH mesh faces
+      switch ( nbN ) {
+      case 3:
+        if ( isReverse )
+          gFace->triangles.push_back (new MTriangle(mVertices[0], mVertices[2], mVertices[1]));
+        else
+          gFace->triangles.push_back (new MTriangle(mVertices[0], mVertices[1], mVertices[2]));
+        break;
+      case 4:
+        if ( isReverse )
+          gFace->quadrangles.push_back (new MQuadrangle(mVertices[0], mVertices[3],
+                                                        mVertices[2], mVertices[1]));
+        else
+          gFace->quadrangles.push_back (new MQuadrangle(mVertices[0], mVertices[1],
+                                                        mVertices[2], mVertices[3]));
+        break;
+      default:;
+      }
+    }        
+    faceId++; // face counter
+  } // iterator in the face
+
+  // Fill the node 
+  nodeVec.resize( nodes2mvertMap.size() + 1, 0 );
+  int count = 1;
+  for (auto k : nodes2mvertMap )
+  {
+    nodeVec[ count ] = k.first; // Index the node id to the smesh node itself        
+    count++;
+  }
+}
+
+
 //================================================================================
+/*!
+ * \brief Initialize GMSH model with mesh elements as geometry objects. 
+ *          Nodes are vertexes and element connections are geom lines
+ */
+ //================================================================================
+void GMSHPlugin_Mesher::FillGeomMapMeshUsing2DMeshIterator( std::map<const SMDS_MeshElement*, bool, TIDCompare>& listElements )
+{
+  gmsh::initialize();
+  gmsh::model::add("mesh");
+    // typedef for maps
+  typedef map< const SMDS_MeshNode*, int, TIDCompare > TNodeToIDMap;
+  typedef TNodeToIDMap::value_type                     TN2ID;
+  typedef map<std::pair<int, int>, int> TLineToIDMap;
+  TNodeToIDMap aNodeToID;
+  TLineToIDMap aLineToID;
+  
+  int aNbOfNodes = 0;
+  int aNbOfLines = 0;
+
+  const int invalid_ID = -1;
+  std::vector<int> aTrinagle( 3, 0 );
+  
+  // Playing around with SMESHDS_Mesh structure
+  SMESHDS_Mesh* meshDS = _mesh->GetMeshDS();
+
+  for ( auto const& [elem, IsReverse] : listElements ) // loop on elements on a geom face
+  {
+    if ( elem->NbCornerNodes() != 3 )
+      return;
+
+    for (int iN = 0; iN < 3; ++iN)
+    {
+      const SMDS_MeshNode* aNode = elem->GetNode(iN);
+      
+      int& ngID = aNodeToID.insert(TN2ID(aNode, invalid_ID)).first->second;
+      if (ngID == invalid_ID)
+      {
+        ngID = ++aNbOfNodes;
+        gmsh::model::occ::addPoint(aNode->X(), aNode->Y(), aNode->Z(), 1.e-2, ngID);
+      }
+
+      aTrinagle[ IsReverse ? 2 - iN : iN ] = ngID;
+    }
+    // add triangle
+    if ((aTrinagle[0] == aTrinagle[1] ||
+        aTrinagle[0] == aTrinagle[2] ||
+        aTrinagle[2] == aTrinagle[1]))
+      continue;
+    
+    std::vector<int> LinesID(3, 0);
+    for (int anIndex = 0; anIndex < 3; ++anIndex)
+    {
+      int aNextIndex = (anIndex + 1) % 3;
+      if (aLineToID.find({ aTrinagle[anIndex], aTrinagle[aNextIndex] }) == aLineToID.end()
+        && aLineToID.find({ aTrinagle[aNextIndex], aTrinagle[anIndex] }) == aLineToID.end())
+      {
+        LinesID[anIndex] = aLineToID.insert({ { aTrinagle[aNextIndex], aTrinagle[anIndex] }, ++aNbOfLines }).first->second;
+        gmsh::model::occ::addLine(aTrinagle[anIndex], aTrinagle[aNextIndex], LinesID[anIndex]);
+      }
+      else
+      {
+        LinesID[anIndex] = aLineToID.find({ aTrinagle[anIndex], aTrinagle[aNextIndex] })->second;
+        if (LinesID[anIndex] == 0)
+          LinesID[anIndex] = aLineToID.find({ aTrinagle[aNextIndex], aTrinagle[anIndex] })->second;
+
+      }
+    }
+    // if (!aProxyMesh->IsTemporary(ls.first))
+    //   swap(aTrinagle[1], aTrinagle[2]);
+    gmsh::model::occ::addCurveLoop(LinesID);
+  }
+}
+
+//================================================================================
+/*!
+ * \brief Initialize GMSH model
+ */
+ //================================================================================
+void GMSHPlugin_Mesher::FillGMSHMesh()
+{
+  gmsh::initialize();
+  gmsh::model::add("mesh");
+
+  SMESHDS_Mesh* meshDS = _mesh->GetMeshDS();
+
+  int aNbOfNodes = 0;
+  int aNbOfLines = 0;
+  std::vector<int> aTrinagle(3, 0);
+
+  const int invalid_ID = -1;
+
+  // typedef for maps
+  typedef map< const SMDS_MeshNode*, int, TIDCompare > TNodeToIDMap;
+  typedef TNodeToIDMap::value_type                     TN2ID;
+  typedef map<std::pair<int, int>, int> TLineToIDMap;
+  TNodeToIDMap aNodeToID;
+  TLineToIDMap aLineToID;
+
+  TopAbs_ShapeEnum aMainType = _mesh->GetShapeToMesh().ShapeType();
+  bool aCheckReverse = (aMainType == TopAbs_COMPOUND || aMainType == TopAbs_COMPSOLID);
+
+  SMESH_MesherHelper aHelper(*_mesh);
+  SMESH_ProxyMesh::Ptr aProxyMesh(new SMESH_ProxyMesh(*_mesh));
+  if (_mesh->NbQuadrangles() > 0)
+  {
+    StdMeshers_QuadToTriaAdaptor* Adaptor = new StdMeshers_QuadToTriaAdaptor;
+    Adaptor->Compute(*_mesh, _shape, aProxyMesh.get());
+    aProxyMesh.reset(Adaptor);
+  }
+
+  std::map<const SMDS_MeshElement*, bool, TIDCompare> listElements;
+  for (TopExp_Explorer exFa(_shape, TopAbs_FACE); exFa.More(); exFa.Next())
+  {
+    const TopoDS_Shape& aShapeFace = exFa.Current();
+    int faceID = meshDS->ShapeToIndex(aShapeFace);
+    bool isRev = false;
+    if (aCheckReverse && aHelper.NbAncestors(aShapeFace, *_mesh, _shape.ShapeType()) > 1)
+      // IsReversedSubMesh() can work wrong on strongly curved faces,
+      // so we use it as less as possible
+      isRev = aHelper.IsReversedSubMesh(TopoDS::Face(aShapeFace));
+
+    const SMESHDS_SubMesh* aSubMeshDSFace = aProxyMesh->GetSubMesh(aShapeFace);
+    if (!aSubMeshDSFace) 
+      continue;
+    SMDS_ElemIteratorPtr iteratorElem = aSubMeshDSFace->GetElements();
+    if (aHelper.IsQuadraticSubMesh(_shape) &&
+      dynamic_cast<const SMESH_ProxyMesh::SubMesh*>(aSubMeshDSFace))
+    {
+      // add medium nodes of proxy triangles to helper
+      while (iteratorElem->more())
+        aHelper.AddTLinks(static_cast<const SMDS_MeshFace*>(iteratorElem->next()));
+
+      iteratorElem = aSubMeshDSFace->GetElements();
+    }
+    while (iteratorElem->more()) // loop on elements on a geom face
+    {
+      // check mesh face
+      const SMDS_MeshElement* elem = iteratorElem->next();
+      if (!elem)
+        return;
+      if (elem->NbCornerNodes() != 3)
+        return;
+      listElements[elem] = isRev;
+    }
+  }
+
+  for (auto const& ls : listElements)
+  {
+    // Add nodes of triangles and triangles them-selves to netgen mesh
+    // add three nodes of
+    bool hasDegen = false;
+    for (int iN = 0; iN < 3; ++iN)
+    {
+      const SMDS_MeshNode* aNode = ls.first->GetNode(iN);
+      const int shapeID = aNode->getshapeId();
+      if (aNode->GetPosition()->GetTypeOfPosition() == SMDS_TOP_EDGE &&
+        aHelper.IsDegenShape(shapeID))
+      {
+        // ignore all nodes on degeneraged edge and use node on its vertex instead
+        TopoDS_Shape vertex = TopoDS_Iterator(meshDS->IndexToShape(shapeID)).Value();
+        aNode = SMESH_Algo::VertexNode(TopoDS::Vertex(vertex), meshDS);
+        hasDegen = true;
+      }
+      int& ngID = aNodeToID.insert(TN2ID(aNode, invalid_ID)).first->second;
+      if (ngID == invalid_ID)
+      {
+        ngID = ++aNbOfNodes;
+        gmsh::model::occ::addPoint(aNode->X(), aNode->Y(), aNode->Z(), 1.e-2, ngID);
+      }
+      aTrinagle[ls.second ? 2 - iN : iN] = ngID;
+    }
+    // add triangle
+    if (hasDegen && (aTrinagle[0] == aTrinagle[1] ||
+      aTrinagle[0] == aTrinagle[2] ||
+      aTrinagle[2] == aTrinagle[1]))      
+        continue;    
+
+
+    std::vector<int> LinesID(3, 0);
+    for (int anIndex = 0; anIndex < 3; ++anIndex)
+    {
+      int aNextIndex = (anIndex + 1) % 3;
+      if (aLineToID.find({ aTrinagle[anIndex], aTrinagle[aNextIndex] }) == aLineToID.end()
+        && aLineToID.find({ aTrinagle[aNextIndex], aTrinagle[anIndex] }) == aLineToID.end())
+      {
+        LinesID[anIndex] = aLineToID.insert({ { aTrinagle[aNextIndex], aTrinagle[anIndex] }, ++aNbOfLines }).first->second;
+        gmsh::model::occ::addLine(aTrinagle[anIndex], aTrinagle[aNextIndex], LinesID[anIndex]);
+      }
+      else
+      {
+        LinesID[anIndex] = aLineToID.find({ aTrinagle[anIndex], aTrinagle[aNextIndex] })->second;
+        if (LinesID[anIndex] == 0)
+          LinesID[anIndex] = aLineToID.find({ aTrinagle[aNextIndex], aTrinagle[anIndex] })->second;
+
+      }
+    }
+    if (!aProxyMesh->IsTemporary(ls.first))
+      swap(aTrinagle[1], aTrinagle[2]);
 
+    gmsh::model::occ::addCurveLoop(LinesID);
+  }
+
+  // Generate 1D and 2D mesh
+  _gModel->mesh( /*dim=*/ 1);
+  Set1DSubMeshes(_gModel);
+  _gModel->mesh( /*dim=*/ 2);
+}
+
+//================================================================================
+/*!
+ * \brief Set Gmsh Options
+ */
+ //================================================================================
 void GMSHPlugin_Mesher::SetGmshOptions()
 {
   MESSAGE("GMSHPlugin_Mesher::SetGmshOptions");
@@ -261,6 +639,9 @@ void GMSHPlugin_Mesher::SetGmshOptions()
   mapAlgo2d[3]=6; // Frontal-Delaunay
   mapAlgo2d[4]=8; // DelQuad (Frontal-Delaunay for Quads)
   mapAlgo2d[5]=9; // Packing of parallelograms
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=10
+  mapAlgo2d[6]=11;// Quasistructured quads with cross-fields
+#endif
 
   std::map <int,double> mapAlgo3d;
   mapAlgo3d[0]=1; // Delaunay
@@ -289,6 +670,10 @@ void GMSHPlugin_Mesher::SetGmshOptions()
   //ASSERT(ok);
   ok = GmshSetOption("Mesh", "Smoothing"                , (double)_smouthSteps)  ;
   //ASSERT(ok);
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=10
+  ok = GmshSetOption("Mesh", "MeshSizeFromCurvature"       , _meshCurvatureSize) ;
+  ASSERT(ok);
+#endif
 #if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
   ok = GmshSetOption("Mesh", "MeshSizeFactor"              , _sizeFactor)     ;
   ASSERT(ok);
@@ -312,6 +697,9 @@ void GMSHPlugin_Mesher::SetGmshOptions()
     ASSERT(ok);
   }
 
+  ok = GmshSetOption("General", "Verbosity"            , (double) _verbLvl )  ; // Verbosity level
+  ASSERT(ok);
+
 #if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
 /*ok = GmshSetOption("Mesh", "MaxNumThreads1D"          , 0. )  ; // Coarse-grain algo threads
   ASSERT(ok);
@@ -322,6 +710,13 @@ void GMSHPlugin_Mesher::SetGmshOptions()
 **/
   ok = GmshSetOption("General", "NumThreads"            , _maxThreads )  ; // system default i.e. OMP_NUM_THREADS
   ASSERT(ok);
+#ifdef WIN32
+  if ( GMSHPlugin_Hypothesis::Algo3D::hxt == _algo3d ){
+    MESSAGE("GMSHPlugin_Mesher::SetGmshOptions: HXT algorithm is being used. Setting number of threads to 1.");
+    ok = GmshSetOption("Mesh", "MaxNumThreads3D"       , 1. );
+    ASSERT(ok);
+  } // hxt
+#endif
 #endif
 }
 
@@ -443,16 +838,65 @@ void GMSHPlugin_Mesher::SetCompoundMeshVisibility()
 
     for( auto itV = bndVerticies.begin(); itV != bndVerticies.end(); ++itV )
     {
-            if(((*itE)->compound.size()))
-               (*itV)->setVisibility(0);
-            else
-               (*itV)->setVisibility(1);
+      if(((*itE)->compound.size()))
+        (*itV)->setVisibility(0);
+      else
+        (*itV)->setVisibility(1);
     }
   }
 
 }
 #endif
 
+//================================================================================
+/*!
+ * \brief Get a node by a GMSH mesh vertex
+ */
+//================================================================================
+
+const SMDS_MeshNode* GMSHPlugin_Mesher::Node( const MVertex* v )
+{
+  std::map< const MVertex *, const SMDS_MeshNode* >::iterator v2n = _nodeMap.find( v );
+  if ( v2n != _nodeMap.end() )
+    return v2n->second;
+
+  return nullptr;
+}
+
+//================================================================================
+/*!
+ * \brief Get a node by a GMSH mesh vertex
+ */
+//================================================================================
+
+const SMDS_MeshNode* GMSHPlugin_Mesher::PremeshedNode( const MVertex* v )
+{
+  std::map< const MVertex *, const SMDS_MeshNode* >::iterator v2n = _premeshednodeMap.find( v );
+  if ( v2n != _premeshednodeMap.end() )
+    return v2n->second;
+
+  return nullptr;
+}
+
+
+//================================================================================
+/*!
+ * \brief Return a corresponding sub-mesh if a shape is meshed
+ */
+//================================================================================
+
+SMESHDS_SubMesh* GMSHPlugin_Mesher::HasSubMesh( const TopoDS_Shape& s )
+{
+  if ( SMESHDS_SubMesh*  sm = _mesh->GetMeshDS()->MeshElements( s ))
+  {
+    if ( s.ShapeType() == TopAbs_VERTEX )
+      return ( sm->NbNodes() > 0 ) ? sm : nullptr;
+    else
+      return ( sm->NbElements() > 0 ) ? sm : nullptr;
+  }
+  return nullptr;
+}
+
 //================================================================================
 /*!
  * \brief Write mesh from GModel instance to SMESH instance
@@ -480,13 +924,22 @@ void GMSHPlugin_Mesher::FillSMesh()
 
     // FILL SMESH FOR topoVertex
     //nodes
-    for(unsigned int i = 0; i < gVertex->mesh_vertices.size(); i++)
+    for( size_t i = 0; i < gVertex->mesh_vertices.size(); i++)
     {
       MVertex *v = gVertex->mesh_vertices[i];
       if(v->getIndex() >= 0)
       {
-        SMDS_MeshNode *node = meshDS->AddNodeWithID(v->x(),v->y(),v->z(),v->getNum());
-        meshDS->SetNodeOnVertex( node, topoVertex );
+        if ( SMESHDS_SubMesh* sm = HasSubMesh( topoVertex ))
+        {
+          const SMDS_MeshNode *node = sm->GetNodes()->next();
+          _nodeMap.insert({ v, node });
+        }
+        else
+        {
+          SMDS_MeshNode *node = meshDS->AddNode( v->x(),v->y(),v->z() );
+          meshDS->SetNodeOnVertex( node, topoVertex );
+          _nodeMap.insert({ v, node });
+        }
       }
     }
     // WE DON'T ADD 0D ELEMENTS because it does not follow the salome meshers philosophy
@@ -524,6 +977,8 @@ void GMSHPlugin_Mesher::FillSMesh()
         sm->SetIsAlwaysComputed(true); // prevent from displaying errors
         continue;
       }
+      if ( HasSubMesh( topoEdge ))
+        continue; // a meshed sub-mesh
     }
     bool isCompound = getBoundsOfShapes( gEdge, topoEdges );
 
@@ -534,12 +989,39 @@ void GMSHPlugin_Mesher::FillSMesh()
       MVertex *v = gEdge->mesh_vertices[i];
       if ( v->getIndex() >= 0 )
       {
-        SMDS_MeshNode *node = meshDS->AddNodeWithID(v->x(),v->y(),v->z(),v->getNum());
+        SMDS_MeshNode *node = meshDS->AddNode( v->x(),v->y(),v->z() );
 
         if ( isCompound )
           topoEdge = TopoDS::Edge( getShapeAtPoint( v->point(), topoEdges ));
 
-        meshDS->SetNodeOnEdge( node, topoEdge );
+        // Based on BLSURFPlugin_BLSURF
+        gp_Pnt point3D( v->x(),v->y(),v->z() );
+        Standard_Real p0 = 0.0;
+        Standard_Real p1 = 1.0;
+        TopLoc_Location loc;
+        Handle(Geom_Curve) curve = BRep_Tool::Curve(topoEdge, loc, p0, p1);
+
+        if ( !curve.IsNull() )
+        {
+          if ( !loc.IsIdentity() )
+            point3D.Transform( loc.Transformation().Inverted() );
+
+          GeomAPI_ProjectPointOnCurve proj(point3D, curve, p0, p1);
+
+          double pa = 0.;
+          if ( proj.NbPoints() > 0 )
+            pa = (double)proj.LowerDistanceParameter();
+
+          meshDS->SetNodeOnEdge( node, topoEdge, pa );
+        }
+        else
+        {
+          meshDS->SetNodeOnEdge( node, topoEdge );
+        }
+        //END on BLSURFPlugin_BLSURF
+
+
+        _nodeMap.insert({ v, node });
       }
     }
   }
@@ -556,6 +1038,9 @@ void GMSHPlugin_Mesher::FillSMesh()
     if ( !isCompound )
       topoEdge = *((TopoDS_Edge*)gEdge->getNativePtr());
 
+    if ( HasSubMesh( topoEdge ))
+      continue; // a meshed sub-mesh
+
     //elements
     std::vector<MVertex*> verts(3);
     for ( size_t i = 0; i < gEdge->getNumMeshElements(); i++ )
@@ -569,9 +1054,34 @@ void GMSHPlugin_Mesher::FillSMesh()
       {
         if ( verts[j]->onWhat()->getVisibility() == 0 )
         {
-          SMDS_MeshNode *node = meshDS->AddNodeWithID(verts[i]->x(),verts[j]->y(),verts[j]->z(),verts[j]->getNum());
-          meshDS->SetNodeOnEdge( node, topoEdge );
+          SMDS_MeshNode *node = meshDS->AddNode(verts[j]->x(),verts[j]->y(),verts[j]->z() );
+
+          gp_Pnt point3D( verts[j]->x(),verts[j]->y(),verts[j]->z() );
+          Standard_Real p0 = 0.0;
+          Standard_Real p1 = 1.0;
+          TopLoc_Location loc;
+          Handle(Geom_Curve) curve = BRep_Tool::Curve(topoEdge, loc, p0, p1);
+
+          if ( !curve.IsNull() )
+          {
+            if ( !loc.IsIdentity() )
+              point3D.Transform( loc.Transformation().Inverted() );
+
+            GeomAPI_ProjectPointOnCurve proj(point3D, curve, p0, p1);
+
+            double pa = 0.;
+            if ( proj.NbPoints() > 0 )
+              pa = (double)proj.LowerDistanceParameter();
+
+            meshDS->SetNodeOnEdge( node, topoEdge, pa );
+          }
+          else
+          {
+            meshDS->SetNodeOnEdge( node, topoEdge );
+          }
+
           verts[j]->setEntity(gEdge);
+          _nodeMap.insert({ verts[j], node });
         }
       }
 
@@ -579,13 +1089,13 @@ void GMSHPlugin_Mesher::FillSMesh()
       switch (verts.size())
       {
         case 2:
-          edge = meshDS->AddEdgeWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),e->getNum());
+          edge = meshDS->AddEdge(Node( verts[0]),
+                                 Node( verts[1]));
           break;
         case 3:
-          edge = meshDS->AddEdgeWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),e->getNum());
+          edge = meshDS->AddEdge(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]));
           break;
         default:
           ASSERT(false);
@@ -608,7 +1118,7 @@ void GMSHPlugin_Mesher::FillSMesh()
     // compounds are involved. Since in Gmsh meshing procedure needs acess
     // to each of the original topology and the meshed topology. Hence  we
     // bypass the additional mesh in case of compounds. Note, similar cri-
-    // teria also occus in the following 'for' loop.
+    // teria also occurs in the following 'for' loop.
     if ( _compounds.size() && gFace->geomType() == GEntity::DiscreteSurface )
       continue;
 #endif
@@ -630,6 +1140,8 @@ void GMSHPlugin_Mesher::FillSMesh()
         sm->SetIsAlwaysComputed(true); // prevent from displaying errors
         continue;
       }
+      if ( HasSubMesh( topoFace ))
+        continue; // a meshed sub-mesh
     }
     bool isCompound = getBoundsOfShapes( gFace, topoFaces );
 
@@ -640,12 +1152,13 @@ void GMSHPlugin_Mesher::FillSMesh()
       MVertex *v = gFace->mesh_vertices[i];
       if ( v->getIndex() >= 0 )
       {
-        SMDS_MeshNode *node = meshDS->AddNodeWithID(v->x(),v->y(),v->z(),v->getNum());
+        SMDS_MeshNode *node = meshDS->AddNode( v->x(),v->y(),v->z() );
 
         if ( isCompound )
           topoFace = TopoDS::Face( getShapeAtPoint( v->point(), topoFaces ));
 
         meshDS->SetNodeOnFace( node, topoFace );
+        _nodeMap.insert({ v, node });
       }
     }
   }
@@ -673,6 +1186,9 @@ void GMSHPlugin_Mesher::FillSMesh()
     else
       topoFace = *((TopoDS_Face*)gFace->getNativePtr());
 
+    if ( HasSubMesh( topoFace ))
+      continue; // a meshed sub-mesh
+
     //elements
     std::vector<MVertex*> verts;
     for ( size_t i = 0; i < gFace->getNumMeshElements(); i++ )
@@ -687,52 +1203,53 @@ void GMSHPlugin_Mesher::FillSMesh()
       {
         if(verts[j]->onWhat()->getVisibility() == 0)
         {
-          SMDS_MeshNode *node = meshDS->AddNodeWithID(verts[j]->x(),verts[j]->y(),verts[j]->z(),verts[j]->getNum());
+          SMDS_MeshNode *node = meshDS->AddNode(verts[j]->x(),verts[j]->y(),verts[j]->z());
           meshDS->SetNodeOnFace( node, topoFace );
-          verts[i]->setEntity(gFace);
+          _nodeMap.insert({ verts[j], node });
+          verts[j]->setEntity(gFace);
         }
       }
       switch (verts.size())
       {
         case 3:
-          face = meshDS->AddFaceWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),e->getNum());
+          face = meshDS->AddFace(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]));
           break;
         case 4:
-          face = meshDS->AddFaceWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),
-                                       verts[3]->getNum(),e->getNum());
+          face = meshDS->AddFace(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]),
+                                 Node( verts[3]));
           break;
         case 6:
-          face = meshDS->AddFaceWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),
-                                       verts[3]->getNum(),
-                                       verts[4]->getNum(),
-                                       verts[5]->getNum(),e->getNum());
+          face = meshDS->AddFace(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]),
+                                 Node( verts[3]),
+                                 Node( verts[4]),
+                                 Node( verts[5]));
           break;
         case 8:
-          face = meshDS->AddFaceWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),
-                                       verts[3]->getNum(),
-                                       verts[4]->getNum(),
-                                       verts[5]->getNum(),
-                                       verts[6]->getNum(),
-                                       verts[7]->getNum(),e->getNum());
+          face = meshDS->AddFace(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]),
+                                 Node( verts[3]),
+                                 Node( verts[4]),
+                                 Node( verts[5]),
+                                 Node( verts[6]),
+                                 Node( verts[7]));
           break;
         case 9:
-          face = meshDS->AddFaceWithID(verts[0]->getNum(),
-                                       verts[1]->getNum(),
-                                       verts[2]->getNum(),
-                                       verts[3]->getNum(),
-                                       verts[4]->getNum(),
-                                       verts[5]->getNum(),
-                                       verts[6]->getNum(),
-                                       verts[7]->getNum(),
-                                       verts[8]->getNum(),e->getNum());
+          face = meshDS->AddFace(Node( verts[0]),
+                                 Node( verts[1]),
+                                 Node( verts[2]),
+                                 Node( verts[3]),
+                                 Node( verts[4]),
+                                 Node( verts[5]),
+                                 Node( verts[6]),
+                                 Node( verts[7]),
+                                 Node( verts[8]));
           break;
         default:
           ASSERT(false);
@@ -759,187 +1276,187 @@ void GMSHPlugin_Mesher::FillSMesh()
     // FILL SMESH FOR topoSolid
 
     //nodes
-    for(unsigned int i = 0; i < gRegion->mesh_vertices.size(); i++)
+    for( size_t i = 0; i < gRegion->mesh_vertices.size(); i++)
     {
       MVertex *v = gRegion->mesh_vertices[i];
       if(v->getIndex() >= 0)
       {
-        SMDS_MeshNode *node = meshDS->AddNodeWithID(v->x(),v->y(),v->z(),v->getNum());
+        SMDS_MeshNode *node = meshDS->AddNode( v->x(),v->y(),v->z() );
         meshDS->SetNodeInVolume( node, topoSolid );
+        _nodeMap.insert({ v, node });
       }
     }
 
     //elements
     std::vector<MVertex*> verts;
-    for(unsigned int i = 0; i < gRegion->getNumMeshElements(); i++)
+    for( size_t i = 0; i < gRegion->getNumMeshElements(); i++)
     {
       MElement *e = gRegion->getMeshElement(i);
       verts.clear();
       e->getVertices(verts);
       SMDS_MeshVolume* volume = 0;
       switch (verts.size()){
-        case 4:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[3]->getNum(),e->getNum());
-          break;
-        case 5:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),e->getNum());
-          break;
-        case 6:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[4]->getNum(),e->getNum());
-          break;
-        case 8:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[5]->getNum(),e->getNum());
-          break;
-        case 10:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[9]->getNum(),e->getNum());
-          break;
-        case 13:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[10]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[12]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[9]->getNum(),e->getNum());
-          break;
-        case 14: // same as case 13, because no pyra14 in smesh
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[10]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[12]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[9]->getNum(),e->getNum());
-          break;
-        case 15:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[9]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[13]->getNum(),
-                                           verts[14]->getNum(),
-                                           verts[12]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[10]->getNum(),e->getNum());
-          break;
-        case 18: // same as case 15, because no penta18 in smesh
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[9]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[13]->getNum(),
-                                           verts[14]->getNum(),
-                                           verts[12]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[10]->getNum(),e->getNum());
-          break;
-        case 20:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[9]->getNum(),
-                                           verts[13]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[17]->getNum(),
-                                           verts[19]->getNum(),
-                                           verts[18]->getNum(),
-                                           verts[16]->getNum(),
-                                           verts[10]->getNum(),
-                                           verts[15]->getNum(),
-                                           verts[14]->getNum(),
-                                           verts[12]->getNum(),e->getNum());
-          break;
-        case 27:
-          volume = meshDS->AddVolumeWithID(verts[0]->getNum(),
-                                           verts[3]->getNum(),
-                                           verts[2]->getNum(),
-                                           verts[1]->getNum(),
-                                           verts[4]->getNum(),
-                                           verts[7]->getNum(),
-                                           verts[6]->getNum(),
-                                           verts[5]->getNum(),
-                                           verts[9]->getNum(),
-                                           verts[13]->getNum(),
-                                           verts[11]->getNum(),
-                                           verts[8]->getNum(),
-                                           verts[17]->getNum(),
-                                           verts[19]->getNum(),
-                                           verts[18]->getNum(),
-                                           verts[16]->getNum(),
-                                           verts[10]->getNum(),
-                                           verts[15]->getNum(),
-                                           verts[14]->getNum(),
-                                           verts[12]->getNum(),
-                                           verts[20]->getNum(),
-                                           verts[22]->getNum(),
-                                           verts[24]->getNum(),
-                                           verts[23]->getNum(),
-                                           verts[21]->getNum(),
-                                           verts[25]->getNum(),
-                                           verts[26]->getNum(),
-                                           e->getNum());
-          break;
-        default:
-          ASSERT(false);
-          continue;
+      case 4:
+        volume = meshDS->AddVolume(Node( verts[0]),
+                                   Node( verts[2]),
+                                   Node( verts[1]),
+                                   Node( verts[3]));
+        break;
+      case 5:
+        volume = meshDS->AddVolume(Node( verts[0]),
+                                   Node( verts[3]),
+                                   Node( verts[2]),
+                                   Node( verts[1]),
+                                   Node( verts[4]));
+        break;
+      case 6:
+        volume = meshDS->AddVolume(Node( verts[0]),
+                                   Node( verts[2]),
+                                   Node( verts[1]),
+                                   Node( verts[3]),
+                                   Node( verts[5]),
+                                   Node( verts[4]));
+        break;
+      case 8:
+        volume = meshDS->AddVolume(Node( verts[0]),
+                                   Node( verts[3]),
+                                   Node( verts[2]),
+                                   Node( verts[1]),
+                                   Node( verts[4]),
+                                   Node( verts[7]),
+                                   Node( verts[6]),
+                                   Node( verts[5]));
+        break;
+      case 10:
+        volume = meshDS->AddVolume(Node( verts[0]),
+                                   Node( verts[2]),
+                                   Node( verts[1]),
+                                   Node( verts[3]),
+                                   Node( verts[6]),
+                                   Node( verts[5]),
+                                   Node( verts[4]),
+                                   Node( verts[7]),
+                                   Node( verts[8]),
+                                   Node( verts[9]));
+        break;
+      case 13:
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[3] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[4] ),
+                                   Node( verts[6] ),
+                                   Node( verts[10] ),
+                                   Node( verts[8] ),
+                                   Node( verts[5] ),
+                                   Node( verts[7] ),
+                                   Node( verts[12] ),
+                                   Node( verts[11] ),
+                                   Node( verts[9]));
+        break;
+      case 14: // same as case 13, because no pyra14 in smesh
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[3] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[4] ),
+                                   Node( verts[6] ),
+                                   Node( verts[10] ),
+                                   Node( verts[8] ),
+                                   Node( verts[5] ),
+                                   Node( verts[7] ),
+                                   Node( verts[12] ),
+                                   Node( verts[11] ),
+                                   Node( verts[9]));
+        break;
+      case 15:
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[3] ),
+                                   Node( verts[5] ),
+                                   Node( verts[4] ),
+                                   Node( verts[7] ),
+                                   Node( verts[9] ),
+                                   Node( verts[6] ),
+                                   Node( verts[13] ),
+                                   Node( verts[14] ),
+                                   Node( verts[12] ),
+                                   Node( verts[8] ),
+                                   Node( verts[11] ),
+                                   Node( verts[10]));
+        break;
+      case 18: // same as case 15, because no penta18 in smesh
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[3] ),
+                                   Node( verts[5] ),
+                                   Node( verts[4] ),
+                                   Node( verts[7] ),
+                                   Node( verts[9] ),
+                                   Node( verts[6] ),
+                                   Node( verts[13] ),
+                                   Node( verts[14] ),
+                                   Node( verts[12] ),
+                                   Node( verts[8] ),
+                                   Node( verts[11] ),
+                                   Node( verts[10]));
+        break;
+      case 20:
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[3] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[4] ),
+                                   Node( verts[7] ),
+                                   Node( verts[6] ),
+                                   Node( verts[5] ),
+                                   Node( verts[9] ),
+                                   Node( verts[13] ),
+                                   Node( verts[11] ),
+                                   Node( verts[8] ),
+                                   Node( verts[17] ),
+                                   Node( verts[19] ),
+                                   Node( verts[18] ),
+                                   Node( verts[16] ),
+                                   Node( verts[10] ),
+                                   Node( verts[15] ),
+                                   Node( verts[14] ),
+                                   Node( verts[12]));
+        break;
+      case 27:
+        volume = meshDS->AddVolume(Node( verts[0] ),
+                                   Node( verts[3] ),
+                                   Node( verts[2] ),
+                                   Node( verts[1] ),
+                                   Node( verts[4] ),
+                                   Node( verts[7] ),
+                                   Node( verts[6] ),
+                                   Node( verts[5] ),
+                                   Node( verts[9] ),
+                                   Node( verts[13] ),
+                                   Node( verts[11] ),
+                                   Node( verts[8] ),
+                                   Node( verts[17] ),
+                                   Node( verts[19] ),
+                                   Node( verts[18] ),
+                                   Node( verts[16] ),
+                                   Node( verts[10] ),
+                                   Node( verts[15] ),
+                                   Node( verts[14] ),
+                                   Node( verts[12] ),
+                                   Node( verts[20] ),
+                                   Node( verts[22] ),
+                                   Node( verts[24] ),
+                                   Node( verts[23] ),
+                                   Node( verts[21] ),
+                                   Node( verts[25] ),
+                                   Node( verts[26] ));
+        break;
+      default:
+        ASSERT(false);
+        continue;
       }
       meshDS->SetMeshElementOnShape(volume, topoSolid);
     }
@@ -1036,6 +1553,66 @@ void  GMSHPlugin_Mesher::mymsg::operator()(std::string level, std::string msg)
   }
 }
 
+bool GMSHPlugin_Mesher::Compute3D( std::vector< const SMDS_MeshNode* >& nodeVec, std::map<const SMDS_MeshElement*, bool, TIDCompare>& listElements, bool addElements )
+{
+  MESSAGE("GMSHPlugin_Mesher::Compute3D");
+  int err = 0;
+  _maxThreads = 1;
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=3
+  _maxThreads = 1;
+#endif
+
+  char* argv[] = {"-noenv"};
+  GmshInitialize(1,argv);
+  SetGmshOptions();
+  _gModel = new GModel();
+  mymsg msg(_gModel);
+  GmshSetMessageHandler(&msg);
+
+  _gModel->importOCCShape((void*)&_shape);
+  try
+  {
+    HideComputedEntities( _gModel, true );   
+    // fill geometry with elements as geom objects
+    FillGeomMapMeshUsing2DMeshIterator( listElements );
+    Set2DMeshes( nodeVec, listElements );
+    _gModel->mesh( /*dim=*/ 3);
+  }
+  catch (std::string& str)
+  {
+    err = 1;
+    MESSAGE(str);
+  }
+  catch (...)
+  {
+    err = 1;
+    MESSAGE("Unrecoverable error during Generation of Gmsh Mesh");
+  }
+
+  if (!err)
+  {
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if (_compounds.size() > 0)
+      SetCompoundMeshVisibility();
+#endif
+  }
+  
+  if ( addElements )
+    FillSMesh();
+  MESSAGE("GMSHPlugin_Mesher::Compute3D:End");
+  return err;
+}
+
+void GMSHPlugin_Mesher::finalizeGModel()
+{
+  if ( _gModel )
+  {
+    GmshSetMessageHandler(nullptr);
+    delete _gModel;
+    GmshFinalize();
+  }
+}
+
 //=============================================================================
 /*!
  * Here we are going to use the GMSH mesher
@@ -1051,17 +1628,47 @@ bool GMSHPlugin_Mesher::Compute()
 #if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
   SetMaxThreadsGmsh();
 #endif
-  GmshInitialize();
+  //RNV: to avoid modification of PATH and PYTHONPATH
+  char* argv[] = {"-noenv"};
+  GmshInitialize(1,argv);
   SetGmshOptions();
   _gModel = new GModel();
   mymsg msg(_gModel);
   GmshSetMessageHandler(&msg);
   _gModel->importOCCShape((void*)&_shape);
   if (_compounds.size() > 0) CreateGmshCompounds();
-  MESSAGE("GModel::Mesh");
   try
   {
-    _gModel->mesh((_is2d)?2:3);
+
+    HideComputedEntities(_gModel);
+    if (_is3d)
+    {
+      FillGMSHMesh();
+      Set2DSubMeshes(_gModel);
+      _gModel->mesh( /*dim=*/ 3);
+    }
+    else
+    {
+      //CTX::instance()->mesh.maxNumThreads1D=1;
+      _gModel->mesh( /*dim=*/ 1);
+
+      Set1DSubMeshes(_gModel);
+
+      //_gModel->writeUNV("/tmp/1D.unv", 1,0,0);
+      //CTX::instance()->mesh.maxNumThreads2D=1;
+
+      _gModel->mesh( /*dim=*/ 2);
+
+      if (!_is2d)
+      {
+        Set2DSubMeshes(_gModel);
+
+        //CTX::instance()->mesh.maxNumThreads3D=1;
+
+        _gModel->mesh( /*dim=*/ 3);
+      }
+      RestoreVisibility(_gModel);
+    }
 #ifdef WITH_SMESH_CANCEL_COMPUTE
 
 #endif
@@ -1069,11 +1676,13 @@ bool GMSHPlugin_Mesher::Compute()
   catch (std::string& str)
   {
     err = 1;
+    std::cerr << "GMSH: exception caught: " << str << std::endl;
     MESSAGE(str);
   }
   catch (...)
   {
     err = 1;
+    std::cerr << "GMSH: Unknown exception caught: " << std::endl;
     MESSAGE("Unrecoverable error during Generation of Gmsh Mesh");
   }
 
@@ -1085,8 +1694,392 @@ bool GMSHPlugin_Mesher::Compute()
 #endif
     FillSMesh();
   }
+  GmshSetMessageHandler(nullptr);
   delete _gModel;
   GmshFinalize();
   MESSAGE("GMSHPlugin_Mesher::Compute:End");
   return !err;
 }
+
+//================================================================================
+/*!
+ * \brief Set 1D sub-meshes to GModel. GMSH 1D mesh is made by now.
+ *  \param [inout] _gModel - GMSH model
+ */
+//================================================================================
+
+void GMSHPlugin_Mesher::Set1DSubMeshes( GModel* gModel )
+{
+  SMESHDS_Mesh* meshDS = _mesh->GetMeshDS();
+
+  for(GModel::eiter it = gModel->firstEdge(); it != gModel->lastEdge(); ++it)
+  {
+    GEdge *gEdge = *it;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if ( !gEdge->haveParametrization())
+#else
+    if ( gEdge->geomType() == GEntity::CompoundCurve )
+#endif
+      continue;
+
+    TopoDS_Edge topoEdge = *((TopoDS_Edge*)gEdge->getNativePtr());
+    if ( !HasSubMesh( topoEdge ))
+      continue; // empty sub-mesh
+
+    gEdge->deleteMesh();
+
+    // get node parameters on topoEdge
+    StdMeshers_FaceSide side( TopoDS_Face(), topoEdge, _mesh, /*fwd=*/true, /*skpMedium=*/true);
+    const UVPtStructVec& nodeParam = side.GetUVPtStruct();
+    if ( nodeParam.empty() )
+      throw std::string("Pb with StdMeshers_FaceSide::GetUVPtStruct()");
+
+    // get GMSH mesh vertices on VERTEX'es
+    std::vector<MVertex *> mVertices( nodeParam.size(), nullptr );
+    GVertex * gV0 = gEdge->getBeginVertex(), *gV1 = gEdge->getEndVertex();
+    mVertices[0]     = gV0->mesh_vertices[ 0 ];
+    mVertices.back() = gV1->mesh_vertices[ 0 ];
+    TopoDS_Vertex v01 = *((TopoDS_Vertex*) gV0->getNativePtr());
+    TopoDS_Shape  v02 = SMESH_MesherHelper::GetSubShapeByNode( nodeParam[0].node, meshDS );
+    bool      reverse = !v01.IsSame( v02 );
+    if ( mVertices[0] == mVertices.back() )
+      reverse = ( nodeParam[0].param > nodeParam.back().param );
+    const SMDS_MeshNode* n0 = reverse ? nodeParam.back().node : nodeParam[0].node;
+    const SMDS_MeshNode* n1 = reverse ? nodeParam[0].node : nodeParam.back().node;
+    _nodeMap.insert({ mVertices[ 0 ],   n0 });
+    _nodeMap.insert({ mVertices.back(), n1 });
+
+    // create GMSH mesh vertices on gEdge
+    for ( size_t i = 1; i < nodeParam.size() - 1; ++i )
+    {
+      size_t iN = reverse ? ( nodeParam.size() - 1 - i ) : i;
+      SMESH_NodeXYZ xyz = nodeParam[ iN ].node;
+      double lc = segmentSize( nodeParam, iN );
+      // SVector3 der = gEdge->firstDer(nodeParam[ iN ].param);
+      // double lc = norm(der) / segmentSize( nodeParam, i );
+
+      mVertices[ i ] = new MEdgeVertex( xyz.X(), xyz.Y(), xyz.Z(),
+                                        gEdge, nodeParam[ iN ].param, 0, lc);
+      gEdge->mesh_vertices.push_back( mVertices[ i ]);
+      _nodeMap.insert({ mVertices[ i ], nodeParam[ iN ].node });
+    }
+    // create GMSH mesh edges
+    for ( size_t i = 1; i < mVertices.size(); ++i )
+    {
+      gEdge->lines.push_back( new MLine( mVertices[ i - 1 ],
+                                         mVertices[ i ]));
+    }
+    /*{
+      cout << endl << "EDGE " << gEdge->tag() <<
+        ( topoEdge.Orientation() == TopAbs_FORWARD ? " F" : " R") << endl;
+      MVertex* mv = gV0->mesh_vertices[ 0 ];
+      cout << "V0: " << mv->x() << ", " << mv->y() << ", " << mv->z() << ", "<<endl;
+      for ( size_t i = 0; i < gEdge->mesh_vertices.size(); ++i )
+      {
+        MEdgeVertex* mv = (MEdgeVertex*) gEdge->mesh_vertices[i];
+        cout << i << ": " << mv->x() << ", " << mv->y() << ", " << mv->z() << ", ";
+        double t;
+        mv->getParameter(0, t );
+        cout << ":\t t = "<< t << " lc = " << mv->getLc() << endl;
+      }
+      mv = gV1->mesh_vertices[ 0 ];
+      cout << "V1: " << mv->x() << ", " << mv->y() << ", " << mv->z() << ", "<<endl;
+      }*/
+  }
+  return;
+}
+
+//================================================================================
+/*!
+ * \brief Set 2D sub-meshes to GModel. GMSH 2D mesh is made by now.
+ *  \param [inout] _gModel - GMSH model
+ */
+//================================================================================
+
+void GMSHPlugin_Mesher::Set2DSubMeshes( GModel* gModel )
+{
+  if ( _nodeMap.empty() )
+    return; // no sub-meshes
+
+  SMESH_MesherHelper helper( *_mesh );
+
+  std::map< const SMDS_MeshNode* , const MVertex * > nodes2mvertMap;
+  for ( auto & v2n : _nodeMap )
+    nodes2mvertMap.insert({ v2n.second, v2n.first });
+
+  std::vector<MVertex *> mVertices;
+
+  for(GModel::fiter it = gModel->firstFace(); it != gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if ( !gFace->haveParametrization())
+#else
+      if ( gFace->geomType() == GEntity::CompoundSurface )
+#endif
+        continue;
+
+    TopoDS_Face topoFace = *((TopoDS_Face*)gFace->getNativePtr());
+    SMESHDS_SubMesh*  sm = HasSubMesh( topoFace );
+    if ( !sm )
+      continue;
+    //_gModel->writeUNV("/tmp/befDEl.unv", 1,0,0);
+
+    gFace->deleteMesh();
+
+    bool reverse = false;
+    if ( gFace->getRegion(0) )
+    {
+      //GRegion * gRegion = gFace->getRegion(0);
+      TopoDS_Shape topoSolid = *((TopoDS_Shape*)gFace->getNativePtr());
+      TopAbs_Orientation faceOriInSolid = helper.GetSubShapeOri( topoSolid, topoFace );
+      if ( faceOriInSolid >= 0 )
+        reverse =
+          helper.IsReversedSubMesh( TopoDS::Face( topoFace.Oriented( faceOriInSolid )));
+    }
+
+    for ( SMDS_ElemIteratorPtr fIt = sm->GetElements(); fIt->more(); )
+    {
+      const SMDS_MeshElement* f = fIt->next();
+
+      int nbN = f->NbCornerNodes();
+      if ( nbN > 4 )
+        throw std::string("Polygon sub-meshes not supported");
+
+      mVertices.resize( nbN );
+      for ( int i = 0; i < nbN; ++i )
+      {
+        const SMDS_MeshNode* n = f->GetNode( i );
+        MVertex *           mv = nullptr;
+        auto n2v = nodes2mvertMap.find( n );
+        if ( n2v != nodes2mvertMap.end() )
+        {
+          mv = const_cast< MVertex*>( n2v->second );
+        }
+        else
+        {
+          if ( n->GetPosition()->GetDim() < 2 )
+            throw std::string("Wrong mapping of edge nodes to GMSH nodes");
+          SMESH_NodeXYZ xyz = n;
+          bool ok = true;
+          gp_XY uv = helper.GetNodeUV( topoFace, n, nullptr, &ok );
+          mv = new MFaceVertex( xyz.X(), xyz.Y(), xyz.Z(), gFace, uv.X(), uv.Y() );
+          gFace->mesh_vertices.push_back( mv );
+          nodes2mvertMap.insert({ n, mv });
+          _nodeMap.insert      ({ mv, n });
+        }
+        mVertices[ i ] = mv;
+      }
+      // create GMSH mesh faces
+      switch ( nbN ) {
+      case 3:
+        if ( reverse )
+          gFace->triangles.push_back (new MTriangle(mVertices[0], mVertices[2], mVertices[1]));
+        else
+          gFace->triangles.push_back (new MTriangle(mVertices[0], mVertices[1], mVertices[2]));
+        break;
+      case 4:
+        if ( reverse )
+          gFace->quadrangles.push_back (new MQuadrangle(mVertices[0], mVertices[3],
+                                                        mVertices[2], mVertices[1]));
+        else
+          gFace->quadrangles.push_back (new MQuadrangle(mVertices[0], mVertices[1],
+                                                        mVertices[2], mVertices[3]));
+        break;
+      default:;
+      }
+    }
+  } // loop on GMSH faces
+
+  return;
+}
+
+//================================================================================
+/*!
+ * \brief Set visibility 0 to already computed geom entities
+ *        to prevent their meshing
+ */
+//================================================================================
+
+void GMSHPlugin_Mesher::HideComputedEntities( GModel* gModel, bool hideAnyway )
+{
+  CTX::instance()->mesh.meshOnlyVisible = true;
+
+  for(GModel::eiter it = gModel->firstEdge(); it != gModel->lastEdge(); ++it)
+  {
+    GEdge *gEdge = *it;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if ( !gEdge->haveParametrization())
+#else
+      if ( gEdge->geomType() == GEntity::CompoundCurve )
+#endif
+        continue;
+
+    TopoDS_Edge topoEdge = *((TopoDS_Edge*)gEdge->getNativePtr());
+    if ( HasSubMesh( topoEdge ) || hideAnyway )
+      gEdge->setVisibility(0);
+  }
+
+
+  for(GModel::fiter it = gModel->firstFace(); it != gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if ( !gFace->haveParametrization())
+#else
+      if ( gFace->geomType() == GEntity::CompoundSurface )
+#endif
+        continue;
+
+    TopoDS_Face topoFace = *((TopoDS_Face*)gFace->getNativePtr());
+    if ( HasSubMesh( topoFace ) || hideAnyway )
+      gFace->setVisibility(0);
+  }
+}
+
+//================================================================================
+/*!
+ * \brief Restore visibility of all geom entities
+ */
+//================================================================================
+
+void GMSHPlugin_Mesher::RestoreVisibility( GModel* gModel )
+{
+  for(GModel::eiter it = gModel->firstEdge(); it != gModel->lastEdge(); ++it)
+  {
+    GEdge *gEdge = *it;
+    gEdge->setVisibility(1);
+  }
+  for(GModel::fiter it = gModel->firstFace(); it != gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+    gFace->setVisibility(1);
+  }
+}
+
+/*
+  void GMSHPlugin_Mesher::toPython( GModel* )
+  {
+  const char*  pyFile = "/tmp/gMesh.py";
+  ofstream outfile( pyFile, ios::out );
+  if ( !outfile ) return;
+
+  outfile << "import salome, SMESH" << std::endl
+          << "from salome.smesh import smeshBuilder" << std::endl
+          << "smesh = smeshBuilder.New()" << std::endl
+          << "mesh = smesh.Mesh()" << std::endl << std::endl;
+
+  outfile << "## VERTICES" << endl;
+  for ( GModel::viter it = _gModel->firstVertex(); it != _gModel->lastVertex(); ++it)
+  {
+    GVertex *gVertex = *it;
+
+    for(unsigned int i = 0; i < gVertex->mesh_vertices.size(); i++)
+    {
+      MVertex *v = gVertex->mesh_vertices[i];
+      if ( v->getIndex() >= 0)
+      {
+        outfile << "n" << v->getNum() << " = mesh.AddNode("
+                << v->x() << ", " << v->y() << ", " << v->z()<< ")"
+                << " ## tag = " << gVertex->tag() << endl;
+      }
+    }
+  }
+
+  for(GModel::eiter it = _gModel->firstEdge(); it != _gModel->lastEdge(); ++it)
+  {
+    GEdge *gEdge = *it;
+    outfile << "## GEdge " << gEdge->tag() << endl;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if(gEdge->haveParametrization())
+#else
+      if ( gEdge->geomType() != GEntity::CompoundCurve )
+#endif
+        for ( size_t i = 0; i < gEdge->mesh_vertices.size(); i++ )
+        {
+          MVertex *v = gEdge->mesh_vertices[i];
+          if ( v->getIndex() >= 0 )
+          {
+            outfile << "n" << v->getNum() << " = mesh.AddNode("
+                    << v->x() << ", " << v->y() << ", " << v->z()<< ")"
+                    << " ## tag = " << gEdge->tag() << endl;
+          }
+        }
+  }
+
+  for ( GModel::fiter it = _gModel->firstFace(); it != _gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+    if ( _compounds.size() && gFace->geomType() == GEntity::DiscreteSurface )
+      continue;
+    outfile << "## GFace " << gFace->tag() << endl;
+
+    for ( size_t i = 0; i < gFace->mesh_vertices.size(); i++ )
+    {
+      MVertex *v = gFace->mesh_vertices[i];
+      if ( v->getIndex() >= 0 )
+      {
+        outfile << "n" << v->getNum() << " = mesh.AddNode("
+                << v->x() << ", " << v->y() << ", " << v->z()<< ")"
+                << " ## tag = " << gFace->tag() << endl;
+      }
+    }
+  }
+
+  std::vector<MVertex*> verts(3);
+  for(GModel::eiter it = _gModel->firstEdge(); it != _gModel->lastEdge(); ++it)
+  {
+    GEdge *gEdge = *it;
+    outfile << "## GEdge " << gEdge->tag() << endl;
+
+#if GMSH_MAJOR_VERSION >=4 && GMSH_MINOR_VERSION >=8
+    if(gEdge->haveParametrization())
+#else
+      if ( gEdge->geomType() != GEntity::CompoundCurve )
+#endif
+    for ( size_t i = 0; i < gEdge->getNumMeshElements(); i++ )
+    {
+      MElement *e = gEdge->getMeshElement(i);
+      verts.clear();
+      e->getVertices(verts);
+
+      outfile << "e" << e->getNum() << " = mesh.AddEdge(["
+              << "n" << verts[0]->getNum() << ","
+              << "n" << verts[1]->getNum();
+      if ( verts.size() == 3 )
+        outfile << "n" << verts[2]->getNum();
+      outfile << "])"<< endl;
+    }
+  }
+
+  for ( GModel::fiter it = _gModel->firstFace(); it != _gModel->lastFace(); ++it)
+  {
+    GFace *gFace = *it;
+    if ( _compounds.size() && gFace->geomType() == GEntity::DiscreteSurface )
+      continue;
+    outfile << "## GFace " << gFace->tag() << endl;
+
+    for ( size_t i = 0; i < gFace->getNumMeshElements(); i++ )
+    {
+      MElement *e = gFace->getMeshElement(i);
+      verts.clear();
+      e->getVertices(verts);
+
+      outfile << "f" << e->getNum() << " = mesh.AddFace([";
+      for ( size_t j = 0; j < verts.size(); j++)
+      {
+        outfile << "n" << verts[j]->getNum();
+        if ( j < verts.size()-1 )
+          outfile << ", ";
+      }
+      outfile << "])" << endl;
+    }
+  }
+  std::cout << "Write " << pyFile << std::endl;
+}
+*/