Integration of OCCT 6.5.0 from SVN

src/TopBas/TopBas.cdl

@@ -0,0 +1,40 @@
+-- File:	TopBas.cdl
+-- Created:	Thu Aug 13 11:11:42 1992
+-- Author:	Remi LEQUETTE
+--		<rle@phylox>
+---Copyright:	 Matra Datavision 1992
+
+
+
+package TopBas 
+
+	---Purpose: The  TopBas package  provides  data structure  for
+	--          topological algorithms.   THe data  structures are
+	--          used to store the intermediary dat and the results
+	--          of the algorithms.
+	--          
+	--          *  Interference, List  :  An Interference  is  the
+	--          topological    representation  of an intersection.
+	--          The classes are generic in order to be independant
+	--          of the data structure.
+
+uses
+    Standard,
+    TCollection,
+    TopAbs
+
+is
+    generic class Interference;
+	---Purpose: The   Interference  is  the    description  of  an
+	--          intersection on a Shape.
+
+    class TestInterference instantiates Interference from TopBas
+    	    	    	    (Real    from Standard,
+    	    	    	     Integer from Standard);
+			    
+    class ListOfTestInterference instantiates 
+    List from TCollection (TestInterference);
+
+end TopBas;
+
+

src/TopBas/TopBas_Interference.cdl

@@ -0,0 +1,107 @@
+-- File:	Interference.cdl
+-- Created:	Thu Aug 13 11:25:16 1992
+-- Author:	Remi LEQUETTE
+--		<rle@phylox>
+---Copyright:	 Matra Datavision 1992
+
+
+
+
+generic class Interference from TopBas (TheSubShape as any;
+    	    	    	    	    	TheShape    as any)
+
+	---Purpose: An  Interference  is an   Intersection on a  Shape
+	--          called  the Reference, it contains :
+	--          
+	--          * The  Intersection : The  SubShape describing the
+	--          intersection. For example a Vertex.
+	--          
+	--          * The   Boundary : The  Shape  that  generated the
+	--          intersection with the referrence.  For  example an
+	--          Edge.
+	--          
+	--          *   The  Orientation  :  The  orientation  of  the
+	--          Intersection relative to the Boundary.
+	--          
+	--          * The Transition : How the referrence  crosses the
+	--          Boundary at the Intersection.
+	--          
+	--          * The  BoundaryTransition  : How the Referrence is
+	--          on the boundary at the Intersection.
+	--          
+	--          *    Next : The    Next Interference  on  the same
+	--          Reference. Used to make lists.
+
+
+uses
+    Orientation from TopAbs
+    
+is
+   Create returns Interference;
+
+   Create(Inters : TheSubShape;
+   	  Bound  : TheShape;
+	  Orient : Orientation from TopAbs;
+	  Trans  : Orientation from TopAbs;
+	  BTrans : Orientation from TopAbs) returns Interference; 
+	   
+   Intersection(me : in out; I : TheSubShape)
+    	---C++: inline
+   is static;
+   
+   Boundary(me : in out; B : TheShape)
+    	---C++: inline
+   is static;
+   
+   Orientation(me : in out; O : Orientation from TopAbs)
+    	---C++: inline
+   is static;
+   
+   Transition(me : in out; Tr : Orientation from TopAbs)
+    	---C++: inline
+   is static;
+   
+   BoundaryTransition(me : in out; BTr : Orientation from TopAbs)
+    	---C++: inline
+   is static;
+   
+   Intersection(me) returns TheSubShape
+    	---C++: inline
+	---C++: return const &
+   is static;
+   
+   ChangeIntersection(me : in out) returns TheSubShape
+    	---C++: inline
+	---C++: return &
+   is static;
+   
+   Boundary(me) returns TheShape
+    	---C++: inline
+	---C++: return const &
+   is static;
+   
+   ChangeBoundary(me : in out) returns TheShape
+    	---C++: inline
+	---C++: return &
+   is static;
+   
+   Orientation(me) returns Orientation from TopAbs
+    	---C++: inline
+   is static;
+   
+   Transition(me) returns Orientation from TopAbs
+    	---C++: inline
+   is static;
+   
+   BoundaryTransition(me) returns Orientation from TopAbs
+    	---C++: inline
+   is static;
+   
+fields
+    myIntersection : TheSubShape;
+    myBoundary     : TheShape;
+    myOrientation  : Orientation from TopAbs;
+    myTransition   : Orientation from TopAbs;
+    myBTransition  : Orientation from TopAbs;
+
+end Interference;

