src/BRepFeat/BRepFeat.cxx

   1 // Created on: 1996-04-23
   2 // Created by: Jacques GOUSSARD
   3 // Copyright (c) 1996-1999 Matra Datavision
   4 // Copyright (c) 1999-2012 OPEN CASCADE SAS
   5 //
   6 // The content of this file is subject to the Open CASCADE Technology Public
   7 // License Version 6.5 (the "License"). You may not use the content of this file
   8 // except in compliance with the License. Please obtain a copy of the License
   9 // at http://www.opencascade.org and read it completely before using this file.
  10 //
  11 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  12 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  13 //
  14 // The Original Code and all software distributed under the License is
  15 // distributed on an "AS IS" basis, without warranty of any kind, and the
  16 // Initial Developer hereby disclaims all such warranties, including without
  17 // limitation, any warranties of merchantability, fitness for a particular
  18 // purpose or non-infringement. Please see the License for the specific terms
  19 // and conditions governing the rights and limitations under the License.
  20
  21
  22
  23 #include <BRepFeat.ixx>
  24
  25 //#include <BRepAlgo_Cut.hxx>
  26
  27 #include <BRepBuilderAPI.hxx>
  28 #include <BRepAdaptor_Curve.hxx>
  29 #include <TopExp_Explorer.hxx>
  30 #include <TopTools_MapOfShape.hxx>
  31 #include <BRep_Tool.hxx>
  32 #include <BRep_Builder.hxx>
  33 #include <Geom_Curve.hxx>
  34 #include <Geom_TrimmedCurve.hxx>
  35 #include <Geom2d_TrimmedCurve.hxx>
  36 #include <Extrema_ExtPC.hxx>
  37 #include <GeomAdaptor_Curve.hxx>
  38 #include <BRepLProp.hxx>
  39 #include <TopoDS.hxx>
  40 #include <TopoDS_Vertex.hxx>
  41 #include <TopoDS_Face.hxx>
  42 #include <TopoDS_Edge.hxx>
  43 #include <TopoDS_Shell.hxx>
  44 #include <TopoDS_Solid.hxx>
  45 #include <Precision.hxx>
  46 #include <GCPnts_QuasiUniformDeflection.hxx>
  47 #include <BRepTopAdaptor_FClass2d.hxx>
  48 #include <Geom2dAdaptor_Curve.hxx>
  49 #include <GeomProjLib.hxx>
  50 #include <gp_Vec2d.hxx>
  51 #include <BRepTools.hxx>
  52 #include <Geom_Surface.hxx>
  53 #include <Bnd_Box.hxx>
  54 #include <BRepBndLib.hxx>
  55 #include <BRepLib_MakeFace.hxx>
  56 #include <Geom_RectangularTrimmedSurface.hxx>
  57 #include <Geom_Plane.hxx>
  58 #include <Geom_CylindricalSurface.hxx>
  59 #include <Geom_ConicalSurface.hxx>
  60 #include <LocOpe_CSIntersector.hxx>
  61 #include <LocOpe_PntFace.hxx>
  62 #include <LocOpe_BuildShape.hxx>
  63
  64 #include <TColGeom_SequenceOfCurve.hxx>
  65
  66
  67 #include <LocOpe.hxx>
  68
  69 #define NECHANTBARYC 11
  70
  71 //=======================================================================
  72 //function : SampleEdges
  73 //purpose  :
  74 //=======================================================================
  75
  76 void BRepFeat::SampleEdges(const TopoDS_Shape& theShape,
  77                            TColgp_SequenceOfPnt& theSeq)
  78 {
  79   LocOpe::SampleEdges(theShape,theSeq);
  80 }
  81
  82
  83
  84 //=======================================================================
  85 //function : Barycenter
  86 //purpose  : Calcul du barycentre des edges d'un shape
  87 //=======================================================================
  88
  89 void BRepFeat::Barycenter(const TopoDS_Shape& S,
  90                           gp_Pnt& B)
  91 {
  92   TopTools_MapOfShape theMap;
  93   TopExp_Explorer exp(S,TopAbs_EDGE);
  94   TopLoc_Location Loc;
  95   Handle(Geom_Curve) C;
  96   Standard_Real f,l,prm;
  97   gp_XYZ Bar(0.,0.,0.);
  98   Standard_Integer i, nbp= 0;
  99
 100   for (; exp.More(); exp.Next()) {
 101     const TopoDS_Edge& edg = TopoDS::Edge(exp.Current());
 102     if (!theMap.Add(edg)) {
 103       continue;
 104     }
 105     if (!BRep_Tool::Degenerated(edg)) {
 106       C = BRep_Tool::Curve(edg,Loc,f,l);
 107       C = Handle(Geom_Curve)::DownCast(C->Transformed(Loc.Transformation()));
 108       for (i=1;i<NECHANTBARYC; i++) {
 109         prm = ((NECHANTBARYC-i)*f + i*l)/NECHANTBARYC;
 110         Bar += C->Value(prm).XYZ();
 111         nbp++;
 112       }
 113     }
 114   }
 115   // Adds every vertex
 116   for (exp.Init(S,TopAbs_VERTEX); exp.More(); exp.Next()) {
 117     if (theMap.Add(exp.Current())) {
 118       Bar += (BRep_Tool::Pnt(TopoDS::Vertex(exp.Current()))).XYZ();
 119       nbp++;
 120     }
 121   }
 122
 123   Bar.Divide((Standard_Real)nbp);
 124   B.SetXYZ(Bar);
 125 }
 126
 127
 128 //=======================================================================
 129 //function : ParametricBarycenter
 130 //purpose  : Calcul du barycentre "parametrique" shape sur une courbe
 131 //=======================================================================
 132
 133 Standard_Real BRepFeat::ParametricBarycenter(const TopoDS_Shape& S,
 134                                              const Handle(Geom_Curve)& CC)
 135 {
 136   TopTools_MapOfShape theMap;
 137   TopExp_Explorer exp(S,TopAbs_EDGE);
 138   TopLoc_Location Loc;
 139   Handle(Geom_Curve) C;
 140   Standard_Real f,l,prm;
 141   Standard_Integer i, nbp= 0;
 142   GeomAdaptor_Curve TheCurve(CC);
 143   Extrema_ExtPC extpc;
 144   extpc.Initialize(TheCurve,CC->FirstParameter(),CC->LastParameter());
 145   Standard_Real parbar = 0;
 146
 147   for (; exp.More(); exp.Next()) {
 148     const TopoDS_Edge& edg = TopoDS::Edge(exp.Current());
 149     if (!theMap.Add(edg)) {
 150       continue;
 151     }
 152     if (!BRep_Tool::Degenerated(edg)) {
 153       C = BRep_Tool::Curve(edg,Loc,f,l);
 154       C = Handle(Geom_Curve)::DownCast(C->Transformed(Loc.Transformation()));
 155       for (i=1;i<NECHANTBARYC; i++) {
 156         prm = ((NECHANTBARYC-i)*f + i*l)/NECHANTBARYC;
 157         gp_Pnt pone = C->Value(prm);
 158         // On projette sur CC
 159         extpc.Perform(pone);
 160         if (extpc.IsDone() && extpc.NbExt() >= 1) {
 161           Standard_Real Dist2Min = extpc.SquareDistance(1);
 162           Standard_Integer kmin = 1;
 163           for (Standard_Integer k=2; k<=extpc.NbExt(); k++) {
 164             Standard_Real Dist2 = extpc.SquareDistance(k);
 165             if (Dist2 < Dist2Min) {
 166               Dist2Min = Dist2;
 167               kmin = k;
 168             }
 169           }
 170           nbp++;
 171           Standard_Real prmp = extpc.Point(kmin).Parameter();
 172           parbar += prmp;
 173         }
 174       }
 175     }
 176   }
 177   // Adds every vertex
 178   for (exp.Init(S,TopAbs_VERTEX); exp.More(); exp.Next()) {
 179     if (theMap.Add(exp.Current())) {
 180       gp_Pnt pone = BRep_Tool::Pnt(TopoDS::Vertex(exp.Current()));
 181       // On projette sur CC
 182       extpc.Perform(pone);
 183       if (extpc.IsDone() && extpc.NbExt() >= 1) {
 184             Standard_Real Dist2Min = extpc.SquareDistance(1);
 185             Standard_Integer kmin = 1;
 186             for (Standard_Integer k=2; k<=extpc.NbExt(); k++) {
 187               Standard_Real Dist2 = extpc.SquareDistance(k);
 188               if (Dist2 < Dist2Min) {
 189                 Dist2Min = Dist2;
 190                 kmin = k;
 191               }
 192             }
 193             nbp++;
 194       }
 195     }
 196   }
 197
 198   parbar /=((Standard_Real)nbp);
 199   return parbar;
 200 }
 201
 202
 203 //=======================================================================
 204 //function : ParametricBarycenter
 205 //purpose  : Calcul du barycentre "parametrique" shape sur une courbe
 206 //=======================================================================
 207
 208 void BRepFeat::ParametricMinMax(const TopoDS_Shape& S,
 209                                 const Handle(Geom_Curve)& CC,
 210                                 Standard_Real& prmin,
 211                                 Standard_Real& prmax,
 212                                 Standard_Real& prbmin,
 213                                 Standard_Real& prbmax,
 214                                 Standard_Boolean& flag,
 215                                 const Standard_Boolean Ori)
 216 {
 217   LocOpe_CSIntersector ASI(S);
 218   TColGeom_SequenceOfCurve scur;
 219   scur.Append(CC);
 220   ASI.Perform(scur);
 221   if(ASI.IsDone() && ASI.NbPoints(1) >=1) {
 222     if (!Ori) {
 223       prmin = Min(ASI.Point(1,1).Parameter(),
 224                   ASI.Point(1, ASI.NbPoints(1)).Parameter());
 225       prmax = Max(ASI.Point(1,1).Parameter(),
 226                   ASI.Point(1, ASI.NbPoints(1)).Parameter());
 227     }
 228     else {
 229       TopAbs_Orientation Ori = ASI.Point(1,1).Orientation();
 230       if (Ori ==  TopAbs_FORWARD) {
 231         prmin = ASI.Point(1,1).Parameter();
 232         prmax = ASI.Point(1, ASI.NbPoints(1)).Parameter();
 233       }
 234       else {
 235         prmax = ASI.Point(1,1).Parameter();
 236         prmin = ASI.Point(1, ASI.NbPoints(1)).Parameter();
 237       }
 238     }
 239     flag = Standard_True;
 240   }
 241   else {
 242     prmax = RealFirst();
 243     prmin = RealLast();
 244     flag = Standard_False;
 245   }
 246
 247   TopTools_MapOfShape theMap;
 248   TopExp_Explorer exp(S,TopAbs_EDGE);
 249   TopLoc_Location Loc;
 250   Handle(Geom_Curve) C;
 251   Standard_Real f,l,prm;
 252 //  Standard_Integer i, nbp= 0;
 253   Standard_Integer i;
 254   GeomAdaptor_Curve TheCurve(CC);
 255   Extrema_ExtPC extpc;
 256   extpc.Initialize(TheCurve,CC->FirstParameter(),CC->LastParameter());
 257   prbmin = RealLast();
 258   prbmax = RealFirst();
 259   for (; exp.More(); exp.Next()) {
 260     const TopoDS_Edge& edg = TopoDS::Edge(exp.Current());
 261     if (!theMap.Add(edg)) {
 262       continue;
 263     }
 264     if (!BRep_Tool::Degenerated(edg)) {
 265       C = BRep_Tool::Curve(edg,Loc,f,l);
 266       C = Handle(Geom_Curve)::DownCast(C->Transformed(Loc.Transformation()));
 267       for (i=1;i<NECHANTBARYC; i++) {
 268         prm = ((NECHANTBARYC-i)*f + i*l)/NECHANTBARYC;
 269         gp_Pnt pone = C->Value(prm);
 270         // On projette sur CC
 271         extpc.Perform(pone);
 272         if (extpc.IsDone() && extpc.NbExt() >= 1) {
 273           Standard_Real Dist2Min = extpc.SquareDistance(1);
 274           Standard_Integer kmin = 1;
 275           for (Standard_Integer k=2; k<=extpc.NbExt(); k++) {
 276             Standard_Real Dist2 = extpc.SquareDistance(k);
 277             if (Dist2 < Dist2Min) {
 278               Dist2Min = Dist2;
 279               kmin = k;
 280             }
 281           }
 282           Standard_Real prmp = extpc.Point(kmin).Parameter();
 283           if (prmp <= prbmin) {
 284             prbmin = prmp;
 285           }
 286           if (prmp >= prbmax) {
 287             prbmax = prmp;
 288           }
 289         }
 290       }
 291     }
 292   }
 293   // Adds every vertex
 294   for (exp.Init(S,TopAbs_VERTEX); exp.More(); exp.Next()) {
 295     if (theMap.Add(exp.Current())) {
 296       gp_Pnt pone = BRep_Tool::Pnt(TopoDS::Vertex(exp.Current()));
 297       // On projette sur CC
 298       extpc.Perform(pone);
 299       if (extpc.IsDone() && extpc.NbExt() >= 1) {
 300         Standard_Real Dist2Min = extpc.SquareDistance(1);
 301         Standard_Integer kmin = 1;
 302         for (Standard_Integer k=2; k<=extpc.NbExt(); k++) {
 303           Standard_Real Dist2 = extpc.SquareDistance(k);
 304           if (Dist2 < Dist2Min) {
 305             Dist2Min = Dist2;
 306             kmin = k;
 307           }
 308         }
 309         Standard_Real prmp = extpc.Point(kmin).Parameter();
 310         if (prmp <= prbmin) {
 311           prbmin = prmp;
 312         }
 313         if (prmp >= prbmax) {
 314           prbmax = prmp;
 315         }
 316       }
 317     }
 318   }
 319 }
 320
 321
 322
 323
 324 //=======================================================================
 325 //function : IsIn
 326 //purpose  :
 327 //=======================================================================
 328
 329 static Standard_Boolean IsIn (BRepTopAdaptor_FClass2d& FC,
 330                                  Geom2dAdaptor_Curve      AC)
 331 {
 332  Standard_Real Def = 100*Precision::Confusion();
 333  GCPnts_QuasiUniformDeflection QU(AC,Def);
 334
 335  for (Standard_Integer i = 1; i <= QU.NbPoints(); i++) {
 336    gp_Pnt2d P = AC.Value(QU.Parameter(i));
 337    if (FC.Perform(P, Standard_False) == TopAbs_OUT) {
 338      return Standard_False;
 339    }
 340  }
 341  return Standard_True;
 342 }
 343
 344
 345 //=======================================================================
 346 //function : PutInBoundsU
 347 //purpose  : Recadre la courbe 2d dans les bounds de la face
 348 //=======================================================================
 349   //---------------
 350   // Recadre en U.
 351   //---------------
 352
 353 static void PutInBoundsU (Standard_Real      umin,
 354                          Standard_Real      umax,
 355                          Standard_Real      eps,
 356                          Standard_Real      period,
 357                          Standard_Real      f,
 358                          Standard_Real      l,
 359                          Handle(Geom2d_Curve)&       C2d)
 360 {
 361   gp_Pnt2d      Pf      = C2d->Value(f);
 362   gp_Pnt2d      Pl      = C2d->Value(l);
 363   gp_Pnt2d      Pm      = C2d->Value(0.34*f + 0.66*l);
 364   Standard_Real minC    = Min(Pf.X(),Pl.X()); minC = Min(minC,Pm.X());
 365   Standard_Real maxC    = Max(Pf.X(),Pl.X()); maxC = Max(maxC,Pm.X());
 366   Standard_Real du = 0.;
 367   if (minC< umin - eps) {
 368     du = (int((umin - minC)/period) + 1)*period;
 369   }
 370   if (minC > umax + eps) {
 371     du = -(int((minC - umax)/period) + 1)*period;
 372   }
 373   if (du != 0) {
 374     gp_Vec2d T1(du,0.);
 375     C2d->Translate(T1);
 376     minC += du; maxC += du;
 377   }
 378     // Ajuste au mieux la courbe dans le domaine.
 379   if (maxC > umax +100*eps) {
 380     Standard_Real d1 = maxC - umax;
 381     Standard_Real d2 = umin - minC + period;
 382     if (d2 < d1) du =-period;
 383     if ( du != 0.) {
 384       gp_Vec2d T2(du,0.);
 385       C2d->Translate(T2);
 386     }
 387   }
 388 }
 389
 390
 391 //=======================================================================
 392 //function : PutInBoundsU
 393 //purpose  : Recadre la courbe 2d dans les bounds de la face
 394 //=======================================================================
 395   //---------------
 396   // Recadre en V.
 397   //---------------
 398
 399 static void PutInBoundsV (Standard_Real     vmin,
 400                          Standard_Real      vmax,
 401                          Standard_Real      eps,
 402                          Standard_Real      period,
 403                          Standard_Real      f,
 404                          Standard_Real      l,
 405                          Handle(Geom2d_Curve)&       C2d)
 406 {
 407   gp_Pnt2d      Pf      = C2d->Value(f);
 408   gp_Pnt2d      Pl      = C2d->Value(l);
 409   gp_Pnt2d      Pm      = C2d->Value(0.34*f + 0.66*l);
 410   Standard_Real minC    = Min(Pf.Y(),Pl.Y()); minC = Min(minC,Pm.Y());
 411   Standard_Real maxC    = Max(Pf.Y(),Pl.Y()); maxC = Max(maxC,Pm.Y());
 412   Standard_Real dv = 0.;
 413   if (minC< vmin - eps) {
 414     dv = (int((vmin - minC)/period) + 1)*period;
 415   }
 416   if (minC > vmax + eps) {
 417     dv = -(int((minC - vmax)/period) + 1)*period;
 418   }
 419   if (dv != 0) {
 420     gp_Vec2d T1(0.,dv);
 421     C2d->Translate(T1);
 422     minC += dv; maxC += dv;
 423   }
 424   // Ajuste au mieux la courbe dans le domaine.
 425   if (maxC > vmax +100*eps) {
 426     Standard_Real d1 = maxC - vmax;
 427     Standard_Real d2 = vmin - minC + period;
 428     if (d2 < d1) dv =-period;
 429     if ( dv != 0.) {
 430       gp_Vec2d T2(0.,dv);
 431       C2d->Translate(T2);
 432     }
 433   }
 434 }
 435
 436
 437 //=======================================================================
 438 //function : IsInside
 439 //purpose  :
 440 //=======================================================================
 441
 442
 443 Standard_Boolean BRepFeat::IsInside(const TopoDS_Face& F1,
 444                                   const TopoDS_Face& F2)
 445 {
 446   TopExp_Explorer exp;
 447   exp.Init(F1, TopAbs_EDGE);
 448
 449   Standard_Real   umin,umax,vmin,vmax, uperiod=0, vperiod=0;
 450   Standard_Integer flagu = 0, flagv = 0;
 451   TopLoc_Location L; // Recup S avec la location pour eviter la copie.
 452   Handle (Geom_Surface) S   = BRep_Tool::Surface(F2);
 453 //  Standard_Real periodu, periodv;
 454   BRepTools::UVBounds(F2,umin,umax,vmin,vmax);
 455
 456   if (S->IsUPeriodic()) {
 457     flagu = 1;
 458     uperiod = S->UPeriod();
 459   }
 460
 461   if (S->IsVPeriodic()) {
 462     flagv = 1;
 463     vperiod = S->VPeriod();
 464   }
 465   TopoDS_Shape aLocalShape = F2.Oriented(TopAbs_FORWARD);
 466   BRepTopAdaptor_FClass2d FC (TopoDS::Face(aLocalShape),Precision::Confusion());
 467 //  BRepTopAdaptor_FClass2d FC (TopoDS::Face(F2.Oriented(TopAbs_FORWARD)),
 468 //                              Precision::Confusion());
 469   for(; exp.More(); exp.Next()) {
 470     Standard_Real   f1,l1;
 471     Handle(Geom_Curve) C0 = BRep_Tool::Curve(TopoDS::Edge(exp.Current()),f1,l1);
 472     Handle(Geom2d_Curve) C = GeomProjLib::Curve2d(C0,f1,l1,S);
 473     TopoDS_Edge E = TopoDS::Edge(exp.Current());
 474     if(flagu == 1 || flagv == 1) {
 475       Standard_Real   eps = BRep_Tool::Tolerance(E);
 476       BRep_Tool::Range(E,f1,l1);
 477       if(flagu == 1) PutInBoundsU(umin, umax, eps, uperiod, f1, l1, C);
 478       if(flagv == 1) PutInBoundsV(vmin, vmax, eps, vperiod, f1, l1, C);
 479     }
 480     Geom2dAdaptor_Curve  AC(C,f1,l1);
 481     if (!IsIn(FC,AC)) {
 482       return Standard_False;
 483     }
 484   }
 485   return Standard_True;
 486 }
 487
 488
 489
 490 //=======================================================================
 491 //function : FaceUntil
 492 //purpose  :
 493 //=======================================================================
 494
 495
 496 void BRepFeat::FaceUntil(const TopoDS_Shape& Sbase,
 497                          TopoDS_Face& FUntil)
 498 {
 499   Bnd_Box B;
 500   BRepBndLib::Add(Sbase,B);
 501   Standard_Real c[6], bnd;
 502   B.Get(c[0],c[2],c[4],c[1],c[3],c[5]);
 503   bnd = c[0];
 504   for(Standard_Integer i = 1 ; i < 6; i++) {
 505     if(c[i] > bnd) bnd = c[i];
 506   }
 507   bnd = 10*bnd;
 508
 509
 510   Handle(Geom_Surface) s = BRep_Tool::Surface(FUntil);
 511   Handle(Standard_Type) styp = s->DynamicType();
 512   if (styp == STANDARD_TYPE(Geom_RectangularTrimmedSurface)) {
 513     s = Handle(Geom_RectangularTrimmedSurface)::DownCast(s)->BasisSurface();
 514     styp = s->DynamicType();
 515   }
 516   Handle(Geom_RectangularTrimmedSurface) str;
 517   if (styp == STANDARD_TYPE(Geom_Plane)) {
 518     str = new Geom_RectangularTrimmedSurface
 519       (s, bnd, -bnd, bnd, -bnd, Standard_True, Standard_True);
 520   }
 521   else if (styp == STANDARD_TYPE(Geom_CylindricalSurface)) {
 522     str = new Geom_RectangularTrimmedSurface
 523       (s, 0., 2.*M_PI, bnd, -bnd, Standard_True, Standard_True);
 524   }
 525   else if (styp == STANDARD_TYPE(Geom_ConicalSurface)) {
 526     str = new Geom_RectangularTrimmedSurface
 527       (s, 0., 2.*M_PI, bnd, -bnd, Standard_True, Standard_True);
 528   }
 529   else {
 530     FUntil.Nullify();
 531     return;
 532   }
 533
 534   FUntil = BRepLib_MakeFace(str, Precision::Confusion());
 535 }
 536
 537
 538
 539 //=======================================================================
 540 //function : Tool
 541 //purpose  :
 542 //=======================================================================
 543
 544 TopoDS_Solid BRepFeat::Tool(const TopoDS_Shape& SRef,
 545                             const TopoDS_Face& Fac,
 546                             const TopAbs_Orientation Orf)
 547 {
 548   TopTools_ListOfShape lfaces;
 549 //  for (TopExp_Explorer exp(SRef,TopAbs_FACE); exp.More(); exp.Next()) {
 550   TopExp_Explorer exp(SRef,TopAbs_FACE) ;
 551   for ( ; exp.More(); exp.Next()) {
 552     if (exp.Current().ShapeType() == TopAbs_FACE) {
 553       lfaces.Append(exp.Current());
 554     }
 555   }
 556
 557   LocOpe_BuildShape bs(lfaces);
 558   const TopoDS_Shape& Res = bs.Shape();
 559   TopoDS_Shell Sh;
 560   if (Res.ShapeType() == TopAbs_SHELL) {
 561     // faire un solide
 562     Sh = TopoDS::Shell(Res);
 563   }
 564   else if (Res.ShapeType() == TopAbs_SOLID) {
 565     exp.Init(Res,TopAbs_SHELL);
 566     Sh = TopoDS::Shell(exp.Current());
 567     exp.Next();
 568     if (exp.More()) {
 569       Sh.Nullify();
 570     }
 571   }
 572
 573   if (Sh.IsNull()) {
 574     TopoDS_Solid So;
 575     return So;
 576   }
 577
 578
 579   Sh.Orientation(TopAbs_FORWARD);
 580
 581   TopAbs_Orientation orient = TopAbs_FORWARD;
 582
 583   for (exp.Init(Sh,TopAbs_FACE); exp.More(); exp.Next()) {
 584     if (exp.Current().IsSame(Fac)) {
 585       orient = exp.Current().Orientation();
 586       break;
 587     }
 588   }
 589
 590   Standard_Boolean reverse = Standard_False;
 591   if ((orient == Fac.Orientation() && Orf == TopAbs_REVERSED) ||
 592       (orient != Fac.Orientation() && Orf == TopAbs_FORWARD)) {
 593     reverse = Standard_True;
 594   }
 595
 596   if (reverse) {
 597     Sh.Reverse();
 598   }
 599
 600   BRep_Builder B;
 601   TopoDS_Solid Soc;
 602   B.MakeSolid(Soc);
 603   B.Add(Soc,Sh);
 604   return Soc;
 605 }
 606
 607
 608 //=======================================================================
 609 //function : Print
 610 //purpose  : Print the error Description of a StatusError on a stream.
 611 //=======================================================================
 612
 613 Standard_OStream& BRepFeat::Print(const BRepFeat_StatusError se,
 614                                   Standard_OStream& s)
 615 {
 616   switch(se) {
 617   case BRepFeat_OK :
 618     s << "No error";
 619     break;
 620   case BRepFeat_BadDirect :
 621     s << "Directions must be opposite";
 622     break;
 623   case BRepFeat_BadIntersect :
 624     s << "Intersection failure";
 625     break;
 626   case BRepFeat_EmptyBaryCurve :
 627     s << "Empty BaryCurve";
 628     break;
 629   case BRepFeat_EmptyCutResult :
 630     s << "Failure in Cut : Empty resulting shape";
 631     break;;
 632   case BRepFeat_FalseSide :
 633     s << "Verify plane and wire orientation";
 634     break;
 635   case BRepFeat_IncDirection :
 636     s << "Incoherent Direction for shapes From and Until";
 637     break;
 638   case BRepFeat_IncSlidFace :
 639     s << "Sliding face not in Base shape";
 640     break;
 641   case BRepFeat_IncParameter :
 642     s << "Incoherent Parameter : shape Until before shape From";
 643     break;
 644   case BRepFeat_IncTypes :
 645     s << "Invalid option for faces From and Until : 1 Support and 1 not";
 646     break;
 647   case BRepFeat_IntervalOverlap :
 648     s << "Shapes From and Until overlap";
 649     break;
 650   case BRepFeat_InvFirstShape :
 651     s << "Invalid First shape : more than 1 face";
 652     break;
 653   case BRepFeat_InvOption :
 654     s << "Invalid option";
 655     break;
 656   case BRepFeat_InvShape :
 657     s << "Invalid shape";
 658     break;
 659   case BRepFeat_LocOpeNotDone :
 660     s << "Local Operation not done";
 661     break;
 662   case BRepFeat_LocOpeInvNotDone :
 663     s << "Local Operation : intersection line conflict";
 664     break;
 665   case BRepFeat_NoExtFace :
 666     s << "No Extreme faces";
 667     break;
 668   case BRepFeat_NoFaceProf :
 669     s << "No Face Profile";
 670     break;
 671   case BRepFeat_NoGluer :
 672     s << "Gluer Failure";
 673     break;
 674   case BRepFeat_NoIntersectF :
 675     s << "No intersection between Feature and shape From";
 676     break;
 677   case BRepFeat_NoIntersectU :
 678     s << "No intersection between Feature and shape Until";
 679     break;
 680   case BRepFeat_NoParts :
 681     s << "No parts of tool kept";
 682     break;
 683   case BRepFeat_NoProjPt :
 684     s << "No projection points";
 685     break;
 686   case BRepFeat_NotInitialized :
 687     s << "Fields not initialized";
 688     break;
 689   case BRepFeat_NotYetImplemented :
 690     s << "Not yet implemented";
 691     break;
 692   case BRepFeat_NullRealTool :
 693     s << "Real Tool : Null DPrism";
 694     break;
 695   case BRepFeat_NullToolF :
 696     s << "Null Tool : Invalid type for shape Form";
 697     break;
 698   case BRepFeat_NullToolU :
 699     s << "Null Tool : Invalid type for shape Until";
 700     break;
 701   }
 702   return s;
 703 }
 704