Integration of OCCT 6.5.0 from SVN

src/GccInt/GccInt.cdl

@@ -0,0 +1,37 @@
+-- File:	GccInt.cdl
+-- Created:	Fri Mar 22 13:20:33 1991
+-- Author:	Philippe DAUTRY
+--		<fid@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+package GccInt
+
+	---Purpose: This package implements the services needed by the 
+	--          toolkit Gcc to use curves other than lines or circles.
+	--          This package is also used for intersections and 
+	--          bisecting curves.
+
+uses gp,
+     MMgt,
+     Standard
+
+is
+
+enumeration IType is Lin, Cir, Ell, Par, Hpr, Pnt;
+
+deferred class Bisec;
+
+class BCirc;
+
+class BElips;
+
+class BLine;
+
+class BParab;
+
+class BPoint;
+
+class BHyper;
+
+end GccInt;

src/GccInt/GccInt_BCirc.cdl

@@ -0,0 +1,38 @@
+-- File:	BCirc.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BCirc from GccInt 
+
+inherits Bisec from GccInt 
+
+     	---Purpose: Describes a circle as a bisecting curve between two 2D
+    	-- geometric objects (such as circles or points).
+
+uses Circ2d from gp,
+     IType  from GccInt
+
+is
+
+Create(Circ : Circ2d) returns mutable BCirc;
+    	---Purpose: Constructs a bisecting curve whose geometry is the 2D circle Circ.
+    
+Circle(me) returns Circ2d from gp
+    is redefined;
+    	---Purpose: Returns a 2D circle which is the geometry of this bisecting curve.    
+
+    ArcType(me) returns IType from GccInt
+    is static;
+    	---Purpose: Returns GccInt_Cir, which is the type of any GccInt_BCirc bisecting curve.
+
+fields
+
+    cir : Circ2d from gp;
+    ---Purpose: The bisecting line.
+
+end BCirc;    
+
+

src/GccInt/GccInt_BCirc.cxx

@@ -0,0 +1,23 @@
+// File:	GccInt_BCirc.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BCirc.ixx>
+#include <Standard_DomainError.hxx>
+#include <gp_Circ2d.hxx>
+
+GccInt_BCirc::
+   GccInt_BCirc(const gp_Circ2d& Circ) {
+   cir = gp_Circ2d(Circ);
+ }
+
+GccInt_IType GccInt_BCirc::
+   ArcType() const {
+   return GccInt_Cir;
+ }
+
+gp_Circ2d GccInt_BCirc::
+  Circle() const { return cir; }
+

src/GccInt/GccInt_BElips.cdl

@@ -0,0 +1,38 @@
+-- File:	BElips.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BElips from GccInt  
+
+inherits Bisec from GccInt
+
+     	---Purpose: Describes an ellipse as a bisecting curve between two
+    	-- 2D geometric objects (such as circles or points).
+
+uses Elips2d from gp,
+     IType  from GccInt
+
+is
+
+Create(Ellipse : Elips2d) returns mutable BElips;
+    	---Purpose:
+    	-- Constructs a bisecting curve whose geometry is the 2D ellipse Ellipse.
+    
+Ellipse(me) returns Elips2d from gp
+    is redefined;
+    	---Purpose: Returns a 2D ellipse which is the geometry of this bisecting curve.  
+    
+ArcType(me) returns IType from GccInt
+    is static;
+    	---Purpose: Returns GccInt_Ell, which is the type of any GccInt_BElips bisecting curve.
+
+fields
+
+    eli : Elips2d from gp;
+    	---Purpose: The bisecting line.
+    
+end BElips;    
+

src/GccInt/GccInt_BElips.cxx

@@ -0,0 +1,22 @@
+// File:	GccInt_BElips.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BElips.ixx>
+#include <Standard_DomainError.hxx>
+#include <gp_Elips2d.hxx>
+
+GccInt_BElips::
+   GccInt_BElips(const gp_Elips2d& Ellipse) {
+   eli = gp_Elips2d(Ellipse);
+ }
+
+GccInt_IType GccInt_BElips::
+   ArcType() const {
+   return GccInt_Ell;
+ }
+
+gp_Elips2d GccInt_BElips::
+  Ellipse() const { return eli; }