src/TopBas/TopBas_Interference.gxx

@@ -0,0 +1,32 @@
+// File:	TopBas_Interference.gxx
+// Created:	Thu Aug 13 17:57:15 1992
+// Author:	Remi LEQUETTE
+//		<rle@phylox>
+
+
+//=======================================================================
+//function : TopBas_Interference
+//purpose  : 
+//=======================================================================
+
+TopBas_Interference::TopBas_Interference()
+{
+}
+
+//=======================================================================
+//function : TopBas_Interference
+//purpose  : 
+//=======================================================================
+
+TopBas_Interference::TopBas_Interference(const TheSubShape& Inters,
+					 const TheShape& Bound,
+					 const TopAbs_Orientation Orient,
+					 const TopAbs_Orientation Trans,
+					 const TopAbs_Orientation BTrans) :
+       myIntersection(Inters),
+       myBoundary(Bound),
+       myOrientation(Orient),
+       myTransition(Trans),
+       myBTransition(BTrans)
+{
+}

src/TopBas/TopBas_Interference.lxx

@@ -0,0 +1,121 @@
+
+//=======================================================================
+//function : Intersection
+//purpose  : 
+//=======================================================================
+
+inline void TopBas_Interference::Intersection(const TheSubShape& I)
+{
+  myIntersection = I;
+}
+
+//=======================================================================
+//function : Boundary
+//purpose  : 
+//=======================================================================
+
+inline void TopBas_Interference::Boundary(const TheShape& B)
+{
+  myBoundary = B;
+}
+
+//=======================================================================
+//function : Orientation
+//purpose  : 
+//=======================================================================
+
+inline void TopBas_Interference::Orientation(const TopAbs_Orientation Or)
+{
+  myOrientation = Or;
+}
+
+//=======================================================================
+//function : Transition
+//purpose  : 
+//=======================================================================
+
+inline void TopBas_Interference::Transition(const TopAbs_Orientation Or)
+{
+  myTransition = Or;
+}
+
+//=======================================================================
+//function : BoundaryTransition
+//purpose  : 
+//=======================================================================
+
+inline void TopBas_Interference::BoundaryTransition
+  (const TopAbs_Orientation Or)
+{
+  myBTransition = Or;
+}
+
+//=======================================================================
+//function : Intersection
+//purpose  : 
+//=======================================================================
+
+inline const TheSubShape& TopBas_Interference::Intersection() const
+{
+  return myIntersection;
+}
+
+//=======================================================================
+//function : ChangeIntersection
+//purpose  : 
+//=======================================================================
+
+inline TheSubShape& TopBas_Interference::ChangeIntersection()
+{
+  return myIntersection;
+}
+
+//=======================================================================
+//function : Boundary
+//purpose  : 
+//=======================================================================
+
+inline const TheShape& TopBas_Interference::Boundary() const 
+{
+  return myBoundary;
+}
+
+//=======================================================================
+//function : ChangeBoundary
+//purpose  : 
+//=======================================================================
+
+inline TheShape& TopBas_Interference::ChangeBoundary() 
+{
+  return myBoundary;
+}
+
+//=======================================================================
+//function : Orientation
+//purpose  : 
+//=======================================================================
+
+inline TopAbs_Orientation TopBas_Interference::Orientation() const
+{
+  return myOrientation;
+}
+
+//=======================================================================
+//function : Transition
+//purpose  : 
+//=======================================================================
+
+inline TopAbs_Orientation TopBas_Interference::Transition() const
+{
+  return myTransition;
+}
+
+//=======================================================================
+//function : BoundaryTransition
+//purpose  : 
+//=======================================================================
+
+inline TopAbs_Orientation TopBas_Interference::BoundaryTransition() const
+{
+  return myBTransition;
+}