src/Controls/SMESH_Controls.cxx

   1 //  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   2 //  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   3 //
   4 //  This library is free software; you can redistribute it and/or
   5 //  modify it under the terms of the GNU Lesser General Public
   6 //  License as published by the Free Software Foundation; either
   7 //  version 2.1 of the License.
   8 //
   9 //  This library is distributed in the hope that it will be useful,
  10 //  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 //  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 //  Lesser General Public License for more details.
  13 //
  14 //  You should have received a copy of the GNU Lesser General Public
  15 //  License along with this library; if not, write to the Free Software
  16 //  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  17 //
  18 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  19
  20 #include "SMESH_ControlsDef.hxx"
  21
  22 #include <set>
  23
  24 #include <BRep_Tool.hxx>
  25 #include <gp_Ax3.hxx>
  26 #include <gp_Cylinder.hxx>
  27 #include <gp_Dir.hxx>
  28 #include <gp_Pnt.hxx>
  29 #include <gp_Pln.hxx>
  30 #include <gp_Vec.hxx>
  31 #include <gp_XYZ.hxx>
  32 #include <Geom_Plane.hxx>
  33 #include <Geom_CylindricalSurface.hxx>
  34 #include <Precision.hxx>
  35 #include <TColgp_Array1OfXYZ.hxx>
  36 #include <TColStd_MapOfInteger.hxx>
  37 #include <TColStd_SequenceOfAsciiString.hxx>
  38 #include <TColStd_MapIteratorOfMapOfInteger.hxx>
  39 #include <TopAbs.hxx>
  40 #include <TopoDS.hxx>
  41 #include <TopoDS_Face.hxx>
  42 #include <TopoDS_Shape.hxx>
  43
  44 #include "SMDS_Mesh.hxx"
  45 #include "SMDS_Iterator.hxx"
  46 #include "SMDS_MeshElement.hxx"
  47 #include "SMDS_MeshNode.hxx"
  48 #include "SMDS_VolumeTool.hxx"
  49 #include "SMDS_QuadraticFaceOfNodes.hxx"
  50 #include "SMDS_QuadraticEdge.hxx"
  51
  52
  53 /*
  54                             AUXILIARY METHODS
  55 */
  56
  57 namespace{
  58   inline double getAngle( const gp_XYZ& P1, const gp_XYZ& P2, const gp_XYZ& P3 )
  59   {
  60     gp_Vec v1( P1 - P2 ), v2( P3 - P2 );
  61
  62     return v1.Magnitude() < gp::Resolution() ||
  63       v2.Magnitude() < gp::Resolution() ? 0 : v1.Angle( v2 );
  64   }
  65
  66   inline double getArea( const gp_XYZ& P1, const gp_XYZ& P2, const gp_XYZ& P3 )
  67   {
  68     gp_Vec aVec1( P2 - P1 );
  69     gp_Vec aVec2( P3 - P1 );
  70     return ( aVec1 ^ aVec2 ).Magnitude() * 0.5;
  71   }
  72
  73   inline double getArea( const gp_Pnt& P1, const gp_Pnt& P2, const gp_Pnt& P3 )
  74   {
  75     return getArea( P1.XYZ(), P2.XYZ(), P3.XYZ() );
  76   }
  77
  78
  79
  80   inline double getDistance( const gp_XYZ& P1, const gp_XYZ& P2 )
  81   {
  82     double aDist = gp_Pnt( P1 ).Distance( gp_Pnt( P2 ) );
  83     return aDist;
  84   }
  85
  86   int getNbMultiConnection( const SMDS_Mesh* theMesh, const int theId )
  87   {
  88     if ( theMesh == 0 )
  89       return 0;
  90
  91     const SMDS_MeshElement* anEdge = theMesh->FindElement( theId );
  92     if ( anEdge == 0 || anEdge->GetType() != SMDSAbs_Edge/* || anEdge->NbNodes() != 2 */)
  93       return 0;
  94
  95     // for each pair of nodes in anEdge (there are 2 pairs in a quadratic edge)
  96     // count elements containing both nodes of the pair.
  97     // Note that there may be such cases for a quadratic edge (a horizontal line):
  98     //
  99     //  Case 1          Case 2
 100     //  |     |      |        |      |
 101     //  |     |      |        |      |
 102     //  +-----+------+  +-----+------+
 103     //  |            |  |            |
 104     //  |            |  |            |
 105     // result sould be 2 in both cases
 106     //
 107     int aResult0 = 0, aResult1 = 0;
 108      // last node, it is a medium one in a quadratic edge
 109     const SMDS_MeshNode* aLastNode = anEdge->GetNode( anEdge->NbNodes() - 1 );
 110     const SMDS_MeshNode* aNode0 = anEdge->GetNode( 0 );
 111     const SMDS_MeshNode* aNode1 = anEdge->GetNode( 1 );
 112     if ( aNode1 == aLastNode ) aNode1 = 0;
 113
 114     SMDS_ElemIteratorPtr anElemIter = aLastNode->GetInverseElementIterator();
 115     while( anElemIter->more() ) {
 116       const SMDS_MeshElement* anElem = anElemIter->next();
 117       if ( anElem != 0 && anElem->GetType() != SMDSAbs_Edge ) {
 118         SMDS_ElemIteratorPtr anIter = anElem->nodesIterator();
 119         while ( anIter->more() ) {
 120           if ( const SMDS_MeshElement* anElemNode = anIter->next() ) {
 121             if ( anElemNode == aNode0 ) {
 122               aResult0++;
 123               if ( !aNode1 ) break; // not a quadratic edge
 124             }
 125             else if ( anElemNode == aNode1 )
 126               aResult1++;
 127           }
 128         }
 129       }
 130     }
 131     int aResult = max ( aResult0, aResult1 );
 132
 133 //     TColStd_MapOfInteger aMap;
 134
 135 //     SMDS_ElemIteratorPtr anIter = anEdge->nodesIterator();
 136 //     if ( anIter != 0 ) {
 137 //       while( anIter->more() ) {
 138 //      const SMDS_MeshNode* aNode = (SMDS_MeshNode*)anIter->next();
 139 //      if ( aNode == 0 )
 140 //        return 0;
 141 //      SMDS_ElemIteratorPtr anElemIter = aNode->GetInverseElementIterator();
 142 //      while( anElemIter->more() ) {
 143 //        const SMDS_MeshElement* anElem = anElemIter->next();
 144 //        if ( anElem != 0 && anElem->GetType() != SMDSAbs_Edge ) {
 145 //          int anId = anElem->GetID();
 146
 147 //          if ( anIter->more() )              // i.e. first node
 148 //            aMap.Add( anId );
 149 //          else if ( aMap.Contains( anId ) )
 150 //            aResult++;
 151 //        }
 152 //      }
 153 //       }
 154 //     }
 155
 156     return aResult;
 157   }
 158
 159 }
 160
 161
 162
 163 using namespace SMESH::Controls;
 164
 165 /*
 166                                 FUNCTORS
 167 */
 168
 169 /*
 170   Class       : NumericalFunctor
 171   Description : Base class for numerical functors
 172 */
 173 NumericalFunctor::NumericalFunctor():
 174   myMesh(NULL)
 175 {
 176   myPrecision = -1;
 177 }
 178
 179 void NumericalFunctor::SetMesh( const SMDS_Mesh* theMesh )
 180 {
 181   myMesh = theMesh;
 182 }
 183
 184 bool NumericalFunctor::GetPoints(const int theId,
 185                                  TSequenceOfXYZ& theRes ) const
 186 {
 187   theRes.clear();
 188
 189   if ( myMesh == 0 )
 190     return false;
 191
 192   return GetPoints( myMesh->FindElement( theId ), theRes );
 193 }
 194
 195 bool NumericalFunctor::GetPoints(const SMDS_MeshElement* anElem,
 196                                  TSequenceOfXYZ&         theRes )
 197 {
 198   theRes.clear();
 199
 200   if ( anElem == 0)
 201     return false;
 202
 203   theRes.reserve( anElem->NbNodes() );
 204
 205   // Get nodes of the element
 206   SMDS_ElemIteratorPtr anIter;
 207
 208   if ( anElem->IsQuadratic() ) {
 209     switch ( anElem->GetType() ) {
 210     case SMDSAbs_Edge:
 211       anIter = static_cast<const SMDS_QuadraticEdge*>
 212         (anElem)->interlacedNodesElemIterator();
 213       break;
 214     case SMDSAbs_Face:
 215       anIter = static_cast<const SMDS_QuadraticFaceOfNodes*>
 216         (anElem)->interlacedNodesElemIterator();
 217       break;
 218     default:
 219       anIter = anElem->nodesIterator();
 220       //return false;
 221     }
 222   }
 223   else {
 224     anIter = anElem->nodesIterator();
 225   }
 226
 227   if ( anIter ) {
 228     while( anIter->more() ) {
 229       if ( const SMDS_MeshNode* aNode = static_cast<const SMDS_MeshNode*>( anIter->next() ))
 230         theRes.push_back( gp_XYZ( aNode->X(), aNode->Y(), aNode->Z() ) );
 231     }
 232   }
 233
 234   return true;
 235 }
 236
 237 long  NumericalFunctor::GetPrecision() const
 238 {
 239   return myPrecision;
 240 }
 241
 242 void  NumericalFunctor::SetPrecision( const long thePrecision )
 243 {
 244   myPrecision = thePrecision;
 245 }
 246
 247 double NumericalFunctor::GetValue( long theId )
 248 {
 249   myCurrElement = myMesh->FindElement( theId );
 250   TSequenceOfXYZ P;
 251   if ( GetPoints( theId, P ))
 252   {
 253     double aVal = GetValue( P );
 254     if ( myPrecision >= 0 )
 255     {
 256       double prec = pow( 10., (double)( myPrecision ) );
 257       aVal = floor( aVal * prec + 0.5 ) / prec;
 258     }
 259     return aVal;
 260   }
 261
 262   return 0.;
 263 }
 264
 265 //=======================================================================
 266 //function : GetValue
 267 //purpose  :
 268 //=======================================================================
 269
 270 double Volume::GetValue( long theElementId )
 271 {
 272   if ( theElementId && myMesh ) {
 273     SMDS_VolumeTool aVolumeTool;
 274     if ( aVolumeTool.Set( myMesh->FindElement( theElementId )))
 275       return aVolumeTool.GetSize();
 276   }
 277   return 0;
 278 }
 279
 280 //=======================================================================
 281 //function : GetBadRate
 282 //purpose  : meaningless as it is not quality control functor
 283 //=======================================================================
 284
 285 double Volume::GetBadRate( double Value, int /*nbNodes*/ ) const
 286 {
 287   return Value;
 288 }
 289
 290 //=======================================================================
 291 //function : GetType
 292 //purpose  :
 293 //=======================================================================
 294
 295 SMDSAbs_ElementType Volume::GetType() const
 296 {
 297   return SMDSAbs_Volume;
 298 }
 299
 300
 301 /*
 302   Class       : MinimumAngle
 303   Description : Functor for calculation of minimum angle
 304 */
 305
 306 double MinimumAngle::GetValue( const TSequenceOfXYZ& P )
 307 {
 308   double aMin;
 309
 310   if (P.size() <3)
 311     return 0.;
 312
 313   aMin = getAngle(P( P.size() ), P( 1 ), P( 2 ));
 314   aMin = Min(aMin,getAngle(P( P.size()-1 ), P( P.size() ), P( 1 )));
 315
 316   for (int i=2; i<P.size();i++){
 317       double A0 = getAngle( P( i-1 ), P( i ), P( i+1 ) );
 318     aMin = Min(aMin,A0);
 319   }
 320
 321   return aMin * 180.0 / PI;
 322 }
 323
 324 double MinimumAngle::GetBadRate( double Value, int nbNodes ) const
 325 {
 326   //const double aBestAngle = PI / nbNodes;
 327   const double aBestAngle = 180.0 - ( 360.0 / double(nbNodes) );
 328   return ( fabs( aBestAngle - Value ));
 329 }
 330
 331 SMDSAbs_ElementType MinimumAngle::GetType() const
 332 {
 333   return SMDSAbs_Face;
 334 }
 335
 336
 337 /*
 338   Class       : AspectRatio
 339   Description : Functor for calculating aspect ratio
 340 */
 341 double AspectRatio::GetValue( const TSequenceOfXYZ& P )
 342 {
 343   // According to "Mesh quality control" by Nadir Bouhamau referring to
 344   // Pascal Jean Frey and Paul-Louis George. Maillages, applications aux elements finis.
 345   // Hermes Science publications, Paris 1999 ISBN 2-7462-0024-4
 346   // PAL10872
 347
 348   int nbNodes = P.size();
 349
 350   if ( nbNodes < 3 )
 351     return 0;
 352
 353   // Compute aspect ratio
 354
 355   if ( nbNodes == 3 ) {
 356     // Compute lengths of the sides
 357     vector< double > aLen (nbNodes);
 358     for ( int i = 0; i < nbNodes - 1; i++ )
 359       aLen[ i ] = getDistance( P( i + 1 ), P( i + 2 ) );
 360     aLen[ nbNodes - 1 ] = getDistance( P( 1 ), P( nbNodes ) );
 361     // Q = alfa * h * p / S, where
 362     //
 363     // alfa = sqrt( 3 ) / 6
 364     // h - length of the longest edge
 365     // p - half perimeter
 366     // S - triangle surface
 367     const double alfa = sqrt( 3. ) / 6.;
 368     double maxLen = Max( aLen[ 0 ], Max( aLen[ 1 ], aLen[ 2 ] ) );
 369     double half_perimeter = ( aLen[0] + aLen[1] + aLen[2] ) / 2.;
 370     double anArea = getArea( P( 1 ), P( 2 ), P( 3 ) );
 371     if ( anArea <= Precision::Confusion() )
 372       return 0.;
 373     return alfa * maxLen * half_perimeter / anArea;
 374   }
 375   else if ( nbNodes == 6 ) { // quadratic triangles
 376     // Compute lengths of the sides
 377     vector< double > aLen (3);
 378     aLen[0] = getDistance( P(1), P(3) );
 379     aLen[1] = getDistance( P(3), P(5) );
 380     aLen[2] = getDistance( P(5), P(1) );
 381     // Q = alfa * h * p / S, where
 382     //
 383     // alfa = sqrt( 3 ) / 6
 384     // h - length of the longest edge
 385     // p - half perimeter
 386     // S - triangle surface
 387     const double alfa = sqrt( 3. ) / 6.;
 388     double maxLen = Max( aLen[ 0 ], Max( aLen[ 1 ], aLen[ 2 ] ) );
 389     double half_perimeter = ( aLen[0] + aLen[1] + aLen[2] ) / 2.;
 390     double anArea = getArea( P(1), P(3), P(5) );
 391     if ( anArea <= Precision::Confusion() )
 392       return 0.;
 393     return alfa * maxLen * half_perimeter / anArea;
 394   }
 395   else if( nbNodes == 4 ) { // quadrangle
 396     // return aspect ratio of the worst triange which can be built
 397     // taking three nodes of the quadrangle
 398     TSequenceOfXYZ triaPnts(3);
 399     // triangle on nodes 1 3 2
 400     triaPnts(1) = P(1);
 401     triaPnts(2) = P(3);
 402     triaPnts(3) = P(2);
 403     double ar = GetValue( triaPnts );
 404     // triangle on nodes 1 3 4
 405     triaPnts(3) = P(4);
 406     ar = Max ( ar, GetValue( triaPnts ));
 407     // triangle on nodes 1 2 4
 408     triaPnts(2) = P(2);
 409     ar = Max ( ar, GetValue( triaPnts ));
 410     // triangle on nodes 3 2 4
 411     triaPnts(1) = P(3);
 412     ar = Max ( ar, GetValue( triaPnts ));
 413
 414     return ar;
 415   }
 416   else { // nbNodes==8 - quadratic quadrangle
 417     // return aspect ratio of the worst triange which can be built
 418     // taking three nodes of the quadrangle
 419     TSequenceOfXYZ triaPnts(3);
 420     // triangle on nodes 1 3 2
 421     triaPnts(1) = P(1);
 422     triaPnts(2) = P(5);
 423     triaPnts(3) = P(3);
 424     double ar = GetValue( triaPnts );
 425     // triangle on nodes 1 3 4
 426     triaPnts(3) = P(7);
 427     ar = Max ( ar, GetValue( triaPnts ));
 428     // triangle on nodes 1 2 4
 429     triaPnts(2) = P(3);
 430     ar = Max ( ar, GetValue( triaPnts ));
 431     // triangle on nodes 3 2 4
 432     triaPnts(1) = P(5);
 433     ar = Max ( ar, GetValue( triaPnts ));
 434
 435     return ar;
 436   }
 437 }
 438
 439 double AspectRatio::GetBadRate( double Value, int /*nbNodes*/ ) const
 440 {
 441   // the aspect ratio is in the range [1.0,infinity]
 442   // 1.0 = good
 443   // infinity = bad
 444   return Value / 1000.;
 445 }
 446
 447 SMDSAbs_ElementType AspectRatio::GetType() const
 448 {
 449   return SMDSAbs_Face;
 450 }
 451
 452
 453 /*
 454   Class       : AspectRatio3D
 455   Description : Functor for calculating aspect ratio
 456 */
 457 namespace{
 458
 459   inline double getHalfPerimeter(double theTria[3]){
 460     return (theTria[0] + theTria[1] + theTria[2])/2.0;
 461   }
 462
 463   inline double getArea(double theHalfPerim, double theTria[3]){
 464     return sqrt(theHalfPerim*
 465                 (theHalfPerim-theTria[0])*
 466                 (theHalfPerim-theTria[1])*
 467                 (theHalfPerim-theTria[2]));
 468   }
 469
 470   inline double getVolume(double theLen[6]){
 471     double a2 = theLen[0]*theLen[0];
 472     double b2 = theLen[1]*theLen[1];
 473     double c2 = theLen[2]*theLen[2];
 474     double d2 = theLen[3]*theLen[3];
 475     double e2 = theLen[4]*theLen[4];
 476     double f2 = theLen[5]*theLen[5];
 477     double P = 4.0*a2*b2*d2;
 478     double Q = a2*(b2+d2-e2)-b2*(a2+d2-f2)-d2*(a2+b2-c2);
 479     double R = (b2+d2-e2)*(a2+d2-f2)*(a2+d2-f2);
 480     return sqrt(P-Q+R)/12.0;
 481   }
 482
 483   inline double getVolume2(double theLen[6]){
 484     double a2 = theLen[0]*theLen[0];
 485     double b2 = theLen[1]*theLen[1];
 486     double c2 = theLen[2]*theLen[2];
 487     double d2 = theLen[3]*theLen[3];
 488     double e2 = theLen[4]*theLen[4];
 489     double f2 = theLen[5]*theLen[5];
 490
 491     double P = a2*e2*(b2+c2+d2+f2-a2-e2);
 492     double Q = b2*f2*(a2+c2+d2+e2-b2-f2);
 493     double R = c2*d2*(a2+b2+e2+f2-c2-d2);
 494     double S = a2*b2*d2+b2*c2*e2+a2*c2*f2+d2*e2*f2;
 495
 496     return sqrt(P+Q+R-S)/12.0;
 497   }
 498
 499   inline double getVolume(const TSequenceOfXYZ& P){
 500     gp_Vec aVec1( P( 2 ) - P( 1 ) );
 501     gp_Vec aVec2( P( 3 ) - P( 1 ) );
 502     gp_Vec aVec3( P( 4 ) - P( 1 ) );
 503     gp_Vec anAreaVec( aVec1 ^ aVec2 );
 504     return fabs(aVec3 * anAreaVec) / 6.0;
 505   }
 506
 507   inline double getMaxHeight(double theLen[6])
 508   {
 509     double aHeight = max(theLen[0],theLen[1]);
 510     aHeight = max(aHeight,theLen[2]);
 511     aHeight = max(aHeight,theLen[3]);
 512     aHeight = max(aHeight,theLen[4]);
 513     aHeight = max(aHeight,theLen[5]);
 514     return aHeight;
 515   }
 516
 517 }
 518
 519 double AspectRatio3D::GetValue( const TSequenceOfXYZ& P )
 520 {
 521   double aQuality = 0.0;
 522   if(myCurrElement->IsPoly()) return aQuality;
 523
 524   int nbNodes = P.size();
 525
 526   if(myCurrElement->IsQuadratic()) {
 527     if(nbNodes==10) nbNodes=4; // quadratic tetrahedron
 528     else if(nbNodes==13) nbNodes=5; // quadratic pyramid
 529     else if(nbNodes==15) nbNodes=6; // quadratic pentahedron
 530     else if(nbNodes==20) nbNodes=8; // quadratic hexahedron
 531     else return aQuality;
 532   }
 533
 534   switch(nbNodes){
 535   case 4:{
 536     double aLen[6] = {
 537       getDistance(P( 1 ),P( 2 )), // a
 538       getDistance(P( 2 ),P( 3 )), // b
 539       getDistance(P( 3 ),P( 1 )), // c
 540       getDistance(P( 2 ),P( 4 )), // d
 541       getDistance(P( 3 ),P( 4 )), // e
 542       getDistance(P( 1 ),P( 4 ))  // f
 543     };
 544     double aTria[4][3] = {
 545       {aLen[0],aLen[1],aLen[2]}, // abc
 546       {aLen[0],aLen[3],aLen[5]}, // adf
 547       {aLen[1],aLen[3],aLen[4]}, // bde
 548       {aLen[2],aLen[4],aLen[5]}  // cef
 549     };
 550     double aSumArea = 0.0;
 551     double aHalfPerimeter = getHalfPerimeter(aTria[0]);
 552     double anArea = getArea(aHalfPerimeter,aTria[0]);
 553     aSumArea += anArea;
 554     aHalfPerimeter = getHalfPerimeter(aTria[1]);
 555     anArea = getArea(aHalfPerimeter,aTria[1]);
 556     aSumArea += anArea;
 557     aHalfPerimeter = getHalfPerimeter(aTria[2]);
 558     anArea = getArea(aHalfPerimeter,aTria[2]);
 559     aSumArea += anArea;
 560     aHalfPerimeter = getHalfPerimeter(aTria[3]);
 561     anArea = getArea(aHalfPerimeter,aTria[3]);
 562     aSumArea += anArea;
 563     double aVolume = getVolume(P);
 564     //double aVolume = getVolume(aLen);
 565     double aHeight = getMaxHeight(aLen);
 566     static double aCoeff = sqrt(2.0)/12.0;
 567     if ( aVolume > DBL_MIN )
 568       aQuality = aCoeff*aHeight*aSumArea/aVolume;
 569     break;
 570   }
 571   case 5:{
 572     {
 573       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 3 ),P( 5 )};
 574       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 575     }
 576     {
 577       gp_XYZ aXYZ[4] = {P( 1 ),P( 3 ),P( 4 ),P( 5 )};
 578       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 579     }
 580     {
 581       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 5 )};
 582       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 583     }
 584     {
 585       gp_XYZ aXYZ[4] = {P( 2 ),P( 3 ),P( 4 ),P( 5 )};
 586       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 587     }
 588     break;
 589   }
 590   case 6:{
 591     {
 592       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 6 )};
 593       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 594     }
 595     {
 596       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 3 )};
 597       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 598     }
 599     {
 600       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 6 )};
 601       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 602     }
 603     {
 604       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 3 )};
 605       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 606     }
 607     {
 608       gp_XYZ aXYZ[4] = {P( 2 ),P( 5 ),P( 4 ),P( 6 )};
 609       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 610     }
 611     {
 612       gp_XYZ aXYZ[4] = {P( 2 ),P( 5 ),P( 4 ),P( 3 )};
 613       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 614     }
 615     break;
 616   }
 617   case 8:{
 618     {
 619       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 3 )};
 620       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 621     }
 622     {
 623       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 4 )};
 624       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 625     }
 626     {
 627       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 7 )};
 628       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 629     }
 630     {
 631       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 8 )};
 632       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 633     }
 634     {
 635       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 3 )};
 636       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 637     }
 638     {
 639       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 4 )};
 640       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 641     }
 642     {
 643       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 7 )};
 644       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 645     }
 646     {
 647       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 8 )};
 648       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 649     }
 650     {
 651       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 3 )};
 652       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 653     }
 654     {
 655       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 4 )};
 656       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 657     }
 658     {
 659       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 7 )};
 660       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 661     }
 662     {
 663       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 8 )};
 664       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 665     }
 666     {
 667       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 1 )};
 668       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 669     }
 670     {
 671       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 2 )};
 672       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 673     }
 674     {
 675       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 5 )};
 676       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 677     }
 678     {
 679       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 6 )};
 680       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 681     }
 682     {
 683       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 1 )};
 684       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 685     }
 686     {
 687       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 2 )};
 688       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 689     }
 690     {
 691       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 5 )};
 692       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 693     }
 694     {
 695       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 6 )};
 696       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 697     }
 698     {
 699       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 1 )};
 700       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 701     }
 702     {
 703       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 2 )};
 704       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 705     }
 706     {
 707       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 5 )};
 708       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 709     }
 710     {
 711       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 6 )};
 712       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 713     }
 714     {
 715       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 2 )};
 716       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 717     }
 718     {
 719       gp_XYZ aXYZ[4] = {P( 4 ),P( 5 ),P( 8 ),P( 2 )};
 720       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 721     }
 722     {
 723       gp_XYZ aXYZ[4] = {P( 1 ),P( 4 ),P( 5 ),P( 3 )};
 724       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 725     }
 726     {
 727       gp_XYZ aXYZ[4] = {P( 3 ),P( 6 ),P( 7 ),P( 1 )};
 728       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 729     }
 730     {
 731       gp_XYZ aXYZ[4] = {P( 2 ),P( 3 ),P( 6 ),P( 4 )};
 732       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 733     }
 734     {
 735       gp_XYZ aXYZ[4] = {P( 5 ),P( 6 ),P( 8 ),P( 3 )};
 736       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 737     }
 738     {
 739       gp_XYZ aXYZ[4] = {P( 7 ),P( 8 ),P( 6 ),P( 1 )};
 740       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 741     }
 742     {
 743       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 7 )};
 744       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 745     }
 746     {
 747       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 2 ),P( 5 )};
 748       aQuality = max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
 749     }
 750     break;
 751   }
 752   }
 753   if ( nbNodes > 4 ) {
 754     // avaluate aspect ratio of quadranle faces
 755     AspectRatio aspect2D;
 756     SMDS_VolumeTool::VolumeType type = SMDS_VolumeTool::GetType( nbNodes );
 757     int nbFaces = SMDS_VolumeTool::NbFaces( type );
 758     TSequenceOfXYZ points(4);
 759     for ( int i = 0; i < nbFaces; ++i ) { // loop on faces of a volume
 760       if ( SMDS_VolumeTool::NbFaceNodes( type, i ) != 4 )
 761         continue;
 762       const int* pInd = SMDS_VolumeTool::GetFaceNodesIndices( type, i, true );
 763       for ( int p = 0; p < 4; ++p ) // loop on nodes of a quadranle face
 764         points( p + 1 ) = P( pInd[ p ] + 1 );
 765       aQuality = max( aQuality, aspect2D.GetValue( points ));
 766     }
 767   }
 768   return aQuality;
 769 }
 770
 771 double AspectRatio3D::GetBadRate( double Value, int /*nbNodes*/ ) const
 772 {
 773   // the aspect ratio is in the range [1.0,infinity]
 774   // 1.0 = good
 775   // infinity = bad
 776   return Value / 1000.;
 777 }
 778
 779 SMDSAbs_ElementType AspectRatio3D::GetType() const
 780 {
 781   return SMDSAbs_Volume;
 782 }
 783
 784
 785 /*
 786   Class       : Warping
 787   Description : Functor for calculating warping
 788 */
 789 double Warping::GetValue( const TSequenceOfXYZ& P )
 790 {
 791   if ( P.size() != 4 )
 792     return 0;
 793
 794   gp_XYZ G = ( P( 1 ) + P( 2 ) + P( 3 ) + P( 4 ) ) / 4.;
 795
 796   double A1 = ComputeA( P( 1 ), P( 2 ), P( 3 ), G );
 797   double A2 = ComputeA( P( 2 ), P( 3 ), P( 4 ), G );
 798   double A3 = ComputeA( P( 3 ), P( 4 ), P( 1 ), G );
 799   double A4 = ComputeA( P( 4 ), P( 1 ), P( 2 ), G );
 800
 801   return Max( Max( A1, A2 ), Max( A3, A4 ) );
 802 }
 803
 804 double Warping::ComputeA( const gp_XYZ& thePnt1,
 805                           const gp_XYZ& thePnt2,
 806                           const gp_XYZ& thePnt3,
 807                           const gp_XYZ& theG ) const
 808 {
 809   double aLen1 = gp_Pnt( thePnt1 ).Distance( gp_Pnt( thePnt2 ) );
 810   double aLen2 = gp_Pnt( thePnt2 ).Distance( gp_Pnt( thePnt3 ) );
 811   double L = Min( aLen1, aLen2 ) * 0.5;
 812   if ( L < Precision::Confusion())
 813     return 0.;
 814
 815   gp_XYZ GI = ( thePnt2 + thePnt1 ) / 2. - theG;
 816   gp_XYZ GJ = ( thePnt3 + thePnt2 ) / 2. - theG;
 817   gp_XYZ N  = GI.Crossed( GJ );
 818
 819   if ( N.Modulus() < gp::Resolution() )
 820     return PI / 2;
 821
 822   N.Normalize();
 823
 824   double H = ( thePnt2 - theG ).Dot( N );
 825   return asin( fabs( H / L ) ) * 180. / PI;
 826 }
 827
 828 double Warping::GetBadRate( double Value, int /*nbNodes*/ ) const
 829 {
 830   // the warp is in the range [0.0,PI/2]
 831   // 0.0 = good (no warp)
 832   // PI/2 = bad  (face pliee)
 833   return Value;
 834 }
 835
 836 SMDSAbs_ElementType Warping::GetType() const
 837 {
 838   return SMDSAbs_Face;
 839 }
 840
 841
 842 /*
 843   Class       : Taper
 844   Description : Functor for calculating taper
 845 */
 846 double Taper::GetValue( const TSequenceOfXYZ& P )
 847 {
 848   if ( P.size() != 4 )
 849     return 0.;
 850
 851   // Compute taper
 852   double J1 = getArea( P( 4 ), P( 1 ), P( 2 ) ) / 2.;
 853   double J2 = getArea( P( 3 ), P( 1 ), P( 2 ) ) / 2.;
 854   double J3 = getArea( P( 2 ), P( 3 ), P( 4 ) ) / 2.;
 855   double J4 = getArea( P( 3 ), P( 4 ), P( 1 ) ) / 2.;
 856
 857   double JA = 0.25 * ( J1 + J2 + J3 + J4 );
 858   if ( JA <= Precision::Confusion() )
 859     return 0.;
 860
 861   double T1 = fabs( ( J1 - JA ) / JA );
 862   double T2 = fabs( ( J2 - JA ) / JA );
 863   double T3 = fabs( ( J3 - JA ) / JA );
 864   double T4 = fabs( ( J4 - JA ) / JA );
 865
 866   return Max( Max( T1, T2 ), Max( T3, T4 ) );
 867 }
 868
 869 double Taper::GetBadRate( double Value, int /*nbNodes*/ ) const
 870 {
 871   // the taper is in the range [0.0,1.0]
 872   // 0.0  = good (no taper)
 873   // 1.0 = bad  (les cotes opposes sont allignes)
 874   return Value;
 875 }
 876
 877 SMDSAbs_ElementType Taper::GetType() const
 878 {
 879   return SMDSAbs_Face;
 880 }
 881
 882
 883 /*
 884   Class       : Skew
 885   Description : Functor for calculating skew in degrees
 886 */
 887 static inline double skewAngle( const gp_XYZ& p1, const gp_XYZ& p2, const gp_XYZ& p3 )
 888 {
 889   gp_XYZ p12 = ( p2 + p1 ) / 2.;
 890   gp_XYZ p23 = ( p3 + p2 ) / 2.;
 891   gp_XYZ p31 = ( p3 + p1 ) / 2.;
 892
 893   gp_Vec v1( p31 - p2 ), v2( p12 - p23 );
 894
 895   return v1.Magnitude() < gp::Resolution() || v2.Magnitude() < gp::Resolution() ? 0. : v1.Angle( v2 );
 896 }
 897
 898 double Skew::GetValue( const TSequenceOfXYZ& P )
 899 {
 900   if ( P.size() != 3 && P.size() != 4 )
 901     return 0.;
 902
 903   // Compute skew
 904   static double PI2 = PI / 2.;
 905   if ( P.size() == 3 )
 906   {
 907     double A0 = fabs( PI2 - skewAngle( P( 3 ), P( 1 ), P( 2 ) ) );
 908     double A1 = fabs( PI2 - skewAngle( P( 1 ), P( 2 ), P( 3 ) ) );
 909     double A2 = fabs( PI2 - skewAngle( P( 2 ), P( 3 ), P( 1 ) ) );
 910
 911     return Max( A0, Max( A1, A2 ) ) * 180. / PI;
 912   }
 913   else
 914   {
 915     gp_XYZ p12 = ( P( 1 ) + P( 2 ) ) / 2.;
 916     gp_XYZ p23 = ( P( 2 ) + P( 3 ) ) / 2.;
 917     gp_XYZ p34 = ( P( 3 ) + P( 4 ) ) / 2.;
 918     gp_XYZ p41 = ( P( 4 ) + P( 1 ) ) / 2.;
 919
 920     gp_Vec v1( p34 - p12 ), v2( p23 - p41 );
 921     double A = v1.Magnitude() <= gp::Resolution() || v2.Magnitude() <= gp::Resolution()
 922       ? 0. : fabs( PI2 - v1.Angle( v2 ) );
 923
 924     //BUG SWP12743
 925     if ( A < Precision::Angular() )
 926       return 0.;
 927
 928     return A * 180. / PI;
 929   }
 930 }
 931
 932 double Skew::GetBadRate( double Value, int /*nbNodes*/ ) const
 933 {
 934   // the skew is in the range [0.0,PI/2].
 935   // 0.0 = good
 936   // PI/2 = bad
 937   return Value;
 938 }
 939
 940 SMDSAbs_ElementType Skew::GetType() const
 941 {
 942   return SMDSAbs_Face;
 943 }
 944
 945
 946 /*
 947   Class       : Area
 948   Description : Functor for calculating area
 949 */
 950 double Area::GetValue( const TSequenceOfXYZ& P )
 951 {
 952   gp_Vec aVec1( P(2) - P(1) );
 953   gp_Vec aVec2( P(3) - P(1) );
 954   gp_Vec SumVec = aVec1 ^ aVec2;
 955   for (int i=4; i<=P.size(); i++) {
 956     gp_Vec aVec1( P(i-1) - P(1) );
 957     gp_Vec aVec2( P(i) - P(1) );
 958     gp_Vec tmp = aVec1 ^ aVec2;
 959     SumVec.Add(tmp);
 960   }
 961   return SumVec.Magnitude() * 0.5;
 962 }
 963
 964 double Area::GetBadRate( double Value, int /*nbNodes*/ ) const
 965 {
 966   // meaningless as it is not a quality control functor
 967   return Value;
 968 }
 969
 970 SMDSAbs_ElementType Area::GetType() const
 971 {
 972   return SMDSAbs_Face;
 973 }
 974
 975
 976 /*
 977   Class       : Length
 978   Description : Functor for calculating length off edge
 979 */
 980 double Length::GetValue( const TSequenceOfXYZ& P )
 981 {
 982   switch ( P.size() ) {
 983   case 2:  return getDistance( P( 1 ), P( 2 ) );
 984   case 3:  return getDistance( P( 1 ), P( 2 ) ) + getDistance( P( 2 ), P( 3 ) );
 985   default: return 0.;
 986   }
 987 }
 988
 989 double Length::GetBadRate( double Value, int /*nbNodes*/ ) const
 990 {
 991   // meaningless as it is not quality control functor
 992   return Value;
 993 }
 994
 995 SMDSAbs_ElementType Length::GetType() const
 996 {
 997   return SMDSAbs_Edge;
 998 }
 999