src/GccInt/GccInt_BHyper.cdl

@@ -0,0 +1,38 @@
+-- File:	BHyper.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BHyper from GccInt  
+
+inherits Bisec from GccInt
+
+     	---Purpose: Describes a hyperbola as a bisecting curve between two
+    	-- 2D geometric objects (such as circles or points).
+
+uses Hypr2d from gp,
+     IType  from GccInt
+
+is
+
+Create(Hyper : Hypr2d from gp) returns mutable BHyper;
+    	---Purpose:
+    	-- Constructs a bisecting curve whose geometry is the 2D hyperbola Hyper.
+        
+Hyperbola(me) returns Hypr2d from gp
+    is redefined;
+    	---Purpose: Returns a 2D hyperbola which is the geometry of this bisecting curve. 
+    
+ArcType(me) returns IType from GccInt
+    is static;
+    	---Purpose: Returns GccInt_Hpr, which is the type of any GccInt_BHyper bisecting curve.
+        
+fields
+
+    hyp : Hypr2d from gp;
+    ---Purpose: The bisecting line.
+
+end BHyper;
+

src/GccInt/GccInt_BHyper.cxx

@@ -0,0 +1,24 @@
+// File:	GccInt_BHyper.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BHyper.ixx>
+#include <Standard_NotImplemented.hxx>
+#include <gp_Hypr2d.hxx>
+
+GccInt_BHyper::
+   GccInt_BHyper(const gp_Hypr2d& Hyper) {
+   hyp = gp_Hypr2d(Hyper);
+ }
+
+GccInt_IType GccInt_BHyper::
+   ArcType() const {
+   return GccInt_Hpr;
+ }
+
+gp_Hypr2d GccInt_BHyper::
+  Hyperbola() const { return hyp; }
+
+

src/GccInt/GccInt_BLine.cdl

@@ -0,0 +1,36 @@
+-- File:	BLine.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BLine from GccInt  
+
+inherits Bisec from GccInt    
+     	---Purpose:  Describes a line as a bisecting curve between two 2D
+    	-- geometric objects (such as lines, circles or points).
+
+uses Lin2d  from gp,
+     IType  from GccInt 
+ 
+
+is
+
+Create(Line : Lin2d) returns mutable BLine;
+    	---Purpose: Constructs a bisecting line whose geometry is the 2D line Line.
+    
+Line(me) returns Lin2d from gp
+    is redefined;
+    	---Purpose: Returns a 2D line which is the geometry of this bisecting line.  
+    
+ArcType(me) returns IType from GccInt
+    is static;
+    	---Purpose: Returns GccInt_Lin, which is the type of any GccInt_BLine bisecting line.
+
+fields
+
+    lin : Lin2d from gp;
+    ---Purpose: The bisecting line.
+
+end BLine;

src/GccInt/GccInt_BLine.cxx

@@ -0,0 +1,20 @@
+// File:	GccInt_BLine.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BLine.ixx>
+#include <Standard_DomainError.hxx>
+#include <gp_Lin2d.hxx>
+
+GccInt_BLine::
+   GccInt_BLine(const gp_Lin2d& Line) {
+   lin = gp_Lin2d(Line);
+ }
+
+GccInt_IType GccInt_BLine::
+   ArcType() const { return GccInt_Lin; }
+
+gp_Lin2d GccInt_BLine::
+  Line() const { return lin; }

src/GccInt/GccInt_BParab.cdl

@@ -0,0 +1,37 @@
+-- File:	BParab.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BParab  from GccInt  
+
+inherits Bisec from GccInt 
+
+     	---Purpose: Describes a parabola as a bisecting curve between two
+    	-- 2D geometric objects (such as lines, circles or points).
+
+uses Parab2d from gp,
+     IType  from GccInt
+
+is
+
+Create(Parab : Parab2d) returns mutable BParab;
+    	---Purpose: Constructs a bisecting curve whose geometry is the 2D parabola Parab.
+    
+Parabola(me) returns Parab2d from gp
+    is redefined;
+    	---Purpose: Returns a 2D parabola which is the geometry of this bisecting curve. 
+    
+ArcType(me) returns IType from GccInt
+    is static;
+    	---Purpose: Returns GccInt_Par, which is the type of any GccInt_BParab bisecting curve.
+
+fields
+
+    par : Parab2d from gp;
+    	---Purpose: The bisecting line.
+
+end BParab;    
+

