0025184: Non-deterministic order of wires in the result of General Fuse

The source is brought in line with the current version

Test case for issue CR25184

src/BOPAlgo/BOPAlgo_BuilderFace.cxx

@@ -126,13 +126,15 @@ class BOPAlgo_ShapeBox2D {
   Bnd_Box2d myBox2D;
 };
 //
-typedef NCollection_DataMap\
+typedef NCollection_IndexedDataMap 
-  <Standard_Integer, BOPAlgo_ShapeBox2D, TColStd_MapIntegerHasher> \
+  <Standard_Integer, 
-  BOPAlgo_DataMapOfIntegerShapeBox2D; 
+  BOPAlgo_ShapeBox2D, 
-//
+  TColStd_MapIntegerHasher>  BOPAlgo_IndexedDataMapOfIntegerShapeBox2D; 
-typedef BOPAlgo_DataMapOfIntegerShapeBox2D::Iterator \
+
-  BOPAlgo_DataMapIteratorOfDataMapOfIntegerShapeBox2D; 
+typedef NCollection_IndexedDataMap 
-//
+  <TopoDS_Shape, 
+  TopoDS_Shape, 
+  TopTools_ShapeMapHasher> BOPCol_IndexedDataMapOfShapeShape; 
 //
 //=======================================================================
 //function : 
@@ -442,8 +444,6 @@ void BOPAlgo_BuilderFace::PerformLoops()
     myLoopsInternal.Append(aW);
   }//for (; aItM.More(); aItM.Next()) {
 }
-//
-
 //=======================================================================
 //function : PerformAreas
 //purpose  : 
@@ -451,22 +451,18 @@ void BOPAlgo_BuilderFace::PerformLoops()
 void BOPAlgo_BuilderFace::PerformAreas()
 {
   Standard_Boolean bIsGrowth, bIsHole;
-  Standard_Integer k,aNbHoles;
+  Standard_Integer k, aNbHoles, aNbDMISB, m, aNbMSH, aNbInOutMap;;
   Standard_Real aTol;
   TopLoc_Location aLoc;
   Handle(Geom_Surface) aS;
   BRep_Builder aBB;
   TopoDS_Face aFace;
-  //
   BOPCol_ListIteratorOfListOfInteger aItLI;
   BOPCol_IndexedMapOfShape aMHE;
-  BOPCol_DataMapOfShapeShape aInOutMap;
-  BOPCol_DataMapIteratorOfDataMapOfShapeShape aItDMSS;
-  BOPCol_DataMapOfShapeListOfShape aMSH;
-  BOPCol_DataMapIteratorOfDataMapOfShapeListOfShape aItMSH;
   BOPCol_ListIteratorOfListOfShape aIt1;
-  BOPAlgo_DataMapOfIntegerShapeBox2D aDMISB(100);
+  BOPCol_IndexedDataMapOfShapeListOfShape aMSH;
-  BOPAlgo_DataMapIteratorOfDataMapOfIntegerShapeBox2D aItDMISB;
+  BOPCol_IndexedDataMapOfShapeShape aInOutMap;
+  BOPAlgo_IndexedDataMapOfIntegerShapeBox2D aDMISB(100);
   //
   BOPCol_Box2DBndTreeSelector aSelector;
   BOPCol_Box2DBndTree aBBTree;
@@ -516,14 +512,14 @@ void BOPAlgo_BuilderFace::PerformAreas()
     aSB2D.SetBox2D(aBox2D);
     aSB2D.SetIsHole(bIsHole);
     //
-    aDMISB.Bind(k, aSB2D);
+    aDMISB.Add(k, aSB2D);
-  }
+  }// for (k=0 ; aIt1.More(); aIt1.Next(), ++k) {
   //
   // 2. Prepare TreeFiller
