Integration of OCCT 6.5.0 from SVN

src/BRepProj/BRepProj.cdl

@@ -0,0 +1,33 @@
+-- File:	BRepProj.cdl
+-- Created:	Fri Nov 13 10:46:33 1998
+-- Author:	Jean-Michel BOULCOURT
+--		<jmb@coulox.paris1.matra-dtv.fr>
+---Copyright:	 Matra Datavision 1998
+
+
+package BRepProj
+
+        ---Purpose:     The BRepProj    package  provides   Projection
+        --            Algorithms     like  Cylindrical    and  Conical
+        --          Projections.  Those algorithms have been put in an
+        --          independant package   instead of  BRepAlgo   (like
+        --          NormalProjection) because of cyclic reference with
+        --          BRepFill. So this package is not available for
+        --          the moment to BRepFill.
+        --          
+
+uses
+    gp, 
+    TopoDS,     
+    TopTools
+	      
+is
+
+    
+    class  Projection; 
+        ---Purpose: provides  conical  and  cylindrical projections of  
+        --          Edge  or Wire  on  a Shape from TopoDS. The result  
+        --          will be a Edge  or  Wire  from  TopoDS.    
+	
+
+end BRepProj;

src/BRepProj/BRepProj_Projection.cdl

@@ -0,0 +1,94 @@
+-- File:	BRepProj_Projection.cdl
+-- Created:	Fri Nov 13 10:30:37 1998
+-- Author:	Jean-Michel BOULCOURT
+--		<jmb@coulox.paris1.matra-dtv.fr>
+---Copyright:	 Matra Datavision 1998
+
+
+
+class Projection from BRepProj
+
+    	---Purpose: The  Projection   class provides  conical  and 
+        --          cylindrical projections of  Edge  or  Wire  on   
+        --          a Shape from TopoDS. The result will be a Edge    
+        --          or  Wire  from  TopoDS. 
+
+uses
+    Dir	                             from gp, 
+    Pnt	                             from gp, 
+    Shape                            from TopoDS,  
+    Edge                             from TopoDS, 
+    Wire                             from TopoDS, 
+    Face                             from TopoDS,     
+    Compound                         from TopoDS,  
+    HSequenceOfShape                 from TopTools
+	      
+raises  
+    NoSuchObject      from Standard, 
+    ConstructionError from Standard,
+    NullObject        from Standard
+
+is 
+ 	 
+    Create(Wire, Shape : Shape from TopoDS; 
+           D : Dir from gp)  
+    returns Projection from BRepProj 
+    raises NullObject        from Standard, 
+           ConstructionError from Standard;
+    ---Purpose: Makes a Cylindrical projection of Wire om Shape
+	 
+    Create(Wire, Shape : Shape from TopoDS; 
+           P : Pnt from gp)  
+    returns Projection from BRepProj     
+    raises NullObject        from Standard, 
+           ConstructionError from Standard;
+    ---Purpose: Makes a Conical projection of Wire om Shape
+     
+
+    IsDone(me)  returns Boolean from Standard 
+        ---Purpose: returns False if the section failed
+	---C++:     inline
+    is static;
+    
+    Init(me : in out)
+    	---Purpose: Resets the iterator by resulting wires.
+	---C++:     inline
+    is static; 
+    
+    More(me)  returns Boolean from Standard
+	---Purpose: Returns True if there is a current result wire
+	---C++:     inline
+    is static;
+    
+    Next(me : in out)
+    	---Purpose: Move to the next result wire.
+	---C++:     inline
+    is static;
+    
+    Current(me)
+    returns Wire from TopoDS
+    	---Purpose: Returns the current result wire.  
+	---C++:     inline
+    is static;
+	 
+    Shape(me)
+    returns Compound from TopoDS
+    	---Purpose: Returns the complete result as compound of wires.
+	---C++:     inline
+    is static;
+	 
+    BuildSection(me: in out; Shape, Tool: Shape from TopoDS)
+    is private;
+        ---Purpose: Performs section of theShape by theTool
+        ---         and stores result in the fields.
+
+fields  
+
+    myIsDone  : Boolean          from Standard; 
+    myLsh     : Shape            from TopoDS;
+    myShape   : Compound         from TopoDS; 
+    mySection : HSequenceOfShape from TopTools; 
+    myItr     : Integer          from Standard; 
+	  
+end Projection;
+

