Salome HOME
Merge from V6_main 06/03/2013
[modules/smesh.git] / src / Controls / SMESH_Controls.cxx
1 // Copyright (C) 2007-2012  CEA/DEN, EDF R&D, OPEN CASCADE
2 //
3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
5 //
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
10 //
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 // Lesser General Public License for more details.
15 //
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19 //
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
21
22 #include "SMESH_ControlsDef.hxx"
23
24 #include "SMDS_BallElement.hxx"
25 #include "SMDS_Iterator.hxx"
26 #include "SMDS_Mesh.hxx"
27 #include "SMDS_MeshElement.hxx"
28 #include "SMDS_MeshNode.hxx"
29 #include "SMDS_QuadraticEdge.hxx"
30 #include "SMDS_QuadraticFaceOfNodes.hxx"
31 #include "SMDS_VolumeTool.hxx"
32 #include "SMESHDS_GroupBase.hxx"
33 #include "SMESHDS_Mesh.hxx"
34 #include "SMESH_OctreeNode.hxx"
35
36 #include <BRepAdaptor_Surface.hxx>
37 #include <BRepClass_FaceClassifier.hxx>
38 #include <BRep_Tool.hxx>
39 #include <Geom_CylindricalSurface.hxx>
40 #include <Geom_Plane.hxx>
41 #include <Geom_Surface.hxx>
42 #include <Precision.hxx>
43 #include <TColStd_MapIteratorOfMapOfInteger.hxx>
44 #include <TColStd_MapOfInteger.hxx>
45 #include <TColStd_SequenceOfAsciiString.hxx>
46 #include <TColgp_Array1OfXYZ.hxx>
47 #include <TopAbs.hxx>
48 #include <TopoDS.hxx>
49 #include <TopoDS_Edge.hxx>
50 #include <TopoDS_Face.hxx>
51 #include <TopoDS_Iterator.hxx>
52 #include <TopoDS_Shape.hxx>
53 #include <TopoDS_Vertex.hxx>
54 #include <gp_Ax3.hxx>
55 #include <gp_Cylinder.hxx>
56 #include <gp_Dir.hxx>
57 #include <gp_Pln.hxx>
58 #include <gp_Pnt.hxx>
59 #include <gp_Vec.hxx>
60 #include <gp_XYZ.hxx>
61
62 #include <vtkMeshQuality.h>
63
64 #include <set>
65 #include <limits>
66
67
68 /*
69                             AUXILIARY METHODS
70 */
71
72 namespace {
73
74   const double theEps = 1e-100;
75   const double theInf = 1e+100;
76
77   inline gp_XYZ gpXYZ(const SMDS_MeshNode* aNode )
78   {
79     return gp_XYZ(aNode->X(), aNode->Y(), aNode->Z() );
80   }
81
82   inline double getAngle( const gp_XYZ& P1, const gp_XYZ& P2, const gp_XYZ& P3 )
83   {
84     gp_Vec v1( P1 - P2 ), v2( P3 - P2 );
85
86     return v1.Magnitude() < gp::Resolution() ||
87       v2.Magnitude() < gp::Resolution() ? 0 : v1.Angle( v2 );
88   }
89
90   inline double getArea( const gp_XYZ& P1, const gp_XYZ& P2, const gp_XYZ& P3 )
91   {
92     gp_Vec aVec1( P2 - P1 );
93     gp_Vec aVec2( P3 - P1 );
94     return ( aVec1 ^ aVec2 ).Magnitude() * 0.5;
95   }
96
97   inline double getArea( const gp_Pnt& P1, const gp_Pnt& P2, const gp_Pnt& P3 )
98   {
99     return getArea( P1.XYZ(), P2.XYZ(), P3.XYZ() );
100   }
101
102
103
104   inline double getDistance( const gp_XYZ& P1, const gp_XYZ& P2 )
105   {
106     double aDist = gp_Pnt( P1 ).Distance( gp_Pnt( P2 ) );
107     return aDist;
108   }
109
110   int getNbMultiConnection( const SMDS_Mesh* theMesh, const int theId )
111   {
112     if ( theMesh == 0 )
113       return 0;
114
115     const SMDS_MeshElement* anEdge = theMesh->FindElement( theId );
116     if ( anEdge == 0 || anEdge->GetType() != SMDSAbs_Edge/* || anEdge->NbNodes() != 2 */)
117       return 0;
118
119     // for each pair of nodes in anEdge (there are 2 pairs in a quadratic edge)
120     // count elements containing both nodes of the pair.
121     // Note that there may be such cases for a quadratic edge (a horizontal line):
122     //
123     //  Case 1          Case 2
124     //  |     |      |        |      |
125     //  |     |      |        |      |
126     //  +-----+------+  +-----+------+ 
127     //  |            |  |            |
128     //  |            |  |            |
129     // result sould be 2 in both cases
130     //
131     int aResult0 = 0, aResult1 = 0;
132      // last node, it is a medium one in a quadratic edge
133     const SMDS_MeshNode* aLastNode = anEdge->GetNode( anEdge->NbNodes() - 1 );
134     const SMDS_MeshNode* aNode0 = anEdge->GetNode( 0 );
135     const SMDS_MeshNode* aNode1 = anEdge->GetNode( 1 );
136     if ( aNode1 == aLastNode ) aNode1 = 0;
137
138     SMDS_ElemIteratorPtr anElemIter = aLastNode->GetInverseElementIterator();
139     while( anElemIter->more() ) {
140       const SMDS_MeshElement* anElem = anElemIter->next();
141       if ( anElem != 0 && anElem->GetType() != SMDSAbs_Edge ) {
142         SMDS_ElemIteratorPtr anIter = anElem->nodesIterator();
143         while ( anIter->more() ) {
144           if ( const SMDS_MeshElement* anElemNode = anIter->next() ) {
145             if ( anElemNode == aNode0 ) {
146               aResult0++;
147               if ( !aNode1 ) break; // not a quadratic edge
148             }
149             else if ( anElemNode == aNode1 )
150               aResult1++;
151           }
152         }
153       }
154     }
155     int aResult = std::max ( aResult0, aResult1 );
156
157 //     TColStd_MapOfInteger aMap;
158
159 //     SMDS_ElemIteratorPtr anIter = anEdge->nodesIterator();
160 //     if ( anIter != 0 ) {
161 //       while( anIter->more() ) {
162 //      const SMDS_MeshNode* aNode = (SMDS_MeshNode*)anIter->next();
163 //      if ( aNode == 0 )
164 //        return 0;
165 //      SMDS_ElemIteratorPtr anElemIter = aNode->GetInverseElementIterator();
166 //      while( anElemIter->more() ) {
167 //        const SMDS_MeshElement* anElem = anElemIter->next();
168 //        if ( anElem != 0 && anElem->GetType() != SMDSAbs_Edge ) {
169 //          int anId = anElem->GetID();
170
171 //          if ( anIter->more() )              // i.e. first node
172 //            aMap.Add( anId );
173 //          else if ( aMap.Contains( anId ) )
174 //            aResult++;
175 //        }
176 //      }
177 //       }
178 //     }
179
180     return aResult;
181   }
182
183   gp_XYZ getNormale( const SMDS_MeshFace* theFace, bool* ok=0 )
184   {
185     int aNbNode = theFace->NbNodes();
186
187     gp_XYZ q1 = gpXYZ( theFace->GetNode(1)) - gpXYZ( theFace->GetNode(0));
188     gp_XYZ q2 = gpXYZ( theFace->GetNode(2)) - gpXYZ( theFace->GetNode(0));
189     gp_XYZ n  = q1 ^ q2;
190     if ( aNbNode > 3 ) {
191       gp_XYZ q3 = gpXYZ( theFace->GetNode(3)) - gpXYZ( theFace->GetNode(0));
192       n += q2 ^ q3;
193     }
194     double len = n.Modulus();
195     bool zeroLen = ( len <= numeric_limits<double>::min());
196     if ( !zeroLen )
197       n /= len;
198
199     if (ok) *ok = !zeroLen;
200
201     return n;
202   }
203 }
204
205
206
207 using namespace SMESH::Controls;
208
209 /*
210  *                               FUNCTORS
211  */
212
213 //================================================================================
214 /*
215   Class       : NumericalFunctor
216   Description : Base class for numerical functors
217 */
218 //================================================================================
219
220 NumericalFunctor::NumericalFunctor():
221   myMesh(NULL)
222 {
223   myPrecision = -1;
224 }
225
226 void NumericalFunctor::SetMesh( const SMDS_Mesh* theMesh )
227 {
228   myMesh = theMesh;
229 }
230
231 bool NumericalFunctor::GetPoints(const int theId,
232                                  TSequenceOfXYZ& theRes ) const
233 {
234   theRes.clear();
235
236   if ( myMesh == 0 )
237     return false;
238
239   const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
240   if ( !anElem || anElem->GetType() != this->GetType() )
241     return false;
242
243   return GetPoints( anElem, theRes );
244 }
245
246 bool NumericalFunctor::GetPoints(const SMDS_MeshElement* anElem,
247                                  TSequenceOfXYZ&         theRes )
248 {
249   theRes.clear();
250
251   if ( anElem == 0 )
252     return false;
253
254   theRes.reserve( anElem->NbNodes() );
255
256   // Get nodes of the element
257   SMDS_ElemIteratorPtr anIter;
258
259   if ( anElem->IsQuadratic() ) {
260     switch ( anElem->GetType() ) {
261     case SMDSAbs_Edge:
262       anIter = dynamic_cast<const SMDS_VtkEdge*>
263         (anElem)->interlacedNodesElemIterator();
264       break;
265     case SMDSAbs_Face:
266       anIter = dynamic_cast<const SMDS_VtkFace*>
267         (anElem)->interlacedNodesElemIterator();
268       break;
269     default:
270       anIter = anElem->nodesIterator();
271       //return false;
272     }
273   }
274   else {
275     anIter = anElem->nodesIterator();
276   }
277
278   if ( anIter ) {
279     while( anIter->more() ) {
280       if ( const SMDS_MeshNode* aNode = static_cast<const SMDS_MeshNode*>( anIter->next() ))
281         theRes.push_back( gp_XYZ( aNode->X(), aNode->Y(), aNode->Z() ) );
282     }
283   }
284
285   return true;
286 }
287
288 long  NumericalFunctor::GetPrecision() const
289 {
290   return myPrecision;
291 }
292
293 void  NumericalFunctor::SetPrecision( const long thePrecision )
294 {
295   myPrecision = thePrecision;
296   myPrecisionValue = pow( 10., (double)( myPrecision ) );
297 }
298
299 double NumericalFunctor::GetValue( long theId )
300 {
301   double aVal = 0;
302
303   myCurrElement = myMesh->FindElement( theId );
304
305   TSequenceOfXYZ P;
306   if ( GetPoints( theId, P ))
307     aVal = Round( GetValue( P ));
308
309   return aVal;
310 }
311
312 double NumericalFunctor::Round( const double & aVal )
313 {
314   return ( myPrecision >= 0 ) ? floor( aVal * myPrecisionValue + 0.5 ) / myPrecisionValue : aVal;
315 }
316
317 //================================================================================
318 /*!
319  * \brief Return histogram of functor values
320  *  \param nbIntervals - number of intervals
321  *  \param nbEvents - number of mesh elements having values within i-th interval
322  *  \param funValues - boundaries of intervals
323  *  \param elements - elements to check vulue of; empty list means "of all"
324  *  \param minmax - boundaries of diapason of values to divide into intervals
325  */
326 //================================================================================
327
328 void NumericalFunctor::GetHistogram(int                  nbIntervals,
329                                     std::vector<int>&    nbEvents,
330                                     std::vector<double>& funValues,
331                                     const vector<int>&   elements,
332                                     const double*        minmax,
333                                     const bool           isLogarithmic)
334 {
335   if ( nbIntervals < 1 ||
336        !myMesh ||
337        !myMesh->GetMeshInfo().NbElements( GetType() ))
338     return;
339   nbEvents.resize( nbIntervals, 0 );
340   funValues.resize( nbIntervals+1 );
341
342   // get all values sorted
343   std::multiset< double > values;
344   if ( elements.empty() )
345   {
346     SMDS_ElemIteratorPtr elemIt = myMesh->elementsIterator(GetType());
347     while ( elemIt->more() )
348       values.insert( GetValue( elemIt->next()->GetID() ));
349   }
350   else
351   {
352     vector<int>::const_iterator id = elements.begin();
353     for ( ; id != elements.end(); ++id )
354       values.insert( GetValue( *id ));
355   }
356
357   if ( minmax )
358   {
359     funValues[0] = minmax[0];
360     funValues[nbIntervals] = minmax[1];
361   }
362   else
363   {
364     funValues[0] = *values.begin();
365     funValues[nbIntervals] = *values.rbegin();
366   }
367   // case nbIntervals == 1
368   if ( nbIntervals == 1 )
369   {
370     nbEvents[0] = values.size();
371     return;
372   }
373   // case of 1 value
374   if (funValues.front() == funValues.back())
375   {
376     nbEvents.resize( 1 );
377     nbEvents[0] = values.size();
378     funValues[1] = funValues.back();
379     funValues.resize( 2 );
380   }
381   // generic case
382   std::multiset< double >::iterator min = values.begin(), max;
383   for ( int i = 0; i < nbIntervals; ++i )
384   {
385     // find end value of i-th interval
386     double r = (i+1) / double(nbIntervals);
387     if (isLogarithmic && funValues.front() > 1e-07 && funValues.back() > 1e-07) {
388       double logmin = log10(funValues.front());
389       double lval = logmin + r * (log10(funValues.back()) - logmin);
390       funValues[i+1] = pow(10.0, lval);
391     }
392     else {
393       funValues[i+1] = funValues.front() * (1-r) + funValues.back() * r;
394     }
395
396     // count values in the i-th interval if there are any
397     if ( min != values.end() && *min <= funValues[i+1] )
398     {
399       // find the first value out of the interval
400       max = values.upper_bound( funValues[i+1] ); // max is greater than funValues[i+1], or end()
401       nbEvents[i] = std::distance( min, max );
402       min = max;
403     }
404   }
405   // add values larger than minmax[1]
406   nbEvents.back() += std::distance( min, values.end() );
407 }
408
409 //=======================================================================
410 /*
411   Class       : Volume
412   Description : Functor calculating volume of a 3D element
413 */
414 //================================================================================
415
416 double Volume::GetValue( long theElementId )
417 {
418   if ( theElementId && myMesh ) {
419     SMDS_VolumeTool aVolumeTool;
420     if ( aVolumeTool.Set( myMesh->FindElement( theElementId )))
421       return aVolumeTool.GetSize();
422   }
423   return 0;
424 }
425
426 double Volume::GetBadRate( double Value, int /*nbNodes*/ ) const
427 {
428   return Value;
429 }
430
431 SMDSAbs_ElementType Volume::GetType() const
432 {
433   return SMDSAbs_Volume;
434 }
435
436 //=======================================================================
437 /*
438   Class       : MaxElementLength2D
439   Description : Functor calculating maximum length of 2D element
440 */
441 //================================================================================
442
443 double MaxElementLength2D::GetValue( const TSequenceOfXYZ& P )
444 {
445   if(P.size() == 0)
446     return 0.;
447   double aVal = 0;
448   int len = P.size();
449   if( len == 3 ) { // triangles
450     double L1 = getDistance(P( 1 ),P( 2 ));
451     double L2 = getDistance(P( 2 ),P( 3 ));
452     double L3 = getDistance(P( 3 ),P( 1 ));
453     aVal = Max(L1,Max(L2,L3));
454   }
455   else if( len == 4 ) { // quadrangles
456     double L1 = getDistance(P( 1 ),P( 2 ));
457     double L2 = getDistance(P( 2 ),P( 3 ));
458     double L3 = getDistance(P( 3 ),P( 4 ));
459     double L4 = getDistance(P( 4 ),P( 1 ));
460     double D1 = getDistance(P( 1 ),P( 3 ));
461     double D2 = getDistance(P( 2 ),P( 4 ));
462     aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(D1,D2));
463   }
464   else if( len == 6 ) { // quadratic triangles
465     double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
466     double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
467     double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 1 ));
468     aVal = Max(L1,Max(L2,L3));
469   }
470   else if( len == 8 || len == 9 ) { // quadratic quadrangles
471     double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
472     double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
473     double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 7 ));
474     double L4 = getDistance(P( 7 ),P( 8 )) + getDistance(P( 8 ),P( 1 ));
475     double D1 = getDistance(P( 1 ),P( 5 ));
476     double D2 = getDistance(P( 3 ),P( 7 ));
477     aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(D1,D2));
478   }
479
480   if( myPrecision >= 0 )
481   {
482     double prec = pow( 10., (double)myPrecision );
483     aVal = floor( aVal * prec + 0.5 ) / prec;
484   }
485   return aVal;
486 }
487
488 double MaxElementLength2D::GetValue( long theElementId )
489 {
490   TSequenceOfXYZ P;
491   return GetPoints( theElementId, P ) ? GetValue(P) : 0.0;
492 }
493
494 double MaxElementLength2D::GetBadRate( double Value, int /*nbNodes*/ ) const
495 {
496   return Value;
497 }
498
499 SMDSAbs_ElementType MaxElementLength2D::GetType() const
500 {
501   return SMDSAbs_Face;
502 }
503
504 //=======================================================================
505 /*
506   Class       : MaxElementLength3D
507   Description : Functor calculating maximum length of 3D element
508 */
509 //================================================================================
510
511 double MaxElementLength3D::GetValue( long theElementId )
512 {
513   TSequenceOfXYZ P;
514   if( GetPoints( theElementId, P ) ) {
515     double aVal = 0;
516     const SMDS_MeshElement* aElem = myMesh->FindElement( theElementId );
517     SMDSAbs_ElementType aType = aElem->GetType();
518     int len = P.size();
519     switch( aType ) {
520     case SMDSAbs_Volume:
521       if( len == 4 ) { // tetras
522         double L1 = getDistance(P( 1 ),P( 2 ));
523         double L2 = getDistance(P( 2 ),P( 3 ));
524         double L3 = getDistance(P( 3 ),P( 1 ));
525         double L4 = getDistance(P( 1 ),P( 4 ));
526         double L5 = getDistance(P( 2 ),P( 4 ));
527         double L6 = getDistance(P( 3 ),P( 4 ));
528         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
529         break;
530       }
531       else if( len == 5 ) { // pyramids
532         double L1 = getDistance(P( 1 ),P( 2 ));
533         double L2 = getDistance(P( 2 ),P( 3 ));
534         double L3 = getDistance(P( 3 ),P( 4 ));
535         double L4 = getDistance(P( 4 ),P( 1 ));
536         double L5 = getDistance(P( 1 ),P( 5 ));
537         double L6 = getDistance(P( 2 ),P( 5 ));
538         double L7 = getDistance(P( 3 ),P( 5 ));
539         double L8 = getDistance(P( 4 ),P( 5 ));
540         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
541         aVal = Max(aVal,Max(L7,L8));
542         break;
543       }
544       else if( len == 6 ) { // pentas
545         double L1 = getDistance(P( 1 ),P( 2 ));
546         double L2 = getDistance(P( 2 ),P( 3 ));
547         double L3 = getDistance(P( 3 ),P( 1 ));
548         double L4 = getDistance(P( 4 ),P( 5 ));
549         double L5 = getDistance(P( 5 ),P( 6 ));
550         double L6 = getDistance(P( 6 ),P( 4 ));
551         double L7 = getDistance(P( 1 ),P( 4 ));
552         double L8 = getDistance(P( 2 ),P( 5 ));
553         double L9 = getDistance(P( 3 ),P( 6 ));
554         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
555         aVal = Max(aVal,Max(Max(L7,L8),L9));
556         break;
557       }
558       else if( len == 8 ) { // hexas
559         double L1 = getDistance(P( 1 ),P( 2 ));
560         double L2 = getDistance(P( 2 ),P( 3 ));
561         double L3 = getDistance(P( 3 ),P( 4 ));
562         double L4 = getDistance(P( 4 ),P( 1 ));
563         double L5 = getDistance(P( 5 ),P( 6 ));
564         double L6 = getDistance(P( 6 ),P( 7 ));
565         double L7 = getDistance(P( 7 ),P( 8 ));
566         double L8 = getDistance(P( 8 ),P( 5 ));
567         double L9 = getDistance(P( 1 ),P( 5 ));
568         double L10= getDistance(P( 2 ),P( 6 ));
569         double L11= getDistance(P( 3 ),P( 7 ));
570         double L12= getDistance(P( 4 ),P( 8 ));
571         double D1 = getDistance(P( 1 ),P( 7 ));
572         double D2 = getDistance(P( 2 ),P( 8 ));
573         double D3 = getDistance(P( 3 ),P( 5 ));
574         double D4 = getDistance(P( 4 ),P( 6 ));
575         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
576         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
577         aVal = Max(aVal,Max(L11,L12));
578         aVal = Max(aVal,Max(Max(D1,D2),Max(D3,D4)));
579         break;
580       }
581       else if( len == 12 ) { // hexagonal prism
582         for ( int i1 = 1; i1 < 12; ++i1 )
583           for ( int i2 = i1+1; i1 <= 12; ++i1 )
584             aVal = Max( aVal, getDistance(P( i1 ),P( i2 )));
585         break;
586       }
587       else if( len == 10 ) { // quadratic tetras
588         double L1 = getDistance(P( 1 ),P( 5 )) + getDistance(P( 5 ),P( 2 ));
589         double L2 = getDistance(P( 2 ),P( 6 )) + getDistance(P( 6 ),P( 3 ));
590         double L3 = getDistance(P( 3 ),P( 7 )) + getDistance(P( 7 ),P( 1 ));
591         double L4 = getDistance(P( 1 ),P( 8 )) + getDistance(P( 8 ),P( 4 ));
592         double L5 = getDistance(P( 2 ),P( 9 )) + getDistance(P( 9 ),P( 4 ));
593         double L6 = getDistance(P( 3 ),P( 10 )) + getDistance(P( 10 ),P( 4 ));
594         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
595         break;
596       }
597       else if( len == 13 ) { // quadratic pyramids
598         double L1 = getDistance(P( 1 ),P( 6 )) + getDistance(P( 6 ),P( 2 ));
599         double L2 = getDistance(P( 2 ),P( 7 )) + getDistance(P( 7 ),P( 3 ));
600         double L3 = getDistance(P( 3 ),P( 8 )) + getDistance(P( 8 ),P( 4 ));
601         double L4 = getDistance(P( 4 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
602         double L5 = getDistance(P( 1 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
603         double L6 = getDistance(P( 2 ),P( 11 )) + getDistance(P( 11 ),P( 5 ));
604         double L7 = getDistance(P( 3 ),P( 12 )) + getDistance(P( 12 ),P( 5 ));
605         double L8 = getDistance(P( 4 ),P( 13 )) + getDistance(P( 13 ),P( 5 ));
606         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
607         aVal = Max(aVal,Max(L7,L8));
608         break;
609       }
610       else if( len == 15 ) { // quadratic pentas
611         double L1 = getDistance(P( 1 ),P( 7 )) + getDistance(P( 7 ),P( 2 ));
612         double L2 = getDistance(P( 2 ),P( 8 )) + getDistance(P( 8 ),P( 3 ));
613         double L3 = getDistance(P( 3 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
614         double L4 = getDistance(P( 4 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
615         double L5 = getDistance(P( 5 ),P( 11 )) + getDistance(P( 11 ),P( 6 ));
616         double L6 = getDistance(P( 6 ),P( 12 )) + getDistance(P( 12 ),P( 4 ));
617         double L7 = getDistance(P( 1 ),P( 13 )) + getDistance(P( 13 ),P( 4 ));
618         double L8 = getDistance(P( 2 ),P( 14 )) + getDistance(P( 14 ),P( 5 ));
619         double L9 = getDistance(P( 3 ),P( 15 )) + getDistance(P( 15 ),P( 6 ));
620         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
621         aVal = Max(aVal,Max(Max(L7,L8),L9));
622         break;
623       }
624       else if( len == 20 || len == 27 ) { // quadratic hexas
625         double L1 = getDistance(P( 1 ),P( 9 )) + getDistance(P( 9 ),P( 2 ));
626         double L2 = getDistance(P( 2 ),P( 10 )) + getDistance(P( 10 ),P( 3 ));
627         double L3 = getDistance(P( 3 ),P( 11 )) + getDistance(P( 11 ),P( 4 ));
628         double L4 = getDistance(P( 4 ),P( 12 )) + getDistance(P( 12 ),P( 1 ));
629         double L5 = getDistance(P( 5 ),P( 13 )) + getDistance(P( 13 ),P( 6 ));
630         double L6 = getDistance(P( 6 ),P( 14 )) + getDistance(P( 14 ),P( 7 ));
631         double L7 = getDistance(P( 7 ),P( 15 )) + getDistance(P( 15 ),P( 8 ));
632         double L8 = getDistance(P( 8 ),P( 16 )) + getDistance(P( 16 ),P( 5 ));
633         double L9 = getDistance(P( 1 ),P( 17 )) + getDistance(P( 17 ),P( 5 ));
634         double L10= getDistance(P( 2 ),P( 18 )) + getDistance(P( 18 ),P( 6 ));
635         double L11= getDistance(P( 3 ),P( 19 )) + getDistance(P( 19 ),P( 7 ));
636         double L12= getDistance(P( 4 ),P( 20 )) + getDistance(P( 20 ),P( 8 ));
637         double D1 = getDistance(P( 1 ),P( 7 ));
638         double D2 = getDistance(P( 2 ),P( 8 ));
639         double D3 = getDistance(P( 3 ),P( 5 ));
640         double D4 = getDistance(P( 4 ),P( 6 ));
641         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
642         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
643         aVal = Max(aVal,Max(L11,L12));
644         aVal = Max(aVal,Max(Max(D1,D2),Max(D3,D4)));
645         break;
646       }
647       else if( len > 1 && aElem->IsPoly() ) { // polys
648         // get the maximum distance between all pairs of nodes
649         for( int i = 1; i <= len; i++ ) {
650           for( int j = 1; j <= len; j++ ) {
651             if( j > i ) { // optimization of the loop
652               double D = getDistance( P(i), P(j) );
653               aVal = Max( aVal, D );
654             }
655           }
656         }
657       }
658     }
659
660     if( myPrecision >= 0 )
661     {
662       double prec = pow( 10., (double)myPrecision );
663       aVal = floor( aVal * prec + 0.5 ) / prec;
664     }
665     return aVal;
666   }
667   return 0.;
668 }
669
670 double MaxElementLength3D::GetBadRate( double Value, int /*nbNodes*/ ) const
671 {
672   return Value;
673 }
674
675 SMDSAbs_ElementType MaxElementLength3D::GetType() const
676 {
677   return SMDSAbs_Volume;
678 }
679
680 //=======================================================================
681 /*
682   Class       : MinimumAngle
683   Description : Functor for calculation of minimum angle
684 */
685 //================================================================================
686
687 double MinimumAngle::GetValue( const TSequenceOfXYZ& P )
688 {
689   double aMin;
690
691   if (P.size() <3)
692     return 0.;
693
694   aMin = getAngle(P( P.size() ), P( 1 ), P( 2 ));
695   aMin = Min(aMin,getAngle(P( P.size()-1 ), P( P.size() ), P( 1 )));
696
697   for (int i=2; i<P.size();i++){
698       double A0 = getAngle( P( i-1 ), P( i ), P( i+1 ) );
699     aMin = Min(aMin,A0);
700   }
701
702   return aMin * 180.0 / M_PI;
703 }
704
705 double MinimumAngle::GetBadRate( double Value, int nbNodes ) const
706 {
707   //const double aBestAngle = PI / nbNodes;
708   const double aBestAngle = 180.0 - ( 360.0 / double(nbNodes) );
709   return ( fabs( aBestAngle - Value ));
710 }
711
712 SMDSAbs_ElementType MinimumAngle::GetType() const
713 {
714   return SMDSAbs_Face;
715 }
716
717
718 //================================================================================
719 /*
720   Class       : AspectRatio
721   Description : Functor for calculating aspect ratio
722 */
723 //================================================================================
724
725 double AspectRatio::GetValue( long theId )
726 {
727   double aVal = 0;
728   myCurrElement = myMesh->FindElement( theId );
729   if ( myCurrElement && myCurrElement->GetVtkType() == VTK_QUAD )
730   {
731     // issue 21723
732     vtkUnstructuredGrid* grid = SMDS_Mesh::_meshList[myCurrElement->getMeshId()]->getGrid();
733     if ( vtkCell* avtkCell = grid->GetCell( myCurrElement->getVtkId() ))
734       aVal = Round( vtkMeshQuality::QuadAspectRatio( avtkCell ));
735   }
736   else
737   {
738     TSequenceOfXYZ P;
739     if ( GetPoints( myCurrElement, P ))
740       aVal = Round( GetValue( P ));
741   }
742   return aVal;
743 }
744
745 double AspectRatio::GetValue( const TSequenceOfXYZ& P )
746 {
747   // According to "Mesh quality control" by Nadir Bouhamau referring to
748   // Pascal Jean Frey and Paul-Louis George. Maillages, applications aux elements finis.
749   // Hermes Science publications, Paris 1999 ISBN 2-7462-0024-4
750   // PAL10872
751
752   int nbNodes = P.size();
753
754   if ( nbNodes < 3 )
755     return 0;
756
757   // Compute aspect ratio
758
759   if ( nbNodes == 3 ) {
760     // Compute lengths of the sides
761     std::vector< double > aLen (nbNodes);
762     for ( int i = 0; i < nbNodes - 1; i++ )
763       aLen[ i ] = getDistance( P( i + 1 ), P( i + 2 ) );
764     aLen[ nbNodes - 1 ] = getDistance( P( 1 ), P( nbNodes ) );
765     // Q = alfa * h * p / S, where
766     //
767     // alfa = sqrt( 3 ) / 6
768     // h - length of the longest edge
769     // p - half perimeter
770     // S - triangle surface
771     const double alfa = sqrt( 3. ) / 6.;
772     double maxLen = Max( aLen[ 0 ], Max( aLen[ 1 ], aLen[ 2 ] ) );
773     double half_perimeter = ( aLen[0] + aLen[1] + aLen[2] ) / 2.;
774     double anArea = getArea( P( 1 ), P( 2 ), P( 3 ) );
775     if ( anArea <= theEps  )
776       return theInf;
777     return alfa * maxLen * half_perimeter / anArea;
778   }
779   else if ( nbNodes == 6 ) { // quadratic triangles
780     // Compute lengths of the sides
781     std::vector< double > aLen (3);
782     aLen[0] = getDistance( P(1), P(3) );
783     aLen[1] = getDistance( P(3), P(5) );
784     aLen[2] = getDistance( P(5), P(1) );
785     // Q = alfa * h * p / S, where
786     //
787     // alfa = sqrt( 3 ) / 6
788     // h - length of the longest edge
789     // p - half perimeter
790     // S - triangle surface
791     const double alfa = sqrt( 3. ) / 6.;
792     double maxLen = Max( aLen[ 0 ], Max( aLen[ 1 ], aLen[ 2 ] ) );
793     double half_perimeter = ( aLen[0] + aLen[1] + aLen[2] ) / 2.;
794     double anArea = getArea( P(1), P(3), P(5) );
795     if ( anArea <= theEps )
796       return theInf;
797     return alfa * maxLen * half_perimeter / anArea;
798   }
799   else if( nbNodes == 4 ) { // quadrangle
800     // Compute lengths of the sides
801     std::vector< double > aLen (4);
802     aLen[0] = getDistance( P(1), P(2) );
803     aLen[1] = getDistance( P(2), P(3) );
804     aLen[2] = getDistance( P(3), P(4) );
805     aLen[3] = getDistance( P(4), P(1) );
806     // Compute lengths of the diagonals
807     std::vector< double > aDia (2);
808     aDia[0] = getDistance( P(1), P(3) );
809     aDia[1] = getDistance( P(2), P(4) );
810     // Compute areas of all triangles which can be built
811     // taking three nodes of the quadrangle
812     std::vector< double > anArea (4);
813     anArea[0] = getArea( P(1), P(2), P(3) );
814     anArea[1] = getArea( P(1), P(2), P(4) );
815     anArea[2] = getArea( P(1), P(3), P(4) );
816     anArea[3] = getArea( P(2), P(3), P(4) );
817     // Q = alpha * L * C1 / C2, where
818     //
819     // alpha = sqrt( 1/32 )
820     // L = max( L1, L2, L3, L4, D1, D2 )
821     // C1 = sqrt( ( L1^2 + L1^2 + L1^2 + L1^2 ) / 4 )
822     // C2 = min( S1, S2, S3, S4 )
823     // Li - lengths of the edges
824     // Di - lengths of the diagonals
825     // Si - areas of the triangles
826     const double alpha = sqrt( 1 / 32. );
827     double L = Max( aLen[ 0 ],
828                  Max( aLen[ 1 ],
829                    Max( aLen[ 2 ],
830                      Max( aLen[ 3 ],
831                        Max( aDia[ 0 ], aDia[ 1 ] ) ) ) ) );
832     double C1 = sqrt( ( aLen[0] * aLen[0] +
833                         aLen[1] * aLen[1] +
834                         aLen[2] * aLen[2] +
835                         aLen[3] * aLen[3] ) / 4. );
836     double C2 = Min( anArea[ 0 ],
837                   Min( anArea[ 1 ],
838                     Min( anArea[ 2 ], anArea[ 3 ] ) ) );
839     if ( C2 <= theEps )
840       return theInf;
841     return alpha * L * C1 / C2;
842   }
843   else if( nbNodes == 8 || nbNodes == 9 ) { // nbNodes==8 - quadratic quadrangle
844     // Compute lengths of the sides
845     std::vector< double > aLen (4);
846     aLen[0] = getDistance( P(1), P(3) );
847     aLen[1] = getDistance( P(3), P(5) );
848     aLen[2] = getDistance( P(5), P(7) );
849     aLen[3] = getDistance( P(7), P(1) );
850     // Compute lengths of the diagonals
851     std::vector< double > aDia (2);
852     aDia[0] = getDistance( P(1), P(5) );
853     aDia[1] = getDistance( P(3), P(7) );
854     // Compute areas of all triangles which can be built
855     // taking three nodes of the quadrangle
856     std::vector< double > anArea (4);
857     anArea[0] = getArea( P(1), P(3), P(5) );
858     anArea[1] = getArea( P(1), P(3), P(7) );
859     anArea[2] = getArea( P(1), P(5), P(7) );
860     anArea[3] = getArea( P(3), P(5), P(7) );
861     // Q = alpha * L * C1 / C2, where
862     //
863     // alpha = sqrt( 1/32 )
864     // L = max( L1, L2, L3, L4, D1, D2 )
865     // C1 = sqrt( ( L1^2 + L1^2 + L1^2 + L1^2 ) / 4 )
866     // C2 = min( S1, S2, S3, S4 )
867     // Li - lengths of the edges
868     // Di - lengths of the diagonals
869     // Si - areas of the triangles
870     const double alpha = sqrt( 1 / 32. );
871     double L = Max( aLen[ 0 ],
872                  Max( aLen[ 1 ],
873                    Max( aLen[ 2 ],
874                      Max( aLen[ 3 ],
875                        Max( aDia[ 0 ], aDia[ 1 ] ) ) ) ) );
876     double C1 = sqrt( ( aLen[0] * aLen[0] +
877                         aLen[1] * aLen[1] +
878                         aLen[2] * aLen[2] +
879                         aLen[3] * aLen[3] ) / 4. );
880     double C2 = Min( anArea[ 0 ],
881                   Min( anArea[ 1 ],
882                     Min( anArea[ 2 ], anArea[ 3 ] ) ) );
883     if ( C2 <= theEps )
884       return theInf;
885     return alpha * L * C1 / C2;
886   }
887   return 0;
888 }
889
890 double AspectRatio::GetBadRate( double Value, int /*nbNodes*/ ) const
891 {
892   // the aspect ratio is in the range [1.0,infinity]
893   // < 1.0 = very bad, zero area
894   // 1.0 = good
895   // infinity = bad
896   return ( Value < 0.9 ) ? 1000 : Value / 1000.;
897 }
898
899 SMDSAbs_ElementType AspectRatio::GetType() const
900 {
901   return SMDSAbs_Face;
902 }
903
904
905 //================================================================================
906 /*
907   Class       : AspectRatio3D
908   Description : Functor for calculating aspect ratio
909 */
910 //================================================================================
911
912 namespace{
913
914   inline double getHalfPerimeter(double theTria[3]){
915     return (theTria[0] + theTria[1] + theTria[2])/2.0;
916   }
917
918   inline double getArea(double theHalfPerim, double theTria[3]){
919     return sqrt(theHalfPerim*
920                 (theHalfPerim-theTria[0])*
921                 (theHalfPerim-theTria[1])*
922                 (theHalfPerim-theTria[2]));
923   }
924
925   inline double getVolume(double theLen[6]){
926     double a2 = theLen[0]*theLen[0];
927     double b2 = theLen[1]*theLen[1];
928     double c2 = theLen[2]*theLen[2];
929     double d2 = theLen[3]*theLen[3];
930     double e2 = theLen[4]*theLen[4];
931     double f2 = theLen[5]*theLen[5];
932     double P = 4.0*a2*b2*d2;
933     double Q = a2*(b2+d2-e2)-b2*(a2+d2-f2)-d2*(a2+b2-c2);
934     double R = (b2+d2-e2)*(a2+d2-f2)*(a2+d2-f2);
935     return sqrt(P-Q+R)/12.0;
936   }
937
938   inline double getVolume2(double theLen[6]){
939     double a2 = theLen[0]*theLen[0];
940     double b2 = theLen[1]*theLen[1];
941     double c2 = theLen[2]*theLen[2];
942     double d2 = theLen[3]*theLen[3];
943     double e2 = theLen[4]*theLen[4];
944     double f2 = theLen[5]*theLen[5];
945
946     double P = a2*e2*(b2+c2+d2+f2-a2-e2);
947     double Q = b2*f2*(a2+c2+d2+e2-b2-f2);
948     double R = c2*d2*(a2+b2+e2+f2-c2-d2);
949     double S = a2*b2*d2+b2*c2*e2+a2*c2*f2+d2*e2*f2;
950
951     return sqrt(P+Q+R-S)/12.0;
952   }
953
954   inline double getVolume(const TSequenceOfXYZ& P){
955     gp_Vec aVec1( P( 2 ) - P( 1 ) );
956     gp_Vec aVec2( P( 3 ) - P( 1 ) );
957     gp_Vec aVec3( P( 4 ) - P( 1 ) );
958     gp_Vec anAreaVec( aVec1 ^ aVec2 );
959     return fabs(aVec3 * anAreaVec) / 6.0;
960   }
961
962   inline double getMaxHeight(double theLen[6])
963   {
964     double aHeight = std::max(theLen[0],theLen[1]);
965     aHeight = std::max(aHeight,theLen[2]);
966     aHeight = std::max(aHeight,theLen[3]);
967     aHeight = std::max(aHeight,theLen[4]);
968     aHeight = std::max(aHeight,theLen[5]);
969     return aHeight;
970   }
971
972 }
973
974 double AspectRatio3D::GetValue( long theId )
975 {
976   double aVal = 0;
977   myCurrElement = myMesh->FindElement( theId );
978   if ( myCurrElement && myCurrElement->GetVtkType() == VTK_TETRA )
979   {
980     // Action from CoTech | ACTION 31.3:
981     // EURIWARE BO: Homogenize the formulas used to calculate the Controls in SMESH to fit with
982     // those of ParaView. The library used by ParaView for those calculations can be reused in SMESH.
983     vtkUnstructuredGrid* grid = SMDS_Mesh::_meshList[myCurrElement->getMeshId()]->getGrid();
984     if ( vtkCell* avtkCell = grid->GetCell( myCurrElement->getVtkId() ))
985       aVal = Round( vtkMeshQuality::TetAspectRatio( avtkCell ));
986   }
987   else
988   {
989     TSequenceOfXYZ P;
990     if ( GetPoints( myCurrElement, P ))
991       aVal = Round( GetValue( P ));
992   }
993   return aVal;
994 }
995
996 double AspectRatio3D::GetValue( const TSequenceOfXYZ& P )
997 {
998   double aQuality = 0.0;
999   if(myCurrElement->IsPoly()) return aQuality;
1000
1001   int nbNodes = P.size();
1002
1003   if(myCurrElement->IsQuadratic()) {
1004     if(nbNodes==10) nbNodes=4; // quadratic tetrahedron
1005     else if(nbNodes==13) nbNodes=5; // quadratic pyramid
1006     else if(nbNodes==15) nbNodes=6; // quadratic pentahedron
1007     else if(nbNodes==20) nbNodes=8; // quadratic hexahedron
1008     else if(nbNodes==27) nbNodes=8; // quadratic hexahedron
1009     else return aQuality;
1010   }
1011
1012   switch(nbNodes) {
1013   case 4:{
1014     double aLen[6] = {
1015       getDistance(P( 1 ),P( 2 )), // a
1016       getDistance(P( 2 ),P( 3 )), // b
1017       getDistance(P( 3 ),P( 1 )), // c
1018       getDistance(P( 2 ),P( 4 )), // d
1019       getDistance(P( 3 ),P( 4 )), // e
1020       getDistance(P( 1 ),P( 4 ))  // f
1021     };
1022     double aTria[4][3] = {
1023       {aLen[0],aLen[1],aLen[2]}, // abc
1024       {aLen[0],aLen[3],aLen[5]}, // adf
1025       {aLen[1],aLen[3],aLen[4]}, // bde
1026       {aLen[2],aLen[4],aLen[5]}  // cef
1027     };
1028     double aSumArea = 0.0;
1029     double aHalfPerimeter = getHalfPerimeter(aTria[0]);
1030     double anArea = getArea(aHalfPerimeter,aTria[0]);
1031     aSumArea += anArea;
1032     aHalfPerimeter = getHalfPerimeter(aTria[1]);
1033     anArea = getArea(aHalfPerimeter,aTria[1]);
1034     aSumArea += anArea;
1035     aHalfPerimeter = getHalfPerimeter(aTria[2]);
1036     anArea = getArea(aHalfPerimeter,aTria[2]);
1037     aSumArea += anArea;
1038     aHalfPerimeter = getHalfPerimeter(aTria[3]);
1039     anArea = getArea(aHalfPerimeter,aTria[3]);
1040     aSumArea += anArea;
1041     double aVolume = getVolume(P);
1042     //double aVolume = getVolume(aLen);
1043     double aHeight = getMaxHeight(aLen);
1044     static double aCoeff = sqrt(2.0)/12.0;
1045     if ( aVolume > DBL_MIN )
1046       aQuality = aCoeff*aHeight*aSumArea/aVolume;
1047     break;
1048   }
1049   case 5:{
1050     {
1051       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 3 ),P( 5 )};
1052       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1053     }
1054     {
1055       gp_XYZ aXYZ[4] = {P( 1 ),P( 3 ),P( 4 ),P( 5 )};
1056       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1057     }
1058     {
1059       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 5 )};
1060       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1061     }
1062     {
1063       gp_XYZ aXYZ[4] = {P( 2 ),P( 3 ),P( 4 ),P( 5 )};
1064       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1065     }
1066     break;
1067   }
1068   case 6:{
1069     {
1070       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 6 )};
1071       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1072     }
1073     {
1074       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 3 )};
1075       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1076     }
1077     {
1078       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 6 )};
1079       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1080     }
1081     {
1082       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 3 )};
1083       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1084     }
1085     {
1086       gp_XYZ aXYZ[4] = {P( 2 ),P( 5 ),P( 4 ),P( 6 )};
1087       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1088     }
1089     {
1090       gp_XYZ aXYZ[4] = {P( 2 ),P( 5 ),P( 4 ),P( 3 )};
1091       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1092     }
1093     break;
1094   }
1095   case 8:{
1096     {
1097       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 3 )};
1098       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1099     }
1100     {
1101       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 4 )};
1102       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1103     }
1104     {
1105       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 7 )};
1106       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1107     }
1108     {
1109       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 5 ),P( 8 )};
1110       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1111     }
1112     {
1113       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 3 )};
1114       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1115     }
1116     {
1117       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 4 )};
1118       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1119     }
1120     {
1121       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 7 )};
1122       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1123     }
1124     {
1125       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 6 ),P( 8 )};
1126       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1127     }
1128     {
1129       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 3 )};
1130       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1131     }
1132     {
1133       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 4 )};
1134       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1135     }
1136     {
1137       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 7 )};
1138       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1139     }
1140     {
1141       gp_XYZ aXYZ[4] = {P( 2 ),P( 6 ),P( 5 ),P( 8 )};
1142       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1143     }
1144     {
1145       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 1 )};
1146       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1147     }
1148     {
1149       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 2 )};
1150       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1151     }
1152     {
1153       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 5 )};
1154       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1155     }
1156     {
1157       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 8 ),P( 6 )};
1158       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1159     }
1160     {
1161       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 1 )};
1162       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1163     }
1164     {
1165       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 2 )};
1166       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1167     }
1168     {
1169       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 5 )};
1170       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1171     }
1172     {
1173       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 7 ),P( 6 )};
1174       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1175     }
1176     {
1177       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 1 )};
1178       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1179     }
1180     {
1181       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 2 )};
1182       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1183     }
1184     {
1185       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 5 )};
1186       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1187     }
1188     {
1189       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 6 )};
1190       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1191     }
1192     {
1193       gp_XYZ aXYZ[4] = {P( 4 ),P( 8 ),P( 7 ),P( 2 )};
1194       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1195     }
1196     {
1197       gp_XYZ aXYZ[4] = {P( 4 ),P( 5 ),P( 8 ),P( 2 )};
1198       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1199     }
1200     {
1201       gp_XYZ aXYZ[4] = {P( 1 ),P( 4 ),P( 5 ),P( 3 )};
1202       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1203     }
1204     {
1205       gp_XYZ aXYZ[4] = {P( 3 ),P( 6 ),P( 7 ),P( 1 )};
1206       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1207     }
1208     {
1209       gp_XYZ aXYZ[4] = {P( 2 ),P( 3 ),P( 6 ),P( 4 )};
1210       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1211     }
1212     {
1213       gp_XYZ aXYZ[4] = {P( 5 ),P( 6 ),P( 8 ),P( 3 )};
1214       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1215     }
1216     {
1217       gp_XYZ aXYZ[4] = {P( 7 ),P( 8 ),P( 6 ),P( 1 )};
1218       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1219     }
1220     {
1221       gp_XYZ aXYZ[4] = {P( 1 ),P( 2 ),P( 4 ),P( 7 )};
1222       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1223     }
1224     {
1225       gp_XYZ aXYZ[4] = {P( 3 ),P( 4 ),P( 2 ),P( 5 )};
1226       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[4])),aQuality);
1227     }
1228     break;
1229   }
1230   case 12:
1231     {
1232       gp_XYZ aXYZ[8] = {P( 1 ),P( 2 ),P( 4 ),P( 5 ),P( 7 ),P( 8 ),P( 10 ),P( 11 )};
1233       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[8])),aQuality);
1234     }
1235     {
1236       gp_XYZ aXYZ[8] = {P( 2 ),P( 3 ),P( 5 ),P( 6 ),P( 8 ),P( 9 ),P( 11 ),P( 12 )};
1237       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[8])),aQuality);
1238     }
1239     {
1240       gp_XYZ aXYZ[8] = {P( 3 ),P( 4 ),P( 6 ),P( 1 ),P( 9 ),P( 10 ),P( 12 ),P( 7 )};
1241       aQuality = std::max(GetValue(TSequenceOfXYZ(&aXYZ[0],&aXYZ[8])),aQuality);
1242     }
1243     break;
1244   } // switch(nbNodes)
1245
1246   if ( nbNodes > 4 ) {
1247     // avaluate aspect ratio of quadranle faces
1248     AspectRatio aspect2D;
1249     SMDS_VolumeTool::VolumeType type = SMDS_VolumeTool::GetType( nbNodes );
1250     int nbFaces = SMDS_VolumeTool::NbFaces( type );
1251     TSequenceOfXYZ points(4);
1252     for ( int i = 0; i < nbFaces; ++i ) { // loop on faces of a volume
1253       if ( SMDS_VolumeTool::NbFaceNodes( type, i ) != 4 )
1254         continue;
1255       const int* pInd = SMDS_VolumeTool::GetFaceNodesIndices( type, i, true );
1256       for ( int p = 0; p < 4; ++p ) // loop on nodes of a quadranle face
1257         points( p + 1 ) = P( pInd[ p ] + 1 );
1258       aQuality = std::max( aQuality, aspect2D.GetValue( points ));
1259     }
1260   }
1261   return aQuality;
1262 }
1263
1264 double AspectRatio3D::GetBadRate( double Value, int /*nbNodes*/ ) const
1265 {
1266   // the aspect ratio is in the range [1.0,infinity]
1267   // 1.0 = good
1268   // infinity = bad
1269   return Value / 1000.;
1270 }
1271
1272 SMDSAbs_ElementType AspectRatio3D::GetType() const
1273 {
1274   return SMDSAbs_Volume;
1275 }
1276
1277
1278 //================================================================================
1279 /*
1280   Class       : Warping
1281   Description : Functor for calculating warping
1282 */
1283 //================================================================================
1284
1285 double Warping::GetValue( const TSequenceOfXYZ& P )
1286 {
1287   if ( P.size() != 4 )
1288     return 0;
1289
1290   gp_XYZ G = ( P( 1 ) + P( 2 ) + P( 3 ) + P( 4 ) ) / 4.;
1291
1292   double A1 = ComputeA( P( 1 ), P( 2 ), P( 3 ), G );
1293   double A2 = ComputeA( P( 2 ), P( 3 ), P( 4 ), G );
1294   double A3 = ComputeA( P( 3 ), P( 4 ), P( 1 ), G );
1295   double A4 = ComputeA( P( 4 ), P( 1 ), P( 2 ), G );
1296
1297   return Max( Max( A1, A2 ), Max( A3, A4 ) );
1298 }
1299
1300 double Warping::ComputeA( const gp_XYZ& thePnt1,
1301                           const gp_XYZ& thePnt2,
1302                           const gp_XYZ& thePnt3,
1303                           const gp_XYZ& theG ) const
1304 {
1305   double aLen1 = gp_Pnt( thePnt1 ).Distance( gp_Pnt( thePnt2 ) );
1306   double aLen2 = gp_Pnt( thePnt2 ).Distance( gp_Pnt( thePnt3 ) );
1307   double L = Min( aLen1, aLen2 ) * 0.5;
1308   if ( L < theEps )
1309     return theInf;
1310
1311   gp_XYZ GI = ( thePnt2 + thePnt1 ) / 2. - theG;
1312   gp_XYZ GJ = ( thePnt3 + thePnt2 ) / 2. - theG;
1313   gp_XYZ N  = GI.Crossed( GJ );
1314
1315   if ( N.Modulus() < gp::Resolution() )
1316     return M_PI / 2;
1317
1318   N.Normalize();
1319
1320   double H = ( thePnt2 - theG ).Dot( N );
1321   return asin( fabs( H / L ) ) * 180. / M_PI;
1322 }
1323
1324 double Warping::GetBadRate( double Value, int /*nbNodes*/ ) const
1325 {
1326   // the warp is in the range [0.0,PI/2]
1327   // 0.0 = good (no warp)
1328   // PI/2 = bad  (face pliee)
1329   return Value;
1330 }
1331
1332 SMDSAbs_ElementType Warping::GetType() const
1333 {
1334   return SMDSAbs_Face;
1335 }
1336
1337
1338 //================================================================================
1339 /*
1340   Class       : Taper
1341   Description : Functor for calculating taper
1342 */
1343 //================================================================================
1344
1345 double Taper::GetValue( const TSequenceOfXYZ& P )
1346 {
1347   if ( P.size() != 4 )
1348     return 0.;
1349
1350   // Compute taper
1351   double J1 = getArea( P( 4 ), P( 1 ), P( 2 ) ) / 2.;
1352   double J2 = getArea( P( 3 ), P( 1 ), P( 2 ) ) / 2.;
1353   double J3 = getArea( P( 2 ), P( 3 ), P( 4 ) ) / 2.;
1354   double J4 = getArea( P( 3 ), P( 4 ), P( 1 ) ) / 2.;
1355
1356   double JA = 0.25 * ( J1 + J2 + J3 + J4 );
1357   if ( JA <= theEps )
1358     return theInf;
1359
1360   double T1 = fabs( ( J1 - JA ) / JA );
1361   double T2 = fabs( ( J2 - JA ) / JA );
1362   double T3 = fabs( ( J3 - JA ) / JA );
1363   double T4 = fabs( ( J4 - JA ) / JA );
1364
1365   return Max( Max( T1, T2 ), Max( T3, T4 ) );
1366 }
1367
1368 double Taper::GetBadRate( double Value, int /*nbNodes*/ ) const
1369 {
1370   // the taper is in the range [0.0,1.0]
1371   // 0.0  = good (no taper)
1372   // 1.0 = bad  (les cotes opposes sont allignes)
1373   return Value;
1374 }
1375
1376 SMDSAbs_ElementType Taper::GetType() const
1377 {
1378   return SMDSAbs_Face;
1379 }
1380
1381 //================================================================================
1382 /*
1383   Class       : Skew
1384   Description : Functor for calculating skew in degrees
1385 */
1386 //================================================================================
1387
1388 static inline double skewAngle( const gp_XYZ& p1, const gp_XYZ& p2, const gp_XYZ& p3 )
1389 {
1390   gp_XYZ p12 = ( p2 + p1 ) / 2.;
1391   gp_XYZ p23 = ( p3 + p2 ) / 2.;
1392   gp_XYZ p31 = ( p3 + p1 ) / 2.;
1393
1394   gp_Vec v1( p31 - p2 ), v2( p12 - p23 );
1395
1396   return v1.Magnitude() < gp::Resolution() || v2.Magnitude() < gp::Resolution() ? 0. : v1.Angle( v2 );
1397 }
1398
1399 double Skew::GetValue( const TSequenceOfXYZ& P )
1400 {
1401   if ( P.size() != 3 && P.size() != 4 )
1402     return 0.;
1403
1404   // Compute skew
1405   static double PI2 = M_PI / 2.;
1406   if ( P.size() == 3 )
1407   {
1408     double A0 = fabs( PI2 - skewAngle( P( 3 ), P( 1 ), P( 2 ) ) );
1409     double A1 = fabs( PI2 - skewAngle( P( 1 ), P( 2 ), P( 3 ) ) );
1410     double A2 = fabs( PI2 - skewAngle( P( 2 ), P( 3 ), P( 1 ) ) );
1411
1412     return Max( A0, Max( A1, A2 ) ) * 180. / M_PI;
1413   }
1414   else
1415   {
1416     gp_XYZ p12 = ( P( 1 ) + P( 2 ) ) / 2.;
1417     gp_XYZ p23 = ( P( 2 ) + P( 3 ) ) / 2.;
1418     gp_XYZ p34 = ( P( 3 ) + P( 4 ) ) / 2.;
1419     gp_XYZ p41 = ( P( 4 ) + P( 1 ) ) / 2.;
1420
1421     gp_Vec v1( p34 - p12 ), v2( p23 - p41 );
1422     double A = v1.Magnitude() <= gp::Resolution() || v2.Magnitude() <= gp::Resolution()
1423       ? 0. : fabs( PI2 - v1.Angle( v2 ) );
1424
1425     //BUG SWP12743
1426     if ( A < theEps )
1427       return theInf;
1428
1429     return A * 180. / M_PI;
1430   }
1431 }
1432
1433 double Skew::GetBadRate( double Value, int /*nbNodes*/ ) const
1434 {
1435   // the skew is in the range [0.0,PI/2].
1436   // 0.0 = good
1437   // PI/2 = bad
1438   return Value;
1439 }
1440
1441 SMDSAbs_ElementType Skew::GetType() const
1442 {
1443   return SMDSAbs_Face;
1444 }
1445
1446
1447 //================================================================================
1448 /*
1449   Class       : Area
1450   Description : Functor for calculating area
1451 */
1452 //================================================================================
1453
1454 double Area::GetValue( const TSequenceOfXYZ& P )
1455 {
1456   double val = 0.0;
1457   if ( P.size() > 2 ) {
1458     gp_Vec aVec1( P(2) - P(1) );
1459     gp_Vec aVec2( P(3) - P(1) );
1460     gp_Vec SumVec = aVec1 ^ aVec2;
1461     for (int i=4; i<=P.size(); i++) {
1462       gp_Vec aVec1( P(i-1) - P(1) );
1463       gp_Vec aVec2( P(i) - P(1) );
1464       gp_Vec tmp = aVec1 ^ aVec2;
1465       SumVec.Add(tmp);
1466     }
1467     val = SumVec.Magnitude() * 0.5;
1468   }
1469   return val;
1470 }
1471
1472 double Area::GetBadRate( double Value, int /*nbNodes*/ ) const
1473 {
1474   // meaningless as it is not a quality control functor
1475   return Value;
1476 }
1477
1478 SMDSAbs_ElementType Area::GetType() const
1479 {
1480   return SMDSAbs_Face;
1481 }
1482
1483 //================================================================================
1484 /*
1485   Class       : Length
1486   Description : Functor for calculating length of edge
1487 */
1488 //================================================================================
1489
1490 double Length::GetValue( const TSequenceOfXYZ& P )
1491 {
1492   switch ( P.size() ) {
1493   case 2:  return getDistance( P( 1 ), P( 2 ) );
1494   case 3:  return getDistance( P( 1 ), P( 2 ) ) + getDistance( P( 2 ), P( 3 ) );
1495   default: return 0.;
1496   }
1497 }
1498
1499 double Length::GetBadRate( double Value, int /*nbNodes*/ ) const
1500 {
1501   // meaningless as it is not quality control functor
1502   return Value;
1503 }
1504
1505 SMDSAbs_ElementType Length::GetType() const
1506 {
1507   return SMDSAbs_Edge;
1508 }
1509
1510 //================================================================================
1511 /*
1512   Class       : Length2D
1513   Description : Functor for calculating length of edge
1514 */
1515 //================================================================================
1516
1517 double Length2D::GetValue( long theElementId)
1518 {
1519   TSequenceOfXYZ P;
1520
1521   //cout<<"Length2D::GetValue"<<endl;
1522   if (GetPoints(theElementId,P)){
1523     //for(int jj=1; jj<=P.size(); jj++)
1524     //  cout<<"jj="<<jj<<" P("<<P(jj).X()<<","<<P(jj).Y()<<","<<P(jj).Z()<<")"<<endl;
1525
1526     double  aVal;// = GetValue( P );
1527     const SMDS_MeshElement* aElem = myMesh->FindElement( theElementId );
1528     SMDSAbs_ElementType aType = aElem->GetType();
1529
1530     int len = P.size();
1531
1532     switch (aType){
1533     case SMDSAbs_All:
1534     case SMDSAbs_Node:
1535     case SMDSAbs_Edge:
1536       if (len == 2){
1537         aVal = getDistance( P( 1 ), P( 2 ) );
1538         break;
1539       }
1540       else if (len == 3){ // quadratic edge
1541         aVal = getDistance(P( 1 ),P( 3 )) + getDistance(P( 3 ),P( 2 ));
1542         break;
1543       }
1544     case SMDSAbs_Face:
1545       if (len == 3){ // triangles
1546         double L1 = getDistance(P( 1 ),P( 2 ));
1547         double L2 = getDistance(P( 2 ),P( 3 ));
1548         double L3 = getDistance(P( 3 ),P( 1 ));
1549         aVal = Max(L1,Max(L2,L3));
1550         break;
1551       }
1552       else if (len == 4){ // quadrangles
1553         double L1 = getDistance(P( 1 ),P( 2 ));
1554         double L2 = getDistance(P( 2 ),P( 3 ));
1555         double L3 = getDistance(P( 3 ),P( 4 ));
1556         double L4 = getDistance(P( 4 ),P( 1 ));
1557         aVal = Max(Max(L1,L2),Max(L3,L4));
1558         break;
1559       }
1560       if (len == 6){ // quadratic triangles
1561         double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
1562         double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
1563         double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 1 ));
1564         aVal = Max(L1,Max(L2,L3));
1565         //cout<<"L1="<<L1<<" L2="<<L2<<"L3="<<L3<<" aVal="<<aVal<<endl;
1566         break;
1567       }
1568       else if (len == 8){ // quadratic quadrangles
1569         double L1 = getDistance(P( 1 ),P( 2 )) + getDistance(P( 2 ),P( 3 ));
1570         double L2 = getDistance(P( 3 ),P( 4 )) + getDistance(P( 4 ),P( 5 ));
1571         double L3 = getDistance(P( 5 ),P( 6 )) + getDistance(P( 6 ),P( 7 ));
1572         double L4 = getDistance(P( 7 ),P( 8 )) + getDistance(P( 8 ),P( 1 ));
1573         aVal = Max(Max(L1,L2),Max(L3,L4));
1574         break;
1575       }
1576     case SMDSAbs_Volume:
1577       if (len == 4){ // tetraidrs
1578         double L1 = getDistance(P( 1 ),P( 2 ));
1579         double L2 = getDistance(P( 2 ),P( 3 ));
1580         double L3 = getDistance(P( 3 ),P( 1 ));
1581         double L4 = getDistance(P( 1 ),P( 4 ));
1582         double L5 = getDistance(P( 2 ),P( 4 ));
1583         double L6 = getDistance(P( 3 ),P( 4 ));
1584         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1585         break;
1586       }
1587       else if (len == 5){ // piramids
1588         double L1 = getDistance(P( 1 ),P( 2 ));
1589         double L2 = getDistance(P( 2 ),P( 3 ));
1590         double L3 = getDistance(P( 3 ),P( 4 ));
1591         double L4 = getDistance(P( 4 ),P( 1 ));
1592         double L5 = getDistance(P( 1 ),P( 5 ));
1593         double L6 = getDistance(P( 2 ),P( 5 ));
1594         double L7 = getDistance(P( 3 ),P( 5 ));
1595         double L8 = getDistance(P( 4 ),P( 5 ));
1596
1597         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1598         aVal = Max(aVal,Max(L7,L8));
1599         break;
1600       }
1601       else if (len == 6){ // pentaidres
1602         double L1 = getDistance(P( 1 ),P( 2 ));
1603         double L2 = getDistance(P( 2 ),P( 3 ));
1604         double L3 = getDistance(P( 3 ),P( 1 ));
1605         double L4 = getDistance(P( 4 ),P( 5 ));
1606         double L5 = getDistance(P( 5 ),P( 6 ));
1607         double L6 = getDistance(P( 6 ),P( 4 ));
1608         double L7 = getDistance(P( 1 ),P( 4 ));
1609         double L8 = getDistance(P( 2 ),P( 5 ));
1610         double L9 = getDistance(P( 3 ),P( 6 ));
1611
1612         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1613         aVal = Max(aVal,Max(Max(L7,L8),L9));
1614         break;
1615       }
1616       else if (len == 8){ // hexaider
1617         double L1 = getDistance(P( 1 ),P( 2 ));
1618         double L2 = getDistance(P( 2 ),P( 3 ));
1619         double L3 = getDistance(P( 3 ),P( 4 ));
1620         double L4 = getDistance(P( 4 ),P( 1 ));
1621         double L5 = getDistance(P( 5 ),P( 6 ));
1622         double L6 = getDistance(P( 6 ),P( 7 ));
1623         double L7 = getDistance(P( 7 ),P( 8 ));
1624         double L8 = getDistance(P( 8 ),P( 5 ));
1625         double L9 = getDistance(P( 1 ),P( 5 ));
1626         double L10= getDistance(P( 2 ),P( 6 ));
1627         double L11= getDistance(P( 3 ),P( 7 ));
1628         double L12= getDistance(P( 4 ),P( 8 ));
1629
1630         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1631         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
1632         aVal = Max(aVal,Max(L11,L12));
1633         break;
1634
1635       }
1636
1637       if (len == 10){ // quadratic tetraidrs
1638         double L1 = getDistance(P( 1 ),P( 5 )) + getDistance(P( 5 ),P( 2 ));
1639         double L2 = getDistance(P( 2 ),P( 6 )) + getDistance(P( 6 ),P( 3 ));
1640         double L3 = getDistance(P( 3 ),P( 7 )) + getDistance(P( 7 ),P( 1 ));
1641         double L4 = getDistance(P( 1 ),P( 8 )) + getDistance(P( 8 ),P( 4 ));
1642         double L5 = getDistance(P( 2 ),P( 9 )) + getDistance(P( 9 ),P( 4 ));
1643         double L6 = getDistance(P( 3 ),P( 10 )) + getDistance(P( 10 ),P( 4 ));
1644         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1645         break;
1646       }
1647       else if (len == 13){ // quadratic piramids
1648         double L1 = getDistance(P( 1 ),P( 6 )) + getDistance(P( 6 ),P( 2 ));
1649         double L2 = getDistance(P( 2 ),P( 7 )) + getDistance(P( 7 ),P( 3 ));
1650         double L3 = getDistance(P( 3 ),P( 8 )) + getDistance(P( 8 ),P( 4 ));
1651         double L4 = getDistance(P( 4 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
1652         double L5 = getDistance(P( 1 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
1653         double L6 = getDistance(P( 2 ),P( 11 )) + getDistance(P( 11 ),P( 5 ));
1654         double L7 = getDistance(P( 3 ),P( 12 )) + getDistance(P( 12 ),P( 5 ));
1655         double L8 = getDistance(P( 4 ),P( 13 )) + getDistance(P( 13 ),P( 5 ));
1656         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1657         aVal = Max(aVal,Max(L7,L8));
1658         break;
1659       }
1660       else if (len == 15){ // quadratic pentaidres
1661         double L1 = getDistance(P( 1 ),P( 7 )) + getDistance(P( 7 ),P( 2 ));
1662         double L2 = getDistance(P( 2 ),P( 8 )) + getDistance(P( 8 ),P( 3 ));
1663         double L3 = getDistance(P( 3 ),P( 9 )) + getDistance(P( 9 ),P( 1 ));
1664         double L4 = getDistance(P( 4 ),P( 10 )) + getDistance(P( 10 ),P( 5 ));
1665         double L5 = getDistance(P( 5 ),P( 11 )) + getDistance(P( 11 ),P( 6 ));
1666         double L6 = getDistance(P( 6 ),P( 12 )) + getDistance(P( 12 ),P( 4 ));
1667         double L7 = getDistance(P( 1 ),P( 13 )) + getDistance(P( 13 ),P( 4 ));
1668         double L8 = getDistance(P( 2 ),P( 14 )) + getDistance(P( 14 ),P( 5 ));
1669         double L9 = getDistance(P( 3 ),P( 15 )) + getDistance(P( 15 ),P( 6 ));
1670         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1671         aVal = Max(aVal,Max(Max(L7,L8),L9));
1672         break;
1673       }
1674       else if (len == 20){ // quadratic hexaider
1675         double L1 = getDistance(P( 1 ),P( 9 )) + getDistance(P( 9 ),P( 2 ));
1676         double L2 = getDistance(P( 2 ),P( 10 )) + getDistance(P( 10 ),P( 3 ));
1677         double L3 = getDistance(P( 3 ),P( 11 )) + getDistance(P( 11 ),P( 4 ));
1678         double L4 = getDistance(P( 4 ),P( 12 )) + getDistance(P( 12 ),P( 1 ));
1679         double L5 = getDistance(P( 5 ),P( 13 )) + getDistance(P( 13 ),P( 6 ));
1680         double L6 = getDistance(P( 6 ),P( 14 )) + getDistance(P( 14 ),P( 7 ));
1681         double L7 = getDistance(P( 7 ),P( 15 )) + getDistance(P( 15 ),P( 8 ));
1682         double L8 = getDistance(P( 8 ),P( 16 )) + getDistance(P( 16 ),P( 5 ));
1683         double L9 = getDistance(P( 1 ),P( 17 )) + getDistance(P( 17 ),P( 5 ));
1684         double L10= getDistance(P( 2 ),P( 18 )) + getDistance(P( 18 ),P( 6 ));
1685         double L11= getDistance(P( 3 ),P( 19 )) + getDistance(P( 19 ),P( 7 ));
1686         double L12= getDistance(P( 4 ),P( 20 )) + getDistance(P( 20 ),P( 8 ));
1687         aVal = Max(Max(Max(L1,L2),Max(L3,L4)),Max(L5,L6));
1688         aVal = Max(aVal,Max(Max(L7,L8),Max(L9,L10)));
1689         aVal = Max(aVal,Max(L11,L12));
1690         break;
1691
1692       }
1693
1694     default: aVal=-1;
1695     }
1696
1697     if (aVal <0){
1698       return 0.;
1699     }
1700
1701     if ( myPrecision >= 0 )
1702     {
1703       double prec = pow( 10., (double)( myPrecision ) );
1704       aVal = floor( aVal * prec + 0.5 ) / prec;
1705     }
1706
1707     return aVal;
1708
1709   }
1710   return 0.;
1711 }
1712
1713 double Length2D::GetBadRate( double Value, int /*nbNodes*/ ) const
1714 {
1715   // meaningless as it is not quality control functor
1716   return Value;
1717 }
1718
1719 SMDSAbs_ElementType Length2D::GetType() const
1720 {
1721   return SMDSAbs_Face;
1722 }
1723
1724 Length2D::Value::Value(double theLength,long thePntId1, long thePntId2):
1725   myLength(theLength)
1726 {
1727   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
1728   if(thePntId1 > thePntId2){
1729     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
1730   }
1731 }
1732
1733 bool Length2D::Value::operator<(const Length2D::Value& x) const{
1734   if(myPntId[0] < x.myPntId[0]) return true;
1735   if(myPntId[0] == x.myPntId[0])
1736     if(myPntId[1] < x.myPntId[1]) return true;
1737   return false;
1738 }
1739
1740 void Length2D::GetValues(TValues& theValues){
1741   TValues aValues;
1742   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
1743   for(; anIter->more(); ){
1744     const SMDS_MeshFace* anElem = anIter->next();
1745
1746     if(anElem->IsQuadratic()) {
1747       const SMDS_VtkFace* F =
1748         dynamic_cast<const SMDS_VtkFace*>(anElem);
1749       // use special nodes iterator
1750       SMDS_ElemIteratorPtr anIter = F->interlacedNodesElemIterator();
1751       long aNodeId[4];
1752       gp_Pnt P[4];
1753
1754       double aLength;
1755       const SMDS_MeshElement* aNode;
1756       if(anIter->more()){
1757         aNode = anIter->next();
1758         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1759         P[0] = P[1] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1760         aNodeId[0] = aNodeId[1] = aNode->GetID();
1761         aLength = 0;
1762       }
1763       for(; anIter->more(); ){
1764         const SMDS_MeshNode* N1 = static_cast<const SMDS_MeshNode*> (anIter->next());
1765         P[2] = gp_Pnt(N1->X(),N1->Y(),N1->Z());
1766         aNodeId[2] = N1->GetID();
1767         aLength = P[1].Distance(P[2]);
1768         if(!anIter->more()) break;
1769         const SMDS_MeshNode* N2 = static_cast<const SMDS_MeshNode*> (anIter->next());
1770         P[3] = gp_Pnt(N2->X(),N2->Y(),N2->Z());
1771         aNodeId[3] = N2->GetID();
1772         aLength += P[2].Distance(P[3]);
1773         Value aValue1(aLength,aNodeId[1],aNodeId[2]);
1774         Value aValue2(aLength,aNodeId[2],aNodeId[3]);
1775         P[1] = P[3];
1776         aNodeId[1] = aNodeId[3];
1777         theValues.insert(aValue1);
1778         theValues.insert(aValue2);
1779       }
1780       aLength += P[2].Distance(P[0]);
1781       Value aValue1(aLength,aNodeId[1],aNodeId[2]);
1782       Value aValue2(aLength,aNodeId[2],aNodeId[0]);
1783       theValues.insert(aValue1);
1784       theValues.insert(aValue2);
1785     }
1786     else {
1787       SMDS_ElemIteratorPtr aNodesIter = anElem->nodesIterator();
1788       long aNodeId[2];
1789       gp_Pnt P[3];
1790
1791       double aLength;
1792       const SMDS_MeshElement* aNode;
1793       if(aNodesIter->more()){
1794         aNode = aNodesIter->next();
1795         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1796         P[0] = P[1] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1797         aNodeId[0] = aNodeId[1] = aNode->GetID();
1798         aLength = 0;
1799       }
1800       for(; aNodesIter->more(); ){
1801         aNode = aNodesIter->next();
1802         const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode;
1803         long anId = aNode->GetID();
1804         
1805         P[2] = gp_Pnt(aNodes->X(),aNodes->Y(),aNodes->Z());
1806         
1807         aLength = P[1].Distance(P[2]);
1808         
1809         Value aValue(aLength,aNodeId[1],anId);
1810         aNodeId[1] = anId;
1811         P[1] = P[2];
1812         theValues.insert(aValue);
1813       }
1814
1815       aLength = P[0].Distance(P[1]);
1816
1817       Value aValue(aLength,aNodeId[0],aNodeId[1]);
1818       theValues.insert(aValue);
1819     }
1820   }
1821 }
1822
1823 //================================================================================
1824 /*
1825   Class       : MultiConnection
1826   Description : Functor for calculating number of faces conneted to the edge
1827 */
1828 //================================================================================
1829
1830 double MultiConnection::GetValue( const TSequenceOfXYZ& P )
1831 {
1832   return 0;
1833 }
1834 double MultiConnection::GetValue( long theId )
1835 {
1836   return getNbMultiConnection( myMesh, theId );
1837 }
1838
1839 double MultiConnection::GetBadRate( double Value, int /*nbNodes*/ ) const
1840 {
1841   // meaningless as it is not quality control functor
1842   return Value;
1843 }
1844
1845 SMDSAbs_ElementType MultiConnection::GetType() const
1846 {
1847   return SMDSAbs_Edge;
1848 }
1849
1850 //================================================================================
1851 /*
1852   Class       : MultiConnection2D
1853   Description : Functor for calculating number of faces conneted to the edge
1854 */
1855 //================================================================================
1856
1857 double MultiConnection2D::GetValue( const TSequenceOfXYZ& P )
1858 {
1859   return 0;
1860 }
1861
1862 double MultiConnection2D::GetValue( long theElementId )
1863 {
1864   int aResult = 0;
1865
1866   const SMDS_MeshElement* aFaceElem = myMesh->FindElement(theElementId);
1867   SMDSAbs_ElementType aType = aFaceElem->GetType();
1868
1869   switch (aType) {
1870   case SMDSAbs_Face:
1871     {
1872       int i = 0, len = aFaceElem->NbNodes();
1873       SMDS_ElemIteratorPtr anIter = aFaceElem->nodesIterator();
1874       if (!anIter) break;
1875
1876       const SMDS_MeshNode *aNode, *aNode0;
1877       TColStd_MapOfInteger aMap, aMapPrev;
1878
1879       for (i = 0; i <= len; i++) {
1880         aMapPrev = aMap;
1881         aMap.Clear();
1882
1883         int aNb = 0;
1884         if (anIter->more()) {
1885           aNode = (SMDS_MeshNode*)anIter->next();
1886         } else {
1887           if (i == len)
1888             aNode = aNode0;
1889           else
1890             break;
1891         }
1892         if (!aNode) break;
1893         if (i == 0) aNode0 = aNode;
1894
1895         SMDS_ElemIteratorPtr anElemIter = aNode->GetInverseElementIterator();
1896         while (anElemIter->more()) {
1897           const SMDS_MeshElement* anElem = anElemIter->next();
1898           if (anElem != 0 && anElem->GetType() == SMDSAbs_Face) {
1899             int anId = anElem->GetID();
1900
1901             aMap.Add(anId);
1902             if (aMapPrev.Contains(anId)) {
1903               aNb++;
1904             }
1905           }
1906         }
1907         aResult = Max(aResult, aNb);
1908       }
1909     }
1910     break;
1911   default:
1912     aResult = 0;
1913   }
1914
1915   return aResult;
1916 }
1917
1918 double MultiConnection2D::GetBadRate( double Value, int /*nbNodes*/ ) const
1919 {
1920   // meaningless as it is not quality control functor
1921   return Value;
1922 }
1923
1924 SMDSAbs_ElementType MultiConnection2D::GetType() const
1925 {
1926   return SMDSAbs_Face;
1927 }
1928
1929 MultiConnection2D::Value::Value(long thePntId1, long thePntId2)
1930 {
1931   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
1932   if(thePntId1 > thePntId2){
1933     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
1934   }
1935 }
1936
1937 bool MultiConnection2D::Value::operator<(const MultiConnection2D::Value& x) const{
1938   if(myPntId[0] < x.myPntId[0]) return true;
1939   if(myPntId[0] == x.myPntId[0])
1940     if(myPntId[1] < x.myPntId[1]) return true;
1941   return false;
1942 }
1943
1944 void MultiConnection2D::GetValues(MValues& theValues){
1945   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
1946   for(; anIter->more(); ){
1947     const SMDS_MeshFace* anElem = anIter->next();
1948     SMDS_ElemIteratorPtr aNodesIter;
1949     if ( anElem->IsQuadratic() )
1950       aNodesIter = dynamic_cast<const SMDS_VtkFace*>
1951         (anElem)->interlacedNodesElemIterator();
1952     else
1953       aNodesIter = anElem->nodesIterator();
1954     long aNodeId[3];
1955
1956     //int aNbConnects=0;
1957     const SMDS_MeshNode* aNode0;
1958     const SMDS_MeshNode* aNode1;
1959     const SMDS_MeshNode* aNode2;
1960     if(aNodesIter->more()){
1961       aNode0 = (SMDS_MeshNode*) aNodesIter->next();
1962       aNode1 = aNode0;
1963       const SMDS_MeshNode* aNodes = (SMDS_MeshNode*) aNode1;
1964       aNodeId[0] = aNodeId[1] = aNodes->GetID();
1965     }
1966     for(; aNodesIter->more(); ) {
1967       aNode2 = (SMDS_MeshNode*) aNodesIter->next();
1968       long anId = aNode2->GetID();
1969       aNodeId[2] = anId;
1970
1971       Value aValue(aNodeId[1],aNodeId[2]);
1972       MValues::iterator aItr = theValues.find(aValue);
1973       if (aItr != theValues.end()){
1974         aItr->second += 1;
1975         //aNbConnects = nb;
1976       }
1977       else {
1978         theValues[aValue] = 1;
1979         //aNbConnects = 1;
1980       }
1981       //cout << "NodeIds: "<<aNodeId[1]<<","<<aNodeId[2]<<" nbconn="<<aNbConnects<<endl;
1982       aNodeId[1] = aNodeId[2];
1983       aNode1 = aNode2;
1984     }
1985     Value aValue(aNodeId[0],aNodeId[2]);
1986     MValues::iterator aItr = theValues.find(aValue);
1987     if (aItr != theValues.end()) {
1988       aItr->second += 1;
1989       //aNbConnects = nb;
1990     }
1991     else {
1992       theValues[aValue] = 1;
1993       //aNbConnects = 1;
1994     }
1995     //cout << "NodeIds: "<<aNodeId[0]<<","<<aNodeId[2]<<" nbconn="<<aNbConnects<<endl;
1996   }
1997
1998 }
1999
2000 //================================================================================
2001 /*
2002   Class       : BallDiameter
2003   Description : Functor returning diameter of a ball element
2004 */
2005 //================================================================================
2006
2007 double BallDiameter::GetValue( long theId )
2008 {
2009   double diameter = 0;
2010
2011   if ( const SMDS_BallElement* ball =
2012        dynamic_cast<const SMDS_BallElement*>( myMesh->FindElement( theId )))
2013   {
2014     diameter = ball->GetDiameter();
2015   }
2016   return diameter;
2017 }
2018
2019 double BallDiameter::GetBadRate( double Value, int /*nbNodes*/ ) const
2020 {
2021   // meaningless as it is not a quality control functor
2022   return Value;
2023 }
2024
2025 SMDSAbs_ElementType BallDiameter::GetType() const
2026 {
2027   return SMDSAbs_Ball;
2028 }
2029
2030
2031 /*
2032                             PREDICATES
2033 */
2034
2035 //================================================================================
2036 /*
2037   Class       : BadOrientedVolume
2038   Description : Predicate bad oriented volumes
2039 */
2040 //================================================================================
2041
2042 BadOrientedVolume::BadOrientedVolume()
2043 {
2044   myMesh = 0;
2045 }
2046
2047 void BadOrientedVolume::SetMesh( const SMDS_Mesh* theMesh )
2048 {
2049   myMesh = theMesh;
2050 }
2051
2052 bool BadOrientedVolume::IsSatisfy( long theId )
2053 {
2054   if ( myMesh == 0 )
2055     return false;
2056
2057   SMDS_VolumeTool vTool( myMesh->FindElement( theId ));
2058   return !vTool.IsForward();
2059 }
2060
2061 SMDSAbs_ElementType BadOrientedVolume::GetType() const
2062 {
2063   return SMDSAbs_Volume;
2064 }
2065
2066 /*
2067   Class       : BareBorderVolume
2068 */
2069
2070 bool BareBorderVolume::IsSatisfy(long theElementId )
2071 {
2072   SMDS_VolumeTool  myTool;
2073   if ( myTool.Set( myMesh->FindElement(theElementId)))
2074   {
2075     for ( int iF = 0; iF < myTool.NbFaces(); ++iF )
2076       if ( myTool.IsFreeFace( iF ))
2077       {
2078         const SMDS_MeshNode** n = myTool.GetFaceNodes(iF);
2079         vector< const SMDS_MeshNode*> nodes( n, n+myTool.NbFaceNodes(iF));
2080         if ( !myMesh->FindElement( nodes, SMDSAbs_Face, /*Nomedium=*/false))
2081           return true;
2082       }
2083   }
2084   return false;
2085 }
2086
2087 //================================================================================
2088 /*
2089   Class       : BareBorderFace
2090 */
2091 //================================================================================
2092
2093 bool BareBorderFace::IsSatisfy(long theElementId )
2094 {
2095   bool ok = false;
2096   if ( const SMDS_MeshElement* face = myMesh->FindElement(theElementId))
2097   {
2098     if ( face->GetType() == SMDSAbs_Face )
2099     {
2100       int nbN = face->NbCornerNodes();
2101       for ( int i = 0; i < nbN && !ok; ++i )
2102       {
2103         // check if a link is shared by another face
2104         const SMDS_MeshNode* n1 = face->GetNode( i );
2105         const SMDS_MeshNode* n2 = face->GetNode( (i+1)%nbN );
2106         SMDS_ElemIteratorPtr fIt = n1->GetInverseElementIterator( SMDSAbs_Face );
2107         bool isShared = false;
2108         while ( !isShared && fIt->more() )
2109         {
2110           const SMDS_MeshElement* f = fIt->next();
2111           isShared = ( f != face && f->GetNodeIndex(n2) != -1 );
2112         }
2113         if ( !isShared )
2114         {
2115           const int iQuad = face->IsQuadratic();
2116           myLinkNodes.resize( 2 + iQuad);
2117           myLinkNodes[0] = n1;
2118           myLinkNodes[1] = n2;
2119           if ( iQuad )
2120             myLinkNodes[2] = face->GetNode( i+nbN );
2121           ok = !myMesh->FindElement( myLinkNodes, SMDSAbs_Edge, /*noMedium=*/false);
2122         }
2123       }
2124     }
2125   }
2126   return ok;
2127 }
2128
2129 //================================================================================
2130 /*
2131   Class       : OverConstrainedVolume
2132 */
2133 //================================================================================
2134
2135 bool OverConstrainedVolume::IsSatisfy(long theElementId )
2136 {
2137   // An element is over-constrained if it has N-1 free borders where
2138   // N is the number of edges/faces for a 2D/3D element.
2139   SMDS_VolumeTool  myTool;
2140   if ( myTool.Set( myMesh->FindElement(theElementId)))
2141   {
2142     int nbSharedFaces = 0;
2143     for ( int iF = 0; iF < myTool.NbFaces(); ++iF )
2144       if ( !myTool.IsFreeFace( iF ) && ++nbSharedFaces > 1 )
2145         break;
2146     return ( nbSharedFaces == 1 );
2147   }
2148   return false;
2149 }
2150
2151 //================================================================================
2152 /*
2153   Class       : OverConstrainedFace
2154 */
2155 //================================================================================
2156
2157 bool OverConstrainedFace::IsSatisfy(long theElementId )
2158 {
2159   // An element is over-constrained if it has N-1 free borders where
2160   // N is the number of edges/faces for a 2D/3D element.
2161   if ( const SMDS_MeshElement* face = myMesh->FindElement(theElementId))
2162     if ( face->GetType() == SMDSAbs_Face )
2163     {
2164       int nbSharedBorders = 0;
2165       int nbN = face->NbCornerNodes();
2166       for ( int i = 0; i < nbN; ++i )
2167       {
2168         // check if a link is shared by another face
2169         const SMDS_MeshNode* n1 = face->GetNode( i );
2170         const SMDS_MeshNode* n2 = face->GetNode( (i+1)%nbN );
2171         SMDS_ElemIteratorPtr fIt = n1->GetInverseElementIterator( SMDSAbs_Face );
2172         bool isShared = false;
2173         while ( !isShared && fIt->more() )
2174         {
2175           const SMDS_MeshElement* f = fIt->next();
2176           isShared = ( f != face && f->GetNodeIndex(n2) != -1 );
2177         }
2178         if ( isShared && ++nbSharedBorders > 1 )
2179           break;
2180       }
2181       return ( nbSharedBorders == 1 );
2182     }
2183   return false;
2184 }
2185
2186 //================================================================================
2187 /*
2188   Class       : CoincidentNodes
2189   Description : Predicate of Coincident nodes
2190 */
2191 //================================================================================
2192
2193 CoincidentNodes::CoincidentNodes()
2194 {
2195   myToler = 1e-5;
2196 }
2197
2198 bool CoincidentNodes::IsSatisfy( long theElementId )
2199 {
2200   return myCoincidentIDs.Contains( theElementId );
2201 }
2202
2203 SMDSAbs_ElementType CoincidentNodes::GetType() const
2204 {
2205   return SMDSAbs_Node;
2206 }
2207
2208 void CoincidentNodes::SetMesh( const SMDS_Mesh* theMesh )
2209 {
2210   myMeshModifTracer.SetMesh( theMesh );
2211   if ( myMeshModifTracer.IsMeshModified() )
2212   {
2213     TIDSortedNodeSet nodesToCheck;
2214     SMDS_NodeIteratorPtr nIt = theMesh->nodesIterator(/*idInceasingOrder=*/true);
2215     while ( nIt->more() )
2216       nodesToCheck.insert( nodesToCheck.end(), nIt->next() );
2217
2218     list< list< const SMDS_MeshNode*> > nodeGroups;
2219     SMESH_OctreeNode::FindCoincidentNodes ( nodesToCheck, &nodeGroups, myToler );
2220
2221     myCoincidentIDs.Clear();
2222     list< list< const SMDS_MeshNode*> >::iterator groupIt = nodeGroups.begin();
2223     for ( ; groupIt != nodeGroups.end(); ++groupIt )
2224     {
2225       list< const SMDS_MeshNode*>& coincNodes = *groupIt;
2226       list< const SMDS_MeshNode*>::iterator n = coincNodes.begin();
2227       for ( ; n != coincNodes.end(); ++n )
2228         myCoincidentIDs.Add( (*n)->GetID() );
2229     }
2230   }
2231 }
2232
2233 //================================================================================
2234 /*
2235   Class       : CoincidentElements
2236   Description : Predicate of Coincident Elements
2237   Note        : This class is suitable only for visualization of Coincident Elements
2238 */
2239 //================================================================================
2240
2241 CoincidentElements::CoincidentElements()
2242 {
2243   myMesh = 0;
2244 }
2245
2246 void CoincidentElements::SetMesh( const SMDS_Mesh* theMesh )
2247 {
2248   myMesh = theMesh;
2249 }
2250
2251 bool CoincidentElements::IsSatisfy( long theElementId )
2252 {
2253   if ( !myMesh ) return false;
2254
2255   if ( const SMDS_MeshElement* e = myMesh->FindElement( theElementId ))
2256   {
2257     if ( e->GetType() != GetType() ) return false;
2258     set< const SMDS_MeshNode* > elemNodes( e->begin_nodes(), e->end_nodes() );
2259     const int nbNodes = e->NbNodes();
2260     SMDS_ElemIteratorPtr invIt = (*elemNodes.begin())->GetInverseElementIterator( GetType() );
2261     while ( invIt->more() )
2262     {
2263       const SMDS_MeshElement* e2 = invIt->next();
2264       if ( e2 == e || e2->NbNodes() != nbNodes ) continue;
2265
2266       bool sameNodes = true;
2267       for ( size_t i = 0; i < elemNodes.size() && sameNodes; ++i )
2268         sameNodes = ( elemNodes.count( e2->GetNode( i )));
2269       if ( sameNodes )
2270         return true;
2271     }
2272   }
2273   return false;
2274 }
2275
2276 SMDSAbs_ElementType CoincidentElements1D::GetType() const
2277 {
2278   return SMDSAbs_Edge;
2279 }
2280 SMDSAbs_ElementType CoincidentElements2D::GetType() const
2281 {
2282   return SMDSAbs_Face;
2283 }
2284 SMDSAbs_ElementType CoincidentElements3D::GetType() const
2285 {
2286   return SMDSAbs_Volume;
2287 }
2288
2289
2290 //================================================================================
2291 /*
2292   Class       : FreeBorders
2293   Description : Predicate for free borders
2294 */
2295 //================================================================================
2296
2297 FreeBorders::FreeBorders()
2298 {
2299   myMesh = 0;
2300 }
2301
2302 void FreeBorders::SetMesh( const SMDS_Mesh* theMesh )
2303 {
2304   myMesh = theMesh;
2305 }
2306
2307 bool FreeBorders::IsSatisfy( long theId )
2308 {
2309   return getNbMultiConnection( myMesh, theId ) == 1;
2310 }
2311
2312 SMDSAbs_ElementType FreeBorders::GetType() const
2313 {
2314   return SMDSAbs_Edge;
2315 }
2316
2317
2318 //================================================================================
2319 /*
2320   Class       : FreeEdges
2321   Description : Predicate for free Edges
2322 */
2323 //================================================================================
2324
2325 FreeEdges::FreeEdges()
2326 {
2327   myMesh = 0;
2328 }
2329
2330 void FreeEdges::SetMesh( const SMDS_Mesh* theMesh )
2331 {
2332   myMesh = theMesh;
2333 }
2334
2335 bool FreeEdges::IsFreeEdge( const SMDS_MeshNode** theNodes, const int theFaceId  )
2336 {
2337   TColStd_MapOfInteger aMap;
2338   for ( int i = 0; i < 2; i++ )
2339   {
2340     SMDS_ElemIteratorPtr anElemIter = theNodes[ i ]->GetInverseElementIterator(SMDSAbs_Face);
2341     while( anElemIter->more() )
2342     {
2343       if ( const SMDS_MeshElement* anElem = anElemIter->next())
2344       {
2345         const int anId = anElem->GetID();
2346         if ( anId != theFaceId && !aMap.Add( anId ))
2347           return false;
2348       }
2349     }
2350   }
2351   return true;
2352 }
2353
2354 bool FreeEdges::IsSatisfy( long theId )
2355 {
2356   if ( myMesh == 0 )
2357     return false;
2358
2359   const SMDS_MeshElement* aFace = myMesh->FindElement( theId );
2360   if ( aFace == 0 || aFace->GetType() != SMDSAbs_Face || aFace->NbNodes() < 3 )
2361     return false;
2362
2363   SMDS_ElemIteratorPtr anIter;
2364   if ( aFace->IsQuadratic() ) {
2365     anIter = dynamic_cast<const SMDS_VtkFace*>
2366       (aFace)->interlacedNodesElemIterator();
2367   }
2368   else {
2369     anIter = aFace->nodesIterator();
2370   }
2371   if ( !anIter )
2372     return false;
2373
2374   int i = 0, nbNodes = aFace->NbNodes();
2375   std::vector <const SMDS_MeshNode*> aNodes( nbNodes+1 );
2376   while( anIter->more() )
2377   {
2378     const SMDS_MeshNode* aNode = (SMDS_MeshNode*)anIter->next();
2379     if ( aNode == 0 )
2380       return false;
2381     aNodes[ i++ ] = aNode;
2382   }
2383   aNodes[ nbNodes ] = aNodes[ 0 ];
2384
2385   for ( i = 0; i < nbNodes; i++ )
2386     if ( IsFreeEdge( &aNodes[ i ], theId ) )
2387       return true;
2388
2389   return false;
2390 }
2391
2392 SMDSAbs_ElementType FreeEdges::GetType() const
2393 {
2394   return SMDSAbs_Face;
2395 }
2396
2397 FreeEdges::Border::Border(long theElemId, long thePntId1, long thePntId2):
2398   myElemId(theElemId)
2399 {
2400   myPntId[0] = thePntId1;  myPntId[1] = thePntId2;
2401   if(thePntId1 > thePntId2){
2402     myPntId[1] = thePntId1;  myPntId[0] = thePntId2;
2403   }
2404 }
2405
2406 bool FreeEdges::Border::operator<(const FreeEdges::Border& x) const{
2407   if(myPntId[0] < x.myPntId[0]) return true;
2408   if(myPntId[0] == x.myPntId[0])
2409     if(myPntId[1] < x.myPntId[1]) return true;
2410   return false;
2411 }
2412
2413 inline void UpdateBorders(const FreeEdges::Border& theBorder,
2414                           FreeEdges::TBorders& theRegistry,
2415                           FreeEdges::TBorders& theContainer)
2416 {
2417   if(theRegistry.find(theBorder) == theRegistry.end()){
2418     theRegistry.insert(theBorder);
2419     theContainer.insert(theBorder);
2420   }else{
2421     theContainer.erase(theBorder);
2422   }
2423 }
2424
2425 void FreeEdges::GetBoreders(TBorders& theBorders)
2426 {
2427   TBorders aRegistry;
2428   SMDS_FaceIteratorPtr anIter = myMesh->facesIterator();
2429   for(; anIter->more(); ){
2430     const SMDS_MeshFace* anElem = anIter->next();
2431     long anElemId = anElem->GetID();
2432     SMDS_ElemIteratorPtr aNodesIter;
2433     if ( anElem->IsQuadratic() )
2434       aNodesIter = static_cast<const SMDS_VtkFace*>(anElem)->
2435         interlacedNodesElemIterator();
2436     else
2437       aNodesIter = anElem->nodesIterator();
2438     long aNodeId[2];
2439     const SMDS_MeshElement* aNode;
2440     if(aNodesIter->more()){
2441       aNode = aNodesIter->next();
2442       aNodeId[0] = aNodeId[1] = aNode->GetID();
2443     }
2444     for(; aNodesIter->more(); ){
2445       aNode = aNodesIter->next();
2446       long anId = aNode->GetID();
2447       Border aBorder(anElemId,aNodeId[1],anId);
2448       aNodeId[1] = anId;
2449       UpdateBorders(aBorder,aRegistry,theBorders);
2450     }
2451     Border aBorder(anElemId,aNodeId[0],aNodeId[1]);
2452     UpdateBorders(aBorder,aRegistry,theBorders);
2453   }
2454 }
2455
2456 //================================================================================
2457 /*
2458   Class       : FreeNodes
2459   Description : Predicate for free nodes
2460 */
2461 //================================================================================
2462
2463 FreeNodes::FreeNodes()
2464 {
2465   myMesh = 0;
2466 }
2467
2468 void FreeNodes::SetMesh( const SMDS_Mesh* theMesh )
2469 {
2470   myMesh = theMesh;
2471 }
2472
2473 bool FreeNodes::IsSatisfy( long theNodeId )
2474 {
2475   const SMDS_MeshNode* aNode = myMesh->FindNode( theNodeId );
2476   if (!aNode)
2477     return false;
2478
2479   return (aNode->NbInverseElements() < 1);
2480 }
2481
2482 SMDSAbs_ElementType FreeNodes::GetType() const
2483 {
2484   return SMDSAbs_Node;
2485 }
2486
2487
2488 //================================================================================
2489 /*
2490   Class       : FreeFaces
2491   Description : Predicate for free faces
2492 */
2493 //================================================================================
2494
2495 FreeFaces::FreeFaces()
2496 {
2497   myMesh = 0;
2498 }
2499
2500 void FreeFaces::SetMesh( const SMDS_Mesh* theMesh )
2501 {
2502   myMesh = theMesh;
2503 }
2504
2505 bool FreeFaces::IsSatisfy( long theId )
2506 {
2507   if (!myMesh) return false;
2508   // check that faces nodes refers to less than two common volumes
2509   const SMDS_MeshElement* aFace = myMesh->FindElement( theId );
2510   if ( !aFace || aFace->GetType() != SMDSAbs_Face )
2511     return false;
2512
2513   int nbNode = aFace->NbNodes();
2514
2515   // collect volumes check that number of volumss with count equal nbNode not less than 2
2516   typedef map< SMDS_MeshElement*, int > TMapOfVolume; // map of volume counters
2517   typedef map< SMDS_MeshElement*, int >::iterator TItrMapOfVolume; // iterator
2518   TMapOfVolume mapOfVol;
2519
2520   SMDS_ElemIteratorPtr nodeItr = aFace->nodesIterator();
2521   while ( nodeItr->more() ) {
2522     const SMDS_MeshNode* aNode = static_cast<const SMDS_MeshNode*>(nodeItr->next());
2523     if ( !aNode ) continue;
2524     SMDS_ElemIteratorPtr volItr = aNode->GetInverseElementIterator(SMDSAbs_Volume);
2525     while ( volItr->more() ) {
2526       SMDS_MeshElement* aVol = (SMDS_MeshElement*)volItr->next();
2527       TItrMapOfVolume itr = mapOfVol.insert(make_pair(aVol, 0)).first;
2528       (*itr).second++;
2529     } 
2530   }
2531   int nbVol = 0;
2532   TItrMapOfVolume volItr = mapOfVol.begin();
2533   TItrMapOfVolume volEnd = mapOfVol.end();
2534   for ( ; volItr != volEnd; ++volItr )
2535     if ( (*volItr).second >= nbNode )
2536        nbVol++;
2537   // face is not free if number of volumes constructed on thier nodes more than one
2538   return (nbVol < 2);
2539 }
2540
2541 SMDSAbs_ElementType FreeFaces::GetType() const
2542 {
2543   return SMDSAbs_Face;
2544 }
2545
2546 //================================================================================
2547 /*
2548   Class       : LinearOrQuadratic
2549   Description : Predicate to verify whether a mesh element is linear
2550 */
2551 //================================================================================
2552
2553 LinearOrQuadratic::LinearOrQuadratic()
2554 {
2555   myMesh = 0;
2556 }
2557
2558 void LinearOrQuadratic::SetMesh( const SMDS_Mesh* theMesh )
2559 {
2560   myMesh = theMesh;
2561 }
2562
2563 bool LinearOrQuadratic::IsSatisfy( long theId )
2564 {
2565   if (!myMesh) return false;
2566   const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
2567   if ( !anElem || (myType != SMDSAbs_All && anElem->GetType() != myType) )
2568     return false;
2569   return (!anElem->IsQuadratic());
2570 }
2571
2572 void LinearOrQuadratic::SetType( SMDSAbs_ElementType theType )
2573 {
2574   myType = theType;
2575 }
2576
2577 SMDSAbs_ElementType LinearOrQuadratic::GetType() const
2578 {
2579   return myType;
2580 }
2581
2582 //================================================================================
2583 /*
2584   Class       : GroupColor
2585   Description : Functor for check color of group to whic mesh element belongs to
2586 */
2587 //================================================================================
2588
2589 GroupColor::GroupColor()
2590 {
2591 }
2592
2593 bool GroupColor::IsSatisfy( long theId )
2594 {
2595   return (myIDs.find( theId ) != myIDs.end());
2596 }
2597
2598 void GroupColor::SetType( SMDSAbs_ElementType theType )
2599 {
2600   myType = theType;
2601 }
2602
2603 SMDSAbs_ElementType GroupColor::GetType() const
2604 {
2605   return myType;
2606 }
2607
2608 static bool isEqual( const Quantity_Color& theColor1,
2609                      const Quantity_Color& theColor2 )
2610 {
2611   // tolerance to compare colors
2612   const double tol = 5*1e-3;
2613   return ( fabs( theColor1.Red() - theColor2.Red() ) < tol &&
2614            fabs( theColor1.Green() - theColor2.Green() ) < tol &&
2615            fabs( theColor1.Blue() - theColor2.Blue() ) < tol );
2616 }
2617
2618
2619 void GroupColor::SetMesh( const SMDS_Mesh* theMesh )
2620 {
2621   myIDs.clear();
2622   
2623   const SMESHDS_Mesh* aMesh = dynamic_cast<const SMESHDS_Mesh*>(theMesh);
2624   if ( !aMesh )
2625     return;
2626
2627   int nbGrp = aMesh->GetNbGroups();
2628   if ( !nbGrp )
2629     return;
2630   
2631   // iterates on groups and find necessary elements ids
2632   const std::set<SMESHDS_GroupBase*>& aGroups = aMesh->GetGroups();
2633   set<SMESHDS_GroupBase*>::const_iterator GrIt = aGroups.begin();
2634   for (; GrIt != aGroups.end(); GrIt++) {
2635     SMESHDS_GroupBase* aGrp = (*GrIt);
2636     if ( !aGrp )
2637       continue;
2638     // check type and color of group
2639     if ( !isEqual( myColor, aGrp->GetColor() ) )
2640       continue;
2641     if ( myType != SMDSAbs_All && myType != (SMDSAbs_ElementType)aGrp->GetType() )
2642       continue;
2643
2644     SMDSAbs_ElementType aGrpElType = (SMDSAbs_ElementType)aGrp->GetType();
2645     if ( myType == aGrpElType || (myType == SMDSAbs_All && aGrpElType != SMDSAbs_Node) ) {
2646       // add elements IDS into control
2647       int aSize = aGrp->Extent();
2648       for (int i = 0; i < aSize; i++)
2649         myIDs.insert( aGrp->GetID(i+1) );
2650     }
2651   }
2652 }
2653
2654 void GroupColor::SetColorStr( const TCollection_AsciiString& theStr )
2655 {
2656   TCollection_AsciiString aStr = theStr;
2657   aStr.RemoveAll( ' ' );
2658   aStr.RemoveAll( '\t' );
2659   for ( int aPos = aStr.Search( ";;" ); aPos != -1; aPos = aStr.Search( ";;" ) )
2660     aStr.Remove( aPos, 2 );
2661   Standard_Real clr[3];
2662   clr[0] = clr[1] = clr[2] = 0.;
2663   for ( int i = 0; i < 3; i++ ) {
2664     TCollection_AsciiString tmpStr = aStr.Token( ";", i+1 );
2665     if ( !tmpStr.IsEmpty() && tmpStr.IsRealValue() )
2666       clr[i] = tmpStr.RealValue();
2667   }
2668   myColor = Quantity_Color( clr[0], clr[1], clr[2], Quantity_TOC_RGB );
2669 }
2670
2671 //=======================================================================
2672 // name    : GetRangeStr
2673 // Purpose : Get range as a string.
2674 //           Example: "1,2,3,50-60,63,67,70-"
2675 //=======================================================================
2676
2677 void GroupColor::GetColorStr( TCollection_AsciiString& theResStr ) const
2678 {
2679   theResStr.Clear();
2680   theResStr += TCollection_AsciiString( myColor.Red() );
2681   theResStr += TCollection_AsciiString( ";" ) + TCollection_AsciiString( myColor.Green() );
2682   theResStr += TCollection_AsciiString( ";" ) + TCollection_AsciiString( myColor.Blue() );
2683 }
2684
2685 //================================================================================
2686 /*
2687   Class       : ElemGeomType
2688   Description : Predicate to check element geometry type
2689 */
2690 //================================================================================
2691
2692 ElemGeomType::ElemGeomType()
2693 {
2694   myMesh = 0;
2695   myType = SMDSAbs_All;
2696   myGeomType = SMDSGeom_TRIANGLE;
2697 }
2698
2699 void ElemGeomType::SetMesh( const SMDS_Mesh* theMesh )
2700 {
2701   myMesh = theMesh;
2702 }
2703
2704 bool ElemGeomType::IsSatisfy( long theId )
2705 {
2706   if (!myMesh) return false;
2707   const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
2708   if ( !anElem )
2709     return false;
2710   const SMDSAbs_ElementType anElemType = anElem->GetType();
2711   if ( myType != SMDSAbs_All && anElemType != myType )
2712     return false;
2713   bool isOk = ( anElem->GetGeomType() == myGeomType );
2714   return isOk;
2715 }
2716
2717 void ElemGeomType::SetType( SMDSAbs_ElementType theType )
2718 {
2719   myType = theType;
2720 }
2721
2722 SMDSAbs_ElementType ElemGeomType::GetType() const
2723 {
2724   return myType;
2725 }
2726
2727 void ElemGeomType::SetGeomType( SMDSAbs_GeometryType theType )
2728 {
2729   myGeomType = theType;
2730 }
2731
2732 SMDSAbs_GeometryType ElemGeomType::GetGeomType() const
2733 {
2734   return myGeomType;
2735 }
2736
2737 //================================================================================
2738 /*
2739   Class       : ElemEntityType
2740   Description : Predicate to check element entity type
2741 */
2742 //================================================================================
2743
2744 ElemEntityType::ElemEntityType():
2745   myMesh( 0 ),
2746   myType( SMDSAbs_All ),
2747   myEntityType( SMDSEntity_0D )
2748 {
2749 }
2750
2751 void ElemEntityType::SetMesh( const SMDS_Mesh* theMesh )
2752 {
2753   myMesh = theMesh;
2754 }
2755
2756 bool ElemEntityType::IsSatisfy( long theId )
2757 {
2758   if ( !myMesh ) return false;
2759   const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
2760   return ( anElem &&
2761            myEntityType == anElem->GetEntityType() &&
2762            ( myType == SMDSAbs_Edge || myType == SMDSAbs_Face || myType ==  SMDSAbs_Volume ));
2763 }
2764
2765 void ElemEntityType::SetType( SMDSAbs_ElementType theType )
2766 {
2767   myType = theType;
2768 }
2769
2770 SMDSAbs_ElementType ElemEntityType::GetType() const
2771 {
2772   return myType;
2773 }
2774
2775 void ElemEntityType::SetElemEntityType( SMDSAbs_EntityType theEntityType )
2776 {
2777   myEntityType = theEntityType;
2778 }
2779
2780 SMDSAbs_EntityType ElemEntityType::GetElemEntityType() const
2781 {
2782   return myEntityType;
2783 }
2784
2785 //================================================================================
2786 /*!
2787  * \brief Class CoplanarFaces
2788  */
2789 //================================================================================
2790
2791 CoplanarFaces::CoplanarFaces()
2792   : myFaceID(0), myToler(0)
2793 {
2794 }
2795 void CoplanarFaces::SetMesh( const SMDS_Mesh* theMesh )
2796 {
2797   myMeshModifTracer.SetMesh( theMesh );
2798   if ( myMeshModifTracer.IsMeshModified() )
2799   {
2800     // Build a set of coplanar face ids
2801
2802     myCoplanarIDs.clear();
2803
2804     if ( !myMeshModifTracer.GetMesh() || !myFaceID || !myToler )
2805       return;
2806
2807     const SMDS_MeshElement* face = myMeshModifTracer.GetMesh()->FindElement( myFaceID );
2808     if ( !face || face->GetType() != SMDSAbs_Face )
2809       return;
2810
2811     bool normOK;
2812     gp_Vec myNorm = getNormale( static_cast<const SMDS_MeshFace*>(face), &normOK );
2813     if (!normOK)
2814       return;
2815
2816     const double radianTol = myToler * M_PI / 180.;
2817     std::set< SMESH_TLink > checkedLinks;
2818
2819     std::list< pair< const SMDS_MeshElement*, gp_Vec > > faceQueue;
2820     faceQueue.push_back( make_pair( face, myNorm ));
2821     while ( !faceQueue.empty() )
2822     {
2823       face   = faceQueue.front().first;
2824       myNorm = faceQueue.front().second;
2825       faceQueue.pop_front();
2826
2827       for ( int i = 0, nbN = face->NbCornerNodes(); i < nbN; ++i )
2828       {
2829         const SMDS_MeshNode*  n1 = face->GetNode( i );
2830         const SMDS_MeshNode*  n2 = face->GetNode(( i+1 )%nbN);
2831         if ( !checkedLinks.insert( SMESH_TLink( n1, n2 )).second )
2832           continue;
2833         SMDS_ElemIteratorPtr fIt = n1->GetInverseElementIterator(SMDSAbs_Face);
2834         while ( fIt->more() )
2835         {
2836           const SMDS_MeshElement* f = fIt->next();
2837           if ( f->GetNodeIndex( n2 ) > -1 )
2838           {
2839             gp_Vec norm = getNormale( static_cast<const SMDS_MeshFace*>(f), &normOK );
2840             if (!normOK || myNorm.Angle( norm ) <= radianTol)
2841             {
2842               myCoplanarIDs.insert( f->GetID() );
2843               faceQueue.push_back( make_pair( f, norm ));
2844             }
2845           }
2846         }
2847       }
2848     }
2849   }
2850 }
2851 bool CoplanarFaces::IsSatisfy( long theElementId )
2852 {
2853   return myCoplanarIDs.count( theElementId );
2854 }
2855
2856 /*
2857  *Class       : RangeOfIds
2858   *Description : Predicate for Range of Ids.
2859   *              Range may be specified with two ways.
2860   *              1. Using AddToRange method
2861   *              2. With SetRangeStr method. Parameter of this method is a string
2862   *                 like as "1,2,3,50-60,63,67,70-"
2863 */
2864
2865 //=======================================================================
2866 // name    : RangeOfIds
2867 // Purpose : Constructor
2868 //=======================================================================
2869 RangeOfIds::RangeOfIds()
2870 {
2871   myMesh = 0;
2872   myType = SMDSAbs_All;
2873 }
2874
2875 //=======================================================================
2876 // name    : SetMesh
2877 // Purpose : Set mesh
2878 //=======================================================================
2879 void RangeOfIds::SetMesh( const SMDS_Mesh* theMesh )
2880 {
2881   myMesh = theMesh;
2882 }
2883
2884 //=======================================================================
2885 // name    : AddToRange
2886 // Purpose : Add ID to the range
2887 //=======================================================================
2888 bool RangeOfIds::AddToRange( long theEntityId )
2889 {
2890   myIds.Add( theEntityId );
2891   return true;
2892 }
2893
2894 //=======================================================================
2895 // name    : GetRangeStr
2896 // Purpose : Get range as a string.
2897 //           Example: "1,2,3,50-60,63,67,70-"
2898 //=======================================================================
2899 void RangeOfIds::GetRangeStr( TCollection_AsciiString& theResStr )
2900 {
2901   theResStr.Clear();
2902
2903   TColStd_SequenceOfInteger     anIntSeq;
2904   TColStd_SequenceOfAsciiString aStrSeq;
2905
2906   TColStd_MapIteratorOfMapOfInteger anIter( myIds );
2907   for ( ; anIter.More(); anIter.Next() )
2908   {
2909     int anId = anIter.Key();
2910     TCollection_AsciiString aStr( anId );
2911     anIntSeq.Append( anId );
2912     aStrSeq.Append( aStr );
2913   }
2914
2915   for ( int i = 1, n = myMin.Length(); i <= n; i++ )
2916   {
2917     int aMinId = myMin( i );
2918     int aMaxId = myMax( i );
2919
2920     TCollection_AsciiString aStr;
2921     if ( aMinId != IntegerFirst() )
2922       aStr += aMinId;
2923
2924     aStr += "-";
2925
2926     if ( aMaxId != IntegerLast() )
2927       aStr += aMaxId;
2928
2929     // find position of the string in result sequence and insert string in it
2930     if ( anIntSeq.Length() == 0 )
2931     {
2932       anIntSeq.Append( aMinId );
2933       aStrSeq.Append( aStr );
2934     }
2935     else
2936     {
2937       if ( aMinId < anIntSeq.First() )
2938       {
2939         anIntSeq.Prepend( aMinId );
2940         aStrSeq.Prepend( aStr );
2941       }
2942       else if ( aMinId > anIntSeq.Last() )
2943       {
2944         anIntSeq.Append( aMinId );
2945         aStrSeq.Append( aStr );
2946       }
2947       else
2948         for ( int j = 1, k = anIntSeq.Length(); j <= k; j++ )
2949           if ( aMinId < anIntSeq( j ) )
2950           {
2951             anIntSeq.InsertBefore( j, aMinId );
2952             aStrSeq.InsertBefore( j, aStr );
2953             break;
2954           }
2955     }
2956   }
2957
2958   if ( aStrSeq.Length() == 0 )
2959     return;
2960
2961   theResStr = aStrSeq( 1 );
2962   for ( int j = 2, k = aStrSeq.Length(); j <= k; j++  )
2963   {
2964     theResStr += ",";
2965     theResStr += aStrSeq( j );
2966   }
2967 }
2968
2969 //=======================================================================
2970 // name    : SetRangeStr
2971 // Purpose : Define range with string
2972 //           Example of entry string: "1,2,3,50-60,63,67,70-"
2973 //=======================================================================
2974 bool RangeOfIds::SetRangeStr( const TCollection_AsciiString& theStr )
2975 {
2976   myMin.Clear();
2977   myMax.Clear();
2978   myIds.Clear();
2979
2980   TCollection_AsciiString aStr = theStr;
2981   aStr.RemoveAll( ' ' );
2982   aStr.RemoveAll( '\t' );
2983
2984   for ( int aPos = aStr.Search( ",," ); aPos != -1; aPos = aStr.Search( ",," ) )
2985     aStr.Remove( aPos, 2 );
2986
2987   TCollection_AsciiString tmpStr = aStr.Token( ",", 1 );
2988   int i = 1;
2989   while ( tmpStr != "" )
2990   {
2991     tmpStr = aStr.Token( ",", i++ );
2992     int aPos = tmpStr.Search( '-' );
2993
2994     if ( aPos == -1 )
2995     {
2996       if ( tmpStr.IsIntegerValue() )
2997         myIds.Add( tmpStr.IntegerValue() );
2998       else
2999         return false;
3000     }
3001     else
3002     {
3003       TCollection_AsciiString aMaxStr = tmpStr.Split( aPos );
3004       TCollection_AsciiString aMinStr = tmpStr;
3005
3006       while ( aMinStr.Search( "-" ) != -1 ) aMinStr.RemoveAll( '-' );
3007       while ( aMaxStr.Search( "-" ) != -1 ) aMaxStr.RemoveAll( '-' );
3008
3009       if ( (!aMinStr.IsEmpty() && !aMinStr.IsIntegerValue()) ||
3010            (!aMaxStr.IsEmpty() && !aMaxStr.IsIntegerValue()) )
3011         return false;
3012
3013       myMin.Append( aMinStr.IsEmpty() ? IntegerFirst() : aMinStr.IntegerValue() );
3014       myMax.Append( aMaxStr.IsEmpty() ? IntegerLast()  : aMaxStr.IntegerValue() );
3015     }
3016   }
3017
3018   return true;
3019 }
3020
3021 //=======================================================================
3022 // name    : GetType
3023 // Purpose : Get type of supported entities
3024 //=======================================================================
3025 SMDSAbs_ElementType RangeOfIds::GetType() const
3026 {
3027   return myType;
3028 }
3029
3030 //=======================================================================
3031 // name    : SetType
3032 // Purpose : Set type of supported entities
3033 //=======================================================================
3034 void RangeOfIds::SetType( SMDSAbs_ElementType theType )
3035 {
3036   myType = theType;
3037 }
3038
3039 //=======================================================================
3040 // name    : IsSatisfy
3041 // Purpose : Verify whether entity satisfies to this rpedicate
3042 //=======================================================================
3043 bool RangeOfIds::IsSatisfy( long theId )
3044 {
3045   if ( !myMesh )
3046     return false;
3047
3048   if ( myType == SMDSAbs_Node )
3049   {
3050     if ( myMesh->FindNode( theId ) == 0 )
3051       return false;
3052   }
3053   else
3054   {
3055     const SMDS_MeshElement* anElem = myMesh->FindElement( theId );
3056     if ( anElem == 0 || (myType != anElem->GetType() && myType != SMDSAbs_All ))
3057       return false;
3058   }
3059
3060   if ( myIds.Contains( theId ) )
3061     return true;
3062
3063   for ( int i = 1, n = myMin.Length(); i <= n; i++ )
3064     if ( theId >= myMin( i ) && theId <= myMax( i ) )
3065       return true;
3066
3067   return false;
3068 }
3069
3070 /*
3071   Class       : Comparator
3072   Description : Base class for comparators
3073 */
3074 Comparator::Comparator():
3075   myMargin(0)
3076 {}
3077
3078 Comparator::~Comparator()
3079 {}
3080
3081 void Comparator::SetMesh( const SMDS_Mesh* theMesh )
3082 {
3083   if ( myFunctor )
3084     myFunctor->SetMesh( theMesh );
3085 }
3086
3087 void Comparator::SetMargin( double theValue )
3088 {
3089   myMargin = theValue;
3090 }
3091
3092 void Comparator::SetNumFunctor( NumericalFunctorPtr theFunct )
3093 {
3094   myFunctor = theFunct;
3095 }
3096
3097 SMDSAbs_ElementType Comparator::GetType() const
3098 {
3099   return myFunctor ? myFunctor->GetType() : SMDSAbs_All;
3100 }
3101
3102 double Comparator::GetMargin()
3103 {
3104   return myMargin;
3105 }
3106
3107
3108 /*
3109   Class       : LessThan
3110   Description : Comparator "<"
3111 */
3112 bool LessThan::IsSatisfy( long theId )
3113 {
3114   return myFunctor && myFunctor->GetValue( theId ) < myMargin;
3115 }
3116
3117
3118 /*
3119   Class       : MoreThan
3120   Description : Comparator ">"
3121 */
3122 bool MoreThan::IsSatisfy( long theId )
3123 {
3124   return myFunctor && myFunctor->GetValue( theId ) > myMargin;
3125 }
3126
3127
3128 /*
3129   Class       : EqualTo
3130   Description : Comparator "="
3131 */
3132 EqualTo::EqualTo():
3133   myToler(Precision::Confusion())
3134 {}
3135
3136 bool EqualTo::IsSatisfy( long theId )
3137 {
3138   return myFunctor && fabs( myFunctor->GetValue( theId ) - myMargin ) < myToler;
3139 }
3140
3141 void EqualTo::SetTolerance( double theToler )
3142 {
3143   myToler = theToler;
3144 }
3145
3146 double EqualTo::GetTolerance()
3147 {
3148   return myToler;
3149 }
3150
3151 /*
3152   Class       : LogicalNOT
3153   Description : Logical NOT predicate
3154 */
3155 LogicalNOT::LogicalNOT()
3156 {}
3157
3158 LogicalNOT::~LogicalNOT()
3159 {}
3160
3161 bool LogicalNOT::IsSatisfy( long theId )
3162 {
3163   return myPredicate && !myPredicate->IsSatisfy( theId );
3164 }
3165
3166 void LogicalNOT::SetMesh( const SMDS_Mesh* theMesh )
3167 {
3168   if ( myPredicate )
3169     myPredicate->SetMesh( theMesh );
3170 }
3171
3172 void LogicalNOT::SetPredicate( PredicatePtr thePred )
3173 {
3174   myPredicate = thePred;
3175 }
3176
3177 SMDSAbs_ElementType LogicalNOT::GetType() const
3178 {
3179   return myPredicate ? myPredicate->GetType() : SMDSAbs_All;
3180 }
3181
3182
3183 /*
3184   Class       : LogicalBinary
3185   Description : Base class for binary logical predicate
3186 */
3187 LogicalBinary::LogicalBinary()
3188 {}
3189
3190 LogicalBinary::~LogicalBinary()
3191 {}
3192
3193 void LogicalBinary::SetMesh( const SMDS_Mesh* theMesh )
3194 {
3195   if ( myPredicate1 )
3196     myPredicate1->SetMesh( theMesh );
3197
3198   if ( myPredicate2 )
3199     myPredicate2->SetMesh( theMesh );
3200 }
3201
3202 void LogicalBinary::SetPredicate1( PredicatePtr thePredicate )
3203 {
3204   myPredicate1 = thePredicate;
3205 }
3206
3207 void LogicalBinary::SetPredicate2( PredicatePtr thePredicate )
3208 {
3209   myPredicate2 = thePredicate;
3210 }
3211
3212 SMDSAbs_ElementType LogicalBinary::GetType() const
3213 {
3214   if ( !myPredicate1 || !myPredicate2 )
3215     return SMDSAbs_All;
3216
3217   SMDSAbs_ElementType aType1 = myPredicate1->GetType();