src/GEOMImpl/GEOMImpl_GlueDriver.cxx

   1 // Copyright (C) 2007-2013  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
  23 #include <Standard_Stream.hxx>
  24
  25 #include <GEOMImpl_GlueDriver.hxx>
  26 #include <GEOMImpl_IGlue.hxx>
  27 #include <GEOMImpl_Types.hxx>
  28
  29 #include <GEOM_Object.hxx>
  30 #include <GEOM_Function.hxx>
  31
  32 #include "GEOMAlgo_Gluer2.hxx"
  33 #include "GEOMAlgo_ListIteratorOfListOfCoupleOfShapes.hxx"
  34 #include "GEOMAlgo_CoupleOfShapes.hxx"
  35 #include "GEOMAlgo_ListOfCoupleOfShapes.hxx"
  36
  37 #include <Basics_OCCTVersion.hxx>
  38
  39 #include "utilities.h"
  40
  41 #include <TDataStd_IntegerArray.hxx>
  42
  43 #include <TopExp.hxx>
  44 #include <TopoDS_Shape.hxx>
  45 #include <TopTools_DataMapIteratorOfDataMapOfShapeListOfShape.hxx>
  46 #include <TopTools_IndexedMapOfShape.hxx>
  47 #include <TopTools_ListOfShape.hxx>
  48 #include <TopTools_ListIteratorOfListOfShape.hxx>
  49
  50 #include <ShapeFix_Shape.hxx>
  51
  52 #include <Standard_NullObject.hxx>
  53 #include <Standard_Failure.hxx>
  54
  55 #define MSG_BAD_TOLERANCE "Tolerance is too big"
  56 #define MSG_BAD_ARG_SHAPE "Argument shape is not a compound of hexahedral solids"
  57
  58 //=======================================================================
  59 //function : GEOMImpl_GlueDriver
  60 //purpose  :
  61 //=======================================================================
  62 GEOMImpl_GlueDriver::GEOMImpl_GlueDriver()
  63 {
  64 }
  65
  66 //=======================================================================
  67 //function : GetID
  68 //purpose  :
  69 //=======================================================================
  70 const Standard_GUID& GEOMImpl_GlueDriver::GetID()
  71 {
  72   static Standard_GUID aGlueDriver("FF1BBB63-5D14-4df2-980B-3A668264EA16");
  73   return aGlueDriver;
  74 }
  75
  76 //=======================================================================
  77 //function : GlueFacesWithWarnings
  78 //purpose  :
  79 //=======================================================================
  80 /*
  81 TopoDS_Shape GEOMImpl_GlueDriver::GlueFacesWithWarnings (const TopoDS_Shape& theShape,
  82                                                          const Standard_Real theTolerance,
  83                                                          const Standard_Boolean doKeepNonSolids,
  84                                                          TCollection_AsciiString& theWarning) const
  85 {
  86   Standard_Integer iErr, iWrn;
  87   TopoDS_Shape aRes;
  88   GEOMAlgo_Gluer aGluer;
  89
  90   aGluer.SetShape(theShape);
  91   aGluer.SetTolerance(theTolerance);
  92   aGluer.SetCheckGeometry(Standard_True);
  93   aGluer.SetKeepNonSolids(doKeepNonSolids);
  94
  95   aGluer.Perform();
  96
  97   iErr = aGluer.ErrorStatus();
  98   if (iErr) {
  99     switch (iErr) {
 100     case 2:
 101       Standard_Failure::Raise("No vertices found in source shape");
 102       break;
 103     case 3:
 104     case 4:
 105       Standard_Failure::Raise(MSG_BAD_TOLERANCE " or " MSG_BAD_ARG_SHAPE);
 106       break;
 107     case 5:
 108       Standard_Failure::Raise("Source shape is Null");
 109       break;
 110     case 6:
 111       Standard_Failure::Raise("Result shape is Null");
 112       break;
 113     case 100:
 114       Standard_Failure::Raise(MSG_BAD_TOLERANCE);
 115       break;
 116     case 101:
 117     case 102:
 118       Standard_Failure::Raise(MSG_BAD_ARG_SHAPE);
 119       break;
 120     case 200:
 121       Standard_Failure::Raise("Error occured during check of geometric coincidence");
 122       break;
 123     default:
 124       {
 125         // description of all errors see in GEOMAlgo_Gluer.cxx
 126         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer with code ");
 127         aMsg += TCollection_AsciiString(iErr);
 128         Standard_Failure::Raise(aMsg.ToCString());
 129         break;
 130       }
 131     }
 132     return aRes;
 133   }
 134
 135   iWrn = aGluer.WarningStatus();
 136   if (iWrn) {
 137     switch (iWrn) {
 138     case 1:
 139       {
 140         Standard_Integer nbAlone = aGluer.AloneShapes();
 141         theWarning = TCollection_AsciiString(nbAlone);
 142         theWarning += " solid(s) can not be glued by faces";
 143       }
 144       break;
 145     default:
 146       // description of all warnings see in GEOMAlgo_Gluer.cxx
 147       theWarning = "Warning in GEOMAlgo_Gluer with code ";
 148       theWarning += TCollection_AsciiString(iWrn);
 149       break;
 150     }
 151   }
 152
 153   aRes = aGluer.Result();
 154
 155   // SKL 18.01.2010 - patch for 20662
 156   Handle(ShapeFix_Shape) aSfs = new ShapeFix_Shape(aRes);
 157   aSfs->SetPrecision(Precision::Confusion());
 158   aSfs->Perform();
 159   aRes = aSfs->Shape();
 160
 161   // Fill history to be used by GetInPlace functionality
 162   TopTools_IndexedMapOfShape aResIndices;
 163   TopExp::MapShapes(aRes, aResIndices);
 164
 165   Handle(GEOM_Function) aFunction = GEOM_Function::GetFunction(Label());
 166
 167   // history for all argument shapes
 168   TDF_LabelSequence aLabelSeq;
 169   aFunction->GetDependency(aLabelSeq);
 170   Standard_Integer nbArg = aLabelSeq.Length();
 171
 172   for (Standard_Integer iarg = 1; iarg <= nbArg; iarg++) {
 173
 174     TDF_Label anArgumentRefLabel = aLabelSeq.Value(iarg);
 175
 176     Handle(GEOM_Object) anArgumentObject = GEOM_Object::GetReferencedObject(anArgumentRefLabel);
 177     TopoDS_Shape anArgumentShape = anArgumentObject->GetValue();
 178
 179     TopTools_IndexedMapOfShape anArgumentIndices;
 180     TopExp::MapShapes(anArgumentShape, anArgumentIndices);
 181     Standard_Integer nbArgumentEntities = anArgumentIndices.Extent();
 182
 183     // Find corresponding label in history
 184     TDF_Label anArgumentHistoryLabel =
 185       aFunction->GetArgumentHistoryEntry(anArgumentRefLabel, Standard_True);
 186
 187     for (Standard_Integer ie = 1; ie <= nbArgumentEntities; ie++) {
 188       TopoDS_Shape anEntity = anArgumentIndices.FindKey(ie);
 189       const TopTools_ListOfShape& aModified = aGluer.Modified(anEntity);
 190       Standard_Integer nbModified = aModified.Extent();
 191
 192       if (nbModified > 0) {
 193         TDF_Label aWhatHistoryLabel = anArgumentHistoryLabel.FindChild(ie, Standard_True);
 194         Handle(TDataStd_IntegerArray) anAttr =
 195           TDataStd_IntegerArray::Set(aWhatHistoryLabel, 1, nbModified);
 196
 197         TopTools_ListIteratorOfListOfShape itM (aModified);
 198         for (int im = 1; itM.More(); itM.Next(), ++im) {
 199           int id = aResIndices.FindIndex(itM.Value());
 200           anAttr->SetValue(im, id);
 201         }
 202       }
 203     }
 204   }
 205
 206   return aRes;
 207 }
 208
 209 //=======================================================================
 210 //function : GlueFaces
 211 //purpose  :
 212 //=======================================================================
 213 TopoDS_Shape GEOMImpl_GlueDriver::GlueFaces (const TopoDS_Shape& theShape,
 214                                              const Standard_Real theTolerance,
 215                                              const Standard_Boolean doKeepNonSolids)
 216 {
 217   TopoDS_Shape aRes;
 218   GEOMAlgo_Gluer aGluer;
 219
 220   aGluer.SetShape(theShape);
 221   aGluer.SetTolerance(theTolerance);
 222   aGluer.SetCheckGeometry(Standard_True);
 223   aGluer.SetKeepNonSolids(doKeepNonSolids);
 224
 225   aGluer.Perform();
 226
 227   Standard_Integer iErr = aGluer.ErrorStatus();
 228   if (iErr) {
 229     switch (iErr) {
 230     case 2:
 231       Standard_Failure::Raise("No vertices found in source shape");
 232       break;
 233     case 5:
 234       Standard_Failure::Raise("Source shape is Null");
 235       break;
 236     case 6:
 237       Standard_Failure::Raise("Result shape is Null");
 238       break;
 239     case 200:
 240       Standard_Failure::Raise("Error occured during check of geometric coincidence");
 241       break;
 242     default:
 243       {
 244         // description of all errors see in GEOMAlgo_Gluer.cxx
 245         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer with code ");
 246         aMsg += TCollection_AsciiString(iErr);
 247         Standard_Failure::Raise(aMsg.ToCString());
 248         break;
 249       }
 250     }
 251     return aRes;
 252   }
 253
 254   Standard_Integer iWrn = aGluer.WarningStatus();
 255   if (iWrn) {
 256     switch (iWrn) {
 257     case 1:
 258       MESSAGE("Some shapes can not be glued by faces");
 259       break;
 260     default:
 261       // description of all warnings see in GEOMAlgo_Gluer.cxx
 262       MESSAGE("Warning in GEOMAlgo_Gluer with code " << iWrn);
 263       break;
 264     }
 265   }
 266
 267   aRes = aGluer.Result();
 268
 269   return aRes;
 270 }
 271
 272 //=======================================================================
 273 //function : GlueFacesByList
 274 //purpose  :
 275 //=======================================================================
 276 TopoDS_Shape GEOMImpl_GlueDriver::GlueFacesByList (const TopoDS_Shape& theShape,
 277                                                    const Standard_Real theTolerance,
 278                                                    const Standard_Boolean doKeepNonSolids,
 279                                                    const TopTools_MapOfShape& aFaces)
 280 {
 281   TopoDS_Shape aRes;
 282
 283   GEOMAlgo_Gluer1 aGluer;
 284   GEOMAlgo_ListIteratorOfListOfCoupleOfShapes aItCS;
 285   GEOMAlgo_CoupleOfShapes aCS;
 286   GEOMAlgo_ListOfCoupleOfShapes aLCS;
 287
 288   aGluer.SetShape(theShape);
 289   aGluer.SetTolerance(theTolerance);
 290   aGluer.SetKeepNonSolids(doKeepNonSolids);
 291   aGluer.Perform();
 292   Standard_Integer iErr = aGluer.ErrorStatus();
 293   if (iErr) return aRes;
 294
 295   TopTools_ListOfShape listShape;
 296   const GEOMAlgo_ListOfCoupleOfShapes& aLCSG = aGluer.GluedFaces();
 297   // Access to faces
 298   aItCS.Initialize(aLCSG);
 299   for (; aItCS.More(); aItCS.Next()) {
 300     const GEOMAlgo_CoupleOfShapes& aCSG = aItCS.Value();
 301     const TopoDS_Shape& aF1 = aCSG.Shape1();
 302     const TopoDS_Shape& aF2 = aCSG.Shape2();
 303     if (aFaces.Contains(aF1) || aFaces.Contains(aF2))
 304       continue;
 305     aCS.SetShapes(aF1,aF2);
 306     aLCS.Append(aCS);
 307   }
 308
 309   //cout<<"aLCS.Extent() = "<<aLCS.Extent()<<endl;
 310   if (aLCS.Extent()>0) {
 311     aGluer.SetFacesToUnglue(aLCS);
 312     aGluer.UnglueFaces();
 313     iErr = aGluer.ErrorStatus();
 314     if (iErr) return aRes;
 315   }
 316
 317   aRes = aGluer.Result();
 318
 319   return aRes;
 320 }
 321 */
 322
 323 //=======================================================================
 324 //function : GlueFaces
 325 //purpose  :
 326 //=======================================================================
 327 TopoDS_Shape GEOMImpl_GlueDriver::GlueFaces (const TopoDS_Shape& theShape,
 328                                              const Standard_Real theTolerance,
 329                                              const Standard_Boolean doKeepNonSolids)
 330 {
 331   TopoDS_Shape aRes;
 332
 333   GEOMAlgo_Gluer2 aGA;
 334
 335   // 1. Initialization
 336   aGA.SetArgument(theShape);
 337   aGA.SetTolerance(theTolerance);
 338   aGA.SetKeepNonSolids(doKeepNonSolids);
 339
 340   // 2. Detect interferred shapes
 341   aGA.Detect();
 342
 343   //Standard_Integer iWrnDetect = aGA.WarningStatus();
 344   //if (iWrnDetect == 2) {
 345   //  Standard_Failure::Raise("GLUE_ERROR_STICKED_SHAPES");
 346   //}
 347
 348   Standard_Integer iErr = aGA.ErrorStatus();
 349   if (iErr) {
 350     switch (iErr) {
 351     case 11:
 352       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 353       break;
 354     case 13:
 355     case 14:
 356       Standard_Failure::Raise("PerformImagesToWork failed");
 357       break;
 358     default:
 359       {
 360         // description of all errors see in GEOMAlgo_Gluer2.cxx
 361         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 362         aMsg += TCollection_AsciiString(iErr);
 363         Standard_Failure::Raise(aMsg.ToCString());
 364         break;
 365       }
 366     }
 367     return aRes;
 368   }
 369
 370   // 3. Set shapes to glue. If the operator is absent, the whole gluing will be done
 371   //aGA.SetShapesToGlue(aMSG);
 372
 373   // 4. Gluing
 374   aGA.Perform();
 375   iErr = aGA.ErrorStatus();
 376   if (iErr) {
 377     switch (iErr) {
 378     case 11:
 379       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 380       break;
 381     case 13:
 382     case 14:
 383       Standard_Failure::Raise("PerformImagesToWork failed");
 384       break;
 385     default:
 386       {
 387         // description of all errors see in GEOMAlgo_Gluer2.cxx
 388         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 389         aMsg += TCollection_AsciiString(iErr);
 390         Standard_Failure::Raise(aMsg.ToCString());
 391         break;
 392       }
 393     }
 394     return aRes;
 395   }
 396
 397   Standard_Integer iWrn = aGA.WarningStatus();
 398   if (iWrn) {
 399     switch (iWrn) {
 400     case 1:
 401       MESSAGE("No shapes to glue");
 402       break;
 403     default:
 404       // description of all warnings see in GEOMAlgo_Gluer2.cxx
 405       MESSAGE("Warning in GEOMAlgo_Gluer2 with code " << iWrn);
 406       break;
 407     }
 408   }
 409
 410   // 5. Result
 411   aRes = aGA.Shape();
 412
 413   return aRes;
 414 }
 415
 416 //=======================================================================
 417 //function : GlueWithWarnings
 418 //purpose  :
 419 //=======================================================================
 420 TopoDS_Shape GEOMImpl_GlueDriver::GlueWithWarnings (const TopoDS_Shape& theShape,
 421                                                     const Standard_Real theTolerance,
 422                                                     const TopAbs_ShapeEnum theShapeType,
 423                                                     const Standard_Boolean doKeepNonSolids,
 424                                                     TCollection_AsciiString& theWarning) const
 425 {
 426   TopoDS_Shape aRes;
 427
 428   GEOMAlgo_Gluer2 aGA;
 429
 430   // 1. Initialization
 431   aGA.SetArgument(theShape);
 432   aGA.SetTolerance(theTolerance);
 433   aGA.SetKeepNonSolids(doKeepNonSolids);
 434
 435   // 2. Detect interferred shapes
 436   aGA.Detect();
 437
 438   //modified by NIZNHY-PKV Tue Mar 13 14:07:12 2012f
 439 #if OCC_VERSION_LARGE > 0x06050200
 440   Standard_Integer iWrnDetect = aGA.WarningStatus();
 441   if (iWrnDetect == 2) {
 442     /*
 443     TopTools_ListIteratorOfListOfShape aItLS;
 444
 445     // Sticked shapes are detected
 446     const TopTools_IndexedDataMapOfShapeListOfShape& aIDMSS = pGluer2->StickedShapes();
 447
 448     Standard_Integer i, aNb = aIDMSS.Extent();
 449     for (i = 1; i <= aNb; ++i) {
 450       // ancestor aSa (edge, wire face,..)
 451       const TopoDS_Shape& aSa = aIDMSS.FindKey(i);
 452
 453       // successors aSs (vertex, edge, ...)
 454       // of the ancestor that are sticked
 455       // for given value of the tolerance
 456       const TopTools_ListOfShape& aLSS = aIDMSS.FindFromIndex(i);
 457       aItLS.Initialize(aLSS);
 458       for (; aItLS.More(); aItLS.Next()) {
 459         const TopoDS_Shape& aSs = aItLS.Value();
 460       }
 461     }
 462     */
 463     Standard_Failure::Raise("GLUE_ERROR_STICKED_SHAPES");
 464     //Standard_Failure::Raise("Sticked shapes are detected. The tolerance value is too big.");
 465     //theWarning = "Sticked shapes are detected. The tolerance value is too big.";
 466   }
 467 #endif
 468   //modified by NIZNHY-PKV Tue Mar 13 14:07:14 2012t
 469
 470   Standard_Integer iErr = aGA.ErrorStatus();
 471   if (iErr) {
 472     switch (iErr) {
 473     case 11:
 474       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 475       break;
 476     case 13:
 477     case 14:
 478       Standard_Failure::Raise("PerformImagesToWork failed");
 479       break;
 480     default:
 481       {
 482         // description of all errors see in GEOMAlgo_Gluer2.cxx
 483         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 484         aMsg += TCollection_AsciiString(iErr);
 485         Standard_Failure::Raise(aMsg.ToCString());
 486         break;
 487       }
 488     }
 489     return aRes;
 490   }
 491
 492   if (theShapeType != TopAbs_FACE) {
 493     // 3. Fill shapes to glue aMSG
 494     TopTools_DataMapOfShapeListOfShape aMSG;
 495     const TopTools_DataMapOfShapeListOfShape& aMSD = aGA.ShapesDetected();
 496     TopTools_DataMapIteratorOfDataMapOfShapeListOfShape aItMSD;
 497     aItMSD.Initialize(aMSD);
 498     for (; aItMSD.More(); aItMSD.Next()) {
 499       const TopoDS_Shape& aSx = aItMSD.Key();
 500       const TopTools_ListOfShape& aLSD = aItMSD.Value();
 501       if (aSx.ShapeType() == theShapeType) {
 502         aMSG.Bind(aSx, aLSD);
 503       }
 504     }
 505
 506     // 4. Set shapes to glue. If the operator is absent, the whole gluing will be done
 507     aGA.SetShapesToGlue(aMSG);
 508   }
 509
 510   // 5. Gluing
 511   aGA.Perform();
 512   iErr = aGA.ErrorStatus();
 513   if (iErr) {
 514     switch (iErr) {
 515     case 11:
 516       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 517       break;
 518     case 13:
 519     case 14:
 520       Standard_Failure::Raise("PerformImagesToWork failed");
 521       break;
 522     default:
 523       {
 524         // description of all errors see in GEOMAlgo_Gluer2.cxx
 525         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 526         aMsg += TCollection_AsciiString(iErr);
 527         Standard_Failure::Raise(aMsg.ToCString());
 528         break;
 529       }
 530     }
 531     return aRes;
 532   }
 533
 534   Standard_Integer iWrn = aGA.WarningStatus();
 535   if (iWrn) {
 536     switch (iWrn) {
 537     case 1:
 538       theWarning = "No shapes to glue";
 539       break;
 540     default:
 541       // description of all warnings see in GEOMAlgo_Gluer2.cxx
 542       theWarning = "Warning in GEOMAlgo_Gluer2 with code ";
 543       theWarning += TCollection_AsciiString(iWrn);
 544       break;
 545     }
 546   }
 547
 548   // 6. Result
 549   aRes = aGA.Shape();
 550
 551   // 7. Fill history to be used by GetInPlace functionality
 552   TopTools_IndexedMapOfShape aResIndices;
 553   TopExp::MapShapes(aRes, aResIndices);
 554
 555   Handle(GEOM_Function) aFunction = GEOM_Function::GetFunction(Label());
 556
 557   // history for all argument shapes
 558   TDF_LabelSequence aLabelSeq;
 559   aFunction->GetDependency(aLabelSeq);
 560   Standard_Integer nbArg = aLabelSeq.Length();
 561
 562   for (Standard_Integer iarg = 1; iarg <= nbArg; iarg++) {
 563
 564     TDF_Label anArgumentRefLabel = aLabelSeq.Value(iarg);
 565
 566     Handle(GEOM_Object) anArgumentObject = GEOM_Object::GetReferencedObject(anArgumentRefLabel);
 567     TopoDS_Shape anArgumentShape = anArgumentObject->GetValue();
 568
 569     TopTools_IndexedMapOfShape anArgumentIndices;
 570     TopExp::MapShapes(anArgumentShape, anArgumentIndices);
 571     Standard_Integer nbArgumentEntities = anArgumentIndices.Extent();
 572
 573     // Find corresponding label in history
 574     TDF_Label anArgumentHistoryLabel =
 575       aFunction->GetArgumentHistoryEntry(anArgumentRefLabel, Standard_True);
 576
 577     for (Standard_Integer ie = 1; ie <= nbArgumentEntities; ie++) {
 578       TopoDS_Shape anEntity = anArgumentIndices.FindKey(ie);
 579       const TopTools_ListOfShape& aModified = aGA.Modified(anEntity);
 580       Standard_Integer nbModified = aModified.Extent();
 581
 582       if (nbModified > 0) {
 583         TDF_Label aWhatHistoryLabel = anArgumentHistoryLabel.FindChild(ie, Standard_True);
 584         Handle(TDataStd_IntegerArray) anAttr =
 585           TDataStd_IntegerArray::Set(aWhatHistoryLabel, 1, nbModified);
 586
 587         TopTools_ListIteratorOfListOfShape itM (aModified);
 588         for (int im = 1; itM.More(); itM.Next(), ++im) {
 589           int id = aResIndices.FindIndex(itM.Value());
 590           anAttr->SetValue(im, id);
 591         }
 592       }
 593     }
 594   }
 595
 596   return aRes;
 597 }
 598
 599 //=======================================================================
 600 //function : GlueByList
 601 //purpose  :
 602 //=======================================================================
 603 TopoDS_Shape GEOMImpl_GlueDriver::GlueByList (const TopoDS_Shape& theShape,
 604                                               const Standard_Real theTolerance,
 605                                               const Standard_Boolean doKeepNonSolids,
 606                                               const TopTools_MapOfShape& theShapesList,
 607                                               const Standard_Boolean doGlueAllEdges)
 608 {
 609   TopoDS_Shape aRes;
 610
 611   GEOMAlgo_Gluer2 aGA;
 612
 613   // 1. Initialization
 614   aGA.SetArgument(theShape);
 615   aGA.SetTolerance(theTolerance);
 616   aGA.SetKeepNonSolids(doKeepNonSolids);
 617
 618   // 2. Detect interferred shapes
 619   aGA.Detect();
 620   Standard_Integer iErr = aGA.ErrorStatus();
 621   if (iErr) {
 622     switch (iErr) {
 623     case 11:
 624       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 625       break;
 626     case 13:
 627     case 14:
 628       Standard_Failure::Raise("PerformImagesToWork failed");
 629       break;
 630     default:
 631       {
 632         // description of all errors see in GEOMAlgo_Gluer2.cxx
 633         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 634         aMsg += TCollection_AsciiString(iErr);
 635         Standard_Failure::Raise(aMsg.ToCString());
 636         break;
 637       }
 638     }
 639     return aRes;
 640   }
 641
 642   // 3. Fill shapes to glue aMSG
 643   TopTools_DataMapOfShapeListOfShape aMSG;
 644   const TopTools_DataMapOfShapeListOfShape& aMSD = aGA.ShapesDetected();
 645   TopTools_DataMapIteratorOfDataMapOfShapeListOfShape aItMSD;
 646   aItMSD.Initialize(aMSD);
 647   for (; aItMSD.More(); aItMSD.Next()) {
 648     const TopoDS_Shape& aSx = aItMSD.Key();
 649     const TopTools_ListOfShape& aLSD = aItMSD.Value();
 650     TopTools_ListIteratorOfListOfShape anItLSD (aLSD);
 651     bool isToGlue = false;
 652     if (doGlueAllEdges && aSx.ShapeType() == TopAbs_EDGE) {
 653       isToGlue = true;
 654     }
 655     else {
 656       for (; anItLSD.More() && !isToGlue; anItLSD.Next()) {
 657         if (theShapesList.Contains(anItLSD.Value())) {
 658           isToGlue = true;
 659         }
 660       }
 661     }
 662     if (isToGlue) {
 663       aMSG.Bind(aSx, aLSD);
 664     }
 665   }
 666
 667   // 4. Set shapes to glue. If the operator is absent, the whole gluing will be done
 668   aGA.SetShapesToGlue(aMSG);
 669
 670   // 5. Gluing
 671   aGA.Perform();
 672   iErr = aGA.ErrorStatus();
 673   if (iErr) {
 674     switch (iErr) {
 675     case 11:
 676       Standard_Failure::Raise("GEOMAlgo_GlueDetector failed");
 677       break;
 678     case 13:
 679     case 14:
 680       Standard_Failure::Raise("PerformImagesToWork failed");
 681       break;
 682     default:
 683       {
 684         // description of all errors see in GEOMAlgo_Gluer2.cxx
 685         TCollection_AsciiString aMsg ("Error in GEOMAlgo_Gluer2 with code ");
 686         aMsg += TCollection_AsciiString(iErr);
 687         Standard_Failure::Raise(aMsg.ToCString());
 688         break;
 689       }
 690     }
 691     return aRes;
 692   }
 693
 694   Standard_Integer iWrn = aGA.WarningStatus();
 695   if (iWrn) {
 696     switch (iWrn) {
 697     case 1:
 698       MESSAGE("No shapes to glue");
 699       break;
 700     default:
 701       // description of all warnings see in GEOMAlgo_Gluer2.cxx
 702       MESSAGE("Warning in GEOMAlgo_Gluer2 with code " << iWrn);
 703       break;
 704     }
 705   }
 706
 707   // 6. Result
 708   aRes = aGA.Shape();
 709
 710   return aRes;
 711 }
 712
 713 //=======================================================================
 714 //function : Execute
 715 //purpose  :
 716 //=======================================================================
 717 Standard_Integer GEOMImpl_GlueDriver::Execute(TFunction_Logbook& log) const
 718 {
 719   if (Label().IsNull()) return 0;
 720   Handle(GEOM_Function) aFunction = GEOM_Function::GetFunction(Label());
 721
 722   GEOMImpl_IGlue aCI (aFunction);
 723   Standard_Integer aType = aFunction->GetType();
 724
 725   TopoDS_Shape aShape;
 726   TCollection_AsciiString aWrn;
 727
 728   Handle(GEOM_Function) aRefBase = aCI.GetBase();
 729   TopoDS_Shape aShapeBase = aRefBase->GetValue();
 730   if (aShapeBase.IsNull()) {
 731     Standard_NullObject::Raise("Shape for gluing is null");
 732   }
 733
 734   Standard_Real tol3d = aCI.GetTolerance();
 735
 736   Standard_Boolean aKeepNonSolids = aCI.GetKeepNonSolids();
 737
 738   if (aType == GLUE_FACES) {
 739     //aShape = GlueFacesWithWarnings(aShapeBase, tol3d, aKeepNonSolids, aWrn);
 740     aShape = GlueWithWarnings(aShapeBase, tol3d, TopAbs_FACE, aKeepNonSolids, aWrn);
 741   }
 742   else if (aType == GLUE_EDGES) {
 743     aShape = GlueWithWarnings(aShapeBase, tol3d, TopAbs_EDGE, aKeepNonSolids, aWrn);
 744   }
 745   else if (aType == GLUE_FACES_BY_LIST || aType == GLUE_EDGES_BY_LIST) {
 746     Handle(TColStd_HSequenceOfTransient) SF = aCI.GetFaces();
 747     TopTools_MapOfShape aFaces;
 748     int i = 1;
 749     for (; i <= SF->Length(); i++) {
 750       Handle(Standard_Transient) anItem = SF->Value(i);
 751       if (anItem.IsNull())
 752         continue;
 753       Handle(GEOM_Function) aRefSh = Handle(GEOM_Function)::DownCast(anItem);
 754       if (aRefSh.IsNull())
 755         continue;
 756       TopoDS_Shape aFace = aRefSh->GetValue();
 757       if (aFace.IsNull())
 758         continue;
 759       if (!aFaces.Contains(aFace))
 760         aFaces.Add(aFace);
 761     }
 762
 763     Standard_Boolean aGlueAllEdges = Standard_False;
 764     if (aType == GLUE_FACES_BY_LIST)
 765       aGlueAllEdges = aCI.GetGlueAllEdges();
 766
 767     //aShape = GlueFacesByList(aShapeBase, tol3d, aKeepNonSolids, aFaces);
 768     aShape = GlueByList(aShapeBase, tol3d, aKeepNonSolids, aFaces, aGlueAllEdges);
 769   }
 770
 771   if (aShape.IsNull()) return 0;
 772
 773   aFunction->SetValue(aShape);
 774
 775   log.SetTouched(Label());
 776
 777   if (!aWrn.IsEmpty()) {
 778     Standard_Failure::Raise(aWrn.ToCString());
 779   }
 780
 781   return 1;
 782 }
 783
 784 //=======================================================================
 785 //function :  GEOMImpl_GlueDriver_Type_
 786 //purpose  :
 787 //=======================================================================
 788 Standard_EXPORT Handle_Standard_Type& GEOMImpl_GlueDriver_Type_()
 789 {
 790
 791   static Handle_Standard_Type aType1 = STANDARD_TYPE(TFunction_Driver);
 792   if (aType1.IsNull()) aType1 = STANDARD_TYPE(TFunction_Driver);
 793   static Handle_Standard_Type aType2 = STANDARD_TYPE(MMgt_TShared);
 794   if (aType2.IsNull()) aType2 = STANDARD_TYPE(MMgt_TShared);
 795   static Handle_Standard_Type aType3 = STANDARD_TYPE(Standard_Transient);
 796   if (aType3.IsNull()) aType3 = STANDARD_TYPE(Standard_Transient);
 797
 798
 799   static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,aType3,NULL};
 800   static Handle_Standard_Type _aType = new Standard_Type("GEOMImpl_GlueDriver",
 801                                                          sizeof(GEOMImpl_GlueDriver),
 802                                                          1,
 803                                                          (Standard_Address)_Ancestors,
 804                                                          (Standard_Address)NULL);
 805
 806   return _aType;
 807 }
 808
 809 //=======================================================================
 810 //function : DownCast
 811 //purpose  :
 812 //=======================================================================
 813 const Handle(GEOMImpl_GlueDriver) Handle(GEOMImpl_GlueDriver)::DownCast(const Handle(Standard_Transient)& AnObject)
 814 {
 815   Handle(GEOMImpl_GlueDriver) _anOtherObject;
 816
 817   if (!AnObject.IsNull()) {
 818      if (AnObject->IsKind(STANDARD_TYPE(GEOMImpl_GlueDriver))) {
 819        _anOtherObject = Handle(GEOMImpl_GlueDriver)((Handle(GEOMImpl_GlueDriver)&)AnObject);
 820      }
 821   }
 822
 823   return _anOtherObject;
 824 }