src/BLSURFPlugin/BLSURFPlugin_BLSURF.cxx

   1 // Copyright (C) 2007-2021  CEA/DEN, EDF R&D
   2 //
   3 // This library is free software; you can redistribute it and/or
   4 // modify it under the terms of the GNU Lesser General Public
   5 // License as published by the Free Software Foundation; either
   6 // version 2.1 of the License, or (at your option) any later version.
   7 //
   8 // This library is distributed in the hope that it will be useful,
   9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 // Lesser General Public License for more details.
  12 //
  13 // You should have received a copy of the GNU Lesser General Public
  14 // License along with this library; if not, write to the Free Software
  15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  16 //
  17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  18 //
  19
  20 // ---
  21 // File    : BLSURFPlugin_BLSURF.cxx
  22 // Authors : Francis KLOSS (OCC) & Patrick LAUG (INRIA) & Lioka RAZAFINDRAZAKA (CEA)
  23 //           & Aurelien ALLEAUME (DISTENE)
  24 //           Size maps developement: Nicolas GEIMER (OCC) & Gilles DAVID (EURIWARE)
  25 // ---
  26
  27 #include "BLSURFPlugin_BLSURF.hxx"
  28
  29 #include "BLSURFPlugin_Attractor.hxx"
  30 #include "BLSURFPlugin_EnforcedMesh1D.hxx"
  31 #include "BLSURFPlugin_Hypothesis.hxx"
  32
  33 extern "C"{
  34 #include <meshgems/meshgems.h>
  35 #include <meshgems/cadsurf.h>
  36 }
  37
  38 #include <SMDS_EdgePosition.hxx>
  39 #include <SMESHDS_Group.hxx>
  40 #include <SMESH_File.hxx>
  41 #include <SMESH_Gen.hxx>
  42 #include <SMESH_Group.hxx>
  43 #include <SMESH_MGLicenseKeyGen.hxx>
  44 #include <SMESH_Mesh.hxx>
  45 #include <SMESH_MeshEditor.hxx>
  46 #include <SMESH_MesherHelper.hxx>
  47 #include <StdMeshers_FaceSide.hxx>
  48 #include <StdMeshers_ViscousLayers2D.hxx>
  49
  50 #include <Basics_Utils.hxx>
  51 #include <utilities.h>
  52
  53 #include <cstdlib>
  54 #include <limits>
  55 #include <list>
  56 #include <set>
  57 #include <vector>
  58
  59 #include <structmember.h> // python
  60
  61 // OPENCASCADE includes
  62 #include <BRepBndLib.hxx>
  63 #include <BRepBuilderAPI_MakeFace.hxx>
  64 #include <BRepBuilderAPI_MakePolygon.hxx>
  65 #include <BRepBuilderAPI_MakeWire.hxx>
  66 #include <BRepGProp.hxx>
  67 #include <BRepTools.hxx>
  68 #include <BRep_Builder.hxx>
  69 #include <BRep_Tool.hxx>
  70 #include <GProp_GProps.hxx>
  71 #include <Geom2d_Curve.hxx>
  72 #include <Geom2d_Line.hxx>
  73 #include <GeomAPI_ProjectPointOnCurve.hxx>
  74 #include <GeomAPI_ProjectPointOnSurf.hxx>
  75 #include <Geom_Curve.hxx>
  76 #include <Geom_Surface.hxx>
  77 #include <NCollection_DataMap.hxx>
  78 #include <NCollection_Map.hxx>
  79 #include <Standard_ErrorHandler.hxx>
  80 #include <TopExp.hxx>
  81 #include <TopExp_Explorer.hxx>
  82 #include <TopTools_DataMapOfShapeInteger.hxx>
  83 #include <TopTools_IndexedMapOfShape.hxx>
  84 #include <TopTools_MapOfShape.hxx>
  85 #include <TopoDS.hxx>
  86 #include <TopoDS_Compound.hxx>
  87 #include <TopoDS_Edge.hxx>
  88 #include <TopoDS_Face.hxx>
  89 #include <TopoDS_Shape.hxx>
  90 #include <TopoDS_Vertex.hxx>
  91 #include <TopoDS_Wire.hxx>
  92 #include <gp_Pnt.hxx>
  93 #include <gp_Pnt2d.hxx>
  94 #include <gp_XY.hxx>
  95 #include <gp_XYZ.hxx>
  96
  97 #ifndef WIN32
  98 #include <fenv.h>
  99 #endif
 100
 101 #include <memory>
 102 #include <functional>
 103
 104 using namespace std;
 105
 106 /* ==================================
 107  * ===========  PYTHON ==============
 108  * ==================================*/
 109
 110 namespace
 111 {
 112   typedef struct {
 113     PyObject_HEAD
 114     int softspace;
 115     std::string *out;
 116     } PyStdOut;
 117
 118   static void
 119   PyStdOut_dealloc(PyStdOut *self)
 120   {
 121     PyObject_Del(self);
 122   }
 123
 124   static PyObject *
 125   PyStdOut_write(PyStdOut *self, PyObject *args)
 126   {
 127     char *c;
 128     int l;
 129     if (!PyArg_ParseTuple(args, "t#:write",&c, &l))
 130       return NULL;
 131
 132     *(self->out)=*(self->out)+c;
 133
 134     Py_INCREF(Py_None);
 135     return Py_None;
 136   }
 137
 138   static PyMethodDef PyStdOut_methods[] = {
 139     {"write",  (PyCFunction)PyStdOut_write,  METH_VARARGS,
 140       PyDoc_STR("write(string) -> None")},
 141     {0, 0, 0, 0}   /* sentinel */
 142   };
 143
 144   static PyMemberDef PyStdOut_memberlist[] = {
 145     {(char*)"softspace", T_INT,  offsetof(PyStdOut, softspace), 0,
 146      (char*)"flag indicating that a space needs to be printed; used by print"},
 147     {0, 0, 0, 0, 0} /* Sentinel */
 148   };
 149
 150   static PyTypeObject PyStdOut_Type = {
 151     /* The ob_type field must be initialized in the module init function
 152      * to be portable to Windows without using C++. */
 153     PyVarObject_HEAD_INIT(NULL, 0)
 154     "PyOut",                      /*tp_name*/
 155     sizeof(PyStdOut),             /*tp_basicsize*/
 156     0,                            /*tp_itemsize*/
 157     /* methods */
 158     (destructor)PyStdOut_dealloc, /*tp_dealloc*/
 159     0,                            /*tp_print*/
 160     0,                            /*tp_getattr*/
 161     0,                            /*tp_setattr*/
 162     0,                            /*tp_compare*/
 163     0,                            /*tp_repr*/
 164     0,                            /*tp_as_number*/
 165     0,                            /*tp_as_sequence*/
 166     0,                            /*tp_as_mapping*/
 167     0,                            /*tp_hash*/
 168     0,                            /*tp_call*/
 169     0,                            /*tp_str*/
 170     PyObject_GenericGetAttr,      /*tp_getattro*/
 171     /* softspace is writable:  we must supply tp_setattro */
 172     PyObject_GenericSetAttr,      /* tp_setattro */
 173     0,                            /*tp_as_buffer*/
 174     Py_TPFLAGS_DEFAULT,           /*tp_flags*/
 175     0,                            /*tp_doc*/
 176     0,                            /*tp_traverse*/
 177     0,                            /*tp_clear*/
 178     0,                            /*tp_richcompare*/
 179     0,                            /*tp_weaklistoffset*/
 180     0,                            /*tp_iter*/
 181     0,                            /*tp_iternext*/
 182     PyStdOut_methods,             /*tp_methods*/
 183     PyStdOut_memberlist,          /*tp_members*/
 184     0,                            /*tp_getset*/
 185     0,                            /*tp_base*/
 186     0,                            /*tp_dict*/
 187     0,                            /*tp_descr_get*/
 188     0,                            /*tp_descr_set*/
 189     0,                            /*tp_dictoffset*/
 190     0,                            /*tp_init*/
 191     0,                            /*tp_alloc*/
 192     0,                            /*tp_new*/
 193     0,                            /*tp_free*/
 194     0,                            /*tp_is_gc*/
 195     0,                            /*tp_bases*/
 196     0,                            /*tp_mro*/
 197     0,                            /*tp_cache*/
 198     0,                            /*tp_subclasses*/
 199     0,                            /*tp_weaklist*/
 200     0,                            /*tp_del*/
 201     0,                            /*tp_version_tag*/
 202     0,                            /*tp_finalize*/
 203   };
 204
 205   PyObject * newPyStdOut( std::string& out )
 206   {
 207     PyStdOut* self = PyObject_New(PyStdOut, &PyStdOut_Type);
 208     if (self) {
 209       self->softspace = 0;
 210       self->out=&out;
 211     }
 212     return (PyObject*)self;
 213   }
 214 }
 215
 216
 217 ////////////////////////END PYTHON///////////////////////////
 218
 219 //////////////////MY MAPS////////////////////////////////////////
 220 namespace {
 221 TopTools_IndexedMapOfShape FacesWithSizeMap;
 222 std::map<int,string> FaceId2SizeMap;
 223 TopTools_IndexedMapOfShape EdgesWithSizeMap;
 224 std::map<int,string> EdgeId2SizeMap;
 225 TopTools_IndexedMapOfShape VerticesWithSizeMap;
 226 std::map<int,string> VertexId2SizeMap;
 227
 228 std::map<int,PyObject*> FaceId2PythonSmp;
 229 std::map<int,PyObject*> EdgeId2PythonSmp;
 230 std::map<int,PyObject*> VertexId2PythonSmp;
 231
 232 typedef std::map<int, std::vector< BLSURFPlugin_Attractor* > > TId2ClsAttractorVec;
 233 TId2ClsAttractorVec FaceId2ClassAttractor;
 234 TId2ClsAttractorVec FaceIndex2ClassAttractor;
 235 std::map<int,std::vector<double> > FaceId2AttractorCoords;
 236 int theNbAttractors;
 237
 238 TopTools_IndexedMapOfShape FacesWithEnforcedVertices;
 239 std::map< int, BLSURFPlugin_Hypothesis::TEnfVertexCoordsList > FaceId2EnforcedVertexCoords;
 240 std::map< BLSURFPlugin_Hypothesis::TEnfVertexCoords, BLSURFPlugin_Hypothesis::TEnfVertexCoords > EnfVertexCoords2ProjVertex;
 241 std::map< BLSURFPlugin_Hypothesis::TEnfVertexCoords, BLSURFPlugin_Hypothesis::TEnfVertexList > EnfVertexCoords2EnfVertexList;
 242 SMESH_MesherHelper* theHelper;
 243
 244 bool HasSizeMapOnFace=false;
 245 bool HasSizeMapOnEdge=false;
 246 bool HasSizeMapOnVertex=false;
 247 //bool HasAttractorOnFace=false;
 248 }
 249 //=============================================================================
 250 /*!
 251  *
 252  */
 253 //=============================================================================
 254
 255 BLSURFPlugin_BLSURF::BLSURFPlugin_BLSURF(int        hypId,
 256                                          SMESH_Gen* gen,
 257                                          bool       theHasGEOM)
 258   : SMESH_2D_Algo(hypId, gen)
 259 {
 260   _name = theHasGEOM ? "MG-CADSurf" : "MG-CADSurf_NOGEOM";//"BLSURF";
 261   _shapeType = (1 << TopAbs_FACE); // 1 bit /shape type
 262   _compatibleHypothesis.push_back(BLSURFPlugin_Hypothesis::GetHypType(theHasGEOM));
 263   if ( theHasGEOM )
 264     _compatibleHypothesis.push_back(StdMeshers_ViscousLayers2D::GetHypType());
 265   _requireDiscreteBoundary = false;
 266   _onlyUnaryInput = false;
 267   _hypothesis = NULL;
 268   _supportSubmeshes = true;
 269   _requireShape = theHasGEOM;
 270
 271   /* Initialize the Python interpreter */
 272   assert(Py_IsInitialized());
 273   PyGILState_STATE gstate;
 274   gstate = PyGILState_Ensure();
 275
 276   main_mod = NULL;
 277   main_mod = PyImport_AddModule("__main__");
 278
 279   main_dict = NULL;
 280   main_dict = PyModule_GetDict(main_mod);
 281
 282   PyRun_SimpleString("from math import *");
 283   PyGILState_Release(gstate);
 284
 285   FacesWithSizeMap.Clear();
 286   FaceId2SizeMap.clear();
 287   EdgesWithSizeMap.Clear();
 288   EdgeId2SizeMap.clear();
 289   VerticesWithSizeMap.Clear();
 290   VertexId2SizeMap.clear();
 291   FaceId2PythonSmp.clear();
 292   EdgeId2PythonSmp.clear();
 293   VertexId2PythonSmp.clear();
 294   FaceId2AttractorCoords.clear();
 295   FaceId2ClassAttractor.clear();
 296   FaceIndex2ClassAttractor.clear();
 297   FacesWithEnforcedVertices.Clear();
 298   FaceId2EnforcedVertexCoords.clear();
 299   EnfVertexCoords2ProjVertex.clear();
 300   EnfVertexCoords2EnfVertexList.clear();
 301
 302   _compute_canceled = false;
 303 }
 304
 305 //=============================================================================
 306 /*!
 307  *
 308  */
 309 //=============================================================================
 310
 311 BLSURFPlugin_BLSURF::~BLSURFPlugin_BLSURF()
 312 {
 313 }
 314
 315
 316 //=============================================================================
 317 /*!
 318  *
 319  */
 320 //=============================================================================
 321
 322 bool BLSURFPlugin_BLSURF::CheckHypothesis
 323                          (SMESH_Mesh&                          aMesh,
 324                           const TopoDS_Shape&                  aShape,
 325                           SMESH_Hypothesis::Hypothesis_Status& aStatus)
 326 {
 327   _hypothesis        = NULL;
 328   _haveViscousLayers = false;
 329
 330   list<const SMESHDS_Hypothesis*>::const_iterator itl;
 331   const SMESHDS_Hypothesis* theHyp;
 332
 333   const list<const SMESHDS_Hypothesis*>& hyps = GetUsedHypothesis(aMesh, aShape,
 334                                                                   /*ignoreAuxiliary=*/false);
 335   aStatus = SMESH_Hypothesis::HYP_OK;
 336   if ( hyps.empty() )
 337   {
 338     return true;  // can work with no hypothesis
 339   }
 340
 341   for ( itl = hyps.begin(); itl != hyps.end() && ( aStatus == HYP_OK ); ++itl )
 342   {
 343     theHyp = *itl;
 344     string hypName = theHyp->GetName();
 345     if ( hypName == BLSURFPlugin_Hypothesis::GetHypType(true) ||
 346          hypName == BLSURFPlugin_Hypothesis::GetHypType(false) )
 347     {
 348       _hypothesis = static_cast<const BLSURFPlugin_Hypothesis*> (theHyp);
 349       ASSERT(_hypothesis);
 350       if ( _hypothesis->GetPhysicalMesh() == BLSURFPlugin_Hypothesis::DefaultSize &&
 351            _hypothesis->GetGeometricMesh() == BLSURFPlugin_Hypothesis::DefaultGeom )
 352         //  hphy_flag = 0 and hgeo_flag = 0 is not allowed (spec)
 353         aStatus = SMESH_Hypothesis::HYP_BAD_PARAMETER;
 354     }
 355     else if ( hypName == StdMeshers_ViscousLayers2D::GetHypType() )
 356     {
 357       if ( !_haveViscousLayers )
 358       {
 359         if ( error( StdMeshers_ViscousLayers2D::CheckHypothesis( aMesh, aShape, aStatus )))
 360           _haveViscousLayers = true;
 361       }
 362     }
 363     else
 364     {
 365       aStatus = SMESH_Hypothesis::HYP_INCOMPATIBLE;
 366     }
 367   }
 368   return aStatus == SMESH_Hypothesis::HYP_OK;
 369 }
 370
 371 //=============================================================================
 372 /*!
 373  * Pass parameters to MG-CADSurf
 374  */
 375 //=============================================================================
 376
 377 inline std::string val_to_string(double d)
 378 {
 379    std::ostringstream o;
 380    o << d;
 381    return o.str();
 382 }
 383
 384 inline std::string val_to_string_rel(double d)
 385 {
 386    std::ostringstream o;
 387    o << d;
 388    o << 'r';
 389    return o.str();
 390 }
 391
 392 inline std::string val_to_string(int i)
 393 {
 394    std::ostringstream o;
 395    o << i;
 396    return o.str();
 397 }
 398
 399 inline std::string val_to_string_rel(int i)
 400 {
 401    std::ostringstream o;
 402    o << i;
 403    o << 'r';
 404    return o.str();
 405 }
 406
 407 double _smp_phy_size;
 408 status_t size_on_surface(integer face_id, real *uv, real *size, void *user_data);
 409 status_t size_on_edge(integer edge_id, real t, real *size, void *user_data);
 410 status_t size_on_vertex(integer vertex_id, real *size, void *user_data);
 411
 412 /////////////////////////////////////////////////////////
 413
 414 BLSURFPlugin_BLSURF::projectionPoint
 415 BLSURFPlugin_BLSURF::getProjectionPoint(TopoDS_Face&  theFace,
 416                                         const gp_Pnt& thePoint,
 417                                         const bool    theAllowStateON)
 418 {
 419   projectionPoint myPoint;
 420
 421   if ( theFace.IsNull() )
 422   {
 423     TopoDS_Shape foundFace, myShape = theHelper->GetSubShape();
 424     TopTools_MapOfShape checkedFaces;
 425     std::map< double, std::pair< TopoDS_Face, gp_Pnt2d > > dist2face;
 426
 427     for ( TopExp_Explorer exp ( myShape, TopAbs_FACE ); exp.More(); exp.Next())
 428     {
 429       const TopoDS_Face& face = TopoDS::Face( exp.Current() );
 430       if ( !checkedFaces.Add( face )) continue;
 431
 432       // check distance to face
 433       Handle(ShapeAnalysis_Surface) surface = theHelper->GetSurface( face );
 434       gp_Pnt2d uv = surface->ValueOfUV( thePoint, Precision::Confusion());
 435       double distance = surface->Gap();
 436       if ( distance > Precision::Confusion() )
 437       {
 438         // the face is far, store for future analysis
 439         dist2face.insert( std::make_pair( distance, std::make_pair( face, uv )));
 440       }
 441       else
 442       {
 443         // check location on the face
 444         BRepClass_FaceClassifier FC( face, uv, BRep_Tool::Tolerance( face ));
 445         if (( FC.State() == TopAbs_IN ) ||
 446             ( FC.State() == TopAbs_ON && theAllowStateON ))
 447         {
 448           if ( !foundFace.IsNull() && !theAllowStateON )
 449             return myPoint; // thePoint seems to be TopAbs_ON
 450           foundFace     = face;
 451           myPoint.uv    = uv.XY();
 452           myPoint.xyz   = surface->Value( uv ).XYZ();
 453           myPoint.state = FC.State();
 454           // break;
 455         }
 456         if ( FC.State() == TopAbs_ON && !theAllowStateON )
 457           return myPoint;
 458       }
 459     }
 460     if ( foundFace.IsNull() )
 461     {
 462       // find the closest face
 463       std::map< double, std::pair< TopoDS_Face, gp_Pnt2d > >::iterator d2f = dist2face.begin();
 464       for ( ; d2f != dist2face.end(); ++d2f )
 465       {
 466         const TopoDS_Face& face = d2f->second.first;
 467         const gp_Pnt2d &     uv = d2f->second.second;
 468         BRepClass_FaceClassifier FC( face, uv, Precision::Confusion());
 469         if (( FC.State() == TopAbs_IN ) ||
 470             ( FC.State() == TopAbs_ON && theAllowStateON ))
 471         {
 472           foundFace     = face;
 473           myPoint.uv    = uv.XY();
 474           myPoint.xyz   = theHelper->GetSurface( face )->Value( uv ).XYZ();
 475           myPoint.state = FC.State();
 476           if ( FC.State() == TopAbs_IN )
 477             break;
 478         }
 479       }
 480     }
 481     // set the resultShape
 482     // if ( foundFace.IsNull() )
 483     //   throw SMESH_ComputeError(COMPERR_BAD_PARMETERS,
 484     //                            "getProjectionPoint: can't find a face by a vertex");
 485     theFace = TopoDS::Face( foundFace );
 486   }
 487   else // !theFace.IsNull()
 488   {
 489     Handle(Geom_Surface) surface = BRep_Tool::Surface( theFace );
 490     GeomAPI_ProjectPointOnSurf projector( thePoint, surface );
 491     if ( !projector.IsDone() || projector.NbPoints()==0 )
 492       throw SMESH_ComputeError(COMPERR_BAD_PARMETERS,
 493                                "getProjectionPoint: can't project a vertex to a face");
 494
 495     Standard_Real u,v;
 496     projector.LowerDistanceParameters(u,v);
 497     myPoint.uv  = gp_XY(u,v);
 498     myPoint.xyz = projector.NearestPoint().XYZ();
 499
 500     BRepClass_FaceClassifier FC( theFace, myPoint.uv, Precision::Confusion());
 501     myPoint.state = FC.State();
 502
 503     if (( FC.State() != TopAbs_IN ) &&
 504         ( FC.State() != TopAbs_ON || !theAllowStateON ))
 505       theFace.Nullify();
 506   }
 507
 508   return myPoint;
 509 }
 510
 511 /////////////////////////////////////////////////////////
 512 TopoDS_Shape BLSURFPlugin_BLSURF::entryToShape(std::string entry)
 513 {
 514   GEOM::GEOM_Object_var aGeomObj = SMESH_Gen_i::GetSMESHGen()->GetGeomObjectByEntry( entry );
 515   TopoDS_Shape                 S = SMESH_Gen_i::GetSMESHGen()->GeomObjectToShape( aGeomObj );
 516   return S;
 517 }
 518
 519 void _createEnforcedVertexOnFace(TopoDS_Face                          faceShape,
 520                                  const gp_Pnt&                        aPnt,
 521                                  BLSURFPlugin_Hypothesis::TEnfVertex *enfVertex)
 522 {
 523   BLSURFPlugin_Hypothesis::TEnfVertexCoords enf_coords, coords, s_coords;
 524
 525   // Find the face and get the (u,v) values of the enforced vertex on the face
 526   BLSURFPlugin_BLSURF::projectionPoint projPnt =
 527     BLSURFPlugin_BLSURF::getProjectionPoint( faceShape, aPnt, /*allowStateON=*/true );
 528   if ( faceShape.IsNull() )
 529     return;
 530
 531   enf_coords.push_back(aPnt.X());
 532   enf_coords.push_back(aPnt.Y());
 533   enf_coords.push_back(aPnt.Z());
 534
 535   coords.push_back(projPnt.uv.X());
 536   coords.push_back(projPnt.uv.Y());
 537   coords.push_back(projPnt.xyz.X());
 538   coords.push_back(projPnt.xyz.Y());
 539   coords.push_back(projPnt.xyz.Z());
 540   coords.push_back(projPnt.state == TopAbs_ON);
 541
 542   s_coords.push_back(projPnt.xyz.X());
 543   s_coords.push_back(projPnt.xyz.Y());
 544   s_coords.push_back(projPnt.xyz.Z());
 545
 546   // Save pair projected vertex / enf vertex
 547   EnfVertexCoords2ProjVertex[s_coords] = enf_coords;
 548   pair<BLSURFPlugin_Hypothesis::TEnfVertexList::iterator,bool> ret;
 549   BLSURFPlugin_Hypothesis::TEnfVertexList::iterator it;
 550   ret = EnfVertexCoords2EnfVertexList[s_coords].insert(enfVertex);
 551   if (ret.second == false) {
 552     it = ret.first;
 553     (*it)->grpName = enfVertex->grpName;
 554   }
 555
 556   int key = FacesWithEnforcedVertices.Add( faceShape );
 557
 558   // If a node is already created by an attractor, do not create enforced vertex
 559   int attractorKey = FacesWithSizeMap.FindIndex( faceShape );
 560   bool sameAttractor = false;
 561   if (attractorKey >= 0)
 562     if (FaceId2AttractorCoords.count(attractorKey) > 0)
 563       if (FaceId2AttractorCoords[attractorKey] == coords)
 564         sameAttractor = true;
 565
 566   if (FaceId2EnforcedVertexCoords.find(key) != FaceId2EnforcedVertexCoords.end()) {
 567     if (! sameAttractor)
 568       FaceId2EnforcedVertexCoords[key].insert(coords); // there should be no redundant coords here (see std::set management)
 569   }
 570   else {
 571     if (! sameAttractor) {
 572       BLSURFPlugin_Hypothesis::TEnfVertexCoordsList ens;
 573       ens.insert(coords);
 574       FaceId2EnforcedVertexCoords[key] = ens;
 575     }
 576   }
 577 }
 578
 579 /////////////////////////////////////////////////////////
 580 void BLSURFPlugin_BLSURF::createEnforcedVertexOnFace(TopoDS_Shape faceShape, BLSURFPlugin_Hypothesis::TEnfVertexList enfVertexList)
 581 {
 582   gp_Pnt aPnt;
 583   for( BLSURFPlugin_Hypothesis::TEnfVertex* enfVertex : enfVertexList )
 584   {
 585     // Case of manual coords
 586     if (enfVertex->coords.size() != 0) {
 587       aPnt.SetCoord(enfVertex->coords[0],enfVertex->coords[1],enfVertex->coords[2]);
 588       _createEnforcedVertexOnFace( TopoDS::Face(faceShape),  aPnt, enfVertex);
 589     }
 590
 591     // Case of geom vertex coords
 592     if (enfVertex->geomEntry != "") {
 593       TopoDS_Shape     GeomShape = entryToShape(enfVertex->geomEntry);
 594       TopAbs_ShapeEnum GeomType  = GeomShape.ShapeType();
 595        if (GeomType == TopAbs_VERTEX)
 596        {
 597          enfVertex->vertex = TopoDS::Vertex( GeomShape );
 598          aPnt = BRep_Tool::Pnt( enfVertex->vertex );
 599          _createEnforcedVertexOnFace( TopoDS::Face(faceShape),  aPnt, enfVertex);
 600        }
 601        // Group Management
 602        if (GeomType == TopAbs_COMPOUND)
 603        {
 604          for (TopoDS_Iterator it (GeomShape); it.More(); it.Next())
 605            if (it.Value().ShapeType() == TopAbs_VERTEX)
 606            {
 607              enfVertex->vertex = TopoDS::Vertex( it.Value() );
 608              aPnt = BRep_Tool::Pnt( enfVertex->vertex );
 609              _createEnforcedVertexOnFace( TopoDS::Face(faceShape),  aPnt, enfVertex);
 610            }
 611        }
 612     }
 613   }
 614 }
 615
 616 /////////////////////////////////////////////////////////
 617 void createAttractorOnFace(TopoDS_Shape GeomShape, std::string AttractorFunction, double defaultSize)
 618 {
 619   double xa=0., ya=0., za=0.; // Coordinates of attractor point
 620   double a, b;       // Attractor parameter
 621   double d = 0.;
 622   bool createNode=false; // To create a node on attractor projection
 623   size_t pos1, pos2;
 624   const char *sep = ";";
 625   // atIt->second has the following pattern:
 626   // ATTRACTOR(xa;ya;za;a;b;True|False;d)
 627   // where:
 628   // xa;ya;za : coordinates of  attractor
 629   // a        : desired size on attractor
 630   // b        : distance of influence of attractor
 631   // d        : distance until which the size remains constant
 632   //
 633   // We search the parameters in the string
 634   // xa
 635   pos1 = AttractorFunction.find(sep);
 636   if (pos1!=string::npos)
 637     xa = atof(AttractorFunction.substr(10, pos1-10).c_str());
 638   // ya
 639   pos2 = AttractorFunction.find(sep, pos1+1);
 640   if (pos2!=string::npos) {
 641     ya = atof(AttractorFunction.substr(pos1+1, pos2-pos1-1).c_str());
 642     pos1 = pos2;
 643   }
 644   // za
 645   pos2 = AttractorFunction.find(sep, pos1+1);
 646   if (pos2!=string::npos) {
 647     za = atof(AttractorFunction.substr(pos1+1, pos2-pos1-1).c_str());
 648     pos1 = pos2;
 649   }
 650   // a
 651   pos2 = AttractorFunction.find(sep, pos1+1);
 652   if (pos2!=string::npos) {
 653     a = atof(AttractorFunction.substr(pos1+1, pos2-pos1-1).c_str());
 654     pos1 = pos2;
 655   }
 656   // b
 657   pos2 = AttractorFunction.find(sep, pos1+1);
 658   if (pos2!=string::npos) {
 659     b = atof(AttractorFunction.substr(pos1+1, pos2-pos1-1).c_str());
 660     pos1 = pos2;
 661   }
 662   // createNode
 663   pos2 = AttractorFunction.find(sep, pos1+1);
 664   if (pos2!=string::npos) {
 665     string createNodeStr = AttractorFunction.substr(pos1+1, pos2-pos1-1);
 666     createNode = (AttractorFunction.substr(pos1+1, pos2-pos1-1) == "True");
 667     pos1=pos2;
 668   }
 669   // d
 670   pos2 = AttractorFunction.find(")");
 671   if (pos2!=string::npos) {
 672     d = atof(AttractorFunction.substr(pos1+1, pos2-pos1-1).c_str());
 673   }
 674
 675   // Get the (u,v) values of the attractor on the face
 676   BLSURFPlugin_BLSURF::projectionPoint projPnt =
 677     BLSURFPlugin_BLSURF::getProjectionPoint(TopoDS::Face(GeomShape),gp_Pnt(xa,ya,za));
 678   gp_XY    uvPoint = projPnt.uv;
 679   gp_XYZ  xyzPoint = projPnt.xyz;
 680   Standard_Real u0 = uvPoint.X();
 681   Standard_Real v0 = uvPoint.Y();
 682   Standard_Real x0 = xyzPoint.X();
 683   Standard_Real y0 = xyzPoint.Y();
 684   Standard_Real z0 = xyzPoint.Z();
 685   std::vector<double> coords;
 686   coords.push_back(u0);
 687   coords.push_back(v0);
 688   coords.push_back(x0);
 689   coords.push_back(y0);
 690   coords.push_back(z0);
 691   // We construct the python function
 692   ostringstream attractorFunctionStream;
 693   attractorFunctionStream << "def f(u,v): return ";
 694   attractorFunctionStream << defaultSize << "-(" << defaultSize <<"-" << a << ")";
 695   //attractorFunctionStream << "*exp(-((u-("<<u0<<"))*(u-("<<u0<<"))+(v-("<<v0<<"))*(v-("<<v0<<")))/(" << b << "*" << b <<"))";
 696   // rnc: make possible to keep the size constant until
 697   // a defined distance. Distance is expressed as the positiv part
 698   // of r-d where r is the distance to (u0,v0)
 699   attractorFunctionStream << "*exp(-(0.5*(sqrt((u-"<<u0<<")**2+(v-"<<v0<<")**2)-"<<d<<"+abs(sqrt((u-"<<u0<<")**2+(v-"<<v0<<")**2)-"<<d<<"))/(" << b << "))**2)";
 700
 701   int key;
 702   if (! FacesWithSizeMap.Contains(TopoDS::Face(GeomShape))) {
 703     key = FacesWithSizeMap.Add(TopoDS::Face(GeomShape));
 704   }
 705   else {
 706     key = FacesWithSizeMap.FindIndex(TopoDS::Face(GeomShape));
 707   }
 708   FaceId2SizeMap[key] =attractorFunctionStream.str();
 709   if (createNode) {
 710     FaceId2AttractorCoords[key] = coords;
 711   }
 712 //   // Test for new attractors
 713 //   gp_Pnt myP(xyzPoint);
 714 //   TopoDS_Vertex myV = BRepBuilderAPI_MakeVertex(myP);
 715 //   BLSURFPlugin_Attractor myAttractor(TopoDS::Face(GeomShape),myV,200);
 716 //   myAttractor.SetParameters(a, defaultSize, b, d);
 717 //   myAttractor.SetType(1);
 718 //   FaceId2ClassAttractor[key] = myAttractor;
 719 //   if(FaceId2ClassAttractor[key].GetFace().IsNull()){
 720 //   }
 721 }
 722
 723 // One sub-shape to get ids from
 724 BLSURFPlugin_BLSURF::TListOfIDs _getSubShapeIDsInMainShape(const TopoDS_Shape& theMainShape,
 725                                                            const TopoDS_Shape& theSubShape,
 726                                                            TopAbs_ShapeEnum    theShapeType)
 727 {
 728   BLSURFPlugin_BLSURF::TListOfIDs face_ids;
 729
 730   TopTools_MapOfShape subShapes;
 731   TopTools_IndexedMapOfShape anIndices;
 732   TopExp::MapShapes(theMainShape, theShapeType, anIndices);
 733
 734   for (TopExp_Explorer face_iter(theSubShape,theShapeType);face_iter.More();face_iter.Next())
 735   {
 736     if ( subShapes.Add( face_iter.Current() )) // issue 23416
 737     {
 738       int face_id = anIndices.FindIndex( face_iter.Current() );
 739       if ( face_id == 0 )
 740         throw SALOME_Exception( "Periodicity: sub_shape not found in main_shape");
 741       face_ids.push_back( face_id );
 742     }
 743   }
 744   return face_ids;
 745 }
 746
 747 BLSURFPlugin_BLSURF::TListOfIDs _getSubShapeIDsInMainShape(SMESH_Mesh*      theMesh,
 748                                                            TopoDS_Shape     theSubShape,
 749                                                            TopAbs_ShapeEnum theShapeType)
 750 {
 751   BLSURFPlugin_BLSURF::TListOfIDs face_ids;
 752
 753   for (TopExp_Explorer face_iter(theSubShape,theShapeType);face_iter.More();face_iter.Next())
 754   {
 755     int face_id = theMesh->GetMeshDS()->ShapeToIndex(face_iter.Current());
 756     if (face_id == 0)
 757       throw SALOME_Exception ( "Periodicity: sub_shape not found in main_shape");
 758     face_ids.push_back(face_id);
 759   }
 760
 761   return face_ids;
 762 }
 763
 764 void BLSURFPlugin_BLSURF::addCoordsFromVertices(const std::vector<std::string> &theVerticesEntries, std::vector<double> &theVerticesCoords)
 765 {
 766   for (std::vector<std::string>::const_iterator it = theVerticesEntries.begin(); it != theVerticesEntries.end(); it++)
 767   {
 768     BLSURFPlugin_Hypothesis::TEntry theVertexEntry = *it;
 769     addCoordsFromVertex(theVertexEntry, theVerticesCoords);
 770   }
 771 }
 772
 773
 774 void BLSURFPlugin_BLSURF::addCoordsFromVertex(BLSURFPlugin_Hypothesis::TEntry theVertexEntry, std::vector<double> &theVerticesCoords)
 775 {
 776   if (theVertexEntry!="")
 777   {
 778     TopoDS_Shape aShape = entryToShape(theVertexEntry);
 779
 780     gp_Pnt aPnt = BRep_Tool::Pnt( TopoDS::Vertex( aShape ) );
 781     double theX, theY, theZ;
 782     theX = aPnt.X();
 783     theY = aPnt.Y();
 784     theZ = aPnt.Z();
 785
 786     theVerticesCoords.push_back(theX);
 787     theVerticesCoords.push_back(theY);
 788     theVerticesCoords.push_back(theZ);
 789   }
 790 }
 791
 792 /////////////////////////////////////////////////////////
 793 void BLSURFPlugin_BLSURF::createPreCadFacesPeriodicity(TopoDS_Shape theGeomShape, const BLSURFPlugin_Hypothesis::TPreCadPeriodicity &preCadPeriodicity)
 794 {
 795   TopoDS_Shape geomShape1 = entryToShape(preCadPeriodicity.shape1Entry);
 796   TopoDS_Shape geomShape2 = entryToShape(preCadPeriodicity.shape2Entry);
 797
 798   TListOfIDs theFace1_ids = _getSubShapeIDsInMainShape(theGeomShape, geomShape1, TopAbs_FACE);
 799   TListOfIDs theFace2_ids = _getSubShapeIDsInMainShape(theGeomShape, geomShape2, TopAbs_FACE);
 800
 801   TPreCadPeriodicityIDs preCadFacesPeriodicityIDs;
 802   preCadFacesPeriodicityIDs.shape1IDs = theFace1_ids;
 803   preCadFacesPeriodicityIDs.shape2IDs = theFace2_ids;
 804
 805   addCoordsFromVertices(preCadPeriodicity.theSourceVerticesEntries, preCadFacesPeriodicityIDs.theSourceVerticesCoords);
 806   addCoordsFromVertices(preCadPeriodicity.theTargetVerticesEntries, preCadFacesPeriodicityIDs.theTargetVerticesCoords);
 807
 808   _preCadFacesIDsPeriodicityVector.push_back(preCadFacesPeriodicityIDs);
 809 }
 810
 811 /////////////////////////////////////////////////////////
 812 void BLSURFPlugin_BLSURF::createPreCadEdgesPeriodicity(TopoDS_Shape theGeomShape, const BLSURFPlugin_Hypothesis::TPreCadPeriodicity &preCadPeriodicity)
 813 {
 814   TopoDS_Shape geomShape1 = entryToShape(preCadPeriodicity.shape1Entry);
 815   TopoDS_Shape geomShape2 = entryToShape(preCadPeriodicity.shape2Entry);
 816
 817   TListOfIDs theEdge1_ids = _getSubShapeIDsInMainShape(theGeomShape, geomShape1, TopAbs_EDGE);
 818   TListOfIDs theEdge2_ids = _getSubShapeIDsInMainShape(theGeomShape, geomShape2, TopAbs_EDGE);
 819
 820   TPreCadPeriodicityIDs preCadEdgesPeriodicityIDs;
 821   preCadEdgesPeriodicityIDs.shape1IDs = theEdge1_ids;
 822   preCadEdgesPeriodicityIDs.shape2IDs = theEdge2_ids;
 823
 824   addCoordsFromVertices(preCadPeriodicity.theSourceVerticesEntries, preCadEdgesPeriodicityIDs.theSourceVerticesCoords);
 825   addCoordsFromVertices(preCadPeriodicity.theTargetVerticesEntries, preCadEdgesPeriodicityIDs.theTargetVerticesCoords);
 826
 827   _preCadEdgesIDsPeriodicityVector.push_back(preCadEdgesPeriodicityIDs);
 828 }
 829
 830
 831 /////////////////////////////////////////////////////////
 832
 833 void BLSURFPlugin_BLSURF::SetParameters(const BLSURFPlugin_Hypothesis* hyp,
 834                                         cadsurf_session_t *            css,
 835                                         const TopoDS_Shape&            theGeomShape)
 836 {
 837   // rnc : Bug 1457
 838   // Clear map so that it is not stored in the algorithm with old enforced vertices in it
 839   FacesWithSizeMap.Clear();
 840   FaceId2SizeMap.clear();
 841   EdgesWithSizeMap.Clear();
 842   EdgeId2SizeMap.clear();
 843   VerticesWithSizeMap.Clear();
 844   VertexId2SizeMap.clear();
 845   FaceId2PythonSmp.clear();
 846   EdgeId2PythonSmp.clear();
 847   VertexId2PythonSmp.clear();
 848   FaceId2AttractorCoords.clear();
 849   FaceId2ClassAttractor.clear();
 850   FaceIndex2ClassAttractor.clear();
 851   FacesWithEnforcedVertices.Clear();
 852   FaceId2EnforcedVertexCoords.clear();
 853   EnfVertexCoords2ProjVertex.clear();
 854   EnfVertexCoords2EnfVertexList.clear();
 855
 856   double diagonal               = SMESH_Mesh::GetShapeDiagonalSize( theGeomShape );
 857   double bbSegmentation         = _gen->GetBoundaryBoxSegmentation();
 858   int    _physicalMesh          = BLSURFPlugin_Hypothesis::GetDefaultPhysicalMesh();
 859   int    _geometricMesh         = BLSURFPlugin_Hypothesis::GetDefaultGeometricMesh();
 860   double _phySize               = BLSURFPlugin_Hypothesis::GetDefaultPhySize(diagonal, bbSegmentation);
 861   bool   _phySizeRel            = BLSURFPlugin_Hypothesis::GetDefaultPhySizeRel();
 862   double _minSize               = BLSURFPlugin_Hypothesis::GetDefaultMinSize(diagonal);
 863   bool   _minSizeRel            = BLSURFPlugin_Hypothesis::GetDefaultMinSizeRel();
 864   double _maxSize               = BLSURFPlugin_Hypothesis::GetDefaultMaxSize(diagonal);
 865   bool   _maxSizeRel            = BLSURFPlugin_Hypothesis::GetDefaultMaxSizeRel();
 866   double _use_gradation         = BLSURFPlugin_Hypothesis::GetDefaultUseGradation();
 867   double _gradation             = BLSURFPlugin_Hypothesis::GetDefaultGradation();
 868   double _use_volume_gradation  = BLSURFPlugin_Hypothesis::GetDefaultUseVolumeGradation();
 869   double _volume_gradation      = BLSURFPlugin_Hypothesis::GetDefaultVolumeGradation();
 870   BLSURFPlugin_Hypothesis::ElementType _elementType = BLSURFPlugin_Hypothesis::GetDefaultElementType();
 871   double _angleMesh             = BLSURFPlugin_Hypothesis::GetDefaultAngleMesh();
 872   double _chordalError          = BLSURFPlugin_Hypothesis::GetDefaultChordalError(diagonal);
 873   bool   _anisotropic           = BLSURFPlugin_Hypothesis::GetDefaultAnisotropic();
 874   double _anisotropicRatio      = BLSURFPlugin_Hypothesis::GetDefaultAnisotropicRatio();
 875   bool   _removeTinyEdges       = BLSURFPlugin_Hypothesis::GetDefaultRemoveTinyEdges();
 876   double _tinyEdgeLength        = BLSURFPlugin_Hypothesis::GetDefaultTinyEdgeLength(diagonal);
 877   bool   _optimiseTinyEdges     = BLSURFPlugin_Hypothesis::GetDefaultOptimiseTinyEdges();
 878   double _tinyEdgeOptimisLength = BLSURFPlugin_Hypothesis::GetDefaultTinyEdgeOptimisationLength(diagonal);
 879   bool   _correctSurfaceIntersec= BLSURFPlugin_Hypothesis::GetDefaultCorrectSurfaceIntersection();
 880   double _corrSurfaceIntersCost = BLSURFPlugin_Hypothesis::GetDefaultCorrectSurfaceIntersectionMaxCost();
 881   bool   _badElementRemoval     = BLSURFPlugin_Hypothesis::GetDefaultBadElementRemoval();
 882   double _badElementAspectRatio = BLSURFPlugin_Hypothesis::GetDefaultBadElementAspectRatio();
 883   bool   _optimizeMesh          = BLSURFPlugin_Hypothesis::GetDefaultOptimizeMesh();
 884   bool   _quadraticMesh         = BLSURFPlugin_Hypothesis::GetDefaultQuadraticMesh();
 885   int    _verb                  = BLSURFPlugin_Hypothesis::GetDefaultVerbosity();
 886   //int    _topology              = BLSURFPlugin_Hypothesis::GetDefaultTopology();
 887   bool   _useSurfaceProximity      = BLSURFPlugin_Hypothesis::GetDefaultUseSurfaceProximity     ();
 888   int    _nbSurfaceProximityLayers = BLSURFPlugin_Hypothesis::GetDefaultNbSurfaceProximityLayers();
 889   double _surfaceProximityRatio    = BLSURFPlugin_Hypothesis::GetDefaultSurfaceProximityRatio   ();
 890   bool   _useVolumeProximity       = BLSURFPlugin_Hypothesis::GetDefaultUseVolumeProximity      ();
 891   int    _nbVolumeProximityLayers  = BLSURFPlugin_Hypothesis::GetDefaultNbVolumeProximityLayers ();
 892   double _volumeProximityRatio     = BLSURFPlugin_Hypothesis::GetDefaultVolumeProximityRatio    ();
 893
 894   // PreCAD
 895   //int _precadMergeEdges         = BLSURFPlugin_Hypothesis::GetDefaultPreCADMergeEdges();
 896   //int _precadRemoveDuplicateCADFaces = BLSURFPlugin_Hypothesis::GetDefaultPreCADRemoveDuplicateCADFaces();
 897   //int _precadProcess3DTopology  = BLSURFPlugin_Hypothesis::GetDefaultPreCADProcess3DTopology();
 898   //int _precadDiscardInput       = BLSURFPlugin_Hypothesis::GetDefaultPreCADDiscardInput();
 899
 900   const BLSURFPlugin_Hypothesis::TPreCadPeriodicityVector preCadFacesPeriodicityVector = BLSURFPlugin_Hypothesis::GetPreCadFacesPeriodicityVector(hyp);
 901
 902   if (hyp) {
 903     _physicalMesh  = (int) hyp->GetPhysicalMesh();
 904     _geometricMesh = (int) hyp->GetGeometricMesh();
 905     if (hyp->GetPhySize() > 0) {
 906       _phySize       = hyp->GetPhySize();
 907       // if user size is not explicitly specified, "relative" flag is ignored
 908       _phySizeRel    = hyp->IsPhySizeRel();
 909     }
 910     if (hyp->GetMinSize() > 0) {
 911       _minSize       = hyp->GetMinSize();
 912       // if min size is not explicitly specified, "relative" flag is ignored
 913       _minSizeRel    = hyp->IsMinSizeRel();
 914     }
 915     if (hyp->GetMaxSize() > 0) {
 916       _maxSize       = hyp->GetMaxSize();
 917       // if max size is not explicitly specified, "relative" flag is ignored
 918       _maxSizeRel    = hyp->IsMaxSizeRel();
 919     }
 920     _use_gradation = hyp->GetUseGradation();
 921     if (hyp->GetGradation() > 0 && _use_gradation)
 922       _gradation     = hyp->GetGradation();
 923     _use_volume_gradation    = hyp->GetUseVolumeGradation();
 924     if (hyp->GetVolumeGradation() > 0 && _use_volume_gradation )
 925       _volume_gradation      = hyp->GetVolumeGradation();
 926     _elementType     = hyp->GetElementType();
 927     if (hyp->GetAngleMesh() > 0)
 928       _angleMesh     = hyp->GetAngleMesh();
 929     if (hyp->GetChordalError() > 0)
 930       _chordalError          = hyp->GetChordalError();
 931     _anisotropic             = hyp->GetAnisotropic();
 932     if (hyp->GetAnisotropicRatio() >= 0)
 933       _anisotropicRatio      = hyp->GetAnisotropicRatio();
 934     _removeTinyEdges         = hyp->GetRemoveTinyEdges();
 935     if (hyp->GetTinyEdgeLength() > 0)
 936       _tinyEdgeLength        = hyp->GetTinyEdgeLength();
 937     _optimiseTinyEdges       = hyp->GetOptimiseTinyEdges();
 938     if (hyp->GetTinyEdgeOptimisationLength() > 0)
 939       _tinyEdgeOptimisLength = hyp->GetTinyEdgeOptimisationLength();
 940     _correctSurfaceIntersec  = hyp->GetCorrectSurfaceIntersection();
 941     if (hyp->GetCorrectSurfaceIntersectionMaxCost() > 0)
 942       _corrSurfaceIntersCost = hyp->GetCorrectSurfaceIntersectionMaxCost();
 943     _badElementRemoval       = hyp->GetBadElementRemoval();
 944     if (hyp->GetBadElementAspectRatio() >= 0)
 945       _badElementAspectRatio = hyp->GetBadElementAspectRatio();
 946     _optimizeMesh  = hyp->GetOptimizeMesh();
 947     _quadraticMesh = hyp->GetQuadraticMesh();
 948     _verb          = hyp->GetVerbosity();
 949     //_topology      = (int) hyp->GetTopology();
 950     // PreCAD
 951     //_precadMergeEdges        = hyp->GetPreCADMergeEdges();
 952     //_precadRemoveDuplicateCADFaces = hyp->GetPreCADRemoveDuplicateCADFaces();
 953     //_precadProcess3DTopology = hyp->GetPreCADProcess3DTopology();
 954     //_precadDiscardInput      = hyp->GetPreCADDiscardInput();
 955     _useSurfaceProximity      = hyp->GetUseSurfaceProximity     ();
 956     _nbSurfaceProximityLayers = hyp->GetNbSurfaceProximityLayers();
 957     _surfaceProximityRatio    = hyp->GetSurfaceProximityRatio   ();
 958     _useVolumeProximity       = hyp->GetUseVolumeProximity      ();
 959     _nbVolumeProximityLayers  = hyp->GetNbVolumeProximityLayers ();
 960     _volumeProximityRatio     = hyp->GetVolumeProximityRatio    ();
 961
 962
 963     const BLSURFPlugin_Hypothesis::TOptionValues& opts = hyp->GetOptionValues();
 964     BLSURFPlugin_Hypothesis::TOptionValues::const_iterator opIt;
 965     for ( opIt = opts.begin(); opIt != opts.end(); ++opIt ){
 966       MESSAGE("OptionValue: " << opIt->first.c_str() << ", value: " << opIt->second.c_str());
 967       if ( !opIt->second.empty() ) {
 968         // With MeshGems 2.4-5, there are issues with periodicity and multithread
 969         // => As a temporary workaround, we enforce to use only one thread if periodicity is used.
 970         if (opIt->first == "max_number_of_threads" && opIt->second != "1" && ! preCadFacesPeriodicityVector.empty()){
 971           std::cout << "INFO: Disabling multithread to avoid periodicity issues" << std::endl;
 972           set_param(css, opIt->first.c_str(), "1");
 973         }
 974         else
 975           set_param(css, opIt->first.c_str(), opIt->second.c_str());
 976       }
 977     }
 978
 979     const BLSURFPlugin_Hypothesis::TOptionValues& custom_opts = hyp->GetCustomOptionValues();
 980     for ( opIt = custom_opts.begin(); opIt != custom_opts.end(); ++opIt )
 981       if ( !opIt->second.empty() ) {
 982         set_param(css, opIt->first.c_str(), opIt->second.c_str());
 983       }
 984
 985     const BLSURFPlugin_Hypothesis::TOptionValues& preCADopts = hyp->GetPreCADOptionValues();
 986     for ( opIt = preCADopts.begin(); opIt != preCADopts.end(); ++opIt )
 987       if ( !opIt->second.empty() ) {
 988         set_param(css, opIt->first.c_str(), opIt->second.c_str());
 989       }
 990
 991     if ( hyp->GetHyperPatches().size() < hyp->GetHyperPatchEntries().size() )
 992     {
 993       std::map< std::string, TopoDS_Shape > entryToShape;
 994       FillEntryToShape( hyp, entryToShape );
 995       const_cast<BLSURFPlugin_Hypothesis*>( hyp )->SetHyperPatchIDsByEntry( theGeomShape,
 996                                                                             entryToShape );
 997     }
 998   }
 999
1000   if ( BLSURFPlugin_Hypothesis::HasPreCADOptions( hyp ))
1001   {
1002     cadsurf_set_param(css, "use_precad", "yes" ); // for old versions
1003   }
1004   // PreProcessor (formerly PreCAD) -- commented params are preCADoptions (since 0023307)
1005   //set_param(css, "merge_edges",            _precadMergeEdges ? "yes" : "no");
1006   //set_param(css, "remove_duplicate_cad_faces", _precadRemoveDuplicateCADFaces ? "yes" : "no");
1007   //set_param(css, "process_3d_topology",    _precadProcess3DTopology ? "1" : "0");
1008   //set_param(css, "discard_input_topology", _precadDiscardInput ? "1" : "0");
1009   //set_param(css, "max_number_of_points_per_patch", "1000000");
1010
1011    bool useGradation = false;
1012    switch (_physicalMesh)
1013    {
1014      case BLSURFPlugin_Hypothesis::PhysicalGlobalSize:
1015        set_param(css, "physical_size_mode", "global");
1016        set_param(css, "global_physical_size", _phySizeRel ? val_to_string_rel(_phySize).c_str() : val_to_string(_phySize).c_str());
1017        //useGradation = true;
1018        break;
1019      case BLSURFPlugin_Hypothesis::PhysicalLocalSize:
1020        set_param(css, "physical_size_mode", "local");
1021        set_param(css, "global_physical_size", _phySizeRel ? val_to_string_rel(_phySize).c_str() : val_to_string(_phySize).c_str());
1022        //useGradation = true;
1023        break;
1024      default:
1025        set_param(css, "physical_size_mode", "none");
1026    }
1027
1028    switch (_geometricMesh)
1029    {
1030      case BLSURFPlugin_Hypothesis::GeometricalGlobalSize:
1031        set_param(css, "geometric_size_mode", "global");
1032        set_param(css, "geometric_approximation", val_to_string(_angleMesh).c_str());
1033        set_param(css, "chordal_error", val_to_string(_chordalError).c_str());
1034        //useGradation = true;
1035        break;
1036      case BLSURFPlugin_Hypothesis::GeometricalLocalSize:
1037        set_param(css, "geometric_size_mode", "local");
1038        set_param(css, "geometric_approximation", val_to_string(_angleMesh).c_str());
1039        set_param(css, "chordal_error", val_to_string(_chordalError).c_str());
1040        //useGradation = true;
1041        break;
1042      default:
1043        set_param(css, "geometric_size_mode", "none");
1044    }
1045
1046    if ( hyp && hyp->GetPhySize() > 0 ) {
1047      // user size is explicitly specified via hypothesis parameters
1048      // min and max sizes should be compared with explicitly specified user size
1049      // - compute absolute min size
1050      double mins = _minSizeRel ? _minSize * diagonal : _minSize;
1051      // - min size should not be greater than user size
1052      if ( _phySize < mins )
1053        set_param(css, "min_size", _phySizeRel ? val_to_string_rel(_phySize).c_str() : val_to_string(_phySize).c_str());
1054      else
1055        set_param(css, "min_size", _minSizeRel ? val_to_string_rel(_minSize).c_str() : val_to_string(_minSize).c_str());
1056      // - compute absolute max size
1057      double maxs = _maxSizeRel ? _maxSize * diagonal : _maxSize;
1058      // - max size should not be less than user size
1059      if ( _phySize > maxs )
1060        set_param(css, "max_size", _phySizeRel ? val_to_string_rel(_phySize).c_str() : val_to_string(_phySize).c_str());
1061      else
1062        set_param(css, "max_size", _maxSizeRel ? val_to_string_rel(_maxSize).c_str() : val_to_string(_maxSize).c_str());
1063    }
1064    else {
1065      // user size is not explicitly specified
1066      // - if minsize is not explicitly specified, we pass default value computed automatically, in this case "relative" flag is ignored
1067      set_param(css, "min_size", _minSizeRel ? val_to_string_rel(_minSize).c_str() : val_to_string(_minSize).c_str());
1068      // - if maxsize is not explicitly specified, we pass default value computed automatically, in this case "relative" flag is ignored
1069      set_param(css, "max_size", _maxSizeRel ? val_to_string_rel(_maxSize).c_str() : val_to_string(_maxSize).c_str());
1070    }
1071    useGradation = true; // bos #18758
1072    // anisotropic and quadrangle mesh requires disabling gradation
1073    if ( _anisotropic && _elementType != BLSURFPlugin_Hypothesis::Triangles )
1074      useGradation = false; // limitation of V1.3
1075    if ( useGradation && _use_gradation )
1076      set_param(css, "gradation",                       val_to_string(_gradation).c_str());
1077    if ( useGradation && _use_volume_gradation )
1078      set_param(css, "volume_gradation",                val_to_string(_volume_gradation).c_str());
1079
1080    // New since MeshGems 2.5: add full_quad
1081    const char * element_generation = "";
1082    switch ( _elementType )
1083    {
1084      case BLSURFPlugin_Hypothesis::Triangles:
1085        element_generation = "triangle";
1086        break;
1087      case BLSURFPlugin_Hypothesis::QuadrangleDominant:
1088        element_generation = "quad_dominant";
1089        break;
1090      case BLSURFPlugin_Hypothesis::Quadrangles:
1091        element_generation = "full_quad";
1092        break;
1093      default: ;
1094    }
1095    set_param(css, "element_generation",                element_generation);
1096
1097
1098    set_param(css, "metric",                            _anisotropic ? "anisotropic" : "isotropic");
1099    if ( _anisotropic )
1100      set_param(css, "anisotropic_ratio",                 val_to_string(_anisotropicRatio).c_str());
1101    set_param(css, "remove_tiny_edges",                 _removeTinyEdges ? "1" : "0");
1102    if ( _removeTinyEdges )
1103      set_param(css, "tiny_edge_length",                  val_to_string(_tinyEdgeLength).c_str());
1104    set_param(css, "optimise_tiny_edges",               _optimiseTinyEdges ? "1" : "0");
1105    if ( _optimiseTinyEdges )
1106      set_param(css, "tiny_edge_optimisation_length",   val_to_string(_tinyEdgeOptimisLength).c_str());
1107    set_param(css, "correct_surface_intersections",     _correctSurfaceIntersec ? "1" : "0");
1108    if ( _correctSurfaceIntersec )
1109      set_param(css, "surface_intersections_processing_max_cost", val_to_string(_corrSurfaceIntersCost ).c_str());
1110    set_param(css, "force_bad_surface_element_removal", _badElementRemoval ? "1" : "0");
1111    if ( _badElementRemoval )
1112      set_param(css, "bad_surface_element_aspect_ratio",  val_to_string(_badElementAspectRatio).c_str());
1113    set_param(css, "optimisation",                      _optimizeMesh ? "yes" : "no");
1114    set_param(css, "element_order",                     _quadraticMesh ? "quadratic" : "linear");
1115    set_param(css, "verbose",                           val_to_string(_verb).c_str());
1116
1117    set_param(css, "use_surface_proximity",             _useSurfaceProximity ? "yes" : "no" );
1118    if ( _useSurfaceProximity )
1119    {
1120      set_param(css, "surface_proximity_layers",        SMESH_Comment( _nbSurfaceProximityLayers ));
1121      set_param(css, "surface_proximity_ratio",         SMESH_Comment( _surfaceProximityRatio ));
1122    }
1123    set_param(css, "use_volume_proximity",             _useVolumeProximity ? "yes" : "no" );
1124    if ( _useVolumeProximity )
1125    {
1126      set_param(css, "volume_proximity_layers",        SMESH_Comment( _nbVolumeProximityLayers ));
1127      set_param(css, "volume_proximity_ratio",         SMESH_Comment( _volumeProximityRatio ));
1128    }
1129
1130    _smp_phy_size = _phySizeRel ? _phySize*diagonal : _phySize;
1131    if ( _verb > 0 )
1132      std::cout << "_smp_phy_size = " << _smp_phy_size << std::endl;
1133
1134    if (_physicalMesh == BLSURFPlugin_Hypothesis::PhysicalLocalSize)
1135    {
1136     TopoDS_Shape GeomShape;
1137     TopoDS_Shape AttShape;
1138     TopAbs_ShapeEnum GeomType;
1139     //
1140     // Standard Size Maps
1141     //
1142     const BLSURFPlugin_Hypothesis::TSizeMap sizeMaps = BLSURFPlugin_Hypothesis::GetSizeMapEntries(hyp);
1143     BLSURFPlugin_Hypothesis::TSizeMap::const_iterator smIt = sizeMaps.begin();
1144     for ( ; smIt != sizeMaps.end(); ++smIt ) {
1145       if ( !smIt->second.empty() ) {
1146         GeomShape = entryToShape(smIt->first);
1147         GeomType  = GeomShape.ShapeType();
1148         int key = -1;
1149         // Group Management
1150         if (GeomType == TopAbs_COMPOUND) {
1151           for (TopoDS_Iterator it (GeomShape); it.More(); it.Next()){
1152             // Group of faces
1153             if (it.Value().ShapeType() == TopAbs_FACE){
1154               HasSizeMapOnFace = true;
1155               if (! FacesWithSizeMap.Contains(TopoDS::Face(it.Value()))) {
1156                 key = FacesWithSizeMap.Add(TopoDS::Face(it.Value()));
1157               }
1158               else {
1159                 key = FacesWithSizeMap.FindIndex(TopoDS::Face(it.Value()));
1160               }
1161               FaceId2SizeMap[key] = smIt->second;
1162             }
1163             // Group of edges
1164             if (it.Value().ShapeType() == TopAbs_EDGE){
1165               HasSizeMapOnEdge = true;
1166               HasSizeMapOnFace = true;
1167               if (! EdgesWithSizeMap.Contains(TopoDS::Edge(it.Value()))) {
1168                 key = EdgesWithSizeMap.Add(TopoDS::Edge(it.Value()));
1169               }
1170               else {
1171                 key = EdgesWithSizeMap.FindIndex(TopoDS::Edge(it.Value()));
1172               }
1173               EdgeId2SizeMap[key] = smIt->second;
1174             }
1175             // Group of vertices
1176             if (it.Value().ShapeType() == TopAbs_VERTEX){
1177               HasSizeMapOnVertex = true;
1178               HasSizeMapOnEdge = true;
1179               HasSizeMapOnFace = true;
1180               if (! VerticesWithSizeMap.Contains(TopoDS::Vertex(it.Value()))) {
1181                 key = VerticesWithSizeMap.Add(TopoDS::Vertex(it.Value()));
1182               }
1183               else {
1184                 key = VerticesWithSizeMap.FindIndex(TopoDS::Vertex(it.Value()));
1185               }
1186               VertexId2SizeMap[key] = smIt->second;
1187             }
1188           }
1189         }
1190         // Single face
1191         if (GeomType == TopAbs_FACE){
1192           HasSizeMapOnFace = true;
1193           if (! FacesWithSizeMap.Contains(TopoDS::Face(GeomShape))) {
1194             key = FacesWithSizeMap.Add(TopoDS::Face(GeomShape));
1195           }
1196           else {
1197             key = FacesWithSizeMap.FindIndex(TopoDS::Face(GeomShape));
1198           }
1199           FaceId2SizeMap[key] = smIt->second;
1200         }
1201         // Single edge
1202         if (GeomType == TopAbs_EDGE){
1203           HasSizeMapOnEdge = true;
1204           HasSizeMapOnFace = true;
1205           if (! EdgesWithSizeMap.Contains(TopoDS::Edge(GeomShape))) {
1206             key = EdgesWithSizeMap.Add(TopoDS::Edge(GeomShape));
1207           }
1208           else {
1209             key = EdgesWithSizeMap.FindIndex(TopoDS::Edge(GeomShape));
1210           }
1211           EdgeId2SizeMap[key] = smIt->second;
1212         }
1213         // Single vertex
1214         if (GeomType == TopAbs_VERTEX){
1215           HasSizeMapOnVertex = true;
1216           HasSizeMapOnEdge   = true;
1217           HasSizeMapOnFace   = true;
1218           if (! VerticesWithSizeMap.Contains(TopoDS::Vertex(GeomShape))) {
1219             key = VerticesWithSizeMap.Add(TopoDS::Vertex(GeomShape));
1220           }
1221           else {
1222             key = VerticesWithSizeMap.FindIndex(TopoDS::Vertex(GeomShape));
1223           }
1224           VertexId2SizeMap[key] = smIt->second;
1225         }
1226       }
1227     }
1228
1229     //
1230     // Attractors
1231     //
1232     // TODO appeler le constructeur des attracteurs directement ici
1233 //     if ( !_phySizeRel ) {
1234       const BLSURFPlugin_Hypothesis::TSizeMap attractors = BLSURFPlugin_Hypothesis::GetAttractorEntries(hyp);
1235       BLSURFPlugin_Hypothesis::TSizeMap::const_iterator atIt = attractors.begin();
1236       for ( ; atIt != attractors.end(); ++atIt ) {
1237         if ( !atIt->second.empty() ) {
1238           GeomShape = entryToShape(atIt->first);
1239           GeomType  = GeomShape.ShapeType();
1240           // Group Management
1241           if (GeomType == TopAbs_COMPOUND){
1242             for (TopoDS_Iterator it (GeomShape); it.More(); it.Next()){
1243               if (it.Value().ShapeType() == TopAbs_FACE){
1244                 HasSizeMapOnFace = true;
1245                 createAttractorOnFace(it.Value(), atIt->second, _phySizeRel ? _phySize*diagonal : _phySize);
1246               }
1247             }
1248           }
1249
1250           if (GeomType == TopAbs_FACE){
1251             HasSizeMapOnFace = true;
1252             createAttractorOnFace(GeomShape, atIt->second, _phySizeRel ? _phySize*diagonal : _phySize);
1253           }
1254   /*
1255           if (GeomType == TopAbs_EDGE){
1256             HasSizeMapOnEdge = true;
1257             HasSizeMapOnFace = true;
1258           EdgeId2SizeMap[TopoDS::Edge(GeomShape).HashCode(IntegerLast())] = atIt->second;
1259           }
1260           if (GeomType == TopAbs_VERTEX){
1261             HasSizeMapOnVertex = true;
1262             HasSizeMapOnEdge   = true;
1263             HasSizeMapOnFace   = true;
1264           VertexId2SizeMap[TopoDS::Vertex(GeomShape).HashCode(IntegerLast())] = atIt->second;
1265           }
1266   */
1267         }
1268       }
1269 //     }
1270
1271     // Class Attractors
1272     // temporary commented out for testing
1273     // TODO
1274     //  - Fill in the BLSURFPlugin_Hypothesis::TAttractorMap map in the hypothesis
1275     //  - Uncomment and complete this part to construct the attractors from the attractor shape and the passed parameters on each face of the map
1276     //  - To do this use the public methodss: SetParameters(several double parameters) and SetType(int type)
1277     //  OR, even better:
1278     //  - Construct the attractors with an empty dist. map in the hypothesis
1279     //  - build the map here for each face with an attractor set and only if the attractor shape as changed since the last call to _buildmap()
1280     //  -> define a bool _mapbuilt in the class that is set to false by default and set to true when calling _buildmap()  OK
1281
1282       theNbAttractors = 0;
1283     const BLSURFPlugin_Hypothesis::TAttractorMap class_attractors = BLSURFPlugin_Hypothesis::GetClassAttractorEntries(hyp);
1284     int key=-1;
1285     BLSURFPlugin_Hypothesis::TAttractorMap::const_iterator AtIt = class_attractors.begin();
1286     for ( ; AtIt != class_attractors.end(); ++AtIt ) {
1287       if ( !AtIt->second->Empty() ) {
1288         GeomShape = entryToShape(AtIt->first);
1289         if ( !SMESH_MesherHelper::IsSubShape( GeomShape, theGeomShape ))
1290           continue;
1291         AttShape = AtIt->second->GetAttractorShape();
1292         GeomType  = GeomShape.ShapeType();
1293         // Group Management
1294 //         if (GeomType == TopAbs_COMPOUND){
1295 //           for (TopoDS_Iterator it (GeomShape); it.More(); it.Next()){
1296 //             if (it.Value().ShapeType() == TopAbs_FACE){
1297 //               HasAttractorOnFace = true;
1298 //               myAttractor = BLSURFPluginAttractor(GeomShape, AttShape);
1299 //             }
1300 //           }
1301 //         }
1302
1303         if (GeomType == TopAbs_FACE
1304           && (AttShape.ShapeType() == TopAbs_VERTEX
1305            || AttShape.ShapeType() == TopAbs_EDGE
1306            || AttShape.ShapeType() == TopAbs_WIRE
1307            || AttShape.ShapeType() == TopAbs_COMPOUND) ){
1308             HasSizeMapOnFace = true;
1309
1310             key = FacesWithSizeMap.Add(TopoDS::Face(GeomShape) );
1311
1312             FaceId2ClassAttractor[key].push_back( AtIt->second );
1313             ++theNbAttractors;
1314         }
1315         else{
1316           MESSAGE("Wrong shape type !!")
1317         }
1318
1319       }
1320     }
1321
1322
1323     //
1324     // Enforced Vertices
1325     //
1326     const BLSURFPlugin_Hypothesis::TFaceEntryEnfVertexListMap entryEnfVertexListMap = BLSURFPlugin_Hypothesis::GetAllEnforcedVerticesByFace(hyp);
1327     BLSURFPlugin_Hypothesis::TFaceEntryEnfVertexListMap::const_iterator enfIt = entryEnfVertexListMap.begin();
1328     for ( ; enfIt != entryEnfVertexListMap.end(); ++enfIt ) {
1329       if ( !enfIt->second.empty() ) {
1330         GeomShape = entryToShape(enfIt->first);
1331         if ( GeomShape.IsNull() )
1332         {
1333           createEnforcedVertexOnFace( GeomShape, enfIt->second );
1334         }
1335         // Group Management
1336         else if ( GeomShape.ShapeType() == TopAbs_COMPOUND)
1337         {
1338           for (TopoDS_Iterator it (GeomShape); it.More(); it.Next()){
1339             if (it.Value().ShapeType() == TopAbs_FACE){
1340               HasSizeMapOnFace = true;
1341               createEnforcedVertexOnFace(it.Value(), enfIt->second);
1342             }
1343           }
1344         }
1345         else if ( GeomShape.ShapeType() == TopAbs_FACE)
1346         {
1347           HasSizeMapOnFace = true;
1348           createEnforcedVertexOnFace(GeomShape, enfIt->second);
1349         }
1350       }
1351     }
1352
1353     // Internal vertices
1354     bool useInternalVertexAllFaces = BLSURFPlugin_Hypothesis::GetInternalEnforcedVertexAllFaces(hyp);
1355     if (useInternalVertexAllFaces) {
1356       std::string grpName = BLSURFPlugin_Hypothesis::GetInternalEnforcedVertexAllFacesGroup(hyp);
1357       gp_Pnt aPnt;
1358       TopExp_Explorer exp (theGeomShape, TopAbs_FACE);
1359       for (; exp.More(); exp.Next()){
1360         TopExp_Explorer exp_face (exp.Current(), TopAbs_VERTEX, TopAbs_EDGE);
1361         for (; exp_face.More(); exp_face.Next())
1362         {
1363           // Get coords of vertex
1364           // Check if current coords is already in enfVertexList
1365           // If coords not in enfVertexList, add new enfVertex
1366           aPnt = BRep_Tool::Pnt(TopoDS::Vertex(exp_face.Current()));
1367           BLSURFPlugin_Hypothesis::TEnfVertex* enfVertex = new BLSURFPlugin_Hypothesis::TEnfVertex();
1368           enfVertex->coords.push_back(aPnt.X());
1369           enfVertex->coords.push_back(aPnt.Y());
1370           enfVertex->coords.push_back(aPnt.Z());
1371           enfVertex->name = "";
1372           enfVertex->faceEntries.clear();
1373           enfVertex->geomEntry = "";
1374           enfVertex->grpName = grpName;
1375           enfVertex->vertex = TopoDS::Vertex( exp_face.Current() );
1376           _createEnforcedVertexOnFace( TopoDS::Face(exp.Current()),  aPnt, enfVertex);
1377           HasSizeMapOnFace = true;
1378         }
1379       }
1380     }
1381
1382     cadsurf_set_sizemap_iso_cad_face(css, size_on_surface, &_smp_phy_size);
1383
1384     if (HasSizeMapOnEdge){
1385       cadsurf_set_sizemap_iso_cad_edge(css, size_on_edge, &_smp_phy_size);
1386     }
1387     if (HasSizeMapOnVertex){
1388       cadsurf_set_sizemap_iso_cad_point(css, size_on_vertex, &_smp_phy_size);
1389     }
1390   }
1391
1392   // PERIODICITY
1393
1394    // reset vectors
1395    _preCadFacesIDsPeriodicityVector.clear();
1396    _preCadEdgesIDsPeriodicityVector.clear();
1397
1398   for (std::size_t i = 0; i<preCadFacesPeriodicityVector.size(); i++){
1399     createPreCadFacesPeriodicity(theGeomShape, preCadFacesPeriodicityVector[i]);
1400   }
1401
1402   const BLSURFPlugin_Hypothesis::TPreCadPeriodicityVector preCadEdgesPeriodicityVector = BLSURFPlugin_Hypothesis::GetPreCadEdgesPeriodicityVector(hyp);
1403
1404   for (std::size_t i = 0; i<preCadEdgesPeriodicityVector.size(); i++){
1405     createPreCadEdgesPeriodicity(theGeomShape, preCadEdgesPeriodicityVector[i]);
1406   }
1407 }
1408
1409 //================================================================================
1410 /*!
1411  * \brief Throws an exception if a parameter name is wrong
1412  */
1413 //================================================================================
1414
1415 void BLSURFPlugin_BLSURF::set_param(cadsurf_session_t *css,
1416                                     const char *       option_name,
1417                                     const char *       option_value)
1418 {
1419   status_t status = cadsurf_set_param(css, option_name, option_value );
1420
1421   if ( _hypothesis && _hypothesis->GetVerbosity() > _hypothesis->GetDefaultVerbosity() )
1422     cout << option_name << " = " << option_value << endl;
1423
1424   if ( status != MESHGEMS_STATUS_OK )
1425   {
1426     if ( status == MESHGEMS_STATUS_UNKNOWN_PARAMETER ) {
1427       throw SALOME_Exception
1428         ( SMESH_Comment("Invalid name of CADSURF parameter: ") << option_name );
1429     }
1430     else if ( status == MESHGEMS_STATUS_NOLICENSE )
1431       throw SALOME_Exception
1432         ( "No valid license available" );
1433     else
1434       throw SALOME_Exception
1435         ( SMESH_Comment("Either wrong name or unacceptable value of CADSURF parameter '")
1436           << option_name << "': " << option_value);
1437   }
1438 }
1439
1440 namespace
1441 {
1442   // --------------------------------------------------------------------------
1443   /*!
1444    * \brief Class correctly terminating usage of MG-CADSurf library at destruction
1445    */
1446   struct BLSURF_Cleaner
1447   {
1448     context_t *        _ctx;
1449     cadsurf_session_t* _css;
1450     cad_t *            _cad;
1451     dcad_t *           _dcad;
1452
1453     BLSURF_Cleaner(context_t *        ctx,
1454                    cadsurf_session_t* css=0,
1455                    cad_t *            cad=0,
1456                    dcad_t *           dcad=0)
1457       : _ctx ( ctx  ),
1458         _css ( css  ),
1459         _cad ( cad  ),
1460         _dcad( dcad )
1461     {
1462     }
1463     ~BLSURF_Cleaner()
1464     {
1465       Clean( /*exceptContext=*/false );
1466     }
1467     void Clean(const bool exceptContext)
1468     {
1469       if ( _css )
1470       {
1471         cadsurf_session_delete(_css); _css = 0;
1472
1473         // #if BLSURF_VERSION_LONG >= "3.1.1"
1474         // //     if(geo_sizemap_e)
1475         // //       distene_sizemap_delete(geo_sizemap_e);
1476         // //     if(geo_sizemap_f)
1477         // //       distene_sizemap_delete(geo_sizemap_f);
1478         //     if(iso_sizemap_p)
1479         //       distene_sizemap_delete(iso_sizemap_p);
1480         //     if(iso_sizemap_e)
1481         //       distene_sizemap_delete(iso_sizemap_e);
1482         //     if(iso_sizemap_f)
1483         //       distene_sizemap_delete(iso_sizemap_f);
1484         //
1485         // //     if(clean_geo_sizemap_e)
1486         // //       distene_sizemap_delete(clean_geo_sizemap_e);
1487         // //     if(clean_geo_sizemap_f)
1488         // //       distene_sizemap_delete(clean_geo_sizemap_f);
1489         //     if(clean_iso_sizemap_p)
1490         //       distene_sizemap_delete(clean_iso_sizemap_p);
1491         //     if(clean_iso_sizemap_e)
1492         //       distene_sizemap_delete(clean_iso_sizemap_e);
1493         //     if(clean_iso_sizemap_f)
1494         //       distene_sizemap_delete(clean_iso_sizemap_f);
1495         // #endif
1496
1497         cad_delete(_cad); _cad = 0;
1498         dcad_delete(_dcad); _dcad = 0;
1499         if ( !exceptContext )
1500         {
1501           context_delete(_ctx); _ctx = 0;
1502         }
1503       }
1504     }
1505   };
1506
1507   // --------------------------------------------------------------------------
1508   // comparator to sort nodes and sub-meshes
1509   struct ShapeTypeCompare
1510   {
1511     // sort nodes by position in the following order:
1512     // SMDS_TOP_FACE=2, SMDS_TOP_EDGE=1, SMDS_TOP_VERTEX=0, SMDS_TOP_3DSPACE=3
1513     bool operator()( const SMDS_MeshNode* n1, const SMDS_MeshNode* n2 ) const
1514     {
1515       // NEW ORDER: nodes earlier added to sub-mesh are considered "less"
1516       //return n1->getIdInShape() < n2->getIdInShape();
1517       return n1->GetID() < n2->GetID(); // earlier created nodes have less IDs
1518     }
1519     // sort sub-meshes in order: EDGE, VERTEX
1520     bool operator()( const SMESHDS_SubMesh* s1, const SMESHDS_SubMesh* s2 ) const
1521     {
1522       int isVertex1 = ( s1 && s1->NbElements() == 0 );
1523       int isVertex2 = ( s2 && s2->NbElements() == 0 );
1524       if ( isVertex1 == isVertex2 )
1525         return s1 < s2;
1526       return isVertex1 < isVertex2;
1527     }
1528   };
1529
1530   //================================================================================
1531   /*!
1532    * \brief Fills groups of nodes to be merged
1533    */
1534   //================================================================================
1535
1536   void getNodeGroupsToMerge( const SMESHDS_SubMesh*                smDS,
1537                              const TopoDS_Shape&                   shape,
1538                              SMESH_MeshEditor::TListOfListOfNodes& nodeGroupsToMerge)
1539   {
1540     SMDS_NodeIteratorPtr nIt = smDS->GetNodes();
1541     switch ( shape.ShapeType() )
1542     {
1543     case TopAbs_VERTEX: {
1544       std::list< const SMDS_MeshNode* > nodes;
1545       while ( nIt->more() )
1546         nodes.push_back( nIt->next() );
1547       if ( nodes.size() > 1 )
1548         nodeGroupsToMerge.push_back( nodes );
1549       break;
1550     }
1551     case TopAbs_EDGE: {
1552       std::multimap< double, const SMDS_MeshNode* > u2node;
1553       while ( nIt->more() )
1554       {
1555         const SMDS_MeshNode* n = nIt->next();
1556         if ( SMDS_EdgePositionPtr ePos = n->GetPosition() )
1557           u2node.insert( make_pair( ePos->GetUParameter(), n ));
1558       }
1559       if ( u2node.size() < 2 ) return;
1560
1561       //double tol = (( u2node.rbegin()->first - u2node.begin()->first ) / 20.) / u2node.size();
1562       Standard_Real f,l;
1563       BRep_Tool::Range( TopoDS::Edge( shape ), f,l );
1564       double tol = (( l - f ) / 10.) / double( u2node.size() ); // 10. - adjusted for #17262
1565
1566       std::multimap< double, const SMDS_MeshNode* >::iterator un2, un1;
1567       for ( un2 = u2node.begin(), un1 = un2++; un2 != u2node.end(); un1 = un2++ )
1568       {
1569         if (( un2->first - un1->first ) <= tol )
1570         {
1571           std::list< const SMDS_MeshNode* > nodes;
1572           nodes.push_back( un1->second );
1573           while (( un2->first - un1->first ) <= tol )
1574           {
1575             nodes.push_back( un2->second );
1576             if ( ++un2 == u2node.end()) {
1577               --un2;
1578               break;
1579             }
1580           }
1581           // make nodes created on the boundary of viscous layer replace nodes created
1582           // by MG-CADSurf as their SMDS_Position is more correct
1583           nodes.sort( ShapeTypeCompare() );
1584           nodeGroupsToMerge.push_back( nodes );
1585         }
1586       }
1587       break;
1588     }
1589     default: ;
1590     }
1591     // SMESH_MeshEditor::TListOfListOfNodes::const_iterator nll = nodeGroupsToMerge.begin();
1592     // for ( ; nll != nodeGroupsToMerge.end(); ++nll )
1593     // {
1594     //   cout << "Merge ";
1595     //   const std::list< const SMDS_MeshNode* >& nl = *nll;
1596     //   std::list< const SMDS_MeshNode* >::const_iterator nIt = nl.begin();
1597     //   for ( ; nIt != nl.end(); ++nIt )
1598     //     cout << (*nIt) << " ";
1599     //   cout << endl;
1600     // }
1601     // cout << endl;
1602   }
1603
1604   //================================================================================
1605   /*!
1606    * \brief A temporary mesh used to compute mesh on a proxy FACE
1607    */
1608   //================================================================================
1609
1610   struct TmpMesh: public SMESH_Mesh
1611   {
1612     typedef std::map<const SMDS_MeshNode*, const SMDS_MeshNode*, TIDCompare > TN2NMap;
1613     TN2NMap     _tmp2origNN;
1614     TopoDS_Face _proxyFace;
1615
1616     TmpMesh()
1617     {
1618       _meshDS = new SMESHDS_Mesh( _id, true );
1619     }
1620     //--------------------------------------------------------------------------------
1621     /*!
1622      * \brief Creates a FACE bound by viscous layers and mesh each its EDGE with 1 segment
1623      */
1624     //--------------------------------------------------------------------------------
1625
1626     const TopoDS_Face& makeProxyFace( SMESH_ProxyMesh::Ptr& viscousMesh,
1627                                       const TopoDS_Face&    origFace)
1628     {
1629       SMESH_Mesh* origMesh = viscousMesh->GetMesh();
1630
1631       SMESH_MesherHelper helper( *origMesh );
1632       helper.SetSubShape( origFace );
1633       const bool hasSeam = helper.HasRealSeam();
1634
1635       // get data of nodes on inner boundary of viscous layers
1636       TError err;
1637       TSideVector wireVec = StdMeshers_FaceSide::GetFaceWires(origFace, *origMesh,
1638                                                               /*skipMediumNodes = */true,
1639                                                               err, &helper, viscousMesh );
1640       if ( err && err->IsKO() )
1641         throw *err.get(); // it should be caught at SMESH_subMesh
1642
1643       // proxy nodes and corresponding tmp VERTEXes
1644       std::vector<const SMDS_MeshNode*> origNodes;
1645       std::vector<TopoDS_Vertex>        tmpVertex;
1646
1647       // create a proxy FACE
1648       TopoDS_Face origFaceCopy = TopoDS::Face( origFace.EmptyCopied() );
1649       BRepBuilderAPI_MakeFace newFace( origFaceCopy );
1650       bool hasPCurves = false;
1651       for ( size_t iW = 0; iW != wireVec.size(); ++iW )
1652       {
1653         StdMeshers_FaceSidePtr& wireData = wireVec[iW];
1654         const UVPtStructVec&  wirePoints = wireData->GetUVPtStruct();
1655         if ( wirePoints.size() < 3 )
1656           continue;
1657
1658         BRepBuilderAPI_MakePolygon polygon;
1659         const size_t i0 = tmpVertex.size();
1660         for ( size_t iN = 0; iN < wirePoints.size(); ++iN )
1661         {
1662           polygon.Add( SMESH_TNodeXYZ( wirePoints[ iN ].node ));
1663           origNodes.push_back( wirePoints[ iN ].node );
1664           tmpVertex.push_back( polygon.LastVertex() );
1665
1666           // check presence of a pcurve
1667           checkPCurve( polygon, origFaceCopy, hasPCurves, &wirePoints[ iN-1 ] );
1668         }
1669         tmpVertex[ i0 ] = polygon.FirstVertex(); // polygon.LastVertex()==NULL for 1 vertex in wire
1670         polygon.Close();
1671         if ( !polygon.IsDone() )
1672           throw SALOME_Exception("BLSURFPlugin_BLSURF: BRepBuilderAPI_MakePolygon failed");
1673         TopoDS_Wire wire = polygon;
1674         if ( hasSeam )
1675           wire = updateSeam( wire, origNodes );
1676         newFace.Add( wire );
1677       }
1678       _proxyFace = newFace;
1679
1680       // set a new shape to mesh
1681       TopoDS_Compound auxCompoundToMesh;
1682       BRep_Builder shapeBuilder;
1683       shapeBuilder.MakeCompound( auxCompoundToMesh );
1684       shapeBuilder.Add( auxCompoundToMesh, _proxyFace );
1685       shapeBuilder.Add( auxCompoundToMesh, origMesh->GetShapeToMesh() );
1686
1687       ShapeToMesh( auxCompoundToMesh );
1688
1689
1690       // Make input mesh for MG-CADSurf: segments on EDGE's of newFace
1691
1692       // make nodes and fill in _tmp2origNN
1693       //
1694       SMESHDS_Mesh* tmpMeshDS = GetMeshDS();
1695       for ( size_t i = 0; i < origNodes.size(); ++i )
1696       {
1697         GetSubMesh( tmpVertex[i] )->ComputeStateEngine( SMESH_subMesh::COMPUTE );
1698         if ( const SMDS_MeshNode* tmpN = SMESH_Algo::VertexNode( tmpVertex[i], tmpMeshDS ))
1699           _tmp2origNN.insert( _tmp2origNN.end(), make_pair( tmpN, origNodes[i] ));
1700         // else -- it can be a seam vertex replaced by updateSeam()
1701         //   throw SALOME_Exception("BLSURFPlugin_BLSURF: a proxy vertex not meshed");
1702       }
1703
1704       // make segments
1705       TopoDS_Vertex v1, v2;
1706       for ( TopExp_Explorer edge( _proxyFace, TopAbs_EDGE ); edge.More(); edge.Next() )
1707       {
1708         const TopoDS_Edge& E = TopoDS::Edge( edge.Current() );
1709         TopExp::Vertices( E, v1, v2 );
1710         const SMDS_MeshNode* n1 = SMESH_Algo::VertexNode( v1, tmpMeshDS );
1711         const SMDS_MeshNode* n2 = SMESH_Algo::VertexNode( v2, tmpMeshDS );
1712
1713         if ( SMDS_MeshElement* seg = tmpMeshDS->AddEdge( n1, n2 ))
1714           tmpMeshDS->SetMeshElementOnShape( seg, E );
1715       }
1716
1717       return _proxyFace;
1718     }
1719
1720     //--------------------------------------------------------------------------------
1721     /*!
1722      * \brief Add pcurve to the last edge of a wire
1723      */
1724     //--------------------------------------------------------------------------------
1725
1726     void checkPCurve( BRepBuilderAPI_MakePolygon& wire,
1727                       const TopoDS_Face&          face,
1728                       bool &                      hasPCurves,
1729                       const uvPtStruct *          wirePoints )
1730     {
1731       if ( hasPCurves )
1732         return;
1733       TopoDS_Edge edge = wire.Edge();
1734       if ( edge.IsNull() ) return;
1735       double f,l;
1736       if ( BRep_Tool::CurveOnSurface(edge, face, f, l))
1737       {
1738         hasPCurves = true;
1739         return;
1740       }
1741       gp_XY p1 = wirePoints[ 0 ].UV(), p2 = wirePoints[ 1 ].UV();
1742       Handle(Geom2d_Line) pcurve = new Geom2d_Line( p1, gp_Dir2d( p2 - p1 ));
1743       BRep_Builder().UpdateEdge( edge, Handle(Geom_Curve)(), Precision::Confusion() );
1744       BRep_Builder().UpdateEdge( edge, pcurve, face, Precision::Confusion() );
1745       BRep_Builder().Range( edge, 0, ( p2 - p1 ).Modulus() );
1746       // cout << "n1 = mesh.AddNode( " << p1.X()*10 << ", " << p1.Y() << ", 0 )" << endl
1747       //      << "n2 = mesh.AddNode( " << p2.X()*10 << ", " << p2.Y() << ", 0 )" << endl
1748       //      << "mesh.AddEdge( [ n1, n2 ] )" << endl;
1749     }
1750
1751     //--------------------------------------------------------------------------------
1752     /*!
1753      * \brief Replace coincident EDGEs with reversed copies.
1754      */
1755     //--------------------------------------------------------------------------------
1756
1757     TopoDS_Wire updateSeam( const TopoDS_Wire&                       wire,
1758                             const std::vector<const SMDS_MeshNode*>& nodesOfVertices )
1759     {
1760       BRepBuilderAPI_MakeWire newWire;
1761
1762       typedef NCollection_DataMap<SMESH_TLink, TopoDS_Edge, SMESH_TLink > TSeg2EdgeMap;
1763       TSeg2EdgeMap seg2EdgeMap;
1764
1765       TopoDS_Iterator edgeIt( wire );
1766       for ( size_t iSeg = 1; edgeIt.More() && iSeg < nodesOfVertices.size(); edgeIt.Next(), ++iSeg )
1767       {
1768         SMESH_TLink link( nodesOfVertices[ iSeg-1 ], nodesOfVertices[ iSeg ]);
1769         TopoDS_Edge edge( TopoDS::Edge( edgeIt.Value() ));
1770
1771         TopoDS_Edge* edgeInMap = seg2EdgeMap.Bound( link, edge );
1772         bool            isSeam = ( *edgeInMap != edge );
1773         if ( isSeam )
1774         {
1775           edgeInMap->Reverse();
1776           edge = *edgeInMap;
1777         }
1778         newWire.Add( edge );
1779       }
1780       return newWire;
1781     }
1782
1783     //--------------------------------------------------------------------------------
1784     /*!
1785      * \brief Fill in the origMesh with faces computed by MG-CADSurf in this tmp mesh
1786      */
1787     //--------------------------------------------------------------------------------
1788
1789     void FillInOrigMesh( SMESH_Mesh&        origMesh,
1790                          const TopoDS_Face& origFace )
1791     {
1792       SMESH_MesherHelper helper( origMesh );
1793       helper.SetSubShape( origFace );
1794       helper.SetElementsOnShape( true );
1795
1796       SMESH_MesherHelper tmpHelper( *this );
1797       tmpHelper.SetSubShape( _proxyFace );
1798
1799       // iterate over tmp faces and copy them in origMesh
1800       const SMDS_MeshNode* nodes[27];
1801       const SMDS_MeshNode* nullNode = 0;
1802       double xyz[3];
1803       SMDS_FaceIteratorPtr fIt = GetMeshDS()->facesIterator();
1804       while ( fIt->more() )
1805       {
1806         const SMDS_MeshElement* f = fIt->next();
1807         SMDS_ElemIteratorPtr nIt = f->nodesIterator();
1808         int nbN = 0;
1809         for ( ; nIt->more(); ++nbN )
1810         {
1811           const SMDS_MeshNode* n = static_cast<const SMDS_MeshNode*>( nIt->next() );
1812           TN2NMap::iterator n2nIt =
1813             _tmp2origNN.insert( _tmp2origNN.end(), make_pair( n, nullNode ));
1814           if ( !n2nIt->second ) {
1815             n->GetXYZ( xyz );
1816             gp_XY uv = tmpHelper.GetNodeUV( _proxyFace, n );
1817             n2nIt->second = helper.AddNode( xyz[0], xyz[1], xyz[2], /*id=*/0, uv.X(), uv.Y() );
1818           }
1819           nodes[ nbN ] = n2nIt->second;
1820         }
1821         switch( nbN ) {
1822         case 3: helper.AddFace( nodes[0], nodes[1], nodes[2] ); break;
1823           // case 6: helper.AddFace( nodes[0], nodes[1], nodes[2],
1824           //                         nodes[3], nodes[4], nodes[5]); break;
1825         case 4: helper.AddFace( nodes[0], nodes[1], nodes[2], nodes[3] ); break;
1826         // case 9: helper.AddFace( nodes[0], nodes[1], nodes[2], nodes[3],
1827         //                         nodes[4], nodes[5], nodes[6], nodes[7], nodes[8]); break;
1828         // case 8: helper.AddFace( nodes[0], nodes[1], nodes[2], nodes[3],
1829         //                         nodes[4], nodes[5], nodes[6], nodes[7]); break;
1830         }
1831       }
1832     }
1833   };
1834
1835   /*!
1836    * \brief A structure holding an error description and a verbisity level
1837    */
1838   struct message_cb_user_data
1839   {
1840     std::string * _error;
1841     int           _verbosity;
1842     double *      _progress;
1843   };
1844
1845 } // namespace
1846
1847 status_t curv_fun(real t, real *uv, real *dt, real *dtt, void *user_data);
1848 status_t surf_fun(real *uv, real *xyz, real*du, real *dv,
1849                   real *duu, real *duv, real *dvv, void *user_data);
1850 status_t message_cb(message_t *msg, void *user_data);
1851 status_t interrupt_cb(integer *interrupt_status, void *user_data);
1852
1853 //=============================================================================
1854 /*!
1855  *
1856  */
1857 //=============================================================================
1858
1859 bool BLSURFPlugin_BLSURF::Compute(SMESH_Mesh& aMesh, const TopoDS_Shape& aShape)
1860 {
1861   // Fix problem with locales
1862   Kernel_Utils::Localizer aLocalizer;
1863
1864   this->SMESH_Algo::_progress = 1e-3; // prevent progress advancment while computing attractors
1865
1866   bool viscousLayersMade =
1867     ( aShape.ShapeType() == TopAbs_FACE &&
1868       StdMeshers_ViscousLayers2D::HasProxyMesh( TopoDS::Face( aShape ), aMesh ));
1869
1870   if ( !viscousLayersMade )
1871     if ( !compute( aMesh, aShape, /*allowSubMeshClearing=*/true ))
1872       return false;
1873
1874   if ( _haveViscousLayers || viscousLayersMade )
1875   {
1876     // Compute viscous layers
1877
1878     TopTools_MapOfShape map;
1879     for (TopExp_Explorer face_iter(aShape,TopAbs_FACE);face_iter.More();face_iter.Next())
1880     {
1881       const TopoDS_Face& F = TopoDS::Face(face_iter.Current());
1882       if ( !map.Add( F )) continue;
1883       SMESH_ProxyMesh::Ptr viscousMesh = StdMeshers_ViscousLayers2D::Compute( aMesh, F );
1884       if ( !viscousMesh )
1885         return false; // error in StdMeshers_ViscousLayers2D::Compute()
1886
1887       // Compute MG-CADSurf mesh on viscous layers
1888
1889       if ( viscousMesh->NbProxySubMeshes() > 0 )
1890       {
1891         TmpMesh tmpMesh;
1892         const TopoDS_Face& proxyFace = tmpMesh.makeProxyFace( viscousMesh, F );
1893         if ( !compute( tmpMesh, proxyFace, /*allowSubMeshClearing=*/false ))
1894           return false;
1895         tmpMesh.FillInOrigMesh( aMesh, F );
1896       }
1897     }
1898
1899     // Re-compute MG-CADSurf mesh on the rest faces if the mesh was cleared
1900
1901     for (TopExp_Explorer face_iter(aShape,TopAbs_FACE);face_iter.More();face_iter.Next())
1902     {
1903       const TopoDS_Face& F = TopoDS::Face(face_iter.Current());
1904       SMESH_subMesh* fSM = aMesh.GetSubMesh( F );
1905       if ( fSM->IsMeshComputed() ) continue;
1906
1907       if ( !compute( aMesh, aShape, /*allowSubMeshClearing=*/true ))
1908         return false;
1909       break;
1910     }
1911   }
1912   return true;
1913 }
1914
1915 //=============================================================================
1916 /*!
1917  *
1918  */
1919 //=============================================================================
1920
1921 bool BLSURFPlugin_BLSURF::compute(SMESH_Mesh&         aMesh,
1922                                   const TopoDS_Shape& aShape,
1923                                   bool                allowSubMeshClearing)
1924 {
1925   /* create a distene context (generic object) */
1926   status_t status = STATUS_ERROR;
1927
1928   SMESHDS_Mesh* meshDS = aMesh.GetMeshDS();
1929   SMESH_MesherHelper helper( aMesh ), helperWithShape( aMesh );
1930   theHelper = & helperWithShape;
1931   // do not call helper.IsQuadraticSubMesh() because sub-meshes
1932   // may be cleaned and helper.myTLinkNodeMap gets invalid in such a case
1933   bool haveQuadraticSubMesh = helperWithShape.IsQuadraticSubMesh( aShape );
1934   haveQuadraticSubMesh = haveQuadraticSubMesh || (_hypothesis && _hypothesis->GetQuadraticMesh());
1935   helper.SetIsQuadratic( haveQuadraticSubMesh );
1936   helperWithShape.SetIsQuadratic( haveQuadraticSubMesh );
1937
1938   bool quadraticSubMeshAndViscousLayer = false;
1939   bool needMerge = false;
1940   typedef set< SMESHDS_SubMesh*, ShapeTypeCompare > TSubMeshSet;
1941   TSubMeshSet edgeSubmeshes;
1942   TSubMeshSet& mergeSubmeshes = edgeSubmeshes;
1943   double existingPhySize = 0;
1944
1945   TopTools_IndexedMapOfShape pmap, emap, fmap;
1946
1947   TopTools_IndexedDataMapOfShapeListOfShape e2ffmap;
1948   TopExp::MapShapesAndAncestors( aShape, TopAbs_EDGE, TopAbs_FACE, e2ffmap );
1949
1950   BLSURFPlugin_EnforcedMesh1D enforcedMesh( helperWithShape, _hypothesis );
1951
1952   // Issue 0019864. On DebianSarge, FE signals do not obey to OSD::SetSignal(false)
1953 #ifndef WIN32
1954   feclearexcept( FE_ALL_EXCEPT );
1955   int oldFEFlags = fedisableexcept( FE_ALL_EXCEPT );
1956 #endif
1957
1958   context_t *ctx =  context_new();
1959
1960   /* Set the message callback in the working context */
1961   message_cb_user_data mcud;
1962   mcud._error     = & this->SMESH_Algo::_comment;
1963   mcud._progress  = & this->SMESH_Algo::_progress;
1964   mcud._verbosity =
1965     _hypothesis ? _hypothesis->GetVerbosity() : BLSURFPlugin_Hypothesis::GetDefaultVerbosity();
1966   context_set_message_callback(ctx, message_cb, &mcud);
1967
1968   /* set the interruption callback */
1969   _compute_canceled = false;
1970   context_set_interrupt_callback(ctx, interrupt_cb, this);
1971
1972   /* create the CAD object we will work on. It is associated to the context ctx. */
1973   cad_t *c     = cad_new(ctx);
1974   dcad_t *dcad = dcad_new(c);
1975
1976   // To enable multithreading
1977   cad_set_thread_safety(c, 1);
1978
1979   /* Now fill the CAD object with data from your CAD
1980    * environement. This is the most complex part of a successfull
1981    * integration.
1982    */
1983
1984   // PreCAD
1985
1986   cadsurf_session_t *css = cadsurf_session_new(ctx);
1987
1988   // an object that correctly deletes all cadsurf objects at destruction
1989   BLSURF_Cleaner cleaner( ctx,css,c,dcad );
1990
1991   SetParameters(_hypothesis, css, aShape);
1992
1993   // To remove as soon as quadratic mesh is allowed - BEGIN
1994   // GDD: Viscous layer is not allowed with quadratic mesh
1995   if (_haveViscousLayers && haveQuadraticSubMesh ) {
1996     quadraticSubMeshAndViscousLayer = true;
1997     _haveViscousLayers = !haveQuadraticSubMesh;
1998     _comment += "Warning: Viscous layer is not possible with a quadratic mesh, it is ignored.";
1999     error(COMPERR_WARNING, _comment);
2000   }
2001   // To remove as soon as quadratic mesh is allowed - END
2002
2003   // needed to prevent the opencascade memory managmement from freeing things
2004   vector<Handle(Geom2d_Curve)> curves;
2005   vector<Handle(Geom_Surface)> surfaces;
2006
2007   emap.Clear();
2008   pmap.Clear();
2009   FaceId2PythonSmp.clear();
2010   EdgeId2PythonSmp.clear();
2011   VertexId2PythonSmp.clear();
2012
2013   /****************************************************************************************
2014                                           FACES
2015   *****************************************************************************************/
2016   int iface = 0;
2017   string bad_end = "return";
2018   int faceKey = -1;
2019   TopTools_IndexedMapOfShape _map;
2020   TopExp::MapShapes(aShape,TopAbs_VERTEX,_map);
2021   int ienf = _map.Extent();
2022
2023   assert(Py_IsInitialized());
2024   PyGILState_STATE gstate;
2025
2026   string theSizeMapStr;
2027
2028   for (TopExp_Explorer face_iter(aShape,TopAbs_FACE);face_iter.More();face_iter.Next())
2029   {
2030     TopoDS_Face f = TopoDS::Face(face_iter.Current());
2031
2032     //SMESH_subMesh* fSM = aMesh.GetSubMesh( f );
2033     //if ( !fSM->IsEmpty() ) continue; // skip already meshed FACE with viscous layers
2034
2035     // make INTERNAL face oriented FORWARD (issue 0020993)
2036     if (f.Orientation() != TopAbs_FORWARD && f.Orientation() != TopAbs_REVERSED )
2037       f.Orientation(TopAbs_FORWARD);
2038
2039     iface = fmap.Add(f);
2040
2041     surfaces.push_back(BRep_Tool::Surface(f));
2042
2043     /* create an object representing the face for cadsurf */
2044     /* where face_id is an integer identifying the face.
2045      * surf_function is the function that defines the surface
2046      * (For this face, it will be called by cadsurf with your_face_object_ptr
2047      * as last parameter.
2048      */
2049     cad_face_t *fce = cad_face_new(c, iface, surf_fun, surfaces.back().get());
2050
2051     /* by default a face has no tag (color).
2052        The following call sets it to the same value as the Geom module ID : */
2053     int faceTag = meshDS->ShapeToIndex(f);
2054     faceTag = BLSURFPlugin_Hypothesis::GetHyperPatchTag( faceTag, _hypothesis );
2055     cad_face_set_tag(fce, faceTag);
2056
2057     /* Set face orientation (optional if you want a well oriented output mesh)*/
2058     if(f.Orientation() != TopAbs_FORWARD)
2059       cad_face_set_orientation(fce, CAD_ORIENTATION_REVERSED);
2060     else
2061       cad_face_set_orientation(fce, CAD_ORIENTATION_FORWARD);
2062
2063     if (HasSizeMapOnFace /*&& !use_precad*/) //22903: use_precad seems not to interfere
2064     {
2065       // -----------------
2066       // Classic size map
2067       // -----------------
2068       faceKey = FacesWithSizeMap.FindIndex(f);
2069
2070
2071       if (FaceId2SizeMap.find(faceKey)!=FaceId2SizeMap.end())
2072       {
2073         theSizeMapStr = FaceId2SizeMap[faceKey];
2074         // check if function ends with "return"
2075         if (theSizeMapStr.find(bad_end) == (theSizeMapStr.size()-bad_end.size()-1))
2076           continue;
2077         // Expr To Python function, verification is performed at validation in GUI
2078         gstate = PyGILState_Ensure();
2079         PyObject * obj = NULL;
2080         obj= PyRun_String(theSizeMapStr.c_str(), Py_file_input, main_dict, NULL);
2081         Py_DECREF(obj);
2082         PyObject * func = NULL;
2083         func = PyObject_GetAttrString(main_mod, "f");
2084         FaceId2PythonSmp[iface]=func;
2085         FaceId2SizeMap.erase(faceKey);
2086         PyGILState_Release(gstate);
2087       }
2088
2089       // Specific size map = Attractor
2090       std::map<int,std::vector<double> >::iterator attractor_iter =
2091         FaceId2AttractorCoords.find( faceKey );
2092       if (attractor_iter != FaceId2AttractorCoords.end() )
2093       {
2094         double * xyzCoords = & attractor_iter->second[2];
2095         gp_Pnt P(xyzCoords[0],xyzCoords[1],xyzCoords[2]);
2096         BRepClass_FaceClassifier scl(f,P,1e-7);
2097         TopAbs_State result = scl.State();
2098         if ( result == TopAbs_OUT )
2099           MESSAGE("Point is out of face: node is not created");
2100         if ( result == TopAbs_UNKNOWN )
2101           MESSAGE("Point position on face is unknown: node is not created");
2102         if ( result == TopAbs_ON )
2103           MESSAGE("Point is on border of face: node is not created");
2104         if ( result == TopAbs_IN )
2105         {
2106           // Point is inside face and not on border
2107           double * uvCoords = & attractor_iter->second[0];
2108           ienf++;
2109           cad_point_t* point_p = cad_point_new(fce, ienf, uvCoords);
2110           cad_point_set_tag(point_p, ienf);
2111         }
2112         FaceId2AttractorCoords.erase(faceKey);
2113       }
2114
2115       // -----------------
2116       // Class Attractors
2117       // -----------------
2118       TId2ClsAttractorVec::iterator clAttractor_iter = FaceId2ClassAttractor.find(faceKey);
2119       if (clAttractor_iter != FaceId2ClassAttractor.end()){
2120         std::vector< BLSURFPlugin_Attractor* > & attVec = clAttractor_iter->second;
2121         for ( size_t i = 0; i < attVec.size(); ++i )
2122           if ( !attVec[i]->IsMapBuilt() ) {
2123             std::cout<<"Compute " << theNbAttractors-- << "-th attractor" <<std::endl;
2124             attVec[i]->BuildMap();
2125           }
2126         FaceIndex2ClassAttractor[iface].swap( attVec );
2127         FaceId2ClassAttractor.erase(clAttractor_iter);
2128       }
2129     } // if (HasSizeMapOnFace && !use_precad)
2130
2131     // ------------------
2132     // Enforced Vertices
2133     // ------------------
2134     faceKey = FacesWithEnforcedVertices.FindIndex(f);
2135     std::map<int,BLSURFPlugin_Hypothesis::TEnfVertexCoordsList >::const_iterator evmIt = FaceId2EnforcedVertexCoords.find(faceKey);
2136     if (evmIt != FaceId2EnforcedVertexCoords.end())
2137     {
2138       BLSURFPlugin_Hypothesis::TEnfVertexCoordsList evl = evmIt->second;
2139       BLSURFPlugin_Hypothesis::TEnfVertexCoordsList::const_iterator evlIt = evl.begin();
2140       for (; evlIt != evl.end(); ++evlIt)
2141       {
2142         BLSURFPlugin_Hypothesis::TEnfVertexCoords xyzCoords = { evlIt->at(2),
2143                                                                 evlIt->at(3),
2144                                                                 evlIt->at(4)};
2145         bool isOnEdge = evlIt->at(5);
2146         if ( isOnEdge )
2147         {
2148           enforcedMesh.AddVertexOnEdge( xyzCoords.data() );
2149           continue;
2150         }
2151         double uvCoords[2] = { evlIt->at(0), evlIt->at(1) };
2152         ienf++;
2153         cad_point_t* point_p = cad_point_new(fce, ienf, uvCoords);
2154         int tag = 0;
2155         std::map< BLSURFPlugin_Hypothesis::TEnfVertexCoords, BLSURFPlugin_Hypothesis::TEnfVertexList >::const_iterator enfCoordsIt = EnfVertexCoords2EnfVertexList.find(xyzCoords);
2156         if (enfCoordsIt != EnfVertexCoords2EnfVertexList.end() &&
2157             !enfCoordsIt->second.empty() )
2158         {
2159           // to merge nodes of an INTERNAL vertex belonging to several faces
2160           TopoDS_Vertex     v = (*enfCoordsIt->second.begin() )->vertex;
2161           if ( v.IsNull() ) v = (*enfCoordsIt->second.rbegin())->vertex;
2162           if ( !v.IsNull() && meshDS->ShapeToIndex( v ) > 0 )
2163           {
2164             tag = pmap.Add( v );
2165             SMESH_subMesh* vSM = aMesh.GetSubMesh( v );
2166             vSM->ComputeStateEngine( SMESH_subMesh::COMPUTE );
2167             mergeSubmeshes.insert( vSM->GetSubMeshDS() );
2168             // //if ( tag != pmap.Extent() )
2169             // needMerge = true;
2170           }
2171         }
2172         if ( tag == 0 ) tag = ienf;
2173         cad_point_set_tag(point_p, tag);
2174       }
2175       FaceId2EnforcedVertexCoords.erase(faceKey);
2176
2177     }
2178
2179     /****************************************************************************************
2180                                            EDGES
2181                         now create the edges associated to this face
2182     *****************************************************************************************/
2183
2184     std::vector< TopoDS_Edge > edges;
2185     for ( TopExp_Explorer edge_iter( f, TopAbs_EDGE ); edge_iter.More(); edge_iter.Next() )
2186     {
2187       const TopoDS_Edge& e = TopoDS::Edge( edge_iter.Current() );
2188       if ( !enforcedMesh.GetSplitsOfEdge( e, edges, emap ))
2189         edges.push_back( e );
2190     }
2191     for ( const TopoDS_Edge& e : edges )
2192     {
2193       int ic = emap.Add(e);
2194
2195       double tmin,tmax;
2196       curves.push_back(BRep_Tool::CurveOnSurface(e, f, tmin, tmax));
2197
2198       if ( HasSizeMapOnEdge )
2199       {
2200         int edgeKey = EdgesWithSizeMap.FindIndex(e);
2201         if (EdgeId2SizeMap.find(edgeKey)!=EdgeId2SizeMap.end())
2202         {
2203           theSizeMapStr = EdgeId2SizeMap[edgeKey];
2204           if (theSizeMapStr.find(bad_end) == (theSizeMapStr.size()-bad_end.size()-1))
2205             continue;
2206           // Expr To Python function, verification is performed at validation in GUI
2207           gstate = PyGILState_Ensure();
2208           PyObject * obj = NULL;
2209           obj= PyRun_String(theSizeMapStr.c_str(), Py_file_input, main_dict, NULL);
2210           Py_DECREF(obj);
2211           PyObject * func = NULL;
2212           func = PyObject_GetAttrString(main_mod, "f");
2213           EdgeId2PythonSmp[ic]=func;
2214           EdgeId2SizeMap.erase(edgeKey);
2215           PyGILState_Release(gstate);
2216         }
2217       }
2218       /* data of nodes existing on the edge */
2219       StdMeshers_FaceSidePtr nodeData;
2220       SMESH_subMesh* sm = aMesh.GetSubMesh( e );
2221       if ( !sm->IsEmpty() )
2222       {
2223         // SMESH_subMeshIteratorPtr subsmIt = sm->getDependsOnIterator( /*includeSelf=*/true,
2224         //                                                              /*complexFirst=*/false);
2225         // while ( subsmIt->more() )
2226         //   edgeSubmeshes.insert( subsmIt->next()->GetSubMeshDS() );
2227         edgeSubmeshes.insert( sm->GetSubMeshDS() );
2228
2229         nodeData.reset( new StdMeshers_FaceSide( f, e, &aMesh, /*isForwrd = */true,
2230                                                  /*ignoreMedium=*/haveQuadraticSubMesh));
2231         if ( nodeData->MissVertexNode() )
2232           return error(COMPERR_BAD_INPUT_MESH,"No node on vertex");
2233
2234         const std::vector<UVPtStruct>& nodeDataVec = nodeData->GetUVPtStruct();
2235         if ( !nodeDataVec.empty() )
2236         {
2237           if ( Abs( nodeDataVec[0].param - tmin ) > Abs( nodeDataVec.back().param - tmin ))
2238           {
2239             nodeData->Reverse();
2240             nodeData->GetUVPtStruct(); // nodeData recomputes nodeDataVec
2241           }
2242           // tmin and tmax can change in case of viscous layer on an adjacent edge
2243           tmin = nodeDataVec.front().param;
2244           tmax = nodeDataVec.back().param;
2245
2246           existingPhySize += nodeData->Length() / double( nodeDataVec.size() - 1 );
2247         }
2248         else
2249         {
2250           cout << "---------------- Invalid nodeData" << endl;
2251           nodeData.reset();
2252         }
2253       }
2254
2255       /* attach the edge to the current cadsurf face */
2256       cad_edge_t *edg = cad_edge_new(fce, ic, tmin, tmax, curv_fun, curves.back().get());
2257
2258       /* by default an edge has no tag (color).
2259          The following call sets it to the same value as the edge_id : */
2260       // IMP23368. Do not set tag to an EDGE shared by FACEs of a hyper-patch
2261       bool isInHyperPatch = false;
2262       if ( e2ffmap.Contains( e )) // not there for a part of EDGE divided by enforced segments
2263       {
2264         std::set< int > faceTags, faceIDs;
2265         TopTools_ListIteratorOfListOfShape fIt( e2ffmap.FindFromKey( e ));
2266         for ( ; fIt.More(); fIt.Next() )
2267         {
2268           int faceTag = meshDS->ShapeToIndex( fIt.Value() );
2269           if ( !faceIDs.insert( faceTag ).second )
2270             continue; // a face encounters twice for a seam edge
2271           int hpTag   = BLSURFPlugin_Hypothesis::GetHyperPatchTag( faceTag, _hypothesis );
2272           if ( !faceTags.insert( hpTag ).second )
2273           {
2274             isInHyperPatch = true;
2275             break;
2276           }
2277         }
2278       }
2279       if ( !isInHyperPatch )
2280         cad_edge_set_tag(edg, ic);
2281
2282       /* by default, an edge does not necessarily appear in the resulting mesh,
2283          unless the following property is set :
2284       */
2285       cad_edge_set_property(edg, EDGE_PROPERTY_SOFT_REQUIRED);
2286
2287       /* by default an edge is a boundary edge */
2288       if (e.Orientation() == TopAbs_INTERNAL)
2289         cad_edge_set_property(edg, EDGE_PROPERTY_INTERNAL);
2290
2291       // pass existing nodes of sub-meshes to MG-CADSurf
2292       if ( nodeData )
2293       {
2294         const std::vector<UVPtStruct>& nodeDataVec = nodeData->GetUVPtStruct();
2295         const int                      nbNodes     = (int) nodeDataVec.size();
2296
2297         dcad_edge_discretization_t *dedge;
2298         dcad_get_edge_discretization(dcad, edg, &dedge);
2299         dcad_edge_discretization_set_vertex_count( dedge, nbNodes );
2300
2301         // cout << endl << " EDGE " << ic << endl;
2302         // cout << "tmin = "<<tmin << ", tmax = "<< tmax << endl;
2303         for ( int iN = 0; iN < nbNodes; ++iN )
2304         {
2305           const UVPtStruct& nData = nodeDataVec[ iN ];
2306           double                t = nData.param;
2307           real              uv[2] = { nData.u, nData.v };
2308           SMESH_TNodeXYZ     nXYZ = nData.node;
2309           // cout << "\tt = " << t
2310           //      << "\t uv = ( " << uv[0] << ","<< uv[1] << " ) "
2311           //      << "\t u = " << nData.param
2312           //      << "\t ID = " << nData.node->GetID() << endl;
2313           dcad_edge_discretization_set_vertex_coordinates( dedge, iN+1, t, uv, nXYZ.ChangeData() );
2314         }
2315         TopoDS_Shape v = helper.GetSubShapeByNode( nodeDataVec[0].node, meshDS );
2316         if ( !v.IsNull() && v.ShapeType() == TopAbs_VERTEX )
2317           dcad_edge_discretization_set_vertex_tag( dedge, 1, pmap.Add( v ));
2318
2319         v = helper.GetSubShapeByNode( nodeDataVec.back().node, meshDS );
2320         if ( !v.IsNull() && v.ShapeType() == TopAbs_VERTEX )
2321           dcad_edge_discretization_set_vertex_tag( dedge, nbNodes, pmap.Add( v ));
2322
2323         dcad_edge_discretization_set_property(dedge, DISTENE_DCAD_PROPERTY_REQUIRED);
2324       }
2325
2326       /****************************************************************************************
2327                                       VERTICES
2328       *****************************************************************************************/
2329
2330       int npts = 0;
2331       int   ip[2];
2332       double d[2];
2333       gp_Pnt2d uv0 = curves.back()->Value(tmin);
2334       gp_Pnt    p0 = surfaces.back()->Value( uv0.X(), uv0.Y() );
2335
2336       for (TopExp_Explorer ex_edge(e ,TopAbs_VERTEX); ex_edge.More(); ex_edge.Next())
2337       {
2338         const TopoDS_Vertex& v = TopoDS::Vertex(ex_edge.Current());
2339         ip[ npts ] = pmap.Add(v);
2340         d [ npts ] = p0.SquareDistance(BRep_Tool::Pnt(v));
2341         ++npts;
2342
2343         if (HasSizeMapOnVertex)
2344         {
2345           int vertexKey = VerticesWithSizeMap.FindIndex(v);
2346           if (VertexId2SizeMap.find(vertexKey)!=VertexId2SizeMap.end())
2347           {
2348             theSizeMapStr = VertexId2SizeMap[vertexKey];
2349             if (theSizeMapStr.find(bad_end) == (theSizeMapStr.size()-bad_end.size()-1))
2350               continue;
2351             // Expr To Python function, verification is performed at validation in GUI
2352             gstate = PyGILState_Ensure();
2353             PyObject * obj = NULL;
2354             obj= PyRun_String(theSizeMapStr.c_str(), Py_file_input, main_dict, NULL);
2355             Py_DECREF(obj);
2356             PyObject * func = NULL;
2357             func = PyObject_GetAttrString(main_mod, "f");
2358             VertexId2PythonSmp[*ip]=func;
2359             VertexId2SizeMap.erase(vertexKey);   // do not erase if using a vector
2360             PyGILState_Release(gstate);
2361           }
2362         }
2363       } // loop on vertices
2364
2365       if (npts != 2) { // should not happen
2366         MESSAGE("An edge does not have 2 extremities.");
2367         continue;
2368       }
2369
2370       if ( d[0] > d[1] )
2371         std::swap( ip[0], ip[1] );
2372
2373       // This defines the curves extremity connectivity
2374       cad_edge_set_extremities    (edg, ip[0], ip[1]);
2375       /* set the tag (color) to the same value as the extremity id : */
2376       cad_edge_set_extremities_tag(edg, ip[0], ip[1]);
2377
2378     } // for edge
2379
2380     // ==============================
2381     // Add segments of enforced mesh
2382     // ==============================
2383
2384     if ( enforcedMesh.HasSegmentsOnFace( f ))
2385     {
2386       BLSURFPlugin_EnforcedMesh1D::Segmemnt seg;
2387       while ( enforcedMesh.NextSegment( seg, pmap ))
2388       {
2389         curves.push_back( seg._pcurve );
2390
2391         cad_edge_t *edg = cad_edge_new( fce, seg._tag, seg._u[0], seg._u[1],
2392                                         curv_fun,seg._pcurve.get());
2393         cad_edge_set_tag( edg, seg._tag );
2394
2395         cad_edge_set_property( edg, EDGE_PROPERTY_SOFT_REQUIRED );
2396         cad_edge_set_property( edg, EDGE_PROPERTY_INTERNAL );
2397
2398         cad_edge_set_extremities    ( edg, seg._vTag[0], seg._vTag[1]);
2399         cad_edge_set_extremities_tag( edg, seg._vTag[0], seg._vTag[1]);
2400
2401         dcad_edge_discretization_t *dedge;
2402         dcad_get_edge_discretization( dcad, edg, &dedge );
2403         dcad_edge_discretization_set_vertex_count( dedge, 2 );
2404
2405         dcad_edge_discretization_set_vertex_coordinates( dedge, 1,
2406                                                          seg._u  [0],
2407                                                          &seg._uv[0].ChangeCoord(1),
2408                                                          seg._xyz[0].ChangeData() );
2409         dcad_edge_discretization_set_vertex_coordinates( dedge, 2,
2410                                                          seg._u  [1],
2411                                                          &seg._uv[1].ChangeCoord(1),
2412                                                          seg._xyz[1].ChangeData() );
2413
2414         dcad_edge_discretization_set_vertex_tag( dedge, 1, seg._vTag[0] );
2415         dcad_edge_discretization_set_vertex_tag( dedge, 2, seg._vTag[1] );
2416
2417         dcad_edge_discretization_set_property(dedge, DISTENE_DCAD_PROPERTY_REQUIRED);
2418       }
2419     }
2420
2421
2422   } //for face
2423
2424   ///////////////////////
2425   // PERIODICITY       //
2426   ///////////////////////
2427
2428   if (! _preCadFacesIDsPeriodicityVector.empty())
2429   {
2430     for (std::size_t i=0; i < _preCadFacesIDsPeriodicityVector.size(); i++){
2431       std::vector<int> theFace1_ids = _preCadFacesIDsPeriodicityVector[i].shape1IDs;
2432       std::vector<int> theFace2_ids = _preCadFacesIDsPeriodicityVector[i].shape2IDs;
2433       int* theFace1_ids_c = &theFace1_ids[0];
2434       int* theFace2_ids_c = &theFace2_ids[0];
2435       std::ostringstream o;
2436       o << "_preCadFacesIDsPeriodicityVector[" << i << "] = [";
2437       for (std::size_t j=0; j < theFace1_ids.size(); j++)
2438         o << theFace1_ids[j] << ", ";
2439       o << "], [";
2440       for (std::size_t j=0; j < theFace2_ids.size(); j++)
2441         o << theFace2_ids[j] << ", ";
2442       o << "]";
2443       // if ( _hypothesis->GetVerbosity() > _hypothesis->GetDefaultVerbosity() )
2444       //   cout << o.str() << endl;
2445       if (_preCadFacesIDsPeriodicityVector[i].theSourceVerticesCoords.empty())
2446       {
2447         // If no source points, call periodicity without transformation function
2448         meshgems_cad_periodicity_transformation_t periodicity_transformation = NULL;
2449         status = cad_add_face_multiple_periodicity_with_transformation_function
2450           (c, theFace1_ids_c, (meshgems_integer) theFace1_ids.size(), theFace2_ids_c,
2451            (meshgems_integer) theFace2_ids.size(), periodicity_transformation, NULL);
2452         if(status != STATUS_OK)
2453           cout << "cad_add_face_multiple_periodicity_with_transformation_function failed with error code " << status << "\n";
2454       }
2455       else
2456       {
2457         // get the transformation vertices
2458         double* theSourceVerticesCoords_c = &_preCadFacesIDsPeriodicityVector[i].theSourceVerticesCoords[0];
2459         double* theTargetVerticesCoords_c = &_preCadFacesIDsPeriodicityVector[i].theTargetVerticesCoords[0];
2460         int nbSourceVertices = (int)_preCadFacesIDsPeriodicityVector[i].theSourceVerticesCoords.size()/3;
2461         int nbTargetVertices = (int)_preCadFacesIDsPeriodicityVector[i].theTargetVerticesCoords.size()/3;
2462
2463         status = cad_add_face_multiple_periodicity_with_transformation_function_by_points
2464           (c, theFace1_ids_c, (meshgems_integer) theFace1_ids.size(), theFace2_ids_c,
2465            (meshgems_integer) theFace2_ids.size(), theSourceVerticesCoords_c, nbSourceVertices, theTargetVerticesCoords_c, nbTargetVertices);
2466         if(status != STATUS_OK)
2467           cout << "cad_add_face_multiple_periodicity_with_transformation_function_by_points failed with error code " << status << "\n";
2468       }
2469     }
2470   }
2471
2472   if (! _preCadEdgesIDsPeriodicityVector.empty())
2473   {
2474     for (std::size_t i=0; i < _preCadEdgesIDsPeriodicityVector.size(); i++){
2475       std::vector<int> theEdge1_ids = _preCadEdgesIDsPeriodicityVector[i].shape1IDs;
2476       std::vector<int> theEdge2_ids = _preCadEdgesIDsPeriodicityVector[i].shape2IDs;
2477       // Use the address of the first element of the vector to initialize the array
2478       int* theEdge1_ids_c = &theEdge1_ids[0];
2479       int* theEdge2_ids_c = &theEdge2_ids[0];
2480
2481       std::ostringstream o;
2482       o << "_preCadEdgesIDsPeriodicityVector[" << i << "] = [";
2483       for (std::size_t j=0; j < theEdge1_ids.size(); j++)
2484         o << theEdge1_ids[j] << ", ";
2485       o << "], [";
2486       for (std::size_t j=0; j < theEdge2_ids.size(); j++)
2487         o << theEdge2_ids[j] << ", ";
2488       o << "]";
2489       // if ( _hypothesis->GetVerbosity() > _hypothesis->GetDefaultVerbosity() )
2490       //   cout << o.str() << endl;
2491
2492       if (_preCadEdgesIDsPeriodicityVector[i].theSourceVerticesCoords.empty())
2493       {
2494         // If no source points, call periodicity without transformation function
2495         meshgems_cad_periodicity_transformation_t periodicity_transformation = NULL;
2496         status = cad_add_edge_multiple_periodicity_with_transformation_function
2497           (c, theEdge1_ids_c, (meshgems_integer) theEdge1_ids.size(), theEdge2_ids_c,
2498            (meshgems_integer) theEdge2_ids.size(), periodicity_transformation, NULL);
2499         if(status != STATUS_OK)
2500           cout << "cad_add_edge_multiple_periodicity_with_transformation_function failed with error code " << status << "\n";
2501       }
2502       else
2503       {
2504         // get the transformation vertices
2505         double* theSourceVerticesCoords_c = &_preCadEdgesIDsPeriodicityVector[i].theSourceVerticesCoords[0];
2506         double* theTargetVerticesCoords_c = &_preCadEdgesIDsPeriodicityVector[i].theTargetVerticesCoords[0];
2507         int nbSourceVertices = (int) _preCadEdgesIDsPeriodicityVector[i].theSourceVerticesCoords.size()/3;
2508         int nbTargetVertices = (int) _preCadEdgesIDsPeriodicityVector[i].theTargetVerticesCoords.size()/3;
2509
2510         status = cad_add_edge_multiple_periodicity_with_transformation_function_by_points
2511           (c, theEdge1_ids_c, (meshgems_integer) theEdge1_ids.size(), theEdge2_ids_c,
2512            (meshgems_integer) theEdge2_ids.size(), theSourceVerticesCoords_c, nbSourceVertices, theTargetVerticesCoords_c, nbTargetVertices);
2513         if(status != STATUS_OK)
2514           cout << "cad_add_edge_multiple_periodicity_with_transformation_function_by_points failed with error code " << status << "\n";
2515       }
2516     }
2517   }
2518
2519   if ( !_hypothesis && !edgeSubmeshes.empty() && existingPhySize != 0 )
2520   {
2521     // prevent failure due to the default PhySize incompatible with size of existing 1D mesh
2522     // and with face size
2523     // double minFaceSize = existingPhySize / edgeSubmeshes.size();
2524     // for ( int iF = 1; iF <= fmap.Extent(); ++iF )
2525     // {
2526     //   Bnd_Box box;
2527     //   BRepBndLib::Add( fmap( iF ), box );
2528     //   gp_XYZ delta = box.CornerMax().XYZ() - box.CornerMin().XYZ();
2529     //   std::sort( delta.ChangeData(), delta.ChangeData() + 3 );
2530     //   minFaceSize = Min( minFaceSize, delta.Coord(2) );
2531     // }
2532     // set_param(css, "global_physical_size", val_to_string( minFaceSize * 0.5 ).c_str());
2533     // set_param(css, "max_size",             val_to_string( minFaceSize * 5 ).c_str());
2534   }
2535   std::string errorTxt;
2536   if ( !SMESHUtils_MGLicenseKeyGen::SignCAD( c, errorTxt ))
2537     return error( "Problem with library SalomeMeshGemsKeyGenerator: " + errorTxt );
2538
2539   // Use the original dcad
2540   cadsurf_set_dcad(css, dcad);
2541
2542   // Use the original cad
2543   cadsurf_set_cad(css, c);
2544
2545   std::cout << std::endl;
2546   std::cout << "Beginning of Surface Mesh generation" << std::endl;
2547   std::cout << std::endl;
2548
2549   try {
2550     OCC_CATCH_SIGNALS;
2551
2552     status = cadsurf_compute_mesh(css);
2553
2554   }
2555   catch ( std::exception& exc ) {
2556     _comment += exc.what();
2557   }
2558   catch (Standard_Failure& ex) {
2559     _comment += ex.DynamicType()->Name();
2560     if ( ex.GetMessageString() && strlen( ex.GetMessageString() )) {
2561       _comment += ": ";
2562       _comment += ex.GetMessageString();
2563     }
2564   }
2565   catch (...) {
2566     if ( _comment.empty() )
2567       _comment = "Exception in cadsurf_compute_mesh()";
2568   }
2569
2570   std::cout << std::endl;
2571   std::cout << "End of Surface Mesh generation" << std::endl;
2572   std::cout << std::endl;
2573
2574   mesh_t *msh = NULL;
2575   cadsurf_get_mesh(css, &msh);
2576   if ( !msh || STATUS_IS_ERROR( status ))
2577   {
2578     /* release the mesh object */
2579     cadsurf_regain_mesh(css, msh);
2580     return error(_comment);
2581   }
2582
2583   // Clear mesh from already meshed edges if possible else
2584   // remember that merge is needed
2585   TSubMeshSet::iterator smIt = edgeSubmeshes.begin();
2586   for ( ; smIt != edgeSubmeshes.end(); ++smIt ) // loop on already meshed EDGEs
2587   {
2588     SMESHDS_SubMesh* smDS = *smIt;
2589     if ( !smDS ) continue;
2590     SMDS_NodeIteratorPtr nIt = smDS->GetNodes();
2591     if ( nIt->more() )
2592     {
2593       const SMDS_MeshNode* n = nIt->next();
2594       if ( n->NbInverseElements( SMDSAbs_Face ) > 0 )
2595       {
2596         needMerge = true; // to correctly sew with viscous mesh
2597         // add existing medium nodes to helper
2598         if ( aMesh.NbEdges( ORDER_QUADRATIC ) > 0 )
2599         {
2600           SMDS_ElemIteratorPtr edgeIt = smDS->GetElements();
2601           while ( edgeIt->more() )
2602             helper.AddTLinks( static_cast<const SMDS_MeshEdge*>(edgeIt->next()));
2603         }
2604         continue;
2605       }
2606     }
2607     if ( allowSubMeshClearing )
2608     {
2609       SMDS_ElemIteratorPtr eIt = smDS->GetElements();
2610       while ( eIt->more() ) meshDS->RemoveFreeElement( eIt->next(), 0 );
2611       SMDS_NodeIteratorPtr nIt = smDS->GetNodes();
2612       while ( nIt->more() ) meshDS->RemoveFreeNode( nIt->next(), 0 );
2613       smDS->Clear();
2614     }
2615     else
2616     {
2617       needMerge = true;
2618     }
2619   }
2620
2621   std::string GMFFileName = BLSURFPlugin_Hypothesis::GetDefaultGMFFile();
2622   if (_hypothesis)
2623     GMFFileName = _hypothesis->GetGMFFile();
2624   if (GMFFileName != "")
2625   {
2626     bool asciiFound  = (GMFFileName.find(".mesh", GMFFileName.length()-5) != std::string::npos);
2627     bool binaryFound = (GMFFileName.find(".meshb",GMFFileName.length()-6) != std::string::npos);
2628     if (!asciiFound && !binaryFound)
2629       GMFFileName.append(".mesh");
2630     mesh_write_mesh(msh, GMFFileName.c_str());
2631   }
2632
2633   /* retrieve mesh data (see meshgems/mesh.h) */
2634   integer nv, ne, nt, nq, vtx[4], tag, nb_tag;
2635   integer type;
2636   real xyz[3];
2637
2638   mesh_get_vertex_count    (msh, &nv);
2639   mesh_get_edge_count      (msh, &ne);
2640   mesh_get_triangle_count  (msh, &nt);
2641   mesh_get_quadrangle_count(msh, &nq);
2642
2643   using deleted_unique_ptr = std::unique_ptr<integer,std::function<void(integer*)>>;
2644
2645   deleted_unique_ptr evedg_var((integer *)mesh_calloc_generic_buffer(msh), [](integer *ptr) { free(ptr); });
2646   deleted_unique_ptr evtri_var((integer *)mesh_calloc_generic_buffer(msh), [](integer *ptr) { free(ptr); });
2647   deleted_unique_ptr evquad_var((integer *)mesh_calloc_generic_buffer(msh), [](integer *ptr) { free(ptr); });
2648   deleted_unique_ptr tags_buff_var((integer*)mesh_calloc_generic_buffer(msh), [](integer *ptr) { free(ptr); });
2649
2650   integer *evedg(evedg_var.get()),*evtri(evtri_var.get()),*evquad(evquad_var.get()),*tags_buff(tags_buff_var.get());
2651
2652   std::vector<const SMDS_MeshNode*> nodes(nv+1);
2653   std::vector<bool>                  tags(nv+1);
2654
2655   BLSURFPlugin_Hypothesis::TEnfVertexCoords projVertex;
2656
2657   /* enumerated vertices */
2658   for ( int iv = 1; iv <= nv; iv++ )
2659   {
2660     mesh_get_vertex_coordinates(msh, iv, xyz);
2661     mesh_get_vertex_tag(msh, iv, &tag);
2662     // Issue 0020656. Use vertex coordinates
2663     nodes[iv] = NULL;
2664     bool isEnforcedNode = false;
2665     if ( tag > 0 )
2666     {
2667       if ( tag <= pmap.Extent() )
2668       {
2669         TopoDS_Vertex v = TopoDS::Vertex(pmap(tag));
2670         double      tol = BRep_Tool::Tolerance( v );
2671         gp_Pnt        p = BRep_Tool::Pnt( v );
2672         if ( p.IsEqual( gp_Pnt( xyz[0], xyz[1], xyz[2]), 1e3*tol))
2673           xyz[0] = p.X(), xyz[1] = p.Y(), xyz[2] = p.Z();
2674         else
2675           tag = 0; // enforced or attracted vertex
2676         nodes[iv] = SMESH_Algo::VertexNode( v, meshDS );
2677       }
2678       if ( !nodes[iv] )
2679         isEnforcedNode = ( nodes[iv] = enforcedMesh.GetNodeByTag( tag, pmap ));
2680     }
2681     if ( !nodes[iv] )
2682       nodes[iv] = meshDS->AddNode(xyz[0], xyz[1], xyz[2]);
2683
2684     // Create group of enforced vertices if requested
2685     projVertex.assign( xyz, xyz + 3 );
2686     auto enfCoordsIt = EnfVertexCoords2EnfVertexList.find( projVertex );
2687     if (enfCoordsIt != EnfVertexCoords2EnfVertexList.end())
2688     {
2689       for ( BLSURFPlugin_Hypothesis::TEnfVertex *currentEnfVertex : enfCoordsIt->second )
2690         if (currentEnfVertex->grpName != "")
2691         {
2692           SMDS_MeshGroup* groupDS = nullptr;
2693           for ( SMESH_Mesh::GroupIteratorPtr grIt = aMesh.GetGroups(); grIt->more() && !groupDS; )
2694           {
2695             SMESH_Group * group = grIt->next();
2696             SMESHDS_Group * grp = dynamic_cast< SMESHDS_Group* >( group->GetGroupDS() );
2697             if ( grp &&
2698                  grp->GetType() == SMDSAbs_Node &&
2699                  currentEnfVertex->grpName == group->GetName() )
2700               groupDS = &grp->SMDSGroup();
2701           }
2702           if ( !groupDS )
2703           {
2704             SMESH_Group * group = aMesh.AddGroup( SMDSAbs_Node, currentEnfVertex->grpName.c_str() );
2705             SMESHDS_Group * grp = static_cast< SMESHDS_Group* >( group->GetGroupDS() );
2706             groupDS = &grp->SMDSGroup();
2707           }
2708           groupDS->Add( nodes[iv] );
2709         }
2710     }
2711     if ( isEnforcedNode )
2712       continue;
2713
2714     // internal points are tagged to zero
2715     if ( tag > 0 && tag <= pmap.Extent() )
2716     {
2717       meshDS->SetNodeOnVertex(nodes[iv], TopoDS::Vertex(pmap(tag)));
2718       tags[iv] = false;
2719     }
2720     else
2721     {
2722       tags[iv] = true;
2723     }
2724   }
2725
2726   /* enumerate edges */
2727   for ( int it = 1; it <= ne; it++ )
2728   {
2729     SMDS_MeshEdge* edg;
2730     mesh_get_edge_vertices(msh, it, vtx);
2731     mesh_get_edge_extra_vertices(msh, it, &type, evedg);
2732     mesh_get_edge_tag(msh, it, &tag);
2733
2734     // If PreCAD performed some cleaning operations (remove tiny edges,
2735     // merge edges ...) an output tag can indeed represent several original tags.
2736     // Get the initial tags corresponding to the output tag and redefine the tag as
2737     // the last of the two initial tags (else the output tag is out of emap and hasn't any meaning)
2738     mesh_get_composite_tag_definition(msh, tag, &nb_tag, tags_buff);
2739     if ( nb_tag > 1 )
2740       tag = tags_buff[ nb_tag-1 ];
2741     if ( tag < 1 || tag > emap.Extent() )
2742     {
2743       if ( !enforcedMesh.IsSegmentTag( tag )) // it's a false INTERNAL EDGE of enforced mesh
2744       {
2745         std::cerr << "MG-CADSurf BUG:::: Edge tag " << tag
2746                   << " does not point to a CAD edge (nb edges " << emap.Extent() << ")"
2747                   << std::endl;
2748       }
2749       continue;
2750     }
2751     if ( meshDS->ShapeToIndex( emap( tag )) == 0 )
2752       tag = enforcedMesh.GetTagOfSplitEdge( tag );
2753
2754     if (tags[vtx[0]]) {
2755       Set_NodeOnEdge(meshDS, nodes[vtx[0]], emap(tag));
2756       tags[vtx[0]] = false;
2757     };
2758     if (tags[vtx[1]]) {
2759       Set_NodeOnEdge(meshDS, nodes[vtx[1]], emap(tag));
2760       tags[vtx[1]] = false;
2761     };
2762     if (type == MESHGEMS_MESH_ELEMENT_TYPE_EDGE3) {
2763       // QUADRATIC EDGE
2764       if (tags[evedg[0]]) {
2765         Set_NodeOnEdge(meshDS, nodes[evedg[0]], emap(tag));
2766         tags[evedg[0]] = false;
2767       }
2768       edg = meshDS->AddEdge(nodes[vtx[0]], nodes[vtx[1]], nodes[evedg[0]]);
2769     }
2770     else {
2771       edg = helper.AddEdge(nodes[vtx[0]], nodes[vtx[1]]);
2772     }
2773     meshDS->SetMeshElementOnShape(edg, TopoDS::Edge(emap(tag)));
2774   }
2775
2776   /* enumerate triangles */
2777   for(int it=1;it<=nt;it++) {
2778     SMDS_MeshFace* tri;
2779     mesh_get_triangle_vertices(msh, it, vtx);
2780     mesh_get_triangle_extra_vertices(msh, it, &type, evtri);
2781     mesh_get_triangle_tag(msh, it, &tag);
2782     if (tags[vtx[0]]) {
2783       meshDS->SetNodeOnFace(nodes[vtx[0]], tag);
2784       tags[vtx[0]] = false;
2785     };
2786     if (tags[vtx[1]]) {
2787       meshDS->SetNodeOnFace(nodes[vtx[1]], tag);
2788       tags[vtx[1]] = false;
2789     };
2790     if (tags[vtx[2]]) {
2791       meshDS->SetNodeOnFace(nodes[vtx[2]], tag);
2792       tags[vtx[2]] = false;
2793     };
2794     if (type == MESHGEMS_MESH_ELEMENT_TYPE_TRIA6) {
2795       // QUADRATIC TRIANGLE
2796       if (tags[evtri[0]]) {
2797         meshDS->SetNodeOnFace(nodes[evtri[0]], tag);
2798         tags[evtri[0]] = false;
2799       }
2800       if (tags[evtri[1]]) {
2801         meshDS->SetNodeOnFace(nodes[evtri[1]], tag);
2802         tags[evtri[1]] = false;
2803       }
2804       if (tags[evtri[2]]) {
2805         meshDS->SetNodeOnFace(nodes[evtri[2]], tag);
2806         tags[evtri[2]] = false;
2807       }
2808       tri = meshDS->AddFace(nodes[vtx[0]], nodes[vtx[1]], nodes[vtx[2]],
2809                             nodes[evtri[0]], nodes[evtri[1]], nodes[evtri[2]]);
2810     }
2811     else {
2812       if ( helper.GetIsQuadratic() )
2813         helper.SetSubShape( tag );
2814       tri = helper.AddFace(nodes[vtx[0]], nodes[vtx[1]], nodes[vtx[2]]);
2815     }
2816     meshDS->SetMeshElementOnShape(tri, tag);
2817   }
2818
2819   /* enumerate quadrangles */
2820   for(int it=1;it<=nq;it++) {
2821     SMDS_MeshFace* quad;
2822     mesh_get_quadrangle_vertices(msh, it, vtx);
2823     mesh_get_quadrangle_extra_vertices(msh, it, &type, evquad);
2824     mesh_get_quadrangle_tag(msh, it, &tag);
2825     if (tags[vtx[0]]) {
2826       meshDS->SetNodeOnFace(nodes[vtx[0]], tag);
2827       tags[vtx[0]] = false;
2828     };
2829     if (tags[vtx[1]]) {
2830       meshDS->SetNodeOnFace(nodes[vtx[1]], tag);
2831       tags[vtx[1]] = false;
2832     };
2833     if (tags[vtx[2]]) {
2834       meshDS->SetNodeOnFace(nodes[vtx[2]], tag);
2835       tags[vtx[2]] = false;
2836     };
2837     if (tags[vtx[3]]) {
2838       meshDS->SetNodeOnFace(nodes[vtx[3]], tag);
2839       tags[vtx[3]] = false;
2840     };
2841     if (type == MESHGEMS_MESH_ELEMENT_TYPE_QUAD9) {
2842       // QUADRATIC QUADRANGLE
2843       if (tags[evquad[0]]) {
2844         meshDS->SetNodeOnFace(nodes[evquad[0]], tag);
2845         tags[evquad[0]] = false;
2846       }
2847       if (tags[evquad[1]]) {
2848         meshDS->SetNodeOnFace(nodes[evquad[1]], tag);
2849         tags[evquad[1]] = false;
2850       }
2851       if (tags[evquad[2]]) {
2852         meshDS->SetNodeOnFace(nodes[evquad[2]], tag);
2853         tags[evquad[2]] = false;
2854       }
2855       if (tags[evquad[3]]) {
2856         meshDS->SetNodeOnFace(nodes[evquad[3]], tag);
2857         tags[evquad[3]] = false;
2858       }
2859       if (tags[evquad[4]]) {
2860         meshDS->SetNodeOnFace(nodes[evquad[4]], tag);
2861         tags[evquad[4]] = false;
2862       }
2863       quad = meshDS->AddFace(nodes[vtx[0]], nodes[vtx[1]], nodes[vtx[2]], nodes[vtx[3]],
2864                              nodes[evquad[0]], nodes[evquad[1]], nodes[evquad[2]], nodes[evquad[3]],
2865                              nodes[evquad[4]]);
2866     }
2867     else {
2868       quad = helper.AddFace(nodes[vtx[0]], nodes[vtx[1]], nodes[vtx[2]], nodes[vtx[3]]);
2869     }
2870     meshDS->SetMeshElementOnShape(quad, tag);
2871   }
2872
2873   /* release the mesh object, the rest is released by cleaner */
2874   cadsurf_regain_mesh(css, msh);
2875
2876
2877   // Remove free nodes that can appear e.g. if "remove tiny edges"(IPAL53235)
2878   for(int iv=1;iv<=nv;iv++)
2879     if ( nodes[iv] && nodes[iv]->NbInverseElements() == 0 )
2880       meshDS->RemoveFreeNode( nodes[iv], 0, /*fromGroups=*/false );
2881
2882
2883   if ( needMerge ) // sew mesh computed by MG-CADSurf with pre-existing mesh
2884   {
2885     SMESH_MeshEditor editor( &aMesh );
2886     SMESH_MeshEditor::TListOfListOfNodes nodeGroupsToMerge;
2887     TIDSortedElemSet segementsOnEdge;
2888     TSubMeshSet::iterator smIt;
2889     SMESHDS_SubMesh* smDS;
2890
2891     // merge nodes on EDGE's with ones computed by MG-CADSurf
2892     for ( smIt = mergeSubmeshes.begin(); smIt != mergeSubmeshes.end(); ++smIt )
2893     {
2894       if (! (smDS = *smIt) ) continue;
2895       getNodeGroupsToMerge( smDS, meshDS->IndexToShape((*smIt)->GetID()), nodeGroupsToMerge );
2896
2897       SMDS_ElemIteratorPtr segIt = smDS->GetElements();
2898       while ( segIt->more() )
2899         segementsOnEdge.insert( segIt->next() );
2900     }
2901     // merge nodes
2902     editor.MergeNodes( nodeGroupsToMerge );
2903
2904     // merge segments
2905     SMESH_MeshEditor::TListOfListOfElementsID equalSegments;
2906     editor.FindEqualElements( segementsOnEdge, equalSegments );
2907     editor.MergeElements( equalSegments );
2908
2909     // remove excess segments created on the boundary of viscous layers
2910     const SMDS_TypeOfPosition onFace = SMDS_TOP_FACE;
2911     for ( int i = 1; i <= emap.Extent(); ++i )
2912     {
2913       if ( SMESHDS_SubMesh* smDS = meshDS->MeshElements( emap( i )))
2914       {
2915         SMDS_ElemIteratorPtr segIt = smDS->GetElements();
2916         while ( segIt->more() )
2917         {
2918           const SMDS_MeshElement* seg = segIt->next();
2919           if ( seg->GetNode(0)->GetPosition()->GetTypeOfPosition() == onFace ||
2920                seg->GetNode(1)->GetPosition()->GetTypeOfPosition() == onFace )
2921             meshDS->RemoveFreeElement( seg, smDS );
2922         }
2923       }
2924     }
2925   }
2926
2927
2928   // SetIsAlwaysComputed( true ) to sub-meshes of EDGEs w/o mesh
2929   for (int i = 1; i <= emap.Extent(); i++)
2930     if ( SMESH_subMesh* sm = aMesh.GetSubMeshContaining( emap( i )))
2931       sm->SetIsAlwaysComputed( true );
2932   for (int i = 1; i <= pmap.Extent(); i++)
2933     if ( SMESH_subMesh* sm = aMesh.GetSubMeshContaining( pmap( i )))
2934       if ( !sm->IsMeshComputed() )
2935         sm->SetIsAlwaysComputed( true );
2936
2937   // Set error to FACE's w/o elements
2938   SMESH_ComputeErrorName err = COMPERR_ALGO_FAILED;
2939   if ( _comment.empty() && status == STATUS_OK )
2940   {
2941     err      = COMPERR_WARNING;
2942     _comment = "No mesh elements assigned to a face";
2943   }
2944   bool badFaceFound = false;
2945   for (TopExp_Explorer face_iter(aShape,TopAbs_FACE);face_iter.More();face_iter.Next())
2946   {
2947     TopoDS_Face f = TopoDS::Face(face_iter.Current());
2948     SMESH_subMesh* sm = aMesh.GetSubMesh( f );
2949     if ( !sm->GetSubMeshDS() || sm->GetSubMeshDS()->NbElements() == 0 )
2950     {
2951       int faceTag = sm->GetId();
2952       if ( faceTag != BLSURFPlugin_Hypothesis::GetHyperPatchTag( faceTag, _hypothesis ))
2953       {
2954         // triangles are assigned to the first face of hyper-patch
2955         sm->SetIsAlwaysComputed( true );
2956       }
2957       else
2958       {
2959         sm->GetComputeError().reset( new SMESH_ComputeError( err, _comment, this ));
2960         badFaceFound = true;
2961       }
2962     }
2963   }
2964   if ( err == COMPERR_WARNING )
2965   {
2966     _comment.clear();
2967   }
2968   if ( status != STATUS_OK && !badFaceFound ) {
2969     error(_comment);
2970   }
2971
2972   // Issue 0019864. On DebianSarge, FE signals do not obey to OSD::SetSignal(false)
2973 #ifndef WIN32
2974   if ( oldFEFlags > 0 )
2975     feenableexcept( oldFEFlags );
2976   feclearexcept( FE_ALL_EXCEPT );
2977 #endif
2978
2979   /*
2980     std::cout << "FacesWithSizeMap" << std::endl;
2981     FacesWithSizeMap.Statistics(std::cout);
2982     std::cout << "EdgesWithSizeMap" << std::endl;
2983     EdgesWithSizeMap.Statistics(std::cout);
2984     std::cout << "VerticesWithSizeMap" << std::endl;
2985     VerticesWithSizeMap.Statistics(std::cout);
2986     std::cout << "FacesWithEnforcedVertices" << std::endl;
2987     FacesWithEnforcedVertices.Statistics(std::cout);
2988   */
2989
2990   return ( status == STATUS_OK && !quadraticSubMeshAndViscousLayer );
2991 }
2992
2993 //================================================================================
2994 /*!
2995  * \brief Compute a mesh basing on discrete CAD description
2996  */
2997 //================================================================================
2998
2999 bool BLSURFPlugin_BLSURF::Compute(SMESH_Mesh & aMesh, SMESH_MesherHelper* aHelper)
3000 {
3001   if ( aMesh.NbFaces() == 0 )
3002     return error( COMPERR_BAD_INPUT_MESH, "2D elements are missing" );
3003
3004   context_t *ctx = context_new();
3005   if (!ctx) return error("Pb in context_new()");
3006
3007   if ( aMesh.NbNodes() > std::numeric_limits< meshgems_integer >::max() ||
3008        aMesh.NbFaces() > std::numeric_limits< meshgems_integer >::max() )
3009     return error("Too large input mesh");
3010
3011   BLSURF_Cleaner cleaner( ctx );
3012
3013   message_cb_user_data mcud;
3014   mcud._error     = & this->SMESH_Algo::_comment;
3015   mcud._progress  = & this->SMESH_Algo::_progress;
3016   mcud._verbosity =
3017     _hypothesis ? _hypothesis->GetVerbosity() : BLSURFPlugin_Hypothesis::GetDefaultVerbosity();
3018   meshgems_status_t ret = context_set_message_callback(ctx, message_cb, &mcud);
3019   if (ret != STATUS_OK) return error("Pb. in context_set_message_callback() ");
3020
3021   cadsurf_session_t * css = cadsurf_session_new(ctx);
3022   if(!css) return error( "Pb. in cadsurf_session_new() " );
3023   cleaner._css = css;
3024
3025
3026   // Fill an input mesh
3027
3028   mesh_t * msh = meshgems_mesh_new_in_memory( ctx );
3029   if ( !msh ) return error("Pb. in meshgems_mesh_new_in_memory()");
3030
3031   // mark nodes used by 2D elements
3032   SMESHDS_Mesh* meshDS = aMesh.GetMeshDS();
3033   SMDS_NodeIteratorPtr nodeIt = meshDS->nodesIterator();
3034   while ( nodeIt->more() )
3035   {
3036     const SMDS_MeshNode* n = nodeIt->next();
3037     n->setIsMarked( n->NbInverseElements( SMDSAbs_Face ));
3038   }
3039   meshgems_mesh_set_vertex_count( msh, (meshgems_integer) meshDS->NbNodes() );
3040
3041   // set node coordinates
3042   if ( meshDS->NbNodes() != meshDS->MaxNodeID() )
3043   {
3044     meshDS->CompactMesh();
3045   }
3046   SMESH_NodeXYZ nXYZ;
3047   nodeIt = meshDS->nodesIterator();
3048   meshgems_integer i;
3049   for ( i = 1; nodeIt->more(); ++i )
3050   {
3051     nXYZ.Set( nodeIt->next() );
3052     meshgems_mesh_set_vertex_coordinates( msh, i, nXYZ.ChangeData() );
3053   }
3054
3055   // set nodes of faces
3056   meshgems_mesh_set_triangle_count  ( msh, (meshgems_integer) meshDS->GetMeshInfo().NbTriangles() );
3057   meshgems_mesh_set_quadrangle_count( msh, (meshgems_integer) meshDS->GetMeshInfo().NbQuadrangles() );
3058   meshgems_integer nodeIDs[4];
3059   meshgems_integer iT = 1, iQ = 1;
3060   SMDS_FaceIteratorPtr faceIt = meshDS->facesIterator();
3061   while ( faceIt->more() )
3062   {
3063     const SMDS_MeshElement* face = faceIt->next();
3064     meshgems_integer nbNodes = face->NbCornerNodes();
3065     if ( nbNodes > 4 || face->IsPoly() ) continue;
3066
3067     for ( i = 0; i < nbNodes; ++i )
3068       nodeIDs[i] = (meshgems_integer) face->GetNode( i )->GetID();
3069     if ( nbNodes == 3 )
3070       meshgems_mesh_set_triangle_vertices  ( msh, iT++, nodeIDs );
3071     else
3072       meshgems_mesh_set_quadrangle_vertices( msh, iQ++, nodeIDs );
3073   }
3074
3075   std::string errorTxt;
3076   if ( !SMESHUtils_MGLicenseKeyGen::SignMesh( msh, errorTxt ))
3077     return error( "Problem with library SalomeMeshGemsKeyGenerator: " + errorTxt );
3078
3079   ret = cadsurf_set_mesh(css, msh);
3080   if ( ret != STATUS_OK ) return error("Pb in cadsurf_set_mesh()");
3081
3082
3083   // Compute the mesh
3084
3085   SetParameters(_hypothesis, css, aMesh.GetShapeToMesh() );
3086
3087   ret = cadsurf_compute_mesh(css);
3088   if ( ret != STATUS_OK ) return false;
3089
3090   mesh_t *omsh = 0;
3091   cadsurf_get_mesh(css, &omsh);
3092   if ( !omsh ) return error( "Pb. in cadsurf_get_mesh()" );
3093
3094
3095   // Update SALOME mesh
3096
3097   // remove quadrangles and triangles
3098   for ( faceIt = meshDS->facesIterator(); faceIt->more();  )
3099   {
3100     const SMDS_MeshElement* face = faceIt->next();
3101     if ( !face->IsPoly() )
3102       meshDS->RemoveFreeElement( face, /*sm=*/0, /*fromGroups=*/true );
3103   }
3104   // remove edges that bound the just removed faces
3105   for ( SMDS_EdgeIteratorPtr edgeIt = meshDS->edgesIterator(); edgeIt->more(); )
3106   {
3107     const SMDS_MeshElement* edge = edgeIt->next();
3108     const SMDS_MeshNode* n0 = edge->GetNode(0);
3109     const SMDS_MeshNode* n1 = edge->GetNode(1);
3110     if ( n0->isMarked() &&
3111          n1->isMarked() &&
3112          n0->NbInverseElements( SMDSAbs_Volume ) == 0 &&
3113          n1->NbInverseElements( SMDSAbs_Volume ) == 0 )
3114       meshDS->RemoveFreeElement( edge, /*sm=*/0, /*fromGroups=*/true );
3115   }
3116   // remove nodes that just became free
3117   for ( nodeIt = meshDS->nodesIterator(); nodeIt->more(); )
3118   {
3119     const SMDS_MeshNode* n = nodeIt->next();
3120     if ( n->isMarked() && n->NbInverseElements() == 0 )
3121       meshDS->RemoveFreeNode( n, /*sm=*/0, /*fromGroups=*/true );
3122   }
3123
3124   // add nodes
3125   meshgems_integer nbvtx = 0, nodeID;
3126   meshgems_mesh_get_vertex_count( omsh, &nbvtx );
3127   meshgems_real xyz[3];
3128   for ( i = 1; i <= nbvtx; ++i )
3129   {
3130     meshgems_mesh_get_vertex_coordinates( omsh, i, xyz );
3131     SMDS_MeshNode* n = meshDS->AddNode( xyz[0], xyz[1], xyz[2] );
3132     nodeID = (meshgems_integer) n->GetID();
3133     meshgems_mesh_set_vertex_tag( omsh, i, &nodeID ); // save mapping of IDs in MG and SALOME meshes
3134   }
3135
3136   // add triangles
3137   meshgems_integer nbtri = 0;
3138   meshgems_mesh_get_triangle_count( omsh, &nbtri );
3139   const SMDS_MeshNode* nodes[4];
3140   for ( i = 1; i <= nbtri; ++i )
3141   {
3142     meshgems_mesh_get_triangle_vertices( omsh, i, nodeIDs );
3143     for ( int j = 0; j < 3; ++j )
3144     {
3145       meshgems_mesh_get_vertex_tag( omsh, nodeIDs[j], &nodeID );
3146       nodes[j] = meshDS->FindNode( nodeID );
3147     }
3148     meshDS->AddFace( nodes[0], nodes[1], nodes[2] );
3149   }
3150
3151   // add quadrangles
3152   meshgems_integer nbquad = 0;
3153   meshgems_mesh_get_quadrangle_count( omsh, &nbquad );
3154   for ( i = 1; i <= nbquad; ++i )
3155   {
3156     meshgems_mesh_get_quadrangle_vertices( omsh, i, nodeIDs );
3157     for ( int j = 0; j < 4; ++j )
3158     {
3159       meshgems_mesh_get_vertex_tag( omsh, nodeIDs[j], &nodeID );
3160       nodes[j] = meshDS->FindNode( nodeID );
3161     }
3162     meshDS->AddFace( nodes[0], nodes[1], nodes[2], nodes[3] );
3163   }
3164
3165   if ( _hypothesis )
3166   {
3167     std::string GMFFileName = _hypothesis->GetGMFFile();
3168     if ( !GMFFileName.empty() )
3169     {
3170       bool asciiFound  = (GMFFileName.find(".mesh", GMFFileName.size()-5) != std::string::npos);
3171       bool binaryFound = (GMFFileName.find(".meshb",GMFFileName.size()-6) != std::string::npos);
3172       if ( !asciiFound && !binaryFound )
3173         GMFFileName.append(".mesh");
3174       mesh_write_mesh(msh, GMFFileName.c_str());
3175     }
3176   }
3177
3178   cadsurf_regain_mesh(css, omsh);
3179
3180   // as we don't assign the new triangles to a shape (the pseudo-shape),
3181   // we mark the shape as always computed to avoid the error messages
3182   // that no elements assigned to the shape
3183   aMesh.GetSubMesh( aHelper->GetSubShape() )->SetIsAlwaysComputed( true );
3184
3185   return true;
3186 }
3187
3188 //================================================================================
3189 /*!
3190  * \brief Terminates computation
3191  */
3192 //================================================================================
3193
3194 void BLSURFPlugin_BLSURF::CancelCompute()
3195 {
3196   _compute_canceled = true;
3197 }
3198
3199 //=============================================================================
3200 /*!
3201  *  SetNodeOnEdge
3202  */
3203 //=============================================================================
3204
3205 void BLSURFPlugin_BLSURF::Set_NodeOnEdge(SMESHDS_Mesh*        meshDS,
3206                                          const SMDS_MeshNode* node,
3207                                          const TopoDS_Shape&  ed)
3208 {
3209   const TopoDS_Edge edge = TopoDS::Edge(ed);
3210
3211   gp_Pnt pnt(node->X(), node->Y(), node->Z());
3212
3213   Standard_Real p0 = 0.0;
3214   Standard_Real p1 = 1.0;
3215   TopLoc_Location loc;
3216   Handle(Geom_Curve) curve = BRep_Tool::Curve(edge, loc, p0, p1);
3217   if ( curve.IsNull() )
3218   {
3219     // issue 22499. Node at a sphere apex
3220     meshDS->SetNodeOnEdge(node, edge, p0);
3221     return;
3222   }
3223
3224   if ( !loc.IsIdentity() ) pnt.Transform( loc.Transformation().Inverted() );
3225   GeomAPI_ProjectPointOnCurve proj(pnt, curve, p0, p1);
3226
3227   double pa = 0.;
3228   if ( proj.NbPoints() > 0 )
3229   {
3230     pa = (double)proj.LowerDistanceParameter();
3231     // Issue 0020656. Move node if it is too far from edge
3232     gp_Pnt curve_pnt = curve->Value( pa );
3233     double dist2     = pnt.SquareDistance( curve_pnt );
3234     double tol       = BRep_Tool::Tolerance( edge );
3235     if ( 1e-14 < dist2 && dist2 <= 1000*tol ) // large enough and within tolerance
3236     {
3237       curve_pnt.Transform( loc );
3238       meshDS->MoveNode( node, curve_pnt.X(), curve_pnt.Y(), curve_pnt.Z() );
3239     }
3240   }
3241
3242   meshDS->SetNodeOnEdge(node, edge, pa);
3243 }
3244
3245 /* Curve definition function See cad_curv_t in file meshgems/cad.h for
3246  * more information.
3247  * NOTE : if when your CAD systems evaluates second
3248  * order derivatives it also computes first order derivatives and
3249  * function evaluation, you can optimize this example by making only
3250  * one CAD call and filling the necessary uv, dt, dtt arrays.
3251  */
3252 status_t curv_fun(real t, real *uv, real *dt, real *dtt, void *user_data)
3253 {
3254   /* t is given. It contains the 1D parametric coordintaes
3255      of the point MG-CADSurf is querying on the curve */
3256
3257   /* user_data identifies the edge MG-CADSurf is querying */
3258   const Geom2d_Curve* pargeo = (const Geom2d_Curve*) user_data;
3259
3260   if (uv) {
3261     /* MG-CADSurf is querying the function evaluation */
3262     gp_Pnt2d P = pargeo->Value(t);
3263     uv[0]=P.X(); uv[1]=P.Y();
3264   }
3265
3266   if (dt) {
3267     /* query for the first order derivatives */
3268     gp_Vec2d V1 = pargeo->DN(t,1);
3269     dt[0]=V1.X(); dt[1]=V1.Y();
3270   }
3271
3272   if (dtt) {
3273     /* query for the second order derivatives */
3274     gp_Vec2d V2 = pargeo->DN(t,2);
3275     dtt[0]=V2.X(); dtt[1]=V2.Y();
3276   }
3277
3278   return STATUS_OK;
3279 }
3280
3281 /* Surface definition function.
3282  * See cad_surf_t in file meshgems/cad.h for more information.
3283  * NOTE : if when your CAD systems evaluates second order derivatives it also
3284  * computes first order derivatives and function evaluation, you can optimize
3285  * this example by making only one CAD call and filling the necessary xyz, du, dv, etc..
3286  * arrays.
3287  */
3288 status_t surf_fun(real *uv, real *xyz, real*du, real *dv,
3289                   real *duu, real *duv, real *dvv, void *user_data)
3290 {
3291   /* uv[2] is given. It contains the u,v coordinates of the point
3292    * PreCAD/MG-CADSurf is querying on the surface */
3293
3294   /* user_data identifies the face PreCAD/MG-CADSurf is querying (see
3295    * cad_face_new later in this example)*/
3296   const Geom_Surface* geometry = (const Geom_Surface*) user_data;
3297
3298   if(xyz){
3299    gp_Pnt P;
3300    P=geometry->Value(uv[0],uv[1]);   // S.D0(U,V,P);
3301    xyz[0]=P.X(); xyz[1]=P.Y(); xyz[2]=P.Z();
3302   }
3303
3304   if(du && dv){
3305     gp_Pnt P;
3306     gp_Vec D1U,D1V;
3307
3308     geometry->D1(uv[0],uv[1],P,D1U,D1V);
3309     du[0]=D1U.X(); du[1]=D1U.Y(); du[2]=D1U.Z();
3310     dv[0]=D1V.X(); dv[1]=D1V.Y(); dv[2]=D1V.Z();
3311   }
3312
3313   if(duu && duv && dvv){
3314
3315     gp_Pnt P;
3316     gp_Vec D1U,D1V;
3317     gp_Vec D2U,D2V,D2UV;
3318
3319     geometry->D2(uv[0],uv[1],P,D1U,D1V,D2U,D2V,D2UV);
3320     duu[0]=D2U.X(); duu[1]=D2U.Y(); duu[2]=D2U.Z();
3321     duv[0]=D2UV.X(); duv[1]=D2UV.Y(); duv[2]=D2UV.Z();
3322     dvv[0]=D2V.X(); dvv[1]=D2V.Y(); dvv[2]=D2V.Z();
3323   }
3324
3325   return STATUS_OK;
3326 }
3327
3328
3329 status_t size_on_surface(integer face_id, real *uv, real *size, void *user_data)
3330 {
3331   TId2ClsAttractorVec::iterator f2attVec;
3332   if (FaceId2PythonSmp.count(face_id) != 0) {
3333     assert(Py_IsInitialized());
3334     PyGILState_STATE gstate;
3335     gstate = PyGILState_Ensure();
3336     PyObject* pyresult = PyObject_CallFunction(FaceId2PythonSmp[face_id],(char*)"(f,f)",uv[0],uv[1]);
3337     real result;
3338     if ( pyresult != NULL) {
3339       result = PyFloat_AsDouble(pyresult);
3340       Py_DECREF(pyresult);
3341       //       *size = result;
3342     }
3343     else{
3344       fflush(stderr);
3345       string err_description="";
3346       PyObject* new_stderr = newPyStdOut(err_description);
3347       PyObject* old_stderr = PySys_GetObject((char*)"stderr");
3348       Py_INCREF(old_stderr);
3349       PySys_SetObject((char*)"stderr", new_stderr);
3350       PyErr_Print();
3351       PySys_SetObject((char*)"stderr", old_stderr);
3352       Py_DECREF(new_stderr);
3353       MESSAGE("Can't evaluate f(" << uv[0] << "," << uv[1] << ")" << " error is " << err_description);
3354       result = *((real*)user_data);
3355     }
3356     *size = result;
3357     PyGILState_Release(gstate);
3358   }
3359   else if (( f2attVec = FaceIndex2ClassAttractor.find(face_id)) != FaceIndex2ClassAttractor.end() && !f2attVec->second.empty())
3360   {
3361     real result = 0;
3362     result = 1e100;
3363     std::vector< BLSURFPlugin_Attractor* > & attVec = f2attVec->second;
3364     for ( size_t i = 0; i < attVec.size(); ++i )
3365     {
3366       //result += attVec[i]->GetSize(uv[0],uv[1]);
3367       result = Min( result, attVec[i]->GetSize(uv[0],uv[1]));
3368     }
3369     //*size = result / attVec.size(); // mean of sizes defined by all attractors
3370     *size = result;
3371   }
3372   else {
3373     *size = *((real*)user_data);
3374   }
3375   //   std::cout << "Size_on_surface sur la face " << face_id << " donne une size de: " << *size << std::endl;
3376   return STATUS_OK;
3377 }
3378
3379 status_t size_on_edge(integer edge_id, real t, real *size, void *user_data)
3380 {
3381   if (EdgeId2PythonSmp.count(edge_id) != 0){
3382     assert(Py_IsInitialized());
3383     PyGILState_STATE gstate;
3384     gstate = PyGILState_Ensure();
3385     PyObject* pyresult = PyObject_CallFunction(EdgeId2PythonSmp[edge_id],(char*)"(f)",t);
3386     real result;
3387     if ( pyresult != NULL) {
3388       result = PyFloat_AsDouble(pyresult);
3389       Py_DECREF(pyresult);
3390 //       *size = result;
3391     }
3392     else{
3393       fflush(stderr);
3394       string err_description="";
3395       PyObject* new_stderr = newPyStdOut(err_description);
3396       PyObject* old_stderr = PySys_GetObject((char*)"stderr");
3397       Py_INCREF(old_stderr);
3398       PySys_SetObject((char*)"stderr", new_stderr);
3399       PyErr_Print();
3400       PySys_SetObject((char*)"stderr", old_stderr);
3401       Py_DECREF(new_stderr);
3402       MESSAGE("Can't evaluate f(" << t << ")" << " error is " << err_description);
3403       result = *((real*)user_data);
3404     }
3405     *size = result;
3406     PyGILState_Release(gstate);
3407   }
3408   else {
3409     *size = *((real*)user_data);
3410   }
3411   return STATUS_OK;
3412 }
3413
3414 status_t size_on_vertex(integer point_id, real *size, void *user_data)
3415 {
3416   if (VertexId2PythonSmp.count(point_id) != 0){
3417     assert(Py_IsInitialized());
3418     PyGILState_STATE gstate;
3419     gstate = PyGILState_Ensure();
3420     PyObject* pyresult = PyObject_CallFunction(VertexId2PythonSmp[point_id],(char*)"");
3421     real result;
3422     if ( pyresult != NULL) {
3423       result = PyFloat_AsDouble(pyresult);
3424       Py_DECREF(pyresult);
3425 //       *size = result;
3426     }
3427     else {
3428       fflush(stderr);
3429       string err_description="";
3430       PyObject* new_stderr = newPyStdOut(err_description);
3431       PyObject* old_stderr = PySys_GetObject((char*)"stderr");
3432       Py_INCREF(old_stderr);
3433       PySys_SetObject((char*)"stderr", new_stderr);
3434       PyErr_Print();
3435       PySys_SetObject((char*)"stderr", old_stderr);
3436       Py_DECREF(new_stderr);
3437       MESSAGE("Can't evaluate f()" << " error is " << err_description);
3438       result = *((real*)user_data);
3439     }
3440     *size = result;
3441     PyGILState_Release(gstate);
3442   }
3443   else {
3444     *size = *((real*)user_data);
3445   }
3446  return STATUS_OK;
3447 }
3448
3449 /*
3450  * The following function will be called for PreCAD/MG-CADSurf message
3451  * printing.  See context_set_message_callback (later in this
3452  * template) for how to set user_data.
3453  */
3454 status_t message_cb(message_t *msg, void *user_data)
3455 {
3456   integer errnumber = 0;
3457   char *desc;
3458   message_get_number(msg, &errnumber);
3459   message_get_description(msg, &desc);
3460   string err( desc );
3461   message_cb_user_data * mcud = (message_cb_user_data*)user_data;
3462   // Get all the error message and some warning messages related to license and periodicity
3463   if ( errnumber < 0 ||
3464        err.find("license"    ) != string::npos ||
3465        err.find("periodicity") != string::npos )
3466   {
3467     // remove ^A from the tail
3468     size_t len = strlen( desc );
3469     while (len > 0 && desc[len-1] != '\n')
3470       len--;
3471     mcud->_error->append( desc, len );
3472   }
3473   else {
3474     if ( errnumber == 3009001 )
3475       * mcud->_progress = atof( desc + 11 ) / 100.;
3476     if ( mcud->_verbosity > 0 )
3477       std::cout << desc << std::endl;
3478   }
3479   return STATUS_OK;
3480 }
3481
3482 /* This is the interrupt callback. PreCAD/MG-CADSurf will call this
3483  * function regularily. See the file meshgems/interrupt.h
3484  */
3485 status_t interrupt_cb(integer *interrupt_status, void *user_data)
3486 {
3487   integer you_want_to_continue = 1;
3488   BLSURFPlugin_BLSURF* tmp = (BLSURFPlugin_BLSURF*)user_data;
3489   you_want_to_continue = !tmp->computeCanceled();
3490
3491   if(you_want_to_continue)
3492   {
3493     *interrupt_status = INTERRUPT_CONTINUE;
3494     return STATUS_OK;
3495   }
3496   else /* you want to stop MG-CADSurf */
3497   {
3498     *interrupt_status = INTERRUPT_STOP;
3499     return STATUS_OK;
3500   }
3501 }
3502
3503 //=============================================================================
3504 /*!
3505  *
3506  */
3507 //=============================================================================
3508 bool BLSURFPlugin_BLSURF::Evaluate(SMESH_Mesh&         aMesh,
3509                                    const TopoDS_Shape& aShape,
3510                                    MapShapeNbElems&    aResMap)
3511 {
3512   double diagonal       = aMesh.GetShapeDiagonalSize();
3513   double bbSegmentation = _gen->GetBoundaryBoxSegmentation();
3514   int    _physicalMesh  = BLSURFPlugin_Hypothesis::GetDefaultPhysicalMesh();
3515   double _phySize       = BLSURFPlugin_Hypothesis::GetDefaultPhySize(diagonal, bbSegmentation);
3516   bool   _phySizeRel    = BLSURFPlugin_Hypothesis::GetDefaultPhySizeRel();
3517   //int    _geometricMesh = BLSURFPlugin_Hypothesis::GetDefaultGeometricMesh();
3518   double _angleMesh     = BLSURFPlugin_Hypothesis::GetDefaultAngleMesh();
3519   BLSURFPlugin_Hypothesis::ElementType   _elementType   = BLSURFPlugin_Hypothesis::GetDefaultElementType();
3520   if(_hypothesis) {
3521     _physicalMesh  = (int) _hypothesis->GetPhysicalMesh();
3522     _phySizeRel         = _hypothesis->IsPhySizeRel();
3523     if ( _hypothesis->GetPhySize() > 0)
3524       _phySize          = _phySizeRel ? diagonal*_hypothesis->GetPhySize() : _hypothesis->GetPhySize();
3525     //_geometricMesh = (int) hyp->GetGeometricMesh();
3526     if (_hypothesis->GetAngleMesh() > 0)
3527       _angleMesh        = _hypothesis->GetAngleMesh();
3528     _elementType        = _hypothesis->GetElementType();
3529   } else {
3530     //0020968: EDF1545 SMESH: Problem in the creation of a mesh group on geometry
3531     // GetDefaultPhySize() sometimes leads to computation failure
3532     _phySize = aMesh.GetShapeDiagonalSize() / _gen->GetBoundaryBoxSegmentation();
3533   }
3534
3535   bool IsQuadratic = _quadraticMesh;
3536
3537   // ----------------
3538   // evaluate 1D
3539   // ----------------
3540   TopTools_DataMapOfShapeInteger EdgesMap;
3541   double fullLen = 0.0;
3542   double fullNbSeg = 0;
3543   for (TopExp_Explorer exp(aShape, TopAbs_EDGE); exp.More(); exp.Next()) {
3544     TopoDS_Edge E = TopoDS::Edge( exp.Current() );
3545     if( EdgesMap.IsBound(E) )
3546       continue;
3547     SMESH_subMesh *sm = aMesh.GetSubMesh(E);
3548     double aLen = SMESH_Algo::EdgeLength(E);
3549     fullLen += aLen;
3550     int nb1d = 0;
3551     if(_physicalMesh==1) {
3552        nb1d = (int)( aLen/_phySize + 1 );
3553     }
3554     else {
3555       // use geometry
3556       double f,l;
3557       Handle(Geom_Curve) C = BRep_Tool::Curve(E,f,l);
3558       double fullAng = 0.0;
3559       double dp = (l-f)/200;
3560       gp_Pnt P1,P2,P3;
3561       C->D0(f,P1);
3562       C->D0(f+dp,P2);
3563       gp_Vec V1(P1,P2);
3564       for(int j=2; j<=200; j++) {
3565         C->D0(f+dp*j,P3);
3566         gp_Vec V2(P2,P3);
3567         fullAng += fabs(V1.Angle(V2));
3568         V1 = V2;
3569         P2 = P3;
3570       }
3571       nb1d = (int)( fullAng/_angleMesh + 1 );
3572     }
3573     fullNbSeg += nb1d;
3574     std::vector<smIdType> aVec(SMDSEntity_Last);
3575     for(smIdType i=SMDSEntity_Node; i<SMDSEntity_Last; i++) aVec[i]=0;
3576     if( IsQuadratic > 0 ) {
3577       aVec[SMDSEntity_Node] = 2*nb1d - 1;
3578       aVec[SMDSEntity_Quad_Edge] = nb1d;
3579     }
3580     else {
3581       aVec[SMDSEntity_Node] = nb1d - 1;
3582       aVec[SMDSEntity_Edge] = nb1d;
3583     }
3584     aResMap.insert(std::make_pair(sm,aVec));
3585     EdgesMap.Bind(E,nb1d);
3586   }
3587   double ELen = fullLen/fullNbSeg;
3588   // ----------------
3589   // evaluate 2D
3590   // ----------------
3591   // try to evaluate as in MEFISTO
3592   for (TopExp_Explorer exp(aShape, TopAbs_FACE); exp.More(); exp.Next()) {
3593     TopoDS_Face F = TopoDS::Face( exp.Current() );
3594     SMESH_subMesh *sm = aMesh.GetSubMesh(F);
3595     GProp_GProps G;
3596     BRepGProp::SurfaceProperties(F,G);
3597     double anArea = G.Mass();
3598     int nb1d = 0;
3599     std::vector<int> nb1dVec;
3600     for (TopExp_Explorer exp1(F,TopAbs_EDGE); exp1.More(); exp1.Next()) {
3601       int nbSeg = EdgesMap.Find(exp1.Current());
3602       nb1d += nbSeg;
3603       nb1dVec.push_back( nbSeg );
3604     }
3605     int nbQuad = 0;
3606     int nbTria = (int) ( anArea/( ELen*ELen*sqrt(3.) / 4 ) );
3607     int nbNodes = (int) ( ( nbTria*3 - (nb1d-1)*2 ) / 6 + 1 );
3608     if ( _elementType != BLSURFPlugin_Hypothesis::Quadrangles )
3609     {
3610       if ( nb1dVec.size() == 4 ) // quadrangle geom face
3611       {
3612         int n1 = nb1dVec[0], n2 = nb1dVec[ nb1dVec[1] == nb1dVec[0] ? 2 : 1 ];
3613         nbQuad = n1 * n2;
3614         nbNodes = (n1 + 1) * (n2 + 1);
3615         nbTria = 0;
3616       }
3617       else
3618       {
3619         nbTria = nbQuad = nbTria / 3 + 1;
3620       }
3621     }
3622     std::vector<smIdType> aVec(SMDSEntity_Last,0);
3623     if( IsQuadratic ) {
3624       int nb1d_in = (nbTria*3 - nb1d) / 2;
3625       aVec[SMDSEntity_Node] = nbNodes + nb1d_in;
3626       aVec[SMDSEntity_Quad_Triangle] = nbTria;
3627       aVec[SMDSEntity_Quad_Quadrangle] = nbQuad;
3628     }
3629     else {
3630       aVec[SMDSEntity_Node] = nbNodes;
3631       aVec[SMDSEntity_Triangle] = nbTria;
3632       aVec[SMDSEntity_Quadrangle] = nbQuad;
3633     }
3634     aResMap.insert(std::make_pair(sm,aVec));
3635   }
3636
3637   // ----------------
3638   // evaluate 3D
3639   // ----------------
3640   GProp_GProps G;
3641   BRepGProp::VolumeProperties(aShape,G);
3642   double aVolume = G.Mass();
3643   double tetrVol = 0.1179*ELen*ELen*ELen;
3644   int nbVols  = int(aVolume/tetrVol);
3645   int nb1d_in = int(( nbVols*6 - fullNbSeg ) / 6 );
3646   std::vector<smIdType> aVec(SMDSEntity_Last);
3647   for(smIdType i=SMDSEntity_Node; i<SMDSEntity_Last; i++) aVec[i]=0;
3648   if( IsQuadratic ) {
3649     aVec[SMDSEntity_Node] = nb1d_in/3 + 1 + nb1d_in;
3650     aVec[SMDSEntity_Quad_Tetra] = nbVols;
3651   }
3652   else {
3653     aVec[SMDSEntity_Node] = nb1d_in/3 + 1;
3654     aVec[SMDSEntity_Tetra] = nbVols;
3655   }
3656   SMESH_subMesh *sm = aMesh.GetSubMesh(aShape);
3657   aResMap.insert(std::make_pair(sm,aVec));
3658
3659   return true;
3660 }
3661
3662 //================================================================================
3663 /*!
3664  * \brief Find TopoDS_Shape for each hyper-patch study entry in a hypothesis
3665  */
3666 //================================================================================
3667
3668 void BLSURFPlugin_BLSURF::FillEntryToShape( const BLSURFPlugin_Hypothesis*          hyp,
3669                                             std::map< std::string, TopoDS_Shape > & entryToShape )
3670 {
3671   SMESH_Gen_i* smeshGen = SMESH_Gen_i::GetSMESHGen();
3672   for ( const ::BLSURFPlugin_Hypothesis::THyperPatchEntries& entries : hyp->GetHyperPatchEntries() )
3673     for ( const std::string& entry : entries )
3674     {
3675       GEOM::GEOM_Object_var go = smeshGen->GetGeomObjectByEntry( entry );
3676       TopoDS_Shape       shape = smeshGen->GeomObjectToShape( go );
3677       if ( !shape.IsNull() )
3678         entryToShape.insert({ entry, shape });
3679     }
3680 }