src/GccInt/GccInt_BParab.cxx

@@ -0,0 +1,23 @@
+// File:	GccInt_BParab.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BParab.ixx>
+#include <Standard_DomainError.hxx>
+#include <gp_Parab2d.hxx>
+
+GccInt_BParab::
+   GccInt_BParab(const gp_Parab2d& Parab) {
+   par = gp_Parab2d(Parab);
+ }
+
+GccInt_IType GccInt_BParab::
+   ArcType() const {
+   return GccInt_Par;
+ }
+
+gp_Parab2d GccInt_BParab::
+  Parabola() const { return par; }
+

src/GccInt/GccInt_BPoint.cdl

@@ -0,0 +1,36 @@
+-- File:	BPoint.cdl
+-- Created:	Fri Oct  4 16:40:04 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+
+class BPoint from GccInt  
+
+inherits Bisec from GccInt 
+     ---Purpose: Describes a point as a bisecting object between two 2D geometric objects.
+        
+uses Pnt2d from gp,
+     IType  from GccInt
+
+
+is
+
+Create(Point : Pnt2d) returns mutable BPoint;
+    ---Purpose: Constructs a bisecting object whose geometry is the 2D point Point.
+    
+Point(me) returns Pnt2d from gp
+    is redefined;
+    ---Purpose: Returns a 2D point which is the geometry of this bisecting object.
+    
+ArcType(me) returns IType from GccInt
+    is static;
+    --- Purpose: Returns GccInt_Pnt, which is the type of any GccInt_BPoint bisecting object.
+    
+fields
+
+    pnt : Pnt2d from gp;
+    ---Purpose: The bisecting line.
+
+end BPoint;    
+

src/GccInt/GccInt_BPoint.cxx

@@ -0,0 +1,24 @@
+// File:	GccInt_BPoint.cxx
+// Created:	Mon Oct  7 15:33:07 1991
+// Author:	Remi GILET
+//		<reg@phobox>
+
+
+#include <GccInt_BPoint.ixx>
+#include <Standard_DomainError.hxx>
+#include <gp_Pnt2d.hxx>
+
+GccInt_BPoint::
+   GccInt_BPoint(const gp_Pnt2d& Point) {
+   pnt = gp_Pnt2d(Point);
+ }
+
+GccInt_IType GccInt_BPoint::
+   ArcType() const {
+   return GccInt_Pnt;
+ }
+
+gp_Pnt2d GccInt_BPoint::
+   Point() const { return pnt; }
+
+

src/GccInt/GccInt_Bisec.cdl