1000 /*
1001   Class       : Length2D
1002   Description : Functor for calculating length of edge
1003 */
1004
1005 double Length2D::GetValue( long theElementId)
1006 {
1007   TSequenceOfXYZ P;
1008
1009   //cout<<"Length2D::GetValue"<<endl;
1010   if (GetPoints(theElementId,P)){
1011     //for(int jj=1; jj<=P.size(); jj++)
1012     //  cout<<"jj="<<jj<<" P("<<P(jj).X()<<","<<P(jj).Y()<<","<<P(jj).Z()<<")"<<endl;
1013
1014     double  aVal;// = GetValue( P );
1015     const SMDS_MeshElement* aElem = myMesh->FindElement( theElementId );
1016     SMDSAbs_ElementType aType = aElem->GetType();
1017
1018     int len = P.size();
1019
1020     switch (aType){
1021     case SMDSAbs_All:
1022     case SMDSAbs_Node:
1023     case SMDSAbs_Edge:
1024       if (len == 2){
1025         aVal = getDistance( P( 1 ), P( 2 ) );
1026         break;
1027       }
1028       else if (len == 3){ // quadratic edge
1029         aVal = getDistance(P( 1 ),P( 3 )) + getDistance(P( 3 ),P( 2 ));
1030         break;
1031       }
1032     case SMDSAbs_Face:
1033       if (len == 3){ // triangles
1034         double L1 = getDistance(P( 1 ),P( 2 ));
1035         double L2 = getDistance(P( 2 ),P( 3 ));
1036         double L3 = getDistance(P( 3 ),P( 1 ));
1037         aVal = Max(L1,Max(L2,L3));
1038         break;
1039       }
1040       else if (len == 4){ // quadrangles
1041         double L1 = getDistance(P( 1 ),P( 2 ));
1042         double L2 = getDistance(P( 2 ),P( 3 ));
1043         double L3 = getDistance(P( 3 ),P( 4 ));
1044         double L4 = getDistance(P( 4 ),P( 1 ));
1045         aVal = Max(Max(L1,L2),Max(L3,L4));
1046         break;
1047       }
1048       if (len == 6){ // quadratic triangles
1049         double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
1050         double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
1051         double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 1 ));
1052         aVal = Max(L1,Max(L2,L3));
1053         //cout<<"L1="<<L1<<" L2="<<L2<<"L3="<<L3<<" aVal="<<aVal<<endl;
1054         break;
1055       }
1056       else if (len == 8){ // quadratic quadrangles
1057         double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
1058         double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
1059         double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 7 ));
1060         double L4 = getDistance(P( 7 ),P( 8 )) + getDistance(P( 8 ),P( 1 ));
1061         aVal = Max(Max(L1,L2),Max(L3,L4));
1062         break;
1063       }
1064     case SMDSAbs_Volume:
1065       if (len == 4){ // tetraidrs
1066         double L1 = getDistance(P( 1 ),P( 2 ));
1067         double L2 = getDistance(P( 2 ),P( 3 ));
1068         double L3 = getDistance(P( 3 ),P( 1 ));
1069         double L4 = getDistance(P( 1 ),P( 4 ));
1070         double L5 = getDistance(P( 2 ),P( 4 ));
1071         double L6 = getDistance(P( 3 ),P( 4 ));
1072         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1073         break;
1074       }
1075       else if (len == 5){ // piramids
1076         double L1 = getDistance(P( 1 ),P( 2 ));
1077         double L2 = getDistance(P( 2 ),P( 3 ));
1078         double L3 = getDistance(P( 3 ),P( 1 ));
1079         double L4 = getDistance(P( 4 ),P( 1 ));
1080         double L5 = getDistance(P( 1 ),P( 5 ));
1081         double L6 = getDistance(P( 2 ),P( 5 ));
1082         double L7 = getDistance(P( 3 ),P( 5 ));
1083         double L8 = getDistance(P( 4 ),P( 5 ));
1084
1085         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1086         aVal = Max(aVal,Max(L7,L8));
1087         break;
1088       }
1089       else if (len == 6){ // pentaidres
1090         double L1 = getDistance(P( 1 ),P( 2 ));
1091         double L2 = getDistance(P( 2 ),P( 3 ));
1092         double L3 = getDistance(P( 3 ),P( 1 ));
1093         double L4 = getDistance(P( 4 ),P( 5 ));
1094         double L5 = getDistance(P( 5 ),P( 6 ));
1095         double L6 = getDistance(P( 6 ),P( 4 ));
1096         double L7 = getDistance(P( 1 ),P( 4 ));
1097         double L8 = getDistance(P( 2 ),P( 5 ));
1098         double L9 = getDistance(P( 3 ),P( 6 ));
1099
1100         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1101         aVal = Max(aVal,Max(Max(L7,L8),L9));
1102         break;
1103       }
1104       else if (len == 8){ // hexaider
1105         double L1 = getDistance(P( 1 ),P( 2 ));
1106         double L2 = getDistance(P( 2 ),P( 3 ));
1107         double L3 = getDistance(P( 3 ),P( 4 ));
1108         double L4 = getDistance(P( 4 ),P( 1 ));
1109         double L5 = getDistance(P( 5 ),P( 6 ));
1110         double L6 = getDistance(P( 6 ),P( 7 ));
1111         double L7 = getDistance(P( 7 ),P( 8 ));
1112         double L8 = getDistance(P( 8 ),P( 5 ));
1113         double L9 = getDistance(P( 1 ),P( 5 ));
1114         double L10= getDistance(P( 2 ),P( 6 ));
1115         double L11= getDistance(P( 3 ),P( 7 ));
1116         double L12= getDistance(P( 4 ),P( 8 ));
1117
1118         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1119         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
1120         aVal = Max(aVal,Max(L11,L12));
1121         break;
1122
1123       }
1124
1125       if (len == 10){ // quadratic tetraidrs
1126         double L1 = getDistance(P( 1 ),P( 5 )) + getDistance(P( 5 ),P( 2 ));
1127         double L2 = getDistance(P( 2 ),P( 6 )) + getDistance(P( 6 ),P( 3 ));
1128         double L3 = getDistance(P( 3 ),P( 7 )) + getDistance(P( 7 ),P( 1 ));
1129         double L4 = getDistance(P( 1 ),P( 8 )) + getDistance(P( 8 ),P( 4 ));
1130         double L5 = getDistance(P( 2 ),P( 9 )) + getDistance(P( 9 ),P( 4 ));
1131         double L6 = getDistance(P( 3 ),P( 10 )) + getDistance(P( 10 ),P( 4 ));
1132         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1133         break;
1134       }
1135       else if (len == 13){ // quadratic piramids
1136         double L1 = getDistance(P( 1 ),P( 6 )) + getDistance(P( 6 ),P( 2 ));
1137         double L2 = getDistance(P( 2 ),P( 7 )) + getDistance(P( 7 ),P( 3 ));
1138         double L3 = getDistance(P( 3 ),P( 8 )) + getDistance(P( 8 ),P( 1 ));
1139         double L4 = getDistance(P( 4 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
1140         double L5 = getDistance(P( 1 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
1141         double L6 = getDistance(P( 2 ),P( 11 )) + getDistance(P( 11 ),P( 5 ));
1142         double L7 = getDistance(P( 3 ),P( 12 )) + getDistance(P( 12 ),P( 5 ));
1143         double L8 = getDistance(P( 4 ),P( 13 )) + getDistance(P( 13 ),P( 5 ));
1144         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1145         aVal = Max(aVal,Max(L7,L8));
1146         break;
1147       }
1148       else if (len == 15){ // quadratic pentaidres
1149         double L1 = getDistance(P( 1 ),P( 7 )) + getDistance(P( 7 ),P( 2 ));
1150         double L2 = getDistance(P( 2 ),P( 8 )) + getDistance(P( 8 ),P( 3 ));
1151         double L3 = getDistance(P( 3 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
1152         double L4 = getDistance(P( 4 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
1153         double L5 = getDistance(P( 5 ),P( 11 )) + getDistance(P( 11 ),P( 6 ));
1154         double L6 = getDistance(P( 6 ),P( 12 )) + getDistance(P( 12 ),P( 4 ));
1155         double L7 = getDistance(P( 1 ),P( 13 )) + getDistance(P( 13 ),P( 4 ));
1156         double L8 = getDistance(P( 2 ),P( 14 )) + getDistance(P( 14 ),P( 5 ));
1157         double L9 = getDistance(P( 3 ),P( 15 )) + getDistance(P( 15 ),P( 6 ));
1158         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1159         aVal = Max(aVal,Max(Max(L7,L8),L9));
1160         break;
1161       }
1162       else if (len == 20){ // quadratic hexaider
1163         double L1 = getDistance(P( 1 ),P( 9 )) + getDistance(P( 9 ),P( 2 ));
1164         double L2 = getDistance(P( 2 ),P( 10 )) + getDistance(P( 10 ),P( 3 ));
1165         double L3 = getDistance(P( 3 ),P( 11 )) + getDistance(P( 11 ),P( 4 ));
1166         double L4 = getDistance(P( 4 ),P( 12 )) + getDistance(P( 12 ),P( 1 ));
1167         double L5 = getDistance(P( 5 ),P( 13 )) + getDistance(P( 13 ),P( 6 ));
1168         double L6 = getDistance(P( 6 ),P( 14 )) + getDistance(P( 14 ),P( 7 ));
1169         double L7 = getDistance(P( 7 ),P( 15 )) + getDistance(P( 15 ),P( 8 ));
1170         double L8 = getDistance(P( 8 ),P( 16 )) + getDistance(P( 16 ),P( 5 ));
1171         double L9 = getDistance(P( 1 ),P( 17 )) + getDistance(P( 17 ),P( 5 ));
1172         double L10= getDistance(P( 2 ),P( 18 )) + getDistance(P( 18 ),P( 6 ));
1173         double L11= getDistance(P( 3 ),P( 19 )) + getDistance(P( 19 ),P( 7 ));
1174         double L12= getDistance(P( 4 ),P( 20 )) + getDistance(P( 20 ),P( 8 ));
1175         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1176         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
1177         aVal = Max(aVal,Max(L11,L12));
1178         break;
1179
1180       }
1181
1182     default: aVal=-1;
1183     }
1184
1185     if (aVal <0){
1186       return 0.;
1187     }
1188
1189     if ( myPrecision >= 0 )
1190     {
1191       double prec = pow( 10., (double)( myPrecision ) );
1192       aVal = floor( aVal * prec + 0.5 ) / prec;
1193     }
1194
1195     return aVal;
1196
1197   }
1198   return 0.;
1199 }
1200
1201 double Length2D::GetBadRate( double Value, int /*nbNodes*/ ) const
1202 {
1203   // meaningless as it is not quality control functor
1204   return Value;
1205 }
1206
1207 SMDSAbs_ElementType Length2D::GetType() const
1208 {
1209   return SMDSAbs_Face;
1210 }
1211
1212 Length2D::Value::Value(double theLength,long thePntId1, long thePntId2):
1213   myLength(theLength)
1214 {
1215   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
1216   if(thePntId1 > thePntId2){
1217     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
1218   }
1219 }
1220
1221 bool Length2D::Value::operator<(const Length2D::Value& x) const{
1222   if(myPntId[0] < x.myPntId[0]) return true;
1223   if(myPntId[0] == x.myPntId[0])
1224     if(myPntId[1] < x.myPntId[1]) return true;
1225   return false;
1226 }
1227
1228 void Length2D::GetValues(TValues& theValues){
1229   TValues aValues;
1230   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
1231   for(; anIter->more(); ){
1232     const SMDS_MeshFace* anElem = anIter->next();
1233
1234     if(anElem->IsQuadratic()) {
1235       const SMDS_QuadraticFaceOfNodes* F =
1236         static_cast<const SMDS_QuadraticFaceOfNodes*>(anElem);
1237       // use special nodes iterator
1238       SMDS_NodeIteratorPtr anIter = F->interlacedNodesIterator();
1239       long aNodeId[4];
1240       gp_Pnt P[4];
1241
1242       double aLength;
1243       const SMDS_MeshElement* aNode;
1244       if(anIter->more()){
1245         aNode = anIter->next();
1246         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1247         P[0] = P[1] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1248         aNodeId[0] = aNodeId[1] = aNode->GetID();
1249         aLength = 0;
1250       }
1251       for(; anIter->more(); ){
1252         const SMDS_MeshNode* N1 = static_cast<const SMDS_MeshNode*> (anIter->next());
1253         P[2] = gp_Pnt(N1->X(),N1->Y(),N1->Z());
1254         aNodeId[2] = N1->GetID();
1255         aLength = P[1].Distance(P[2]);
1256         if(!anIter->more()) break;
1257         const SMDS_MeshNode* N2 = static_cast<const SMDS_MeshNode*> (anIter->next());
1258         P[3] = gp_Pnt(N2->X(),N2->Y(),N2->Z());
1259         aNodeId[3] = N2->GetID();
1260         aLength += P[2].Distance(P[3]);
1261         Value aValue1(aLength,aNodeId[1],aNodeId[2]);
1262         Value aValue2(aLength,aNodeId[2],aNodeId[3]);
1263         P[1] = P[3];
1264         aNodeId[1] = aNodeId[3];
1265         theValues.insert(aValue1);
1266         theValues.insert(aValue2);
1267       }
1268       aLength += P[2].Distance(P[0]);
1269       Value aValue1(aLength,aNodeId[1],aNodeId[2]);
1270       Value aValue2(aLength,aNodeId[2],aNodeId[0]);
1271       theValues.insert(aValue1);
1272       theValues.insert(aValue2);
1273     }
1274     else {
1275       SMDS_ElemIteratorPtr aNodesIter = anElem->nodesIterator();
1276       long aNodeId[2];
1277       gp_Pnt P[3];
1278
1279       double aLength;
1280       const SMDS_MeshElement* aNode;
1281       if(aNodesIter->more()){
1282         aNode = aNodesIter->next();
1283         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1284         P[0] = P[1] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1285         aNodeId[0] = aNodeId[1] = aNode->GetID();
1286         aLength = 0;
1287       }
1288       for(; aNodesIter->more(); ){
1289         aNode = aNodesIter->next();
1290         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1291         long anId = aNode->GetID();
1292
1293         P[2] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1294
1295         aLength = P[1].Distance(P[2]);
1296
1297         Value aValue(aLength,aNodeId[1],anId);
1298         aNodeId[1] = anId;
1299         P[1] = P[2];
1300         theValues.insert(aValue);
1301       }
1302
1303       aLength = P[0].Distance(P[1]);
1304
1305       Value aValue(aLength,aNodeId[0],aNodeId[1]);
1306       theValues.insert(aValue);
1307     }
1308   }
1309 }
1310
1311 /*
1312   Class       : MultiConnection
1313   Description : Functor for calculating number of faces conneted to the edge
1314 */
1315 double MultiConnection::GetValue( const TSequenceOfXYZ& P )
1316 {
1317   return 0;
1318 }
1319 double MultiConnection::GetValue( long theId )
1320 {
1321   return getNbMultiConnection( myMesh, theId );
1322 }
1323
1324 double MultiConnection::GetBadRate( double Value, int /*nbNodes*/ ) const
1325 {
1326   // meaningless as it is not quality control functor
1327   return Value;
1328 }
1329
1330 SMDSAbs_ElementType MultiConnection::GetType() const
1331 {
1332   return SMDSAbs_Edge;
1333 }
1334
1335 /*
1336   Class       : MultiConnection2D
1337   Description : Functor for calculating number of faces conneted to the edge
1338 */
1339 double MultiConnection2D::GetValue( const TSequenceOfXYZ& P )
1340 {
1341   return 0;
1342 }
1343
1344 double MultiConnection2D::GetValue( long theElementId )
1345 {
1346   int aResult = 0;
1347
1348   const SMDS_MeshElement* aFaceElem = myMesh->FindElement(theElementId);
1349   SMDSAbs_ElementType aType = aFaceElem->GetType();
1350
1351   switch (aType) {
1352   case SMDSAbs_Face:
1353     {
1354       int i = 0, len = aFaceElem->NbNodes();
1355       SMDS_ElemIteratorPtr anIter = aFaceElem->nodesIterator();
1356       if (!anIter) break;
1357
1358       const SMDS_MeshNode *aNode, *aNode0;
1359       TColStd_MapOfInteger aMap, aMapPrev;
1360
1361       for (i = 0; i <= len; i++) {
1362         aMapPrev = aMap;
1363         aMap.Clear();
1364
1365         int aNb = 0;
1366         if (anIter->more()) {
1367           aNode = (SMDS_MeshNode*)anIter->next();
1368         } else {
1369           if (i == len)
1370             aNode = aNode0;
1371           else
1372             break;
1373         }
1374         if (!aNode) break;
1375         if (i == 0) aNode0 = aNode;
1376
1377         SMDS_ElemIteratorPtr anElemIter = aNode->GetInverseElementIterator();
1378         while (anElemIter->more()) {
1379           const SMDS_MeshElement* anElem = anElemIter->next();
1380           if (anElem != 0 && anElem->GetType() == SMDSAbs_Face) {
1381             int anId = anElem->GetID();
1382
1383             aMap.Add(anId);
1384             if (aMapPrev.Contains(anId)) {
1385               aNb++;
1386             }
1387           }
1388         }
1389         aResult = Max(aResult, aNb);
1390       }
1391     }
1392     break;
1393   default:
1394     aResult = 0;
1395   }
1396
1397   return aResult;
1398 }
1399
1400 double MultiConnection2D::GetBadRate( double Value, int /*nbNodes*/ ) const
1401 {
1402   // meaningless as it is not quality control functor
1403   return Value;
1404 }
1405
1406 SMDSAbs_ElementType MultiConnection2D::GetType() const
1407 {
1408   return SMDSAbs_Face;
1409 }
1410
1411 MultiConnection2D::Value::Value(long thePntId1, long thePntId2)
1412 {
1413   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
1414   if(thePntId1 > thePntId2){
1415     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
1416   }
1417 }
1418
1419 bool MultiConnection2D::Value::operator<(const MultiConnection2D::Value& x) const{
1420   if(myPntId[0] < x.myPntId[0]) return true;
1421   if(myPntId[0] == x.myPntId[0])
1422     if(myPntId[1] < x.myPntId[1]) return true;
1423   return false;
1424 }
1425
1426 void MultiConnection2D::GetValues(MValues& theValues){
1427   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
1428   for(; anIter->more(); ){
1429     const SMDS_MeshFace* anElem = anIter->next();
1430     SMDS_ElemIteratorPtr aNodesIter;
1431     if ( anElem->IsQuadratic() )
1432       aNodesIter = static_cast<const SMDS_QuadraticFaceOfNodes*>
1433         (anElem)->interlacedNodesElemIterator();
1434     else
1435       aNodesIter = anElem->nodesIterator();
1436     long aNodeId[3];
1437
1438     //int aNbConnects=0;
1439     const SMDS_MeshNode* aNode0;
1440     const SMDS_MeshNode* aNode1;
1441     const SMDS_MeshNode* aNode2;
1442     if(aNodesIter->more()){
1443       aNode0 = (SMDS_MeshNode*) aNodesIter->next();
1444       aNode1 = aNode0;
1445       const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode1;
1446       aNodeId[0] = aNodeId[1] = aNodes->GetID();
1447     }
1448     for(; aNodesIter->more(); ) {
1449       aNode2 = (SMDS_MeshNode*) aNodesIter->next();
1450       long anId = aNode2->GetID();
1451       aNodeId[2] = anId;
1452
1453       Value aValue(aNodeId[1],aNodeId[2]);
1454       MValues::iterator aItr = theValues.find(aValue);
1455       if (aItr != theValues.end()){
1456         aItr->second += 1;
1457         //aNbConnects = nb;
1458       }
1459       else {
1460         theValues[aValue] = 1;
1461         //aNbConnects = 1;
1462       }
1463       //cout << "NodeIds: "<<aNodeId[1]<<","<<aNodeId[2]<<" nbconn="<<aNbConnects<<endl;
1464       aNodeId[1] = aNodeId[2];
1465       aNode1 = aNode2;
1466     }
1467     Value aValue(aNodeId[0],aNodeId[2]);
1468     MValues::iterator aItr = theValues.find(aValue);
1469     if (aItr != theValues.end()) {
1470       aItr->second += 1;
1471       //aNbConnects = nb;
1472     }
1473     else {
1474       theValues[aValue] = 1;
1475       //aNbConnects = 1;
1476     }
1477     //cout << "NodeIds: "<<aNodeId[0]<<","<<aNodeId[2]<<" nbconn="<<aNbConnects<<endl;
1478   }
1479
1480 }
1481
1482 /*
1483                             PREDICATES
1484 */
1485
1486 /*
1487   Class       : BadOrientedVolume
1488   Description : Predicate bad oriented volumes
1489 */
1490
1491 BadOrientedVolume::BadOrientedVolume()
1492 {
1493   myMesh = 0;
1494 }
1495
1496 void BadOrientedVolume::SetMesh( const SMDS_Mesh* theMesh )
1497 {
1498   myMesh = theMesh;
1499 }
1500
1501 bool BadOrientedVolume::IsSatisfy( long theId )
1502 {
1503   if ( myMesh == 0 )
1504     return false;
1505
1506   SMDS_VolumeTool vTool( myMesh->FindElement( theId ));
1507   return !vTool.IsForward();
1508 }
1509
1510 SMDSAbs_ElementType BadOrientedVolume::GetType() const
1511 {
1512   return SMDSAbs_Volume;
1513 }
1514
1515
1516
1517 /*
1518   Class       : FreeBorders
1519   Description : Predicate for free borders
1520 */
1521
1522 FreeBorders::FreeBorders()
1523 {
1524   myMesh = 0;
1525 }
1526
1527 void FreeBorders::SetMesh( const SMDS_Mesh* theMesh )
1528 {
1529   myMesh = theMesh;
1530 }
1531
1532 bool FreeBorders::IsSatisfy( long theId )
1533 {
1534   return getNbMultiConnection( myMesh, theId ) == 1;
1535 }
1536
1537 SMDSAbs_ElementType FreeBorders::GetType() const
1538 {
1539   return SMDSAbs_Edge;
1540 }
1541
1542
1543 /*
1544   Class       : FreeEdges
1545   Description : Predicate for free Edges
1546 */
1547 FreeEdges::FreeEdges()
1548 {
1549   myMesh = 0;
1550 }
1551
1552 void FreeEdges::SetMesh( const SMDS_Mesh* theMesh )
1553 {
1554   myMesh = theMesh;
1555 }
1556
1557 bool FreeEdges::IsFreeEdge( const SMDS_MeshNode** theNodes, const int theFaceId  )
1558 {
1559   TColStd_MapOfInteger aMap;
1560   for ( int i = 0; i < 2; i++ )
1561   {
1562     SMDS_ElemIteratorPtr anElemIter = theNodes[ i ]->GetInverseElementIterator();
1563     while( anElemIter->more() )
1564     {
1565       const SMDS_MeshElement* anElem = anElemIter->next();
1566       if ( anElem != 0 && anElem->GetType() == SMDSAbs_Face )
1567       {
1568         int anId = anElem->GetID();
1569
1570         if ( i == 0 )
1571           aMap.Add( anId );
1572         else if ( aMap.Contains( anId ) && anId != theFaceId )
1573           return false;
1574       }
1575     }
1576   }
1577   return true;
1578 }
1579
1580 bool FreeEdges::IsSatisfy( long theId )
1581 {
1582   if ( myMesh == 0 )
1583     return false;
1584
1585   const SMDS_MeshElement* aFace = myMesh->FindElement( theId );
1586   if ( aFace == 0 || aFace->GetType() != SMDSAbs_Face || aFace->NbNodes() < 3 )
1587     return false;
1588
1589   SMDS_ElemIteratorPtr anIter;
1590   if ( aFace->IsQuadratic() ) {
1591     anIter = static_cast<const SMDS_QuadraticFaceOfNodes*>
1592       (aFace)->interlacedNodesElemIterator();
1593   }
1594   else {
1595     anIter = aFace->nodesIterator();
1596   }
1597   if ( anIter == 0 )
1598     return false;
1599
1600   int i = 0, nbNodes = aFace->NbNodes();
1601   vector <const SMDS_MeshNode*> aNodes( nbNodes+1 );
1602   while( anIter->more() )
1603   {
1604     const SMDS_MeshNode* aNode = (SMDS_MeshNode*)anIter->next();
1605     if ( aNode == 0 )
1606       return false;
1607     aNodes[ i++ ] = aNode;
1608   }
1609   aNodes[ nbNodes ] = aNodes[ 0 ];
1610
1611   for ( i = 0; i < nbNodes; i++ )
1612     if ( IsFreeEdge( &aNodes[ i ], theId ) )
1613       return true;
1614
1615   return false;
1616 }
1617
1618 SMDSAbs_ElementType FreeEdges::GetType() const
1619 {
1620   return SMDSAbs_Face;
1621 }
1622
1623 FreeEdges::Border::Border(long theElemId, long thePntId1, long thePntId2):
1624   myElemId(theElemId)
1625 {
1626   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
1627   if(thePntId1 > thePntId2){
1628     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
1629   }
1630 }
1631
1632 bool FreeEdges::Border::operator<(const FreeEdges::Border& x) const{
1633   if(myPntId[0] < x.myPntId[0]) return true;
1634   if(myPntId[0] == x.myPntId[0])
1635     if(myPntId[1] < x.myPntId[1]) return true;
1636   return false;
1637 }
1638
1639 inline void UpdateBorders(const FreeEdges::Border& theBorder,
1640                           FreeEdges::TBorders& theRegistry,
1641                           FreeEdges::TBorders& theContainer)
1642 {
1643   if(theRegistry.find(theBorder) == theRegistry.end()){
1644     theRegistry.insert(theBorder);
1645     theContainer.insert(theBorder);
1646   }else{
1647     theContainer.erase(theBorder);
1648   }
1649 }
1650
1651 void FreeEdges::GetBoreders(TBorders& theBorders)
1652 {
1653   TBorders aRegistry;
1654   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
1655   for(; anIter->more(); ){
1656     const SMDS_MeshFace* anElem = anIter->next();
1657     long anElemId = anElem->GetID();
1658     SMDS_ElemIteratorPtr aNodesIter;
1659     if ( anElem->IsQuadratic() )
1660       aNodesIter = static_cast<const SMDS_QuadraticFaceOfNodes*>(anElem)->
1661         interlacedNodesElemIterator();
1662     else
1663       aNodesIter = anElem->nodesIterator();
1664     long aNodeId[2];
1665     const SMDS_MeshElement* aNode;
1666     if(aNodesIter->more()){
1667       aNode = aNodesIter->next();
1668       aNodeId[0] = aNodeId[1] = aNode->GetID();
1669     }
1670     for(; aNodesIter->more(); ){
1671       aNode = aNodesIter->next();
1672       long anId = aNode->GetID();
1673       Border aBorder(anElemId,aNodeId[1],anId);
1674       aNodeId[1] = anId;
1675       //std::cout<<aBorder.myPntId[0]<<"; "<<aBorder.myPntId[1]<<"; "<<aBorder.myElemId<<endl;
1676       UpdateBorders(aBorder,aRegistry,theBorders);
1677     }
1678     Border aBorder(anElemId,aNodeId[0],aNodeId[1]);
1679     //std::cout<<aBorder.myPntId[0]<<"; "<<aBorder.myPntId[1]<<"; "<<aBorder.myElemId<<endl;
1680     UpdateBorders(aBorder,aRegistry,theBorders);
1681   }
1682   //std::cout<<"theBorders.size() = "<<theBorders.size()<<endl;
1683 }
1684
1685 /*
1686   Class       : RangeOfIds
1687   Description : Predicate for Range of Ids.
1688                 Range may be specified with two ways.
1689                 1. Using AddToRange method
1690                 2. With SetRangeStr method. Parameter of this method is a string
1691                    like as "1,2,3,50-60,63,67,70-"
1692 */
1693
1694 //=======================================================================
1695 // name    : RangeOfIds
1696 // Purpose : Constructor
1697 //=======================================================================
1698 RangeOfIds::RangeOfIds()
1699 {
1700   myMesh = 0;
1701   myType = SMDSAbs_All;
1702 }
1703
1704 //=======================================================================
1705 // name    : SetMesh
1706 // Purpose : Set mesh
1707 //=======================================================================
1708 void RangeOfIds::SetMesh( const SMDS_Mesh* theMesh )
1709 {
1710   myMesh = theMesh;
1711 }
1712
1713 //=======================================================================
1714 // name    : AddToRange
1715 // Purpose : Add ID to the range
1716 //=======================================================================
1717 bool RangeOfIds::AddToRange( long theEntityId )
1718 {
1719   myIds.Add( theEntityId );
1720   return true;
1721 }
1722
1723 //=======================================================================
1724 // name    : GetRangeStr
1725 // Purpose : Get range as a string.
1726 //           Example: "1,2,3,50-60,63,67,70-"
1727 //=======================================================================
1728 void RangeOfIds::GetRangeStr( TCollection_AsciiString& theResStr )
1729 {
1730   theResStr.Clear();
1731
1732   TColStd_SequenceOfInteger     anIntSeq;
1733   TColStd_SequenceOfAsciiString aStrSeq;
1734
1735   TColStd_MapIteratorOfMapOfInteger anIter( myIds );
1736   for ( ; anIter.More(); anIter.Next() )
1737   {
1738     int anId = anIter.Key();
1739     TCollection_AsciiString aStr( anId );
1740     anIntSeq.Append( anId );
1741     aStrSeq.Append( aStr );
1742   }
1743
1744   for ( int i = 1, n = myMin.Length(); i <= n; i++ )
1745   {
1746     int aMinId = myMin( i );
1747     int aMaxId = myMax( i );
1748
1749     TCollection_AsciiString aStr;
1750     if ( aMinId != IntegerFirst() )
1751       aStr += aMinId;
1752
1753     aStr += "-";
1754
1755     if ( aMaxId != IntegerLast() )
1756       aStr += aMaxId;
1757
1758     // find position of the string in result sequence and insert string in it
1759     if ( anIntSeq.Length() == 0 )
1760     {
1761       anIntSeq.Append( aMinId );
1762       aStrSeq.Append( aStr );
1763     }
1764     else
1765     {
1766       if ( aMinId < anIntSeq.First() )
1767       {
1768         anIntSeq.Prepend( aMinId );
1769         aStrSeq.Prepend( aStr );
1770       }
1771       else if ( aMinId > anIntSeq.Last() )
1772       {
1773         anIntSeq.Append( aMinId );
1774         aStrSeq.Append( aStr );
1775       }
1776       else
1777         for ( int j = 1, k = anIntSeq.Length(); j <= k; j++ )
1778           if ( aMinId < anIntSeq( j ) )
1779           {
1780             anIntSeq.InsertBefore( j, aMinId );
1781             aStrSeq.InsertBefore( j, aStr );
1782             break;
1783           }
1784     }
1785   }
1786
1787   if ( aStrSeq.Length() == 0 )
1788     return;
1789
1790   theResStr = aStrSeq( 1 );
1791   for ( int j = 2, k = aStrSeq.Length(); j <= k; j++  )
1792   {
1793     theResStr += ",";
1794     theResStr += aStrSeq( j );
1795   }
1796 }
1797
1798 //=======================================================================
1799 // name    : SetRangeStr
1800 // Purpose : Define range with string
1801 //           Example of entry string: "1,2,3,50-60,63,67,70-"
1802 //=======================================================================
1803 bool RangeOfIds::SetRangeStr( const TCollection_AsciiString& theStr )
1804 {
1805   myMin.Clear();
1806   myMax.Clear();
1807   myIds.Clear();
1808
1809   TCollection_AsciiString aStr = theStr;
1810   aStr.RemoveAll( ' ' );
1811   aStr.RemoveAll( '\t' );
1812
1813   for ( int aPos = aStr.Search( ",," ); aPos != -1; aPos = aStr.Search( ",," ) )
1814     aStr.Remove( aPos, 2 );
1815
1816   TCollection_AsciiString tmpStr = aStr.Token( ",", 1 );
1817   int i = 1;
1818   while ( tmpStr != "" )
1819   {
1820     tmpStr = aStr.Token( ",", i++ );
1821     int aPos = tmpStr.Search( '-' );
1822
1823     if ( aPos == -1 )
1824     {
1825       if ( tmpStr.IsIntegerValue() )
1826         myIds.Add( tmpStr.IntegerValue() );
1827       else
1828         return false;
1829     }
1830     else
1831     {
1832       TCollection_AsciiString aMaxStr = tmpStr.Split( aPos );
1833       TCollection_AsciiString aMinStr = tmpStr;
1834
1835       while ( aMinStr.Search( "-" ) != -1 ) aMinStr.RemoveAll( '-' );
1836       while ( aMaxStr.Search( "-" ) != -1 ) aMaxStr.RemoveAll( '-' );
1837
1838       if ( !aMinStr.IsEmpty() && !aMinStr.IsIntegerValue() ||
1839            !aMaxStr.IsEmpty() && !aMaxStr.IsIntegerValue() )
1840         return false;
1841
1842       myMin.Append( aMinStr.IsEmpty() ? IntegerFirst() : aMinStr.IntegerValue() );
1843       myMax.Append( aMaxStr.IsEmpty() ? IntegerLast()  : aMaxStr.IntegerValue() );
1844     }
1845   }
1846
1847   return true;
1848 }
1849
1850 //=======================================================================
1851 // name    : GetType
1852 // Purpose : Get type of supported entities
1853 //=======================================================================
1854 SMDSAbs_ElementType RangeOfIds::GetType() const
1855 {
1856   return myType;
1857 }
1858
1859 //=======================================================================
1860 // name    : SetType
1861 // Purpose : Set type of supported entities
1862 //=======================================================================
1863 void RangeOfIds::SetType( SMDSAbs_ElementType theType )
1864 {
1865   myType = theType;
1866 }
1867
1868 //=======================================================================
1869 // name    : IsSatisfy
1870 // Purpose : Verify whether entity satisfies to this rpedicate
1871 //=======================================================================
1872 bool RangeOfIds::IsSatisfy( long theId )
1873 {
1874   if ( !myMesh )
1875     return false;
1876
1877   if ( myType == SMDSAbs_Node )
1878   {
1879     if ( myMesh->FindNode( theId ) == 0 )
1880       return false;
1881   }
1882   else
1883   {
1884     const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
1885     if ( anElem == 0 || myType != anElem->GetType() && myType != SMDSAbs_All )
1886       return false;
1887   }
1888
1889   if ( myIds.Contains( theId ) )
1890     return true;
1891
1892   for ( int i = 1, n = myMin.Length(); i <= n; i++ )
1893     if ( theId >= myMin( i ) && theId <= myMax( i ) )
1894       return true;
1895
1896   return false;
1897 }
1898
1899 /*
1900   Class       : Comparator
1901   Description : Base class for comparators
1902 */
1903 Comparator::Comparator():
1904   myMargin(0)
1905 {}
1906
1907 Comparator::~Comparator()
1908 {}
1909
1910 void Comparator::SetMesh( const SMDS_Mesh* theMesh )
1911 {
1912   if ( myFunctor )
1913     myFunctor->SetMesh( theMesh );
1914 }
1915
1916 void Comparator::SetMargin( double theValue )
1917 {
1918   myMargin = theValue;
1919 }
1920
1921 void Comparator::SetNumFunctor( NumericalFunctorPtr theFunct )
1922 {
1923   myFunctor = theFunct;
1924 }
1925
1926 SMDSAbs_ElementType Comparator::GetType() const
1927 {
1928   return myFunctor ? myFunctor->GetType() : SMDSAbs_All;
1929 }
1930
1931 double Comparator::GetMargin()
1932 {
1933   return myMargin;
1934 }
1935
1936
1937 /*
1938   Class       : LessThan
1939   Description : Comparator "<"
1940 */
1941 bool LessThan::IsSatisfy( long theId )
1942 {
1943   return myFunctor && myFunctor->GetValue( theId ) < myMargin;
1944 }
1945
1946
1947 /*
1948   Class       : MoreThan
1949   Description : Comparator ">"
1950 */
1951 bool MoreThan::IsSatisfy( long theId )
1952 {
1953   return myFunctor && myFunctor->GetValue( theId ) > myMargin;
1954 }
1955
1956
1957 /*
1958   Class       : EqualTo
1959   Description : Comparator "="
1960 */
1961 EqualTo::EqualTo():
1962   myToler(Precision::Confusion())
1963 {}
1964
1965 bool EqualTo::IsSatisfy( long theId )
1966 {
1967   return myFunctor && fabs( myFunctor->GetValue( theId ) - myMargin ) < myToler;
1968 }
1969
1970 void EqualTo::SetTolerance( double theToler )
1971 {
1972   myToler = theToler;
1973 }
1974
1975 double EqualTo::GetTolerance()
1976 {
1977   return myToler;
1978 }
1979
1980 /*
1981   Class       : LogicalNOT
1982   Description : Logical NOT predicate
1983 */
1984 LogicalNOT::LogicalNOT()
1985 {}
1986
1987 LogicalNOT::~LogicalNOT()
1988 {}
1989
1990 bool LogicalNOT::IsSatisfy( long theId )
1991 {
1992   return myPredicate && !myPredicate->IsSatisfy( theId );
1993 }
1994
1995 void LogicalNOT::SetMesh( const SMDS_Mesh* theMesh )
1996 {
1997   if ( myPredicate )
1998     myPredicate->SetMesh( theMesh );
1999 }
2000
2001 void LogicalNOT::SetPredicate( PredicatePtr thePred )
2002 {
2003   myPredicate = thePred;
2004 }
2005
2006 SMDSAbs_ElementType LogicalNOT::GetType() const
2007 {
2008   return myPredicate ? myPredicate->GetType() : SMDSAbs_All;
2009 }
2010
2011
2012 /*
2013   Class       : LogicalBinary
2014   Description : Base class for binary logical predicate
2015 */
2016 LogicalBinary::LogicalBinary()
2017 {}
2018
2019 LogicalBinary::~LogicalBinary()
2020 {}
2021
2022 void LogicalBinary::SetMesh( const SMDS_Mesh* theMesh )
2023 {
2024   if ( myPredicate1 )
2025     myPredicate1->SetMesh( theMesh );
2026
2027   if ( myPredicate2 )
2028     myPredicate2->SetMesh( theMesh );
2029 }
2030
2031 void LogicalBinary::SetPredicate1( PredicatePtr thePredicate )
2032 {
2033   myPredicate1 = thePredicate;
2034 }
2035
2036 void LogicalBinary::SetPredicate2( PredicatePtr thePredicate )
2037 {
2038   myPredicate2 = thePredicate;
2039 }
2040
2041 SMDSAbs_ElementType LogicalBinary::GetType() const
2042 {
2043   if ( !myPredicate1 || !myPredicate2 )
2044     return SMDSAbs_All;
2045
2046   SMDSAbs_ElementType aType1 = myPredicate1->GetType();
2047   SMDSAbs_ElementType aType2 = myPredicate2->GetType();
2048
2049   return aType1 == aType2 ? aType1 : SMDSAbs_All;
2050 }
2051
2052
2053 /*
2054   Class       : LogicalAND
2055   Description : Logical AND
2056 */
2057 bool LogicalAND::IsSatisfy( long theId )
2058 {
2059   return
2060     myPredicate1 &&
2061     myPredicate2 &&
2062     myPredicate1->IsSatisfy( theId ) &&
2063     myPredicate2->IsSatisfy( theId );
2064 }
2065
2066
2067 /*
2068   Class       : LogicalOR
2069   Description : Logical OR
2070 */
2071 bool LogicalOR::IsSatisfy( long theId )
2072 {
2073   return
2074     myPredicate1 &&
2075     myPredicate2 &&
2076     myPredicate1->IsSatisfy( theId ) ||
2077     myPredicate2->IsSatisfy( theId );
2078 }
2079
2080
2081 /*
2082                               FILTER
2083 */
2084
2085 Filter::Filter()
2086 {}
2087
2088 Filter::~Filter()
2089 {}
2090
2091 void Filter::SetPredicate( PredicatePtr thePredicate )
2092 {
2093   myPredicate = thePredicate;
2094 }
2095
2096 template<class TElement, class TIterator, class TPredicate>
2097 inline void FillSequence(const TIterator& theIterator,
2098                          TPredicate& thePredicate,
2099                          Filter::TIdSequence& theSequence)
2100 {
2101   if ( theIterator ) {
2102     while( theIterator->more() ) {
2103       TElement anElem = theIterator->next();
2104       long anId = anElem->GetID();
2105       if ( thePredicate->IsSatisfy( anId ) )
2106         theSequence.push_back( anId );
2107     }
2108   }
2109 }
2110
2111 void
2112 Filter::
2113 GetElementsId( const SMDS_Mesh* theMesh,
2114                PredicatePtr thePredicate,
2115                TIdSequence& theSequence )
2116 {
2117   theSequence.clear();
2118
2119   if ( !theMesh || !thePredicate )
2120     return;
2121
2122   thePredicate->SetMesh( theMesh );
2123
2124   SMDSAbs_ElementType aType = thePredicate->GetType();
2125   switch(aType){
2126   case SMDSAbs_Node:
2127     FillSequence<const SMDS_MeshNode*>(theMesh->nodesIterator(),thePredicate,theSequence);
2128     break;
2129   case SMDSAbs_Edge:
2130     FillSequence<const SMDS_MeshElement*>(theMesh->edgesIterator(),thePredicate,theSequence);
2131     break;
2132   case SMDSAbs_Face:
2133     FillSequence<const SMDS_MeshElement*>(theMesh->facesIterator(),thePredicate,theSequence);
2134     break;
2135   case SMDSAbs_Volume:
2136     FillSequence<const SMDS_MeshElement*>(theMesh->volumesIterator(),thePredicate,theSequence);
2137     break;
2138   case SMDSAbs_All:
2139     FillSequence<const SMDS_MeshElement*>(theMesh->edgesIterator(),thePredicate,theSequence);
2140     FillSequence<const SMDS_MeshElement*>(theMesh->facesIterator(),thePredicate,theSequence);
2141     FillSequence<const SMDS_MeshElement*>(theMesh->volumesIterator(),thePredicate,theSequence);
2142     break;
2143   }
2144 }
2145
2146 void
2147 Filter::GetElementsId( const SMDS_Mesh* theMesh,
2148                        Filter::TIdSequence& theSequence )
2149 {
2150   GetElementsId(theMesh,myPredicate,theSequence);
2151 }
2152
2153 /*
2154                               ManifoldPart
2155 */
2156
2157 typedef std::set<SMDS_MeshFace*>                    TMapOfFacePtr;
2158
2159 /*
2160    Internal class Link
2161 */
2162
2163 ManifoldPart::Link::Link( SMDS_MeshNode* theNode1,
2164                           SMDS_MeshNode* theNode2 )
2165 {
2166   myNode1 = theNode1;
2167   myNode2 = theNode2;
2168 }
2169
2170 ManifoldPart::Link::~Link()
2171 {
2172   myNode1 = 0;
2173   myNode2 = 0;
2174 }
2175
2176 bool ManifoldPart::Link::IsEqual( const ManifoldPart::Link& theLink ) const
2177 {
2178   if ( myNode1 == theLink.myNode1 &&
2179        myNode2 == theLink.myNode2 )
2180     return true;
2181   else if ( myNode1 == theLink.myNode2 &&
2182             myNode2 == theLink.myNode1 )
2183     return true;
2184   else
2185     return false;
2186 }
2187
2188 bool ManifoldPart::Link::operator<( const ManifoldPart::Link& x ) const
2189 {
2190   if(myNode1 < x.myNode1) return true;
2191   if(myNode1 == x.myNode1)
2192     if(myNode2 < x.myNode2) return true;
2193   return false;
2194 }
2195
2196 bool ManifoldPart::IsEqual( const ManifoldPart::Link& theLink1,
2197                             const ManifoldPart::Link& theLink2 )
2198 {
2199   return theLink1.IsEqual( theLink2 );
2200 }
2201
2202 ManifoldPart::ManifoldPart()
2203 {
2204   myMesh = 0;
2205   myAngToler = Precision::Angular();
2206   myIsOnlyManifold = true;
2207 }
2208
2209 ManifoldPart::~ManifoldPart()
2210 {
2211   myMesh = 0;
2212 }
2213
2214 void ManifoldPart::SetMesh( const SMDS_Mesh* theMesh )
2215 {
2216   myMesh = theMesh;
2217   process();
2218 }
2219
2220 SMDSAbs_ElementType ManifoldPart::GetType() const
2221 { return SMDSAbs_Face; }
2222
2223 bool ManifoldPart::IsSatisfy( long theElementId )
2224 {
2225   return myMapIds.Contains( theElementId );
2226 }
2227
2228 void ManifoldPart::SetAngleTolerance( const double theAngToler )
2229 { myAngToler = theAngToler; }
2230
2231 double ManifoldPart::GetAngleTolerance() const
2232 { return myAngToler; }
2233
2234 void ManifoldPart::SetIsOnlyManifold( const bool theIsOnly )
2235 { myIsOnlyManifold = theIsOnly; }
2236
2237 void ManifoldPart::SetStartElem( const long  theStartId )
2238 { myStartElemId = theStartId; }
2239
2240 bool ManifoldPart::process()
2241 {
2242   myMapIds.Clear();
2243   myMapBadGeomIds.Clear();
2244
2245   myAllFacePtr.clear();
2246   myAllFacePtrIntDMap.clear();
2247   if ( !myMesh )
2248     return false;
2249
2250   // collect all faces into own map
2251   SMDS_FaceIteratorPtr anFaceItr = myMesh->facesIterator();
2252   for (; anFaceItr->more(); )
2253   {
2254     SMDS_MeshFace* aFacePtr = (SMDS_MeshFace*)anFaceItr->next();
2255     myAllFacePtr.push_back( aFacePtr );
2256     myAllFacePtrIntDMap[aFacePtr] = myAllFacePtr.size()-1;
2257   }
2258
2259   SMDS_MeshFace* aStartFace = (SMDS_MeshFace*)myMesh->FindElement( myStartElemId );
2260   if ( !aStartFace )
2261     return false;
2262
2263   // the map of non manifold links and bad geometry
2264   TMapOfLink aMapOfNonManifold;
2265   TColStd_MapOfInteger aMapOfTreated;
2266
2267   // begin cycle on faces from start index and run on vector till the end
2268   //  and from begin to start index to cover whole vector
2269   const int aStartIndx = myAllFacePtrIntDMap[aStartFace];
2270   bool isStartTreat = false;
2271   for ( int fi = aStartIndx; !isStartTreat || fi != aStartIndx ; fi++ )
2272   {
2273     if ( fi == aStartIndx )
2274       isStartTreat = true;
2275     // as result next time when fi will be equal to aStartIndx
2276
2277     SMDS_MeshFace* aFacePtr = myAllFacePtr[ fi ];
2278     if ( aMapOfTreated.Contains( aFacePtr->GetID() ) )
2279       continue;
2280
2281     aMapOfTreated.Add( aFacePtr->GetID() );
2282     TColStd_MapOfInteger aResFaces;
2283     if ( !findConnected( myAllFacePtrIntDMap, aFacePtr,
2284                          aMapOfNonManifold, aResFaces ) )
2285       continue;
2286     TColStd_MapIteratorOfMapOfInteger anItr( aResFaces );
2287     for ( ; anItr.More(); anItr.Next() )
2288     {
2289       int aFaceId = anItr.Key();
2290       aMapOfTreated.Add( aFaceId );
2291       myMapIds.Add( aFaceId );
2292     }
2293
2294     if ( fi == ( myAllFacePtr.size() - 1 ) )
2295       fi = 0;
2296   } // end run on vector of faces
2297   return !myMapIds.IsEmpty();
2298 }
2299
2300 static void getLinks( const SMDS_MeshFace* theFace,
2301                       ManifoldPart::TVectorOfLink& theLinks )
2302 {
2303   int aNbNode = theFace->NbNodes();
2304   SMDS_ElemIteratorPtr aNodeItr = theFace->nodesIterator();
2305   int i = 1;
2306   SMDS_MeshNode* aNode = 0;
2307   for ( ; aNodeItr->more() && i <= aNbNode; )
2308   {
2309
2310     SMDS_MeshNode* aN1 = (SMDS_MeshNode*)aNodeItr->next();
2311     if ( i == 1 )
2312       aNode = aN1;
2313     i++;
2314     SMDS_MeshNode* aN2 = ( i >= aNbNode ) ? aNode : (SMDS_MeshNode*)aNodeItr->next();
2315     i++;
2316     ManifoldPart::Link aLink( aN1, aN2 );
2317     theLinks.push_back( aLink );
2318   }
2319 }
2320
2321 static gp_XYZ getNormale( const SMDS_MeshFace* theFace )
2322 {
2323   gp_XYZ n;
2324   int aNbNode = theFace->NbNodes();
2325   TColgp_Array1OfXYZ anArrOfXYZ(1,4);
2326   SMDS_ElemIteratorPtr aNodeItr = theFace->nodesIterator();
2327   int i = 1;
2328   for ( ; aNodeItr->more() && i <= 4; i++ ) {
2329     SMDS_MeshNode* aNode = (SMDS_MeshNode*)aNodeItr->next();
2330     anArrOfXYZ.SetValue(i, gp_XYZ( aNode->X(), aNode->Y(), aNode->Z() ) );
2331   }
2332
2333   gp_XYZ q1 = anArrOfXYZ.Value(2) - anArrOfXYZ.Value(1);
2334   gp_XYZ q2 = anArrOfXYZ.Value(3) - anArrOfXYZ.Value(1);
2335   n  = q1 ^ q2;
2336   if ( aNbNode > 3 ) {
2337     gp_XYZ q3 = anArrOfXYZ.Value(4) - anArrOfXYZ.Value(1);
2338     n += q2 ^ q3;
2339   }
2340   double len = n.Modulus();
2341   if ( len > 0 )
2342     n /= len;
2343
2344   return n;
2345 }
2346
2347 bool ManifoldPart::findConnected
2348                  ( const ManifoldPart::TDataMapFacePtrInt& theAllFacePtrInt,
2349                   SMDS_MeshFace*                           theStartFace,
2350                   ManifoldPart::TMapOfLink&                theNonManifold,
2351                   TColStd_MapOfInteger&                    theResFaces )
2352 {
2353   theResFaces.Clear();
2354   if ( !theAllFacePtrInt.size() )
2355     return false;
2356
2357   if ( getNormale( theStartFace ).SquareModulus() <= gp::Resolution() )
2358   {
2359     myMapBadGeomIds.Add( theStartFace->GetID() );
2360     return false;
2361   }
2362
2363   ManifoldPart::TMapOfLink aMapOfBoundary, aMapToSkip;
2364   ManifoldPart::TVectorOfLink aSeqOfBoundary;
2365   theResFaces.Add( theStartFace->GetID() );
2366   ManifoldPart::TDataMapOfLinkFacePtr aDMapLinkFace;
2367
2368   expandBoundary( aMapOfBoundary, aSeqOfBoundary,
2369                  aDMapLinkFace, theNonManifold, theStartFace );
2370
2371   bool isDone = false;
2372   while ( !isDone && aMapOfBoundary.size() != 0 )
2373   {
2374     bool isToReset = false;
2375     ManifoldPart::TVectorOfLink::iterator pLink = aSeqOfBoundary.begin();
2376     for ( ; !isToReset && pLink != aSeqOfBoundary.end(); ++pLink )
2377     {
2378       ManifoldPart::Link aLink = *pLink;
2379       if ( aMapToSkip.find( aLink ) != aMapToSkip.end() )
2380         continue;
2381       // each link could be treated only once
2382       aMapToSkip.insert( aLink );
2383
2384       ManifoldPart::TVectorOfFacePtr aFaces;
2385       // find next
2386       if ( myIsOnlyManifold &&
2387            (theNonManifold.find( aLink ) != theNonManifold.end()) )
2388         continue;
2389       else
2390       {
2391         getFacesByLink( aLink, aFaces );
2392         // filter the element to keep only indicated elements
2393         ManifoldPart::TVectorOfFacePtr aFiltered;
2394         ManifoldPart::TVectorOfFacePtr::iterator pFace = aFaces.begin();
2395         for ( ; pFace != aFaces.end(); ++pFace )
2396         {
2397           SMDS_MeshFace* aFace = *pFace;
2398           if ( myAllFacePtrIntDMap.find( aFace ) != myAllFacePtrIntDMap.end() )
2399             aFiltered.push_back( aFace );
2400         }
2401         aFaces = aFiltered;
2402         if ( aFaces.size() < 2 )  // no neihgbour faces
2403           continue;
2404         else if ( myIsOnlyManifold && aFaces.size() > 2 ) // non manifold case
2405         {
2406           theNonManifold.insert( aLink );
2407           continue;
2408         }
2409       }
2410
2411       // compare normal with normals of neighbor element
2412       SMDS_MeshFace* aPrevFace = aDMapLinkFace[ aLink ];
2413       ManifoldPart::TVectorOfFacePtr::iterator pFace = aFaces.begin();
2414       for ( ; pFace != aFaces.end(); ++pFace )
2415       {
2416         SMDS_MeshFace* aNextFace = *pFace;
2417         if ( aPrevFace == aNextFace )
2418           continue;
2419         int anNextFaceID = aNextFace->GetID();
2420         if ( myIsOnlyManifold && theResFaces.Contains( anNextFaceID ) )
2421          // should not be with non manifold restriction. probably bad topology
2422           continue;
2423         // check if face was treated and skipped
2424         if ( myMapBadGeomIds.Contains( anNextFaceID ) ||
2425              !isInPlane( aPrevFace, aNextFace ) )
2426           continue;
2427         // add new element to connected and extend the boundaries.
2428         theResFaces.Add( anNextFaceID );
2429         expandBoundary( aMapOfBoundary, aSeqOfBoundary,
2430                         aDMapLinkFace, theNonManifold, aNextFace );
2431         isToReset = true;
2432       }
2433     }
2434     isDone = !isToReset;
2435   }
2436
2437   return !theResFaces.IsEmpty();
2438 }
2439
2440 bool ManifoldPart::isInPlane( const SMDS_MeshFace* theFace1,
2441                               const SMDS_MeshFace* theFace2 )
2442 {
2443   gp_Dir aNorm1 = gp_Dir( getNormale( theFace1 ) );
2444   gp_XYZ aNorm2XYZ = getNormale( theFace2 );
2445   if ( aNorm2XYZ.SquareModulus() <= gp::Resolution() )
2446   {
2447     myMapBadGeomIds.Add( theFace2->GetID() );
2448     return false;
2449   }
2450   if ( aNorm1.IsParallel( gp_Dir( aNorm2XYZ ), myAngToler ) )
2451     return true;
2452
2453   return false;
2454 }
2455
2456 void ManifoldPart::expandBoundary
2457                    ( ManifoldPart::TMapOfLink&            theMapOfBoundary,
2458                      ManifoldPart::TVectorOfLink&         theSeqOfBoundary,
2459                      ManifoldPart::TDataMapOfLinkFacePtr& theDMapLinkFacePtr,
2460                      ManifoldPart::TMapOfLink&            theNonManifold,
2461                      SMDS_MeshFace*                       theNextFace ) const
2462 {
2463   ManifoldPart::TVectorOfLink aLinks;
2464   getLinks( theNextFace, aLinks );
2465   int aNbLink = (int)aLinks.size();
2466   for ( int i = 0; i < aNbLink; i++ )
2467   {
2468     ManifoldPart::Link aLink = aLinks[ i ];
2469     if ( myIsOnlyManifold && (theNonManifold.find( aLink ) != theNonManifold.end()) )
2470       continue;
2471     if ( theMapOfBoundary.find( aLink ) != theMapOfBoundary.end() )
2472     {
2473       if ( myIsOnlyManifold )
2474       {
2475         // remove from boundary
2476         theMapOfBoundary.erase( aLink );
2477         ManifoldPart::TVectorOfLink::iterator pLink = theSeqOfBoundary.begin();
2478         for ( ; pLink != theSeqOfBoundary.end(); ++pLink )
2479         {
2480           ManifoldPart::Link aBoundLink = *pLink;
2481           if ( aBoundLink.IsEqual( aLink ) )
2482           {
2483             theSeqOfBoundary.erase( pLink );
2484             break;
2485           }
2486         }
2487       }
2488     }
2489     else
2490     {
2491       theMapOfBoundary.insert( aLink );
2492       theSeqOfBoundary.push_back( aLink );
2493       theDMapLinkFacePtr[ aLink ] = theNextFace;
2494     }
2495   }
2496 }
2497
2498 void ManifoldPart::getFacesByLink( const ManifoldPart::Link& theLink,
2499                                    ManifoldPart::TVectorOfFacePtr& theFaces ) const
2500 {
2501   SMDS_Mesh::SetOfFaces aSetOfFaces;
2502   // take all faces that shared first node
2503   SMDS_ElemIteratorPtr anItr = theLink.myNode1->facesIterator();
2504   for ( ; anItr->more(); )
2505   {
2506     SMDS_MeshFace* aFace = (SMDS_MeshFace*)anItr->next();
2507     if ( !aFace )
2508       continue;
2509     aSetOfFaces.Add( aFace );
2510   }
2511   // take all faces that shared second node
2512   anItr = theLink.myNode2->facesIterator();
2513   // find the common part of two sets
2514   for ( ; anItr->more(); )
2515   {
2516     SMDS_MeshFace* aFace = (SMDS_MeshFace*)anItr->next();
2517     if ( aSetOfFaces.Contains( aFace ) )
2518       theFaces.push_back( aFace );
2519   }
2520 }
2521
2522
2523 /*
2524    ElementsOnSurface
2525 */
2526
2527 ElementsOnSurface::ElementsOnSurface()
2528 {
2529   myMesh = 0;
2530   myIds.Clear();
2531   myType = SMDSAbs_All;
2532   mySurf.Nullify();
2533   myToler = Precision::Confusion();
2534 }
2535
2536 ElementsOnSurface::~ElementsOnSurface()
2537 {
2538   myMesh = 0;
2539 }
2540
2541 void ElementsOnSurface::SetMesh( const SMDS_Mesh* theMesh )
2542 {
2543   if ( myMesh == theMesh )
2544     return;
2545   myMesh = theMesh;
2546   myIds.Clear();
2547   process();
2548 }
2549
2550 bool ElementsOnSurface::IsSatisfy( long theElementId )
2551 {
2552   return myIds.Contains( theElementId );
2553 }
2554
2555 SMDSAbs_ElementType ElementsOnSurface::GetType() const
2556 { return myType; }
2557
2558 void ElementsOnSurface::SetTolerance( const double theToler )
2559 { myToler = theToler; }
2560
2561 double ElementsOnSurface::GetTolerance() const
2562 {
2563   return myToler;
2564 }
2565
2566 void ElementsOnSurface::SetSurface( const TopoDS_Shape& theShape,
2567                                     const SMDSAbs_ElementType theType )
2568 {
2569   myType = theType;
2570   mySurf.Nullify();
2571   if ( theShape.IsNull() || theShape.ShapeType() != TopAbs_FACE )
2572   {
2573     mySurf.Nullify();
2574     return;
2575   }
2576   TopoDS_Face aFace = TopoDS::Face( theShape );
2577   mySurf = BRep_Tool::Surface( aFace );
2578 }
2579
2580 void ElementsOnSurface::process()
2581 {
2582   myIds.Clear();
2583   if ( mySurf.IsNull() )
2584     return;
2585
2586   if ( myMesh == 0 )
2587     return;
2588
2589   if ( myType == SMDSAbs_Face || myType == SMDSAbs_All )
2590   {
2591     SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
2592     for(; anIter->more(); )
2593       process( anIter->next() );
2594   }
2595
2596   if ( myType == SMDSAbs_Edge || myType == SMDSAbs_All )
2597   {
2598     SMDS_EdgeIteratorPtr anIter = myMesh->edgesIterator();
2599     for(; anIter->more(); )
2600       process( anIter->next() );
2601   }
2602
2603   if ( myType == SMDSAbs_Node )
2604   {
2605     SMDS_NodeIteratorPtr anIter = myMesh->nodesIterator();
2606     for(; anIter->more(); )
2607       process( anIter->next() );
2608   }
2609 }
2610
2611 void ElementsOnSurface::process( const SMDS_MeshElement* theElemPtr )
2612 {
2613   SMDS_ElemIteratorPtr aNodeItr = theElemPtr->nodesIterator();
2614   bool isSatisfy = true;
2615   for ( ; aNodeItr->more(); )
2616   {
2617     SMDS_MeshNode* aNode = (SMDS_MeshNode*)aNodeItr->next();
2618     if ( !isOnSurface( aNode ) )
2619     {
2620       isSatisfy = false;
2621       break;
2622     }
2623   }
2624   if ( isSatisfy )
2625     myIds.Add( theElemPtr->GetID() );
2626 }
2627
2628 bool ElementsOnSurface::isOnSurface( const SMDS_MeshNode* theNode ) const
2629 {
2630   if ( mySurf.IsNull() )
2631     return false;
2632
2633   gp_Pnt aPnt( theNode->X(), theNode->Y(), theNode->Z() );
2634   double aToler2 = myToler * myToler;
2635   if ( mySurf->IsKind(STANDARD_TYPE(Geom_Plane)))
2636   {
2637     gp_Pln aPln = Handle(Geom_Plane)::DownCast(mySurf)->Pln();
2638     if ( aPln.SquareDistance( aPnt ) > aToler2 )
2639       return false;
2640   }
2641   else if ( mySurf->IsKind(STANDARD_TYPE(Geom_CylindricalSurface)))
2642   {
2643     gp_Cylinder aCyl = Handle(Geom_CylindricalSurface)::DownCast(mySurf)->Cylinder();
2644     double aRad = aCyl.Radius();
2645     gp_Ax3 anAxis = aCyl.Position();
2646     gp_XYZ aLoc = aCyl.Location().XYZ();
2647     double aXDist = anAxis.XDirection().XYZ() * ( aPnt.XYZ() - aLoc );
2648     double aYDist = anAxis.YDirection().XYZ() * ( aPnt.XYZ() - aLoc );
2649     if ( fabs(aXDist*aXDist + aYDist*aYDist - aRad*aRad) > aToler2 )
2650       return false;
2651   }
2652   else
2653     return false;
2654
2655   return true;
2656 }