-  aItDMISB.Initialize(aDMISB);
+  aNbDMISB=aDMISB.Extent();
-  for (; aItDMISB.More(); aItDMISB.Next()) {
+  for (m=1; m<=aNbDMISB; ++m) { 
-    k=aItDMISB.Key();
+    k=aDMISB.FindKey(m);
-    const BOPAlgo_ShapeBox2D& aSB2D=aItDMISB.Value();
+    const BOPAlgo_ShapeBox2D& aSB2D=aDMISB.FindFromIndex(m);
     //
     bIsHole=aSB2D.IsHole();
     if (bIsHole) {
@@ -537,10 +533,8 @@ void BOPAlgo_BuilderFace::PerformAreas()
   //
   // 4. Find outer growth shell that is most close 
   //    to each hole shell
-  aItDMISB.Initialize(aDMISB);
+  for (m=1; m<=aNbDMISB; ++m) {
-  for (; aItDMISB.More(); aItDMISB.Next()) {
+    const BOPAlgo_ShapeBox2D& aSB2D=aDMISB.FindFromIndex(m);
-    k=aItDMISB.Key();
-    const BOPAlgo_ShapeBox2D& aSB2D=aItDMISB.Value();
     bIsHole=aSB2D.IsHole();
     if (bIsHole) {
       continue;
@@ -559,49 +553,48 @@ void BOPAlgo_BuilderFace::PerformAreas()
     aItLI.Initialize(aLI);
     for (; aItLI.More(); aItLI.Next()) {
       k=aItLI.Value();
-      const BOPAlgo_ShapeBox2D& aSB2Dk=aDMISB.Find(k);
+      const BOPAlgo_ShapeBox2D& aSB2Dk=aDMISB.FindFromKey(k);
       const TopoDS_Shape& aHole=aSB2Dk.Shape();
       //
       if (!IsInside(aHole, aF, myContext)){
         continue;
       }
       //
-      if (aInOutMap.IsBound (aHole)){
+      if (aInOutMap.Contains(aHole)){
-        const TopoDS_Shape& aF2=aInOutMap(aHole);
+        TopoDS_Shape& aF2=aInOutMap.ChangeFromKey(aHole);
         if (IsInside(aF, aF2, myContext)) {
-          aInOutMap.UnBind(aHole);
+          aF2=aF;
-          aInOutMap.Bind (aHole, aF);
         }
       }
       else{
-        aInOutMap.Bind(aHole, aF);
+        aInOutMap.Add(aHole, aF);
       }
     }
-  }
+  }// for (m=1; m<=aNbDMISB; ++m)
   //
   // 5. Map [Face/Holes] -> aMSH 
-  aItDMSS.Initialize(aInOutMap);
+  aNbInOutMap=aInOutMap.Extent();
-  for (; aItDMSS.More(); aItDMSS.Next()) {
+  for (m=1; m<=aNbInOutMap; ++m) {
-    const TopoDS_Shape& aHole=aItDMSS.Key();
+    const TopoDS_Shape& aHole=aInOutMap.FindKey(m);
-    const TopoDS_Shape& aF=aItDMSS.Value();
+    const TopoDS_Shape& aF=aInOutMap.FindFromIndex(m);
     //
-    if (aMSH.IsBound(aF)) {
+    if (aMSH.Contains(aF)) {
-      BOPCol_ListOfShape& aLH=aMSH.ChangeFind(aF);
+      BOPCol_ListOfShape& aLH=aMSH.ChangeFromKey(aF);
       aLH.Append(aHole);
     }
     else {
       BOPCol_ListOfShape aLH;
       aLH.Append(aHole);
-      aMSH.Bind(aF, aLH);
+      aMSH.Add(aF, aLH);
     }
   }
   //
-  // 6. Add aHoles to Faces, 
+  // 6. Add aHoles to Faces
-  aItMSH.Initialize(aMSH);
+  aNbMSH=aMSH.Extent();
-  for (; aItMSH.More(); aItMSH.Next()) {
+  for (m=1; m<=aNbMSH; ++m) {
-    TopoDS_Face aF=(*(TopoDS_Face *)(&aItMSH.Key()));
+    TopoDS_Face aF=(*(TopoDS_Face *)(&aMSH.FindKey(m)));
+    const BOPCol_ListOfShape& aLH=aMSH.FindFromIndex(m);
     //
-    const BOPCol_ListOfShape& aLH=aItMSH.Value();
     aIt1.Initialize(aLH);
     for (; aIt1.More(); aIt1.Next()) {
       TopoDS_Shape aWHole;
@@ -620,9 +613,8 @@ void BOPAlgo_BuilderFace::PerformAreas()
   // 7. Fill myAreas
   //    NB:These aNewFaces are draft faces that 
   //    do not contain any internal shapes
-  aItDMISB.Initialize(aDMISB);
+  for (m=1; m<=aNbDMISB; ++m) {
-  for (; aItDMISB.More(); aItDMISB.Next()) {
+    const BOPAlgo_ShapeBox2D& aSB2D=aDMISB.FindFromIndex(m);
-    const BOPAlgo_ShapeBox2D& aSB2D=aItDMISB.Value();
     bIsHole=aSB2D.IsHole();
     if (!bIsHole) {
       const TopoDS_Shape aF=aSB2D.Shape();

tests/bugs/modalg_5/bug25184

@@ -0,0 +1,41 @@
+puts "================"
+puts "OCC25184"
+puts "================"
+puts ""
+#######################################################################
+# Non-deterministic order of wires in the result of General Fuse
+#######################################################################
+
+restore [locate_data_file bug25184_Input_0.brep] b0
+restore [locate_data_file bug25184_Input_1.brep] b1
+restore [locate_data_file bug25184_Input_2.brep] b2
+restore [locate_data_file bug25184_Input_3.brep] b3
+restore [locate_data_file bug25184_Input_4.brep] b4
+
+bclearobjects
+bcleartools
+baddobjects b0 b1 b2 b3 b4
+
+bfillds
+
+bbuild r 
+explode r w
+regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full m0
+puts "Length(0) = $m0"
+
+set N 10
+for {set i 1} {$i < $N} {incr i} {
+  bbuild r 
+  explode r w
+  regexp {Mass +: +([-0-9.+eE]+)} [lprops r_43] full mi
+  puts "Length($i) = $mi"
+  if { $mi != $m0 } {
+    set N 0
+    break
+  }
+}
+if { $N == 0 } {
+  puts "Error: Bad order of wires in the result of General Fuse"
+} else {
+  puts "OK: Good order of wires in the result of General Fuse"
+}