@@ -0,0 +1,88 @@
+-- File:	Bisec.cdl
+-- Created:	Fri Oct  4 11:16:59 1991
+-- Author:	Remi GILET
+--		<reg@phobox>
+---Copyright:	 Matra Datavision 1991
+
+deferred class 
+
+     Bisec from GccInt
+
+inherits TShared from MMgt
+
+     	---Purpose: The deferred class GccInt_Bisec is the root class for
+    	-- elementary bisecting loci between two simple geometric
+    	-- objects (i.e. circles, lines or points).
+    	-- Bisecting loci between two geometric objects are such
+    	-- that each of their points is at the same distance from the
+    	-- two geometric objects. It is typically a curve, such as a
+    	-- line, circle or conic.
+    	-- Generally there is more than one elementary object
+    	-- which is the solution to a bisecting loci problem: each
+    	-- solution is described with one elementary bisecting
+    	-- locus. For example, the bisectors of two secant straight
+    	-- lines are two perpendicular straight lines.
+    	-- The GccInt package provides concrete implementations
+    	-- of the following elementary derived bisecting loci:
+    	-- -   lines, circles, ellipses, hyperbolas and parabolas, and
+    	-- -   points (not used in this context).
+    	-- The GccAna package provides numerous algorithms for
+    	-- computing the bisecting loci between circles, lines or
+    	-- points, whose solutions are these types of elementary bisecting locus.
+        
+uses 
+
+     Circ2d  from gp,
+     Lin2d   from gp,
+     Pnt2d   from gp,
+     Elips2d from gp,
+     Parab2d from gp,
+     Hypr2d  from gp,
+     IType   from GccInt
+
+raises
+     DomainError from Standard
+is
+
+ArcType (me) returns IType from GccInt
+    is deferred;
+    	---Purpose: Returns the type of bisecting object (line, circle,
+    	-- parabola, hyperbola, ellipse, point).
+
+Point (me) returns Pnt2d from gp
+raises DomainError from Standard
+    	---Purpose: Returns the bisecting line when ArcType returns Pnt.
+    	--          An exception DomainError is raised if ArcType is not a Pnt. 
+is virtual;
+
+Line (me) returns Lin2d from gp
+    	---Purpose: Returns the bisecting line when ArcType returns Lin.
+raises DomainError from Standard
+    	---Purpose: An exception DomainError is raised if ArcType is not a Lin. 
+is virtual;
+    
+Circle (me) returns Circ2d from gp
+    	---Purpose: Returns the bisecting line when ArcType returns Cir.
+raises DomainError from Standard
+    	---Purpose: An exception DomainError is raised if ArcType is not a Cir. 
+is virtual;
+    
+Hyperbola (me) returns Hypr2d from gp
+    	---Purpose: Returns the bisecting line when ArcType returns Hpr.
+raises DomainError from Standard
+    	---Purpose: An exception DomainError is raised if ArcType is not a Hpr. 
+is virtual;
+    
+Parabola (me) returns Parab2d from gp
+    	---Purpose: Returns the bisecting line when ArcType returns Par.
+raises DomainError from Standard
+    	---Purpose: An exception DomainError is raised if ArcType is not a Par. 
+is virtual;
+    
+Ellipse (me) returns Elips2d from gp
+    	---Purpose: Returns the bisecting line when ArcType returns Ell.
+raises DomainError from Standard
+    	---Purpose: An exception DomainError is raised if ArcType is not an Ell. 
+is virtual;
+    
+end Bisec;

src/GccInt/GccInt_Bisec.cxx

@@ -0,0 +1,50 @@
+// File:	GccInt_Bisec.cxx
+// Created:	Mon Jan 27 09:44:43 1992
+// Author:	Remi GILET
+//		<reg@phobox>
+
+#include <GccInt_Bisec.ixx>
+#include <gp_Circ2d.hxx>
+#include <gp_Elips2d.hxx>
+#include <gp_Hypr2d.hxx>
+#include <gp_Lin2d.hxx>
+#include <gp_Parab2d.hxx>
+#include <gp_Pnt2d.hxx>
+#include <Standard_NotImplemented.hxx>
+
+gp_Circ2d GccInt_Bisec::
+  Circle() const { 
+    Standard_NotImplemented::Raise();
+    return gp_Circ2d();
+    }
+
+gp_Elips2d GccInt_Bisec::
+  Ellipse() const { 
+    Standard_NotImplemented::Raise();
+    return gp_Elips2d();
+    }
+
+gp_Hypr2d GccInt_Bisec::
+  Hyperbola() const { 
+    Standard_NotImplemented::Raise();
+    return gp_Hypr2d();
+    }
+
+gp_Lin2d GccInt_Bisec::
+  Line() const {
+    Standard_NotImplemented::Raise();
+    return gp_Lin2d();
+    }
+
+gp_Parab2d GccInt_Bisec::
+  Parabola() const { 
+    Standard_NotImplemented::Raise();
+    return gp_Parab2d();
+    }
+
+gp_Pnt2d GccInt_Bisec::
+  Point() const { 
+    Standard_NotImplemented::Raise();
+    return gp_Pnt2d();
+    }
+