src/BRepProj/BRepProj_Projection.cxx

@@ -0,0 +1,257 @@
+#include <BRepProj_Projection.ixx>
+
+#include <BRepAlgo_Section.hxx>
+
+#include <Precision.hxx>
+#include <BRepBndLib.hxx>
+#include <BRepTools_TrsfModification.hxx>
+#include <BRepTools_Modifier.hxx>
+#include <BRepLib_MakeEdge.hxx>
+#include <BRepLib_MakeWire.hxx>
+#include <BRep_Tool.hxx>
+#include <Bnd_Box.hxx>
+
+#include <BRepSweep_Prism.hxx>
+#include <BRepFill_Generator.hxx>
+#include <TopExp.hxx>
+#include <TopExp_Explorer.hxx>
+#include <TopLoc_Location.hxx>
+#include <gp_Dir.hxx>
+#include <gp_Pnt.hxx>
+#include <gp_Vec.hxx>
+#include <gp_Trsf.hxx>
+#include <TopoDS.hxx>
+#include <TopoDS_Iterator.hxx>
+#include <TopoDS_Shape.hxx>
+#include <TopTools_ListOfShape.hxx>
+#include <TopTools_ListIteratorOfListOfShape.hxx>
+#include <BRep_Builder.hxx>
+#include <ShapeAnalysis_FreeBounds.hxx>
+
+#include <Standard_NullObject.hxx>
+#include <Standard_ConstructionError.hxx>
+
+//=======================================================================
+//function : DistanceOut
+//purpose  : Compute the minimum distance between input shapes 
+//           (using Bounding Boxes of each Shape)
+//=======================================================================
+
+static Standard_Real DistanceOut (const TopoDS_Shape& S1, const TopoDS_Shape& S2) 
+{
+  Bnd_Box BBox1, BBox2;
+  BRepBndLib::Add(S1,BBox1);
+  BRepBndLib::Add(S2,BBox2);
+  return BBox1.Distance(BBox2);
+}
+  
+//=======================================================================
+//function : DistanceIn
+//purpose  : Compute the maximum distance between input Shapes
+//           we compute the maximum dimension of each Bounding Box and then
+//           add each other with the minimum distance of shapes.
+//=======================================================================
+
+static Standard_Real DistanceIn (const TopoDS_Shape& S1, const TopoDS_Shape& S2) 
+{
+  Bnd_Box LBBox,SBBox;
+  BRepBndLib::Add(S1,SBBox);
+  BRepBndLib::Add(S2,LBBox);
+
+  Standard_Real LXmin, LYmin, LZmin, LXmax, LYmax, LZmax, 
+                SXmin, SYmin, SZmin, SXmax, SYmax, SZmax; 
+  SBBox.Get(SXmin, SYmin, SZmin, 
+            SXmax, SYmax, SZmax);
+  LBBox.Get(LXmin, LYmin, LZmin, 
+            LXmax, LYmax, LZmax);
+
+  //Compute the max distance between input shapes------------//
+  gp_XYZ Lmin(LXmin, LYmin, LZmin), 
+         Lmax(LXmax, LYmax, LZmax);
+  gp_XYZ Smin(SXmin, SYmin, SZmin), 
+         Smax(SXmax, SYmax, SZmax);
+  Lmax.Subtract(Lmin);
+  Smax.Subtract(Smin);
+  return Lmax.Modulus() + Smax.Modulus() + DistanceOut(S1, S2);
+}
+
+//=======================================================================
+//function : BuildSection
+//purpose  : Cuts theShape by theTool using BRepAlgoAPI_Section and 
+//           stores result as set of connected wires and compound
+//=======================================================================
+
+void BRepProj_Projection::BuildSection (const TopoDS_Shape& theShape,
+                                        const TopoDS_Shape& theTool)
+{
+  myIsDone = Standard_False;
+  mySection.Nullify();
+  myShape.Nullify();
+  myItr = 0;
+
+  // if theShape is compound, extract only faces -- section algorithm 
+  // may refuse to work if e.g. vertex is present
+  TopoDS_Shape aShape;
+  if (theShape.ShapeType() == TopAbs_FACE ||
+      theShape.ShapeType() == TopAbs_SHELL ||
+      theShape.ShapeType() == TopAbs_SOLID ||
+      theShape.ShapeType() == TopAbs_COMPSOLID)
+    aShape = theShape;
+  else if (theShape.ShapeType() == TopAbs_COMPOUND)
+  {
+    TopoDS_Compound C;
+    BRep_Builder B;
+    TopExp_Explorer exp (theShape, TopAbs_FACE);
+    for (; exp.More(); exp.Next())
+    {
+      if ( C.IsNull() )
+        B.MakeCompound (C);
+      B.Add (C, exp.Current());
+    }
+    aShape = C;
+  }
+  if ( aShape.IsNull() )
+    Standard_ConstructionError::Raise(__FILE__": target shape has no faces");
+
+  // build section computing pcurves on the shape
+//  BRepAlgoAPI_Section aSectionTool (aShape, theTool, Standard_False);
+  BRepAlgo_Section aSectionTool (aShape, theTool, Standard_False);
+  aSectionTool.Approximation (Standard_True);
+  aSectionTool.ComputePCurveOn1 (Standard_True);
+  aSectionTool.Build();
+
+  // check for successful work of the section tool
+  if (! aSectionTool.IsDone()) 
+    return;
+
+  // get edges of the result
+  Handle(TopTools_HSequenceOfShape) anEdges = new TopTools_HSequenceOfShape;
+  TopExp_Explorer exp(aSectionTool.Shape(), TopAbs_EDGE);
+  for (; exp.More(); exp.Next())
+    anEdges->Append (exp.Current());
+
+  // if no edges are found, this means that this section yields no result
+  if (anEdges->Length() <= 0) 
+    return;
+
+  // connect edges to wires using ShapeAnalysis functionality
+  ShapeAnalysis_FreeBounds::ConnectEdgesToWires (anEdges, Precision::Confusion(), 
+                                                 Standard_True, mySection);
+  myIsDone = (! mySection.IsNull() && mySection->Length() > 0);
+
+  // collect all resulting wires to compound
+  if ( myIsDone )
+  {
+    BRep_Builder B;
+    B.MakeCompound (myShape);
+    for (Standard_Integer i=1; i <= mySection->Length(); i++)
+      B.Add (myShape, mySection->Value(i));
+
+    // initialize iteration (for compatibility with previous versions)
+    myItr = 1;
+  }
+}
+
+//=======================================================================
+//function : BRepProj_Projection    
+//purpose  : Cylindrical Projection
+//=======================================================================
+
+BRepProj_Projection::BRepProj_Projection(const TopoDS_Shape& Wire,
+                                         const TopoDS_Shape& Shape,
+                                         const gp_Dir& D)
+: myIsDone(Standard_False), myItr(0) 
+{
+  // Check the input
+  Standard_NullObject_Raise_if((Wire.IsNull() || Shape.IsNull()),__FILE__": null input shape");
+  if (Wire.ShapeType() != TopAbs_EDGE && 
+      Wire.ShapeType() != TopAbs_WIRE ) 
+    Standard_ConstructionError::Raise(__FILE__": projected shape is neither wire nor edge");
+
+  // compute the "length" of the cylindrical surface to build
+  Standard_Real mdis = DistanceIn(Wire, Shape);
+  gp_Vec Vsup (D.XYZ() * 2 * mdis);
+  gp_Vec Vinf (D.XYZ() * -mdis);
+
+  // move the base of the cylindrical surface by translating it by -mdis
+  gp_Trsf T;
+  T.SetTranslation(Vinf);
+  // Note: it is necessary to create copy of wire to avoid adding new pcurves into it
+  Handle(BRepTools_TrsfModification) Trsf = new BRepTools_TrsfModification(T);
+  BRepTools_Modifier Modif (Wire, Trsf);
+  TopoDS_Shape WireBase = Modif.ModifiedShape(Wire);
+
+  // Creation of a cylindrical surface
+  BRepSweep_Prism CylSurf (WireBase, Vsup, Standard_False);
+
+  // Perform section
+  BuildSection (Shape, CylSurf.Shape());
+}
+
+//=======================================================================
+//function : BRepProj_Projection
+//purpose  : Conical projection
+//=======================================================================
+
+BRepProj_Projection::BRepProj_Projection (const TopoDS_Shape& Wire,
+                                          const TopoDS_Shape& Shape,
+                                          const gp_Pnt& P)
+: myIsDone(Standard_False), myItr(0)
+{
+  // Check the input
+  Standard_NullObject_Raise_if((Wire.IsNull() || Shape.IsNull()),__FILE__": null input shape");
+  if (Wire.ShapeType() != TopAbs_EDGE && 
+      Wire.ShapeType() != TopAbs_WIRE ) 
+    Standard_ConstructionError::Raise(__FILE__": projected shape is neither wire nor edge");
+
+  // if Wire is only an edge, transform it into a Wire
+  TopoDS_Wire aWire;
+  if (Wire.ShapeType() == TopAbs_EDGE) 
+  {
+    BRep_Builder BB;
+    BB.MakeWire(aWire);
+    BB.Add(aWire, Wire);
+  }
+  else 
+    aWire = TopoDS::Wire(Wire);
+  
+  // compute the "length" of the conical surface to build
+  Standard_Real mdis = DistanceIn(Wire, Shape);
+
+  // Initialize iterator to get first sub-shape of Wire
+  TopExp_Explorer ExpWire; 
+  ExpWire.Init (aWire, TopAbs_VERTEX);
+  
+  // get the first Point of the first sub-shape os the Wire
+  gp_Pnt PC = BRep_Tool::Pnt(TopoDS::Vertex(ExpWire.Current()));
+  
+  // compute the ratio of the scale transformation
+  Standard_Real Scale = PC.Distance(P);
+  if ( Abs (Scale) < Precision::Confusion() ) 
+    Standard_ConstructionError::Raise("Projection");
+  Scale = 1. + mdis / Scale;
+  
+  // move the base of the conical surface by scaling it with ratio Scale
+  // then we do a symmetric relative to a point. So we have two generators
+  // for building a "semi-infinite" conic surface
+  gp_Trsf T;
+  T.SetScale(P, Scale);
+  Handle(BRepTools_TrsfModification) Tsca = new BRepTools_TrsfModification(T);
+  BRepTools_Modifier ModifScale(aWire,Tsca);
+  TopoDS_Shape ShapeGen1 = ModifScale.ModifiedShape(aWire);
+
+  T.SetMirror(P);
+  Handle(BRepTools_TrsfModification) Tmir = new BRepTools_TrsfModification(T);
+  BRepTools_Modifier ModifMirror(ShapeGen1,Tmir);
+  TopoDS_Shape ShapeGen2 = ModifMirror.ModifiedShape(ShapeGen1);
+
+  // Build the Ruled surface based shape
+  BRepFill_Generator RuledSurf;
+  RuledSurf.AddWire(TopoDS::Wire(ShapeGen1));
+  RuledSurf.AddWire(TopoDS::Wire(ShapeGen2));
+  RuledSurf.Perform();
+  TopoDS_Shell SurfShell = RuledSurf.Shell();
+
+  // Perform section
+  BuildSection (Shape, SurfShell);
+}

src/BRepProj/BRepProj_Projection.lxx

@@ -0,0 +1,34 @@
+#include <TopoDS.hxx>
+#include <TopTools_HSequenceOfShape.hxx>
+
+inline Standard_Boolean BRepProj_Projection::IsDone() const
+{
+  return myIsDone;
+}
+ 
+inline TopoDS_Compound BRepProj_Projection::Shape() const
+{
+  return myShape;
+}
+
+inline void BRepProj_Projection::Init() 
+{
+  myItr = 1;
+}
+
+inline Standard_Boolean BRepProj_Projection::More() const
+{
+  return myItr > 0 && ! mySection.IsNull() && myItr <= mySection->Length();
+}
+ 
+inline void BRepProj_Projection::Next() 
+{
+  myItr++;
+}
+ 
+inline TopoDS_Wire BRepProj_Projection::Current() const
+{
+  return TopoDS::Wire (mySection->Value (myItr));
+}
+ 
+