OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
Code

0024662: Removing unused "generic" classes. Part 3

Browse Source 
In scope of this issue next unused generic class will be removed:

- IntImp_CSCurveTool
- IntImp_CSFunction
- IntImp_CurveTool
- IntImp_ISurfaceTool
- IntImp_PSurfaceTool
- IntStart_ArcTool
- IntStart_PSurfaceTool
- IntStart_SIFunction
- IntStart_SITool
- IntStart_SOBFunction
- IntStart_SOBTool
- IntStart_TopolTool
- IntWalk_IWFunction
- IntWalk_Iterator
- IntWalk_LoopPointTool
- IntWalk_PSurfaceTool
- IntWalk_PathPointTool
- Intf_ToolPolyhedron
- LProp_CurveTool
- LProp_SurfaceTool
- LibCtl_ProtocolTemplate
- MAT_Tool
- Primitives_Builder
- Sweep_Builder
- Sweep_Iterator
- Sweep_Tool
- TopClass_FaceExplorer
- TopClass_Intersection2d
- HatchGen_Intersector
- IFSelect_SelectList
- IntCurveSurface_CurveTool
- IntImp_COnSCurveTool
- IntImpParGen_ParTool
This commit is contained in:
dln 2014-02-19 11:29:13 +04:00 committed by abv
parent 8e3ebc7a63
commit 93cb31a607
103 changed files with 41 additions and 3627 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/HatchGen/HatchGen.cdl
View File

@ -52,9 +52,6 @@ is
end ErrorStatus from HatchGen ;
deferred generic class Intersector ;
deferred class IntersectionPoint ;
class PointOnHatching ;

127
src/HatchGen/HatchGen_Intersector.cdl
View File

@ -1,127 +0,0 @@
-- Created on: 1994-03-21
-- Created by: Jean Marc LACHAUME
-- Copyright (c) 1994-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class Intersector from HatchGen
(TheCurveH as any ; -- as Curve from Geom2dAdaptor
TheCurveE as any ) -- as Curve from Geom2dAdaptor
inherits Intersection from IntRes2d
uses
Lin2d from gp,
Dir2d from gp
is
Initialize
---Purpose: Creates an empty intersector
is protected ;
Initialize(Confusion : Real from Standard ;
Tangency : Real from Standard)
---Purpose: Creates an intersector.
is protected ;
ConfusionTolerance (me)
---Purpose: Returns the confusion tolerance of the
-- intersector.
returns Real from Standard
is static ;
SetConfusionTolerance (me : in out ;
Confusion : Real from Standard)
---Purpose: Sets the confusion tolerance of the intersector.
is static ;
TangencyTolerance (me)
---Purpose: Returns the tangency tolerance of the
-- intersector.
returns Real from Standard
is static ;
SetTangencyTolerance (me : in out ;
Tangency : Real from Standard)
---Purpose: Sets the tangency tolerance of the intersector.
is static ;
Intersect (me : in out ; C1 : in out TheCurveE ;
C2 : in out TheCurveH )
---Purpose: Intersects the curves C1 and C2.
-- The results are retreived by the usual methods
-- described in IntRes2d_Intersection.
is static ;
-------------------------------------------------------------------------
---- M e t h o d s u s e d b y t h e C l a s s i f i e r 2 d ---
-------------------------------------------------------------------------
Perform(me : in out;
L : Lin2d from gp;
P : Real from Standard;
Tol : Real from Standard;
E : TheCurveE)
---Purpose: Performs the intersection between the 2d line
-- segment (<L>, <P>) and the Curve <E>. The line
-- segment is the part of the 2d line <L> of
-- parameter range [0, <P>] (P is positive and can be
-- RealLast()). Tol is the Tolerance on the segment.
-- The order is relevant, the first argument is the
-- segment, the second the Edge.
is static;
LocalGeometry(me;
E : TheCurveE ;
U : Real from Standard;
T : out Dir2d from gp;
N : out Dir2d from gp;
C : out Real)
---Purpose: Returns in <T>, <N> and <C> the tangent, normal
-- and curvature of the edge <E> at parameter value
-- <U>.
is static;
end Intersector from HatchGen ;

13
src/HatchGen/HatchGen_Intersector.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

2
src/IFSelect/IFSelect.cdl
View File

@ -75,7 +75,6 @@ is
class SelectSharing; -- directly sharing entities
deferred class SelectAnyList; -- from a list in an entity
deferred class SelectInList; -- from a list of single entities
generic class SelectList; -- from an entity as a list
class SelectSuite; -- macro-select-deduct
deferred class SelectExtract; -- sorted lists (can be inverted) :
@ -94,7 +93,6 @@ is
-- (in particular, instantiations of SelectType)
-- Other classes can be added for a specific Interface
-- (in particular, instantiations of SelectList)
deferred class SelectExplore;
class SelectSignedShared; -- shared entities + signature
class SelectSignedSharing; -- sharing entities + signature

67
src/IFSelect/IFSelect_SelectList.cdl
View File

@ -1,67 +0,0 @@
-- Created on: 1992-11-18
-- Created by: Christian CAILLET
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class SelectList from IFSelect (Entity as Transient)
inherits SelectInList
---Purpose : A SelectList kind Selection selects a part of an Entity, as
-- well as this Entity can be described as an ordered List.
-- That is to say, it must have two methods :
--
-- NbEntities (me) returns Integer;
-- Entity (me; num : Integer) returns Transient;
--
-- For each class of Entity for which we want to define a
-- SelectList, we will instanciate this class with the
-- desired class of Entity as definition parameter : the deferred
-- methods NbEntities and ListedEntity are now defined to call
-- the required methods from <Entity>
--
-- SelectList works as SelectInList, beeing a sub-class of it
uses AsciiString from TCollection, Transient, EntityIterator, IntParam
raises OutOfRange
is
Create returns mutable SelectList;
---Purpose : Creates a SelectList (with no limit);
KeepInputEntity (me; iter : in out EntityIterator);
---Purpose : Keeps Input Entity, as having required type <Entity>
NbItems (me; ent : Transient) returns Integer;
---Purpose : Returns count of Entities in the list in the Entity <ent>
-- by calling method NbEntity from parameter class Entity
ListedEntity (me; num : Integer; ent : Transient)
returns Transient raises OutOfRange;
---Purpose : Returns an Entity of the list in the Entity <ent>, by calling
-- method Entity from parameter class Entity
-- Error if <ent> has not required type, or if <num> is not in
-- the right range (1,NbEntities),
ListLabel (me) returns AsciiString from TCollection;
---Purpose : Returns the specific label for the list
-- then, following cases :
-- " From .. Until .." or "From .." or "Until .." or "Rank no .."
-- Warning : it is not possible to give a character constant to instantiate
-- a generic class, thus "List From Entity" is not adapted :
-- redefine Label if judged necessary
end SelectList;

44
src/IFSelect/IFSelect_SelectList.gxx
View File

@ -1,44 +0,0 @@
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
//#include <IFSelect_SelectList.ixx>
// .... Instanciation avec "Handle(Entity)" qui offre ces deux methodes :
// nb = ent->NbEntities() et ent_i = ent->InterfaceEntity(i)
IFSelect_SelectList::IFSelect_SelectList () { }
void IFSelect_SelectType::KeepInputEntity (Interface_EntityIterator& iter)
{ iter.SelectType(STANDARD_TYPE(Entity)); }
Standard_Integer IFSelect_SelectList::NbItems
(const Handle(Standard_Transient)& ent)
{
Handle(Entity) anent = Handle(Entity)::DownCast(ent);
if (anent.IsNull()) return 0;
return anent->NbEntities();
}
Handle(Standard_Transient) IFSelect_SelectList::ListedEntity
(const Standard_Integer num, const Handle(Standard_Transient)& ent)
{
Handle(Entity) anent = Handle(Entity)::DownCast(ent);
if (anent.IsNull()) Standard_OutOfRange::Raise
("IFSelect SelectType : ListedEntity");
return anent->InterfacebEntity(num);
}
TCollection_AsciiString IFSelect_SelectList::ListLabel () const
{ return TCollection_AsciiString(STANDARD_TYPE(Entity)->Name()); }

2
src/IntCurveSurface/IntCurveSurface.cdl
View File

@ -78,8 +78,6 @@ is
Sequence from TCollection(
IntersectionSegment from IntCurveSurface);
--------------------------------------------------
generic class CurveTool;
--------------------------------------------------
generic class HCurveTool;
--------------------------------------------------
generic class SurfaceTool;

236
src/IntCurveSurface/IntCurveSurface_CurveTool.cdl
View File

@ -1,236 +0,0 @@
-- Created on: 1995-07-17
-- Created by: Modelistation
-- Copyright (c) 1995-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class CurveTool from IntCurveSurface (
CurveGen as any)
uses
Array1OfReal from TColStd,
Shape from GeomAbs,
CurveType from GeomAbs,
Vec from gp,
Pnt from gp,
Circ from gp,
Elips from gp,
Hypr from gp,
Parab from gp,
Lin from gp,
BezierCurve from Geom,
BSplineCurve from Geom
raises
OutOfRange from Standard,
NoSuchObject from Standard,
DomainError from Standard
is
--
-- Global methods - Apply to the whole curve.
--
FirstParameter(myclass; C: CurveGen) returns Real
---C++: inline
;
LastParameter(myclass; C: CurveGen) returns Real
---C++: inline
;
--
-- Services to break the curves to the expected continuity
--
-- If for example you need the curve to be C2 and the method
-- Continuity returns you something lower than C2 (say C1 for
-- example).
--
-- First compute the number of intervals with the requested
-- continuity with the method NbIntervals(). Note that if the
-- continuity is higher than the one you need NbIntervals will
-- return 1.
--
-- Then you get the parameters bounding the intervals with the
-- method Intervals, using an array of length at least
-- NbIntervals()+1.
--
-- If you need to create a curve with a restricted span you can
-- use the method Trim().
Continuity(myclass; C: CurveGen) returns Shape from GeomAbs
---Purpose:
---C++: inline
;
NbIntervals(myclass; C: CurveGen; S : Shape from GeomAbs) returns Integer
---Purpose: Returns the number of intervals for continuity
-- <S>. May be one if Continuity(myclass) >= <S>
---C++: inline
;
Intervals(myclass; C: CurveGen; T : in out Array1OfReal from TColStd;
S : Shape from GeomAbs)
---Purpose: Stores in <T> the parameters bounding the intervals
-- of continuity <S>.
--
-- The array must provide enough room to accomodate
-- for the parameters. i.e. T.Length() > NbIntervals()
raises
OutOfRange from Standard
---C++: inline
;
IsClosed(myclass; C: CurveGen) returns Boolean
---C++: inline
;
IsPeriodic(myclass; C: CurveGen) returns Boolean
---C++: inline
;
Period(myclass; C: CurveGen) returns Real
raises
DomainError from Standard -- if the curve is not periodic
---C++: inline
;
Value(myclass; C: CurveGen; U : Real) returns Pnt from gp
--- Purpose : Computes the point of parameter U on the curve.
---C++: inline
;
D0 (myclass; C: CurveGen; U : Real; P : out Pnt from gp)
--- Purpose : Computes the point of parameter U on the curve.
---C++: inline
;
D1 (myclass; C: CurveGen; U : Real; P : out Pnt from gp ; V : out Vec from gp)
--- Purpose : Computes the point of parameter U on the curve with its
-- first derivative.
raises
DomainError from Standard
--- Purpose : Raised if the continuity of the current interval
-- is not C1.
---C++: inline
;
D2 (myclass; C: CurveGen; U : Real; P : out Pnt from gp; V1, V2 : out Vec from gp)
--- Purpose :
-- Returns the point P of parameter U, the first and second
-- derivatives V1 and V2.
raises
DomainError from Standard
--- Purpose : Raised if the continuity of the current interval
-- is not C2.
---C++: inline
;
D3 (myclass; C: CurveGen; U : Real; P : out Pnt from gp; V1, V2, V3 : out Vec from gp)
--- Purpose :
-- Returns the point P of parameter U, the first, the second
-- and the third derivative.
raises
DomainError from Standard
--- Purpose : Raised if the continuity of the current interval
-- is not C3.
---C++: inline
;
DN (myclass; C: CurveGen; U : Real; N : Integer) returns Vec from gp
--- Purpose :
-- The returned vector gives the value of the derivative for the
-- order of derivation N.
raises
DomainError from Standard,
--- Purpose : Raised if the continuity of the current interval
-- is not CN.
OutOfRange from Standard
--- Purpose : Raised if N < 1.
---C++: inline
;
Resolution(myclass; C: CurveGen; R3d : Real) returns Real
---Purpose : Returns the parametric resolution corresponding
-- to the real space resolution <R3d>.
---C++: inline
;
GetType(myclass; C: CurveGen) returns CurveType from GeomAbs
---Purpose: Returns the type of the curve in the current
-- interval : Line, Circle, Ellipse, Hyperbola,
-- Parabola, BezierCurve, BSplineCurve, OtherCurve.
---C++: inline
;
--
-- The following methods must be called when GetType returned
-- the corresponding type.
--
Line(myclass; C: CurveGen) returns Lin from gp
raises
NoSuchObject from Standard
---C++: inline
;
Circle(myclass; C: CurveGen) returns Circ from gp
raises
NoSuchObject from Standard
---C++: inline
;
Ellipse(myclass; C: CurveGen) returns Elips from gp
raises
NoSuchObject from Standard
---C++: inline
;
Hyperbola(myclass; C: CurveGen) returns Hypr from gp
raises
NoSuchObject from Standard
---C++: inline
;
Parabola(myclass; C: CurveGen) returns Parab from gp
raises
NoSuchObject from Standard
---C++: inline
;
Bezier(myclass; C: CurveGen) returns BezierCurve from Geom
raises
NoSuchObject from Standard
---C++: inline
;
BSpline(myclass; C: CurveGen) returns BSplineCurve from Geom
raises
NoSuchObject from Standard
---C++: inline
;
NbSamples(myclass; C: CurveGen; U0,U1: Real from Standard)
returns Integer from Standard;
end CurveTool;

48
src/IntCurveSurface/IntCurveSurface_CurveTool.gxx
View File

@ -1,48 +0,0 @@
// Created on: 1995-07-17
// Created by: Modelistation
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#include CurveGen_hxx
#include <GeomAbs_CurveType.hxx>
#include <GeomAbs_Shape.hxx>
#include <Handle_Geom_BezierCurve.hxx>
#include <Handle_Geom_BSplineCurve.hxx>
#include <TColStd_Array1OfReal.hxx>
//============================================================
Standard_Integer IntCurveSurface_CurveTool::NbSamples (const CurveGen& C,
const Standard_Real U0,
const Standard_Real U1) {
GeomAbs_CurveType typC = C.GetType();
const Standard_Real nbsOther = 10.0;
Standard_Real nbs = nbsOther;
if(typC == GeomAbs_Line)
nbs = 2;
else if(typC == GeomAbs_BezierCurve)
nbs = 3 + C.NbPoles();
else if(typC == GeomAbs_BSplineCurve) {
nbs = C.NbKnots();
nbs*= C.Degree();
nbs*= C.LastParameter()- C.FirstParameter();
nbs/= U1-U0;
if(nbs < 2.0) nbs=2;
}
if(nbs>50)
nbs = 50;
return((Standard_Integer)nbs);
}

164
src/IntCurveSurface/IntCurveSurface_CurveTool.lxx
View File

@ -1,164 +0,0 @@
// Created on: 1992-10-22
// Created by: Laurent BUCHARD
// Copyright (c) 1992-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#include CurveGen_hxx
#include <GeomAbs_CurveType.hxx>
#include <GeomAbs_Shape.hxx>
#include <gp_Vec.hxx>
#include <gp_Lin.hxx>
#include <gp_Circ.hxx>
#include <gp_Elips.hxx>
#include <gp_Parab.hxx>
#include <gp_Hypr.hxx>
#include <Handle_Geom_BezierCurve.hxx>
#include <Handle_Geom_BSplineCurve.hxx>
#include <TColStd_Array1OfReal.hxx>
//============================================================
inline Standard_Real IntCurveSurface_CurveTool::FirstParameter (const CurveGen& C) {
return(C.FirstParameter());
}
//============================================================
inline Standard_Real IntCurveSurface_CurveTool::LastParameter (const CurveGen& C) {
return(C.LastParameter());
}
//============================================================
inline GeomAbs_Shape IntCurveSurface_CurveTool::Continuity (const CurveGen& C) {
return(C.Continuity());
}
//============================================================
inline Standard_Integer IntCurveSurface_CurveTool::NbIntervals(const CurveGen& C,const GeomAbs_Shape Sh) {
return(C.NbIntervals(Sh));
}
//============================================================
inline void IntCurveSurface_CurveTool::Intervals(const CurveGen& C,
TColStd_Array1OfReal& Tab,
const GeomAbs_Shape Sh) {
C.Intervals(Tab,Sh);
}
//============================================================
inline Standard_Boolean IntCurveSurface_CurveTool::IsClosed(const CurveGen& C) {
return(C.IsClosed());
}
//============================================================
inline Standard_Boolean IntCurveSurface_CurveTool::IsPeriodic(const CurveGen& C) {
return(C.IsPeriodic());
}
//============================================================
inline Standard_Real IntCurveSurface_CurveTool::Period(const CurveGen& C) {
return(C.Period());
}
//============================================================
inline gp_Pnt IntCurveSurface_CurveTool::Value (const CurveGen& C,
const Standard_Real U) {
return(C.Value(U));
}
//============================================================
inline void IntCurveSurface_CurveTool::D0(const CurveGen& C,
const Standard_Real U,
gp_Pnt& P) {
C.D0(U,P);
}
//============================================================
inline void IntCurveSurface_CurveTool::D1 (const CurveGen& C,
const Standard_Real U,
gp_Pnt& P,
gp_Vec& T) {
C.D1(U,P,T);
}
//============================================================
inline void IntCurveSurface_CurveTool::D2 (const CurveGen& C,
const Standard_Real U,
gp_Pnt& P,
gp_Vec& T,
gp_Vec& N) {
C.D2(U,P,T,N);
}
//============================================================
inline void IntCurveSurface_CurveTool::D3 (const CurveGen& C,
const Standard_Real U,
gp_Pnt& P,
gp_Vec& V1,
gp_Vec& V2,
gp_Vec& V3) {
C.D3(U,P,V1,V2,V3);
}
//============================================================
inline gp_Vec IntCurveSurface_CurveTool::DN (const CurveGen& C,
const Standard_Real U,
const Standard_Integer N) {
return(C.DN(U,N));
}
//============================================================
inline Standard_Real IntCurveSurface_CurveTool::Resolution(const CurveGen& C,
const Standard_Real R3d) {
return(C.Resolution(R3d));
}
//============================================================
inline GeomAbs_CurveType IntCurveSurface_CurveTool::GetType(const CurveGen& C) {
return(C.GetType());
}
//============================================================
inline gp_Lin IntCurveSurface_CurveTool::Line (const CurveGen& C) {
return(C.Line());
}
//============================================================
inline gp_Circ IntCurveSurface_CurveTool::Circle (const CurveGen& C) {
return(C.Circle());
}
//============================================================
inline gp_Elips IntCurveSurface_CurveTool::Ellipse (const CurveGen& C) {
return(C.Ellipse());
}
//============================================================
inline gp_Parab IntCurveSurface_CurveTool::Parabola (const CurveGen& C) {
return(C.Parabola());
}
//============================================================
inline gp_Hypr IntCurveSurface_CurveTool::Hyperbola (const CurveGen& C) {
return(C.Hyperbola());
}
//============================================================
inline Handle(Geom_BezierCurve) IntCurveSurface_CurveTool::Bezier (const CurveGen& C) {
return(C.Bezier());
}
//============================================================
inline Handle(Geom_BSplineCurve) IntCurveSurface_CurveTool::BSpline (const CurveGen& C) {
return(C.BSpline());
}
//============================================================

2
src/IntCurveSurface/IntCurveSurface_QuadricCurveFunc.cdl
View File

@ -17,7 +17,7 @@
generic class QuadricCurveFunc from IntCurveSurface (
TheQuadric as any; -- as Quadric from IntCurveSurface
TheCurve as any;
TheCurveTool as any) -- as CurveTool from Adaptor3d
TheCurveTool as any)
inherits FunctionWithDerivative from math

12
src/IntImp/IntImp.cdl
View File

@ -26,22 +26,10 @@ is
UIsoparametricOnCaro1, VIsoparametricOnCaro1,
UIsoparametricOnCaro2, VIsoparametricOnCaro2;
deferred generic class PSurfaceTool;
deferred generic class ISurfaceTool;
deferred generic class CurveTool;
deferred generic class CSCurveTool;
deferred generic class COnSCurveTool;
generic class ZerImpFunc; -- inherits FunctionSetWithDerivatives
generic class ZerParFunc; -- inherits FunctionSetWithDerivatives
deferred generic class CSFunction; -- inherits FunctionSetWithDerivatives
generic class ZerCSParFunc; -- inherits FunctionSetWithDerivatives
generic class ZerCOnSSParFunc; -- inherits FunctionSetWithDerivatives

45
src/IntImp/IntImp_COnSCurveTool.cdl
View File

@ -1,45 +0,0 @@
-- Created on: 1994-02-14
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1994-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class COnSCurveTool from IntImp (Curve as any)
---Purpose: Template class for the methods on a curve on surface.
-- It is possible to implement this class with
-- an instantiation of the Curve2dTool from Adaptor3d.
uses Pnt2d from gp,
Vec2d from gp
is
FirstParameter(myclass;C : Curve ) returns Real;
LastParameter(myclass;C : Curve ) returns Real;
Value (myclass; C : Curve; U : Real) returns Pnt2d from gp;
D1(myclass; C : Curve ; U : Real;
P : out Pnt2d from gp; V : out Vec2d from gp);
Resolution(myclass; C : Curve; Tol3d: Real from Standard)
---Purpose : Returns the parametric resolution corresponding
-- to the space resolution Tol3d.
returns Real from Standard;
end COnSCurveTool;

13
src/IntImp/IntImp_COnSCurveTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

45
src/IntImp/IntImp_CSCurveTool.cdl
View File

@ -1,45 +0,0 @@
-- Created on: 1994-02-14
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1994-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class CSCurveTool from IntImp (Curve as any)
---Purpose: Template class for the methods on a curve.
-- It is possible to implement this class with
-- an instantiation of the CurveTool from Adaptor3d.
uses Pnt from gp,
Vec from gp
is
FirstParameter(myclass;C : Curve ) returns Real;
LastParameter(myclass;C : Curve ) returns Real;
Value (myclass; C : Curve; U : Real) returns Pnt from gp;
D1(myclass; C : Curve ; U : Real;
P : out Pnt from gp; V : out Vec from gp);
Resolution(myclass; C : Curve; Tol3d: Real from Standard)
---Purpose : Returns the parametric resolution corresponding
-- to the space resolution Tol3d.
returns Real from Standard;
end CSCurveTool;

13
src/IntImp/IntImp_CSCurveTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

82
src/IntImp/IntImp_CSFunction.cdl
View File

@ -1,82 +0,0 @@
-- Created on: 1994-02-14
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1994-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class CSFunction from IntImp
(ThePSurface as any;
TheCurve as any
)
inherits FunctionSetWithDerivatives from math
---Purpose: This class is the template function for the intersection
-- between a curve and a surface.
-- It is possible to implement such a function with an
-- instantiation of :
-- - ZerCSParFunc for the intersection between a 3d curve
-- and a surface.
-- - ZerCOnSSParFunc for the intersection between a curve
-- on surface and another surface.
uses Vector from math,
Matrix from math,
Pnt from gp
is
NbVariables(me) returns Integer from Standard
---Purpose: Returns 3.
is static;
NbEquations(me) returns Integer from Standard
---Purpose: Returns 3.
is static;
Value(me : in out; X : in Vector from math;
F : out Vector from math)
returns Boolean from Standard
is static;
Derivatives(me : in out;X : in Vector from math;
D : out Matrix from math)
returns Boolean from Standard
is static;
Values(me : in out;
X : in Vector from math;
F : out Vector from math; D: out Matrix from math)
returns Boolean from Standard
is static;
Point(me)
---C++: return const&
returns Pnt from gp
is static;
Root(me) returns Real from Standard
is static;
AuxillarSurface(me)
---C++: return const&
returns ThePSurface
is static;
AuxillarCurve(me)
---C++: return const&
returns TheCurve
is static;
end CSFunction;

13
src/IntImp/IntImp_CSFunction.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

40
src/IntImp/IntImp_CurveTool.cdl
View File

@ -1,40 +0,0 @@
-- Created on: 1993-01-26
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class CurveTool from IntImp (Curve as any)
---Purpose: Template class for the methods on a curve.
-- It is possible to implement this class with
-- an instantiation of the CurveTool from Adaptor3d.
uses Pnt from gp,
Vec from gp
is
FirstParameter(myclass;C : Curve ) returns Real;
LastParameter(myclass;C : Curve ) returns Real;
Resolution(myclass; C : Curve; Tol3d: Real from Standard)
---Purpose : Returns the parametric resolution corresponding
-- to the space resolution Tol3d.
returns Real from Standard;
end CurveTool;

13
src/IntImp/IntImp_CurveTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

58
src/IntImp/IntImp_ISurfaceTool.cdl
View File

@ -1,58 +0,0 @@
-- Created on: 1992-03-06
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class ISurfaceTool from IntImp
( ImplicitSurface as any)
---Purpose: Template class for a tool on an
-- implicit surface.
uses Vec from gp
is
Value(myclass; Is: ImplicitSurface;
X, Y, Z: Real from Standard)
---Purpose: Returns the value of the function.
returns Real from Standard;
Gradient(myclass; Is: ImplicitSurface;
X, Y, Z: Real from Standard ; V: out Vec from gp);
---Purpose: Returns the gradient of the function.
ValueAndGradient(myclass; Is: ImplicitSurface;
X, Y, Z: Real from Standard;
Val: out Real from Standard; Grad: out Vec from gp);
---Purpose: Returns the value and the gradient.
Tolerance(myclass; Is: ImplicitSurface )
---Purpose: returns the tolerance of the zero of the implicit function
returns Real from Standard;
end ISurfaceTool;

13
src/IntImp/IntImp_ISurfaceTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

2
src/IntImp/IntImp_Int2S.cdl
View File

@ -16,7 +16,7 @@
generic class Int2S from IntImp
(ThePSurface as any;
ThePSurfaceTool as any) -- as PSurfaceTool from IntImp (ThePSurface)
ThePSurfaceTool as any)
---Purpose: Determination of the intersection between 2 surfaces

7
src/IntImp/IntImp_IntCS.cdl
View File

@ -16,11 +16,10 @@
generic class IntCS from IntImp
(ThePSurface as any;
ThePSurfaceTool as any; --as PSurfaceTool from IntImp(ThePSurface)
ThePSurfaceTool as any;
TheCurve as any;
TheCurveTool as any; --as CurveTool from IntImp(TheCurve)
TheFunction as any --as CSFunction from IntImp
)
TheCurveTool as any;
TheFunction as any)
---Purpose: intersection between a curve and a surface with a close
-- point

88
src/IntImp/IntImp_PSurfaceTool.cdl
View File

@ -1,88 +0,0 @@
-- Created on: 1992-03-06
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class PSurfaceTool from IntImp
(Surface as any)
---Purpose: Template class for a tool on a bi-parametrised surface.
-- It is possible to implement this tool with an
-- instantiation of the SurfaceTool from Adaptor3d.
uses Pnt from gp,
Vec from gp
is
UIntervalFirst(myclass ; S: Surface)
---Purpose: Returns the first U parameter of the surface.
returns Real from Standard;
VIntervalFirst(myclass ; S: Surface)
---Purpose: Returns the first V parameter of the surface.
returns Real from Standard;
UIntervalLast(myclass ; S: Surface)
---Purpose: Returns the last U parameter of the surface.
returns Real from Standard;
VIntervalLast(myclass ; S: Surface)
---Purpose: Returns the last V parameter of the surface.
returns Real from Standard;
Value (myclass ; S: Surface; U,V : Real from Standard)
---Purpose: Returns the point of parameter (U,V) on the surface.
returns Pnt from gp;
D1(myclass; S: Surface; U,V: Real from Standard;
P: out Pnt from gp; D1U,D1V: out Vec from gp);
---Purpose: Returns the point of parameter (U,V) on the surface,
-- and the first derivatives in the directions u and v.
UResolution(myclass; S : Surface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the U direction,
-- for a given resolution in 3d space.
returns Real from Standard;
VResolution(myclass; S : Surface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the V direction,
-- for a given resolution in 3d space.
returns Real from Standard;
end PSurfaceTool;

13
src/IntImp/IntImp_PSurfaceTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

4
src/IntImp/IntImp_ZerCOnSSParFunc.cdl
View File

@ -16,9 +16,9 @@
generic class ZerCOnSSParFunc from IntImp
(ThePSurface as any;
ThePSurfaceTool as any; --as PSurfaceTool from IntImp(ThePSurface)
ThePSurfaceTool as any;
TheCurveOnSurf as any;
TheCurveTool as any --as COnSCurveTool from IntImp(TheCurve)
TheCurveTool as any
)
inherits FunctionSetWithDerivatives from math

5
src/IntImp/IntImp_ZerCSParFunc.cdl
View File

@ -16,10 +16,9 @@
generic class ZerCSParFunc from IntImp
(ThePSurface as any;
ThePSurfaceTool as any; --as PSurfaceTool from IntImp(ThePSurface)
ThePSurfaceTool as any;
TheCurve as any;
TheCurveTool as any --as CSCurveTool from IntImp(TheCurve)
)
TheCurveTool as any)
inherits FunctionSetWithDerivatives from math

4
src/IntImp/IntImp_ZerImpFunc.cdl
View File

@ -16,9 +16,9 @@
generic class ZerImpFunc from IntImp
(ThePSurface as any;
ThePSurfaceTool as any; -- as PSurfaceTool from IntImp(ThePSurface)
ThePSurfaceTool as any;
TheISurface as any;
TheISurfaceTool as any) -- as ISurfaceTool from IntImp(TheISurface)
TheISurfaceTool as any)
inherits FunctionSetWithDerivatives from math

2
src/IntImp/IntImp_ZerParFunc.cdl
View File

@ -16,7 +16,7 @@
generic class ZerParFunc from IntImp
(ThePSurface as any;
ThePSurfaceTool as any) -- as PSurfaceTool from IntImp (ThePSurface)
ThePSurfaceTool as any)
inherits FunctionSetWithDerivatives from math

3
src/IntImpParGen/IntImpParGen.cdl
View File

@ -32,9 +32,6 @@ is
deferred class ImpTool;
---Purpose: Template class for an implicit curve.
deferred generic class ParTool;
---Purpose: Template class for a tool on a parameterised curve.
generic class ImpParTool;
---Purpose: Math function, instantiated inside the Intersector.

2
src/IntImpParGen/IntImpParGen_ImpParTool.cdl
View File

@ -17,7 +17,7 @@
generic class ImpParTool from IntImpParGen (
ImpTool as any; -- as ImpTool from IntImpParGen
ParCurve as any;
ParTool as any) -- as ParTool from IntImpParGen(ParCurve)
ParTool as any)
inherits FunctionWithDerivative from math

2
src/IntImpParGen/IntImpParGen_Intersector.cdl
View File

@ -17,7 +17,7 @@
generic class Intersector from IntImpParGen (
ImpTool as any; -- as ImpTool from IntImpParGen
ParCurve as any;
ParTool as any; -- as ParTool from IntImpParGen(ParCurve)
ParTool as any;
ProjectOnPCurveTool as any) -- as ProjectOnPCurveToolGen from IntCurve
inherits Intersection from IntRes2d

76
src/IntImpParGen/IntImpParGen_ParTool.cdl
View File

@ -1,76 +0,0 @@
-- Created on: 1992-03-27
-- Created by: Laurent BUCHARD
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class ParTool from IntImpParGen
(ParCurve as any)
---Purpose: Template class for a tool on a parametrised curve.
uses Pnt2d from gp,
Vec2d from gp,
Lin2d from gp
is
Value (myclass; C: ParCurve; U: Real from Standard)
---Purpose: Returns the point at parameter U on the Curve C.
returns Pnt2d from gp;
D1 (myclass; C:ParCurve; U:Real from Standard ;
P: out Pnt2d; T: out Vec2d);
---Purpose: Computes the Point and the First derivative of
-- the parametric curve C at parameter U.
D2 (myclass; C:ParCurve; U:Real from Standard ;
P: out Pnt2d; T,N: out Vec2d);
---Purpose: Computes the Point, the First and the Second derivative of
-- the parametric curve C at parameter U.
EpsX (myclass; C: ParCurve)
---Purpose: Returns the valuec of the parametric tolerance
-- on the curve C.
returns Real from Standard;
NbSamples(myclass; C: ParCurve)
---Purpose: NbSamples is the number of sample point used to
-- polygonise the parametric curve on its domain.
returns Integer from Standard;
end ParTool;

13
src/IntImpParGen/IntImpParGen_ParTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

14
src/IntStart/IntStart.cdl
View File

@ -30,14 +30,6 @@ uses Standard, MMgt, TCollection, StdFail, TopAbs, GeomAbs, gp, IntSurf, math
is
deferred generic class ArcTool;
deferred generic class SOBTool;
deferred generic class TopolTool;
deferred generic class SOBFunction;
generic class Segment;
generic class PathPoint;
@ -45,14 +37,8 @@ is
generic class SearchOnBoundaries, ThePathPoint, SequenceOfPathPoint,
TheSegment, SequenceOfSegment;
deferred generic class PSurfaceTool;
deferred generic class SITool;
deferred class SITopolTool;
deferred generic class SIFunction;
generic class SearchInside;

41
src/IntStart/IntStart_ArcTool.cdl
View File

@ -1,41 +0,0 @@
-- Created on: 1993-05-04
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class ArcTool from IntStart
(TheArc as any )
---Purpose: Template class for a tool on the restriction of
-- a surface.
-- It is possible to implement this class with an instantiation
-- of the class CurveTool from Adaptor3d..
is
Resolution(myclass; A: TheArc; Tol3d: Real from Standard)
---Purpose : Returns the parametric resolution corresponding
-- to the space resolution Tol3d.
returns Real from Standard;
end ArcTool;

13
src/IntStart/IntStart_ArcTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

77
src/IntStart/IntStart_PSurfaceTool.cdl
View File

@ -1,77 +0,0 @@
-- Created on: 1992-05-18
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class PSurfaceTool from IntStart
(ThePSurface as any)
---Purpose: Template class for a tool on a bi-parametrised
-- surface.
-- It is possible to implement this class with an
-- instantiation of the SurfaceTool from Adaptor3d.
is
UIntervalFirst(myclass ; S: ThePSurface)
---Purpose: Returns the first U parameter of the surface.
returns Real from Standard;
VIntervalFirst(myclass ; S: ThePSurface)
---Purpose: Returns the first V parameter of the surface.
returns Real from Standard;
UIntervalLast(myclass ; S: ThePSurface)
---Purpose: Returns the last U parameter of the surface.
returns Real from Standard;
VIntervalLast(myclass ; S: ThePSurface)
---Purpose: Returns the last V parameter of the surface.
returns Real from Standard;
UResolution(myclass; S : ThePSurface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the U direction,
-- for a given resolution in 3d space.
returns Real from Standard;
VResolution(myclass; S : ThePSurface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the V direction,
-- for a given resolution in 3d space.
returns Real from Standard;
end PSurfaceTool;

13
src/IntStart/IntStart_PSurfaceTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

124
src/IntStart/IntStart_SIFunction.cdl
View File

@ -1,124 +0,0 @@
-- Created on: 1993-06-02
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class SIFunction from IntStart
(ThePSurface as any)
inherits FunctionSetWithDerivatives from math
---Purpose: Template class for a function on a parametric surface.
-- the form of the function is F(u,v) = 0 where u and v are
-- the parameteric coordinates of a point on the surface.
uses Vector from math,
Matrix from math,
Pnt from gp,
Vec from gp,
Dir2d from gp
raises UndefinedDerivative from StdFail
is
Set(me: in out; PS: ThePSurface)
is static;
NbVariables(me)
---Purpose: This method has to return 2.
returns Integer from Standard;
NbEquations(me)
---Purpose: This method has to return 1.
returns Integer from Standard;
Value(me : in out; X : Vector from math;
F : out Vector from math)
---Purpose: The dimension of F is 1.
returns Boolean from Standard;
Derivatives(me : in out; X : Vector from math;
D : out Matrix from math)
---Purpose: The dimension of D is (1,2).
returns Boolean from Standard;
Values(me : in out; X : Vector from math;
F : out Vector from math;
D : out Matrix from math)
returns Boolean from Standard;
Root(me)
---Purpose: Root is the value of the function at the solution.
-- It is a vector of dimension 1, i-e a real.
returns Real from Standard
is static;
Tolerance(me)
---Purpose: Returns the value Tol so that if Abs(Func.Root())<Tol
-- the function is considered null.
returns Real from Standard
is static;
Point(me)
---Purpose: Returns the value of the solution point on the surface.
returns Pnt from gp
is static;
IsTangent(me : in out)
returns Boolean from Standard
is static;
Direction3d(me: in out)
returns Vec from gp
raises UndefinedDerivative from StdFail
is static;
Direction2d(me: in out)
returns Dir2d from gp
raises UndefinedDerivative from StdFail
is static;
end SIFunction;

13
src/IntStart/IntStart_SIFunction.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

43
src/IntStart/IntStart_SITool.cdl
View File

@ -1,43 +0,0 @@
-- Created on: 1993-05-04
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class SITool from IntStart
(ThePSurface as any)
---Purpose: Template class for an additional tool on a bi-parametrised
-- surface.
uses State from TopAbs
is
NbSamplePoints(myclass; S: ThePSurface)
returns Integer from Standard;
SamplePoint(myclass; S: ThePSurface; Index: Integer from Standard;
U,V: out Real from Standard);
-- Classify(myclass; S: ThePSurface; U,V: Real from Standard)
--
-- returns State from TopAbs;
end SITool;

13
src/IntStart/IntStart_SITool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

64
src/IntStart/IntStart_SOBFunction.cdl
View File

@ -1,64 +0,0 @@
-- Created on: 1993-06-02
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class SOBFunction from IntStart
(TheArc as any)
inherits FunctionWithDerivative from math
---Purpose: Template class for the function on an arc of restriction
-- used in the SearchOnBoundaries class.
uses Pnt from gp
is
Set(me: in out; A: TheArc)
is static;
Value(me: in out; X: Real from Standard; F: out Real from Standard)
returns Boolean from Standard;
Derivative(me: in out; X: Real from Standard; D: out Real from Standard)
returns Boolean from Standard;
Values(me: in out; X: Real from Standard; F,D: out Real from Standard)
returns Boolean from Standard;
GetStateNumber(me: in out)
returns Integer from Standard
is redefined;
Valpoint(me; Index: Integer from Standard)
returns Pnt from gp
is static;
end SOBFunction;

13
src/IntStart/IntStart_SOBFunction.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

151
src/IntStart/IntStart_SOBTool.cdl
View File

@ -1,151 +0,0 @@
-- Created on: 1993-05-04
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class SOBTool from IntStart
(TheVertex as any;
TheArc as any)
---Purpose:
uses Pnt from gp
is
-- Methods for an arc of restrictition
HasBeenSeen(myclass; A: TheArc)
---Purpose: Returns True if all the intersection point and edges
-- are known on the Arc.
returns Boolean from Standard;
-- The following methods are used when HasBeenSeen returns Standard_True
NbPoints(myclass; A: TheArc)
---Purpose: Returns the number of intersection points on the arc A.
returns Integer from Standard;
Value(myclass; A: TheArc; Index: Integer from Standard;
Pt: out Pnt from gp; Tol: out Real from Standard;
U: out Real from Standard);
---Purpose: Returns the value (Pt), the tolerance (Tol), and
-- the parameter (U) on the arc A , of the intersection
-- point of range Index.
IsVertex(myclass; A: TheArc; Index: Integer from Standard)
---Purpose: Returns True if the intersection point of range Index
-- corresponds with a vertex on the arc A.
returns Boolean from Standard;
Vertex(myclass; A: TheArc; Index: Integer from Standard;
Vtx: out TheVertex);
---Purpose: When IsVertex returns True, this method returns the
-- vertex on the arc A.
NbSegments(myclass; A: TheArc)
---Purpose: returns the number of part of A solution of the
-- of intersection problem.
returns Integer from Standard;
HasFirstPoint(myclass; A: TheArc; Index: Integer from Standard;
IndFirst: out Integer from Standard)
---Purpose: Returns True when the segment of range Index is not
-- open at the left side. In that case, IndFirst is the
-- range in the list intersection points (see NbPoints)
-- of the one which defines the left bound of the segment.
-- Otherwise, the method has to return False, and IndFirst
-- has no meaning.
returns Boolean from Standard;
HasLastPoint(myclass; A: TheArc; Index: Integer from Standard;
IndLast: out Integer from Standard)
---Purpose: Returns True when the segment of range Index is not
-- open at the right side. In that case, IndLast is the
-- range in the list intersection points (see NbPoints)
-- of the one which defines the right bound of the segment.
-- Otherwise, the method has to return False, and IndLast
-- has no meaning.
returns Boolean from Standard;
IsAllSolution(myclass; A: TheArc)
---Purpose: Returns True when the whole restriction is solution
-- of the intersection problem.
returns Boolean from Standard;
-- The following methods are used when HasBeenSeen returns Standard_False
NbSamplesOnArc(myclass; A: TheArc)
---Purpose: returns the number of points which is used to make
-- a sample on the arc. this number is a function of
-- the Surface and the CurveOnSurface complexity.
returns Integer from Standard;
Bounds(myclass; A: TheArc; Ufirst,Ulast: out Real from Standard);
---Purpose: Returns the parametric limits on the arc A.
-- These limits must be finite : they are either
-- the real limits of the arc, for a finite arc,
-- or a bounding box for an infinite arc.
Parameter(myclass; V: TheVertex; A: TheArc)
---Purpose: Returns the parameter of the vertex V on the arc A.
returns Real from Standard;
Tolerance(myclass; V: TheVertex; A: TheArc)
---Purpose: Returns the parametric tolerance on the arc used
-- to consider that the vertex and another point meet,
-- i-e if the difference between the parameter of the
-- Vertex and the parameter of the other point is less
-- than Tolerance, the point are "merged".
returns Real from Standard;
end SOBTool;

13
src/IntStart/IntStart_SOBTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

6
src/IntStart/IntStart_SearchInside.cdl
View File

@ -16,10 +16,10 @@
generic class SearchInside from IntStart (
ThePSurface as any;
ThePSurfaceTool as any; -- as PSurfaceTool from IntStart (ThePSurface)
ThePSurfaceTool as any;
TheTopolTool as Transient; -- as SITopolTool from IntStart
TheSITool as any; -- as SITool from IntStart (ThePSurface)
TheFunction as any) -- as SIFunction from IntStart(ThePSurface)
TheSITool as any;
TheFunction as any)
---Purpose:

9
src/IntStart/IntStart_SearchOnBoundaries.cdl
View File

@ -17,11 +17,10 @@
generic class SearchOnBoundaries from IntStart (
TheVertex as any;
TheArc as any;
TheArcTool as any; -- as ArcTool from IntStart(TheArc)
TheSOBTool as any; -- as SOBTool from IntStart(TheVertex,TheArc)
TheTopolTool as Transient; -- as TopolTool from IntStart
-- (TheVertex,TheArc)
TheFunction as any) -- as SOBFunction from IntStart(TheArc)
TheArcTool as any;
TheSOBTool as any;
TheTopolTool as Transient;
TheFunction as any)
---Purpose: This class implements algorithmes to find the intersection

98
src/IntStart/IntStart_TopolTool.cdl
View File

@ -1,98 +0,0 @@
-- Created on: 1992-11-03
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class TopolTool from IntStart
( TheVertex as any;
TheArc as any
)
---Purpose: Template class for an iterator the restriction of
-- a surface.
inherits TShared from MMgt
raises DomainError from Standard
is
-- Arc iterator
Init(me: mutable)
;
More(me: mutable)
returns Boolean from Standard
;
Value(me: mutable)
returns any TheArc
;
Next(me: mutable)
;
-- Iterator on the vertex of an arc of restriction
Initialize(me: mutable; A:TheArc)
;
InitVertexIterator(me: mutable)
;
MoreVertex(me: mutable)
returns Boolean from Standard
;
Vertex(me: mutable)
returns any TheVertex
;
NextVertex(me: mutable)
;
Identical(me: mutable; V1,V2: TheVertex)
---Purpose: Returns True if the vertices V1 and V2 are identical.
-- This method does not take the orientation of the
-- vertices in account.
returns Boolean;
end TopolTool;

13
src/IntStart/IntStart_TopolTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

17
src/IntWalk/IntWalk.cdl
View File

@ -39,23 +39,6 @@ is
-- StepTooGreat, ConfusedPoint, StopOnPreviousPoint, StopOnPoint, OK
-- class for definition of ressources on a biparametric surface
deferred generic class PSurfaceTool;
-- classes for definition of marching algorithm on a
-- biparametric surface
deferred generic class PathPointTool;
deferred generic class LoopPointTool;
deferred generic class IWFunction;
generic class Iterator;
--class of result objects marching on a biparametric surface
generic class IWLine;

124
src/IntWalk/IntWalk_IWFunction.cdl
View File

@ -1,124 +0,0 @@
-- Created on: 1993-06-03
-- Created by: Jacques GOUSSARD
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class IWFunction from IntWalk
(ThePSurface as any)
inherits FunctionSetWithDerivatives from math
---Purpose: Template class for a function on a parametric surface.
-- the form of the function is F(u,v) = 0 where u and v are
-- the parameteric coordinates of a point on the surface.
uses Vector from math,
Matrix from math,
Pnt from gp,
Vec from gp,
Dir2d from gp
raises UndefinedDerivative from StdFail
is
Set(me: in out; PS: ThePSurface)
is static;
NbVariables(me)
---Purpose: This method has to return 2.
returns Integer from Standard;
NbEquations(me)
---Purpose: This method has to return 1.
returns Integer from Standard;
Value(me : in out; X : Vector from math;
F : out Vector from math)
---Purpose: The dimension of F is 1.
returns Boolean from Standard;
Derivatives(me : in out; X : Vector from math;
D : out Matrix from math)
---Purpose: The dimension of D is (1,2).
returns Boolean from Standard;
Values(me : in out; X : Vector from math;
F : out Vector from math;
D : out Matrix from math)
returns Boolean from Standard;
Root(me)
---Purpose: Root is the value of the function at the solution.
-- It is a vector of dimension 1, i-e a real.
returns Real from Standard
is static;
Tolerance(me)
---Purpose: Returns the value Tol so that if Abs(Func.Root())<Tol
-- the function is considered null.
returns Real from Standard
is static;
Point(me)
---Purpose: Returns the value of the solution point on the surface.
returns Pnt from gp
is static;
IsTangent(me : in out)
returns Boolean from Standard
is static;
Direction3d(me: in out)
returns Vec from gp
raises UndefinedDerivative from StdFail
is static;
Direction2d(me: in out)
returns Dir2d from gp
raises UndefinedDerivative from StdFail
is static;
end IWFunction;

13
src/IntWalk/IntWalk_IWFunction.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

12
src/IntWalk/IntWalk_IWalking.cdl
View File

@ -16,14 +16,14 @@
generic class IWalking from IntWalk (
ThePointOfPath as any;
ThePointOfPathTool as any; -- as PathPointTool(ThePointOfPath)
ThePOPIterator as any; -- as Iterator from IntWalk(ThePointOfPath)
ThePointOfPathTool as any;
ThePOPIterator as any;
ThePointOfLoop as any;
ThePointOfLoopTool as any; -- as LoopPointTool(ThePointOfLoop)
ThePOLIterator as any; -- as Iterator from IntWalk(ThePointOfLoop)
ThePointOfLoopTool as any;
ThePOLIterator as any;
ThePSurface as any;
ThePSurfaceTool as any; -- as PSurfaceTool(ThePSurface)
TheIWFunction as any) -- as IWFunction from IntWalk(ThePSurface)
ThePSurfaceTool as any;
TheIWFunction as any)
---Purpose: This class implements an algorithm to find all the points

61
src/IntWalk/IntWalk_Iterator.cdl
View File

@ -1,61 +0,0 @@
-- Created on: 1992-03-06
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class Iterator from IntWalk (Point as any)
---Purpose: Template class to describe the exploration argument of the
-- generic class IWalking
raises OutOfRange from Standard
is
Create
returns Iterator from IntWalk;
Length(me)
---Purpose: returns the dimension of the exploration
returns Integer from Standard
is static;
Value(me; Index : Integer)
---Purpose: returns the current point
-- an exception is raised if i>NbPoints
returns Point
raises OutOfRange from Standard
is static;
Append(me: in out; P: Point)
---Purpose: Adds a point in the iterator.
is static;
end Iterator;

13
src/IntWalk/IntWalk_Iterator.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

64
src/IntWalk/IntWalk_LoopPointTool.cdl
View File

@ -1,64 +0,0 @@
-- Created on: 1992-03-09
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class LoopPointTool from IntWalk
(LoopPoint as any)
---Purpose: template class to describe the necessary ressources
-- for a point usedas a starting point for a marching
-- algorithm.
-- The 'marching algorithm' determines the intersection
-- between an implicit surface and a parametrized surface.
-- these point are inside the surface not on the boundaries.
uses Pnt from gp,
Vec from gp,
Dir2d from gp
is
Value3d(myclass; PStart: LoopPoint)
---Purpose: Returns the 3d coordinates of the starting point.
returns Pnt from gp;
Value2d(myclass; PStart: LoopPoint; U, V: out Real from Standard);
---Purpose: Returns the <U,V> parameters which are associated
-- with <P>
-- it's the parameters which start the marching algorithm
Direction3d(myclass; PStart: LoopPoint)
---Purpose: returns the tangent at the intersectin in 3d space
-- associated to <P>
returns Vec from gp;
Direction2d(myclass; PStart: LoopPoint)
---Purpose: returns the tangent at the intersectin in the
-- parametric space of the parametrized surface.This tangent
-- is associated to the value2d
returns Dir2d from gp;
end LoopPointTool;

13
src/IntWalk/IntWalk_LoopPointTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

73
src/IntWalk/IntWalk_PSurfaceTool.cdl
View File

@ -1,73 +0,0 @@
-- Created on: 1992-03-06
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class PSurfaceTool from IntWalk (ThePSurface as any)
---Purpose: Template class for a tool on a bi-parametrised
-- surface.
-- It is possible to implement this class with an
-- instantiation of the SurfaceTool from Adaptor3d.
is
UIntervalFirst(myclass ; S: ThePSurface)
---Purpose: Returns the first U parameter of the surface.
returns Real from Standard;
VIntervalFirst(myclass ; S: ThePSurface)
---Purpose: Returns the first V parameter of the surface.
returns Real from Standard;
UIntervalLast(myclass ; S: ThePSurface)
---Purpose: Returns the last U parameter of the surface.
returns Real from Standard;
VIntervalLast(myclass ; S: ThePSurface)
---Purpose: Returns the last V parameter of the surface.
returns Real from Standard;
UResolution(myclass; S : ThePSurface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the U direction,
-- for a given resolution in 3d space.
returns Real from Standard;
VResolution(myclass; S : ThePSurface; Tol3d: Real from Standard)
---Purpose: Returns the numerical resolution in the V direction,
-- for a given resolution in 3d space.
returns Real from Standard;
end PSurfaceTool;

13
src/IntWalk/IntWalk_PSurfaceTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

2
src/IntWalk/IntWalk_PWalking.cdl
View File

@ -16,7 +16,7 @@
generic class PWalking from IntWalk (
ThePSurface as any;
ThePSurfaceTool as any) -- as PSurfaceTool from IntWalk(ThePSurface)
ThePSurfaceTool as any)
---Purpose: This class implements an algorithm to determine the

115
src/IntWalk/IntWalk_PathPointTool.cdl
View File

@ -1,115 +0,0 @@
-- Created on: 1992-03-09
-- Created by: Isabelle GRIGNON
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class PathPointTool from IntWalk
(PathPoint as any)
---Purpose: Template class to describe the necessary ressources
-- for a point used as a starting point for a marching
-- algorithm.
-- The 'marching algorithm' determines the intersection
-- between an implicit surface and a parametrized surface.
-- these points are necessary on an arc of the surface
uses Pnt from gp,
Vec from gp,
Dir2d from gp
raises OutOfRange from Standard,
UndefinedDerivative from StdFail
is
Value3d(myclass; PStart: PathPoint)
---Purpose: Returns the 3d coordinates of the starting point.
returns Pnt from gp;
Value2d(myclass; PStart: PathPoint; U, V: out Real from Standard);
---Purpose: Returns the <U, V> parameters which are associated
-- with <P>
-- it's the parameters which start the marching algorithm
IsPassingPnt(myclass; PStart: PathPoint)
---Purpose: Returns True if the point is a point on a non-oriented
-- arc, which means that the intersection line does not
-- stop at such a point but just go through such a point.
-- IsPassingPnt is True when IsOnArc is True
returns Boolean from Standard;
IsTangent(myclass; PStart: PathPoint )
---Purpose: Returns True if the surfaces are tangent at this point.
-- IsTangent can be True when IsOnArc is True
-- if IsPassingPnt is True and IsTangent is True,this point
-- is a stopped point.
returns Boolean from Standard;
Direction3d(myclass; PStart: PathPoint)
---Purpose: returns the tangent at the intersection in 3d space
-- associated to <P>
-- an exception is raised if IsTangent is true.
returns Vec from gp
raises UndefinedDerivative from StdFail;
Direction2d(myclass; PStart: PathPoint)
---Purpose: returns the tangent at the intersection in the
-- parametric space of the parametrized surface.This tangent
-- is associated to the value2d
-- la tangente a un sens signifiant (indique le sens de chemin
-- ement)
-- an exception is raised if IsTangent is true.
returns Dir2d from gp
raises UndefinedDerivative from StdFail;
Multiplicity(myclass; PStart: PathPoint)
---Purpose: Returns the multiplicity of the point i-e
-- the number of auxillar parameters associated to the
-- point which the principal parameters are given by Value2d
returns Integer from Standard;
Parameters(myclass; PStart: PathPoint;
Mult: Integer from Standard;
U, V: out Real from Standard)
---Purpose: Parametric coordinates associated to the multiplicity.
-- An exception is raised if Mult<=0 or Mult>multiplicity.
raises OutOfRange from Standard;
end PathPointTool;

13
src/IntWalk/IntWalk_PathPointTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

4
src/Intf/Intf.cdl
View File

@ -40,10 +40,6 @@ is
---Purpose: Describes the necessary polygon information to compute
-- the interferences.
generic class ToolPolyhedron; -- Signature
---Purpose: Describes the necessary polyhedron information to compute
-- the interferences.
class Array1OfLin instantiates Array1 from TCollection
(Lin from gp);

2
src/Intf/Intf_InterferencePolygonPolyhedron.cdl
View File

@ -18,7 +18,7 @@ generic class InterferencePolygonPolyhedron from Intf
(Polygon3d as any;
ToolPolygon3d as any; -- as ToolPolygon(Pnt,Polygon3d,Box)
Polyhedron as any;
ToolPolyh as any) -- as ToolPolyhedron(Polyhedron)
ToolPolyh as any)
inherits Interference from Intf
---Purpose: Computes the interference between a polygon and a

2
src/Intf/Intf_InterferencePolyhedron.cdl
View File

@ -18,7 +18,7 @@ generic class InterferencePolyhedron from Intf
(Polyhedron1 as any;
ToolPolyhe1 as any;
Polyhedron2 as any;
ToolPolyhe2 as any) -- as ToolPolyhedron(Polyhedron)
ToolPolyhe2 as any)
inherits Interference from Intf
---Purpose: Computes the interference between two polyhedra or the

89
src/Intf/Intf_ToolPolyhedron.cdl
View File

@ -1,89 +0,0 @@
-- Created on: 1991-09-18
-- Created by: Didier PIFFAULT
-- Copyright (c) 1991-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class ToolPolyhedron from Intf (Polyhedron as any)
---Purpose: Describes the signature of a polyedral surface with only
-- triangular facets and the information necessary to compute
-- the interferences.
uses XYZ from gp,
Pnt from gp,
Box from Bnd,
HArray1OfBox from Bnd
raises OutOfRange from Standard
is Bounding (myclass; thePolyh : Polyhedron)
returns Box from Bnd;
---Purpose: Returns the bounding box of the ToolPolyhedron.
ComponentsBounding
(myclass; thePolyh : Polyhedron)
returns HArray1OfBox from Bnd;
---Purpose: Returns the array of boxes. The box <n> corresponding
-- to the triangle <n>.
DeflectionOverEstimation
(myclass; thePolyh : Polyhedron)
returns Real from Standard;
---Purpose: Returns the tolerance of the polygon.
-- Structure needings :
NbTriangles (myclass; thePolyh : Polyhedron)
returns Integer from Standard;
---Purpose: Returns the number of triangles in this polyedron.
Triangle (myclass; thePolyh : Polyhedron;
Index : in Integer from Standard;
P1,P2,P3 : out Integer from Standard)
raises OutOfRange from Standard;
---Purpose: Returns the indices of the 3 points of the triangle of
-- address Index in the ToolPolyhedron.
Point (myclass; thePolyh : Polyhedron;
Index : in Integer)
returns Pnt from gp
raises OutOfRange from Standard;
---Purpose: Returns the point of index i in the polyedron.
TriConnex (myclass; thePolyh : Polyhedron;
Triang : in Integer;
Pivot,Pedge : in Integer;
TriCon : out Integer;
OtherPedge : out Integer)
returns Integer
raises OutOfRange from Standard;
---Purpose: Returns the triangle <Tricon> connected to the triangle
-- <Triang> by the edge <Pivot><Pedge>. The third point of
-- the connected triangle is returned in <OtherPedge> (Used to
-- turn around a vertex). When the edge <Pivot><Pedge> is
-- free (no connected triangle) <Tricon> is null. In this
-- case the function returns the triangle on the free bound of
-- the polyhedron connected to <Triang> by vertex <Pivot>.
end ToolPolyhedron;

13
src/Intf/Intf_ToolPolyhedron.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

5
src/LProp/LProp.cdl
View File

@ -59,11 +59,6 @@ is
exception BadContinuity inherits Failure;
exception NotDefined inherits Failure;
deferred generic class CurveTool;
---Purpose: The template class used in CLProps.
deferred generic class SurfaceTool;
---Purpose: The template class used in SLProps.
generic class CLProps;
---Purpose: Computation of local properties of a curve.
generic class SLProps;

55
src/LProp/LProp_CurveTool.cdl
View File

@ -1,55 +0,0 @@
-- Created on: 1992-03-03
-- Created by: Herve LEGRAND
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class CurveTool from LProp (Curve as any;
Pnt as any;
Vec as any)
is
Value(myclass; C : Curve; U : Real; P : out Pnt);
---Purpose: Computes the point <P> of parameter <U> on the curve <C>.
D1 (myclass; C : Curve; U : Real; P : out Pnt; V1 : out Vec);
---Purpose: Computes the point <P> and first derivative <V1> of
-- parameter <U> on the curve <C>.
D2 (myclass; C : Curve; U : Real; P : out Pnt; V1, V2 : out Vec);
---Purpose: Computes the point <P>, the first derivative <V1> and second
-- derivative <V2> of parameter <U> on the curve <C>.
D3 (myclass; C : Curve; U : Real;
P : out Pnt; V1, V2, V3 : out Vec);
---Purpose: Computes the point <P>, the first derivative <V1>, the
-- second derivative <V2> and third derivative <V3> of
-- parameter <U> on the curve <C>.
Continuity(myclass; C : Curve) returns Integer;
---Purpose: returns the order of continuity of the curve <C>.
-- returns 1 : first derivative only is computable
-- returns 2 : first and second derivative only are computable.
-- returns 3 : first, second and third are computable.
FirstParameter(myclass; C : Curve) returns Real;
---Purpose: returns the first parameter bound of the curve.
--
LastParameter(myclass; C : Curve) returns Real;
---Purpose: returns the last parameter bound of the curve.
-- FirstParameter must be less than LastParamenter.
end CurveTool;

13
src/LProp/LProp_CurveTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

50
src/LProp/LProp_SurfaceTool.cdl
View File

@ -1,50 +0,0 @@
-- Created on: 1992-03-05
-- Created by: Herve LEGRAND
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class SurfaceTool from LProp (Surface as any)
uses Pnt from gp,
Vec from gp
is
Value(myclass; S : Surface; U, V : Real; P : out Pnt);
---Purpose: Computes the point <P> of parameter <U> and <V> on the
-- Surface <C>.
D1 (myclass; S : Surface; U, V : Real; P : out Pnt; D1U, D1V : out Vec);
---Purpose: Computes the point <P> and first derivative <D1*> of
-- parameter <U> and <V> on the Surface <C>.
D2 (myclass; S : Surface; U, V : Real;
P : out Pnt; D1U, D1V, D2U, D2V, DUV : out Vec);
---Purpose: Computes the point <P>, the first derivative <D1*> and second
-- derivative <D2*> of parameter <U> and <V> on the Surface <C>.
DN (myclass; S : Surface; U, V : Real; IU, IV : Integer)
returns Vec;
Continuity(myclass; S : Surface) returns Integer;
---Purpose: returns the order of continuity of the Surface <C>.
-- returns 1 : first derivative only is computable
-- returns 2 : first and second derivative only are computable.
Bounds(myclass; S : Surface; U1, V1, U2, V2 : out Real);
---Purpose: returns the bounds of the Surface.
end SurfaceTool;

13
src/LProp/LProp_SurfaceTool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

1
src/LibCtl/FILES
View File

@ -3,4 +3,3 @@ LibCtl_GlobalNode.gxx
LibCtl_Library.cdl
LibCtl_Library.gxx
LibCtl_Node.gxx
LibCtl_ProtocolTemplate.cdl

1
src/LibCtl/LibCtl.cdl
View File

@ -80,6 +80,5 @@ uses MMgt, Standard
is
generic class Library,GlobalNode,Node;
deferred generic class ProtocolTemplate; -- take it as a Template
end LibCtl;

59
src/LibCtl/LibCtl_ProtocolTemplate.cdl
View File

@ -1,59 +0,0 @@
-- Created on: 1993-03-17
-- Created by: Christian CAILLET
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class ProtocolTemplate from LibCtl
(TheObject as any)
inherits Transient
---Purpose : This class is a Template class for Library : there is no
-- obligation to inherit it for instantiate a Library class.
--
-- A Protocol class defines a data scheme by gathering a set of
-- Object Classes. This set is made of :
-- - As necessary, other sets already defined by other Protocols.
-- These Protocols are the Resources of <myclass>
-- This definition can be recurrent : each Protocol class
-- defines its Resources at immediate level
-- - The list of Object Classes it identifies DIRECTLY (itself),
-- i.e. not through its Resources.
--
-- A classic Selection criterium is DynamicType (for a Transient
-- or Persistent Object), this gives a Case Number per Class. If
-- another criterium is taken, it must assume unique and non-
-- ambiguous binding between an object state and a Cse Number.
--
-- For each Object Class (or recognized state) it identifies
-- directly, it provides a unique positive Number, which can be
-- used as Case Number.
--
-- A Module bound with a Protocol class is assumed to accept any
-- Object of a Class it defines DIRECTLY (not its Resources).
uses Type
is
NbResources (me) returns Integer is deferred;
---Purpose : Gives the count of Protocols used as Resource (can be zero)
Resource (me; num : Integer) returns ProtocolTemplate is deferred;
---Purpose : Returns a Resource, given a rank.
CaseNumber (me; obj : any TheObject) returns Integer is deferred;
---Purpose : Returns a Case Number, specific of each recognized Object
-- This is a positive number. Zero means "<obj> not recognized"
end ProtocolTemplate;

13
src/LibCtl/LibCtl_ProtocolTemplate.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1998-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

3
src/MAT/MAT.cdl
View File

@ -23,9 +23,6 @@ uses
is
generic class Tool;
--- Purpose: The template class used in Mat.
generic class Mat;
--- Purpose: The Algorithm of Computation of the Map of
-- bisecting locus.

126
src/MAT/MAT_Tool.cdl
View File

@ -1,126 +0,0 @@
-- Created on: 1992-09-23
-- Created by: Gilles DEBARBOUILLE
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
generic class Tool from MAT (Item as any)
--- Purpose : Set of the methods useful for the MAT's computation.
-- Warning : To use the algorithm MAT, it's necessary to use four
-- indexed sets (Array,Sequence ...)
-- One set contains the geometric definitions of
-- the simple composants of the Figure.
-- An other set contains the geometric definitions of
-- the bisectors.
-- An other set contains the geometric definitions of
-- the points created during the MAT's computation.
-- An other set contains the geometric definitions of
-- the Tangent Vectors to the edge's extremitis.
--
uses
Bisector from MAT
is
Create returns Tool from MAT;
NumberOfItems(me) returns Integer
--- Purpose : Returns the Number of Items .
is static;
ToleranceOfConfusion(me) returns Real
---Purpose: Returns tolerance to test the confusion of two points.
is static;
FirstPoint(me ; anitem : Integer;
dist : out Real ) returns Integer
--- Purpose : Creates the point at the origin of the bisector between
-- anitem and the previous item.
-- dist is the distance from the FirstPoint to <anitem>.
-- Returns an index.
is static;
TangentBefore(me ; anitem : Integer) returns Integer
--- Purpose : Create the Tangent at the end of the Item defined
-- by <anitem>. Returns the index of this vector in
-- <theGeomVecs>
is static;
TangentAfter(me ; anitem : Integer) returns Integer
--- Purpose : Create the Reversed Tangent at the origin of the Item
-- defined by <anitem>. Returns the index of this vector in
-- <theGeomVecs>
is static;
Tangent(me ; bisector : Integer ) returns Integer
--- Purpose : Create the Tangent at the end of the bisector defined
-- by <bisector>. Returns the index of this vector in
-- <theGeomVecs>
is static;
CreateBisector(me : in out ; abisector : mutable Bisector from MAT)
--- Purpose : Create the geometric bisector defined by <abisector>.
is static;
TrimBisector(me : in out ;
abisector : mutable Bisector from MAT)
--- Purpose : Trim the geometric bisector by the <firstparameter>
-- of <abisector>.
-- If the parameter is out of the bisector, Return False.
-- else Return True.
returns Boolean is static;
TrimBisector(me : in out ;
abisector : mutable Bisector from MAT ;
apoint : Integer)
--- Purpose : Trim the geometric bisector by the point of index
-- <apoint> in <theGeomPnts>.
-- If the point is out of the bisector, Return False
-- else Return True.
returns Boolean is static;
IntersectBisector(me : in out ;
bisectorone : mutable Bisector from MAT ;
bisectortwo : mutable Bisector from MAT ;
intpnt : in out Integer)
--- Purpose : Computes the point of intesection between the
-- bisectors defined by <bisectorone> and
-- <bisectortwo> .
-- If this point exists, <intpnt> is its index
-- in <theGeomPnts> and Return the distance of the point
-- from the edges separated by the bisectors else
-- Returns <RealLast>.
returns Real is static;
Distance(me;
abisector : Bisector from MAT;
param1 : Real;
param2 : Real)
---Purpose: Returns the distance between the two points designed
-- by their parameters on <abisector>.
returns Real is static;
Dump(me ;
bisector : Integer ;
erease : Integer)
--- Purpose : display informations about the bisector defined by
-- <bisector>.
is static;
end Tool;

15
src/MAT/MAT_Tool.gxx
View File

@ -1,15 +0,0 @@
// Created on: 1993-07-01
// Created by: Gilles DEBARBOUILLE
// Copyright (c) 1993-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

3
src/Primitives/Primitives.cdl
View File

@ -43,9 +43,6 @@ is
XMin, XMax, YMin, YMax, ZMin, ZMax
end Direction;
deferred generic class Builder;
deferred generic class OneAxis;
generic class Wedge;

160
src/Primitives/Primitives_Builder.cdl
View File

@ -1,160 +0,0 @@
-- Created on: 1992-03-12
-- Created by: Philippe DAUTRY
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class Builder from Primitives(
TheShell as any;
TheFace as any;
TheWire as any;
TheEdge as any;
TheVertex as any)
---Purpose: This is a signature class describing services from
-- the Topology Data Structure required by the
-- Primitives algorithms.
uses
Pnt from gp,
Lin from gp,
Circ from gp,
Pln from gp,
Lin2d from gp,
Circ2d from gp
is
MakeShell (me; S : out TheShell)
---Purpose: Make a empty Shell.
is deferred;
MakeFace (me; F : out TheFace; P : Pln from gp)
---Purpose: Returns in <F> a Face built with the plane
-- equation <P>.
is deferred;
MakeWire(me; W : out TheWire)
---Purpose: Returns in <W> an empty Wire.
is deferred;
MakeDegeneratedEdge (me; E : out TheEdge)
---Purpose: Returns in <E> a degenerated edge.
is deferred;
MakeEdge (me; E : out TheEdge; L : Lin from gp)
---Purpose: Returns in <E> an Edge built with the line
-- equation <L>.
is deferred;
MakeEdge (me; E : out TheEdge; C : Circ from gp)
---Purpose: Returns in <E> an Edge built with the circle
-- equation <C>.
is deferred;
SetPCurve(me; E : in out TheEdge; F : in TheFace; L : Lin2d from gp)
---Purpose: Sets the line <L> to be the curve representing the
-- edge <E> in the parametric space of the surface of
-- <F>.
is deferred;
SetPCurve(me; E : in out TheEdge; F : in TheFace; L1,L2 : Lin2d from gp)
---Purpose: Sets the lines <L1,L2> to be the curves
-- representing the edge <E> in the parametric space
-- of the surface of <F>. The surface is closed.
is deferred;
SetPCurve(me; E : in out TheEdge; F : in TheFace; C : Circ2d from gp)
---Purpose: Sets the circle <C> to be the curve representing
-- the edge <E> in the parametric space of the
-- surface of <F>.
is deferred;
MakeVertex (me; V : out TheVertex; P : Pnt from gp)
---Purpose: Returns in <V> a Vertex built with the point <P>.
is deferred;
ReverseFace(me; F : in out TheFace)
---Purpose: Change the orientation of the face.
is deferred;
AddEdgeVertex(me;
E : in out TheEdge;
V : in TheVertex;
P : in Real;
direct : Boolean)
---Purpose: Adds the Vertex <V> in the Edge <E>. <P> is the
-- parameter of the vertex on the edge. If <direct>
-- is False the Vertex is reversed.
is deferred;
AddEdgeVertex(me;
E : in out TheEdge;
V : in TheVertex;
P1,P2 : in Real)
---Purpose: Adds the Vertex <V> in the Edge <E>. <P1,P2> are
-- the parameters of the vertex on the edge. The
-- edge is a closed curve.
is deferred;
SetParameters(me;
E : in out TheEdge;
V : in TheVertex;
P1,P2 : in Real)
---Purpose: <P1,P2> are the parameters of the vertex on the
-- edge. The edge is a closed curve.
is deferred;
AddWireEdge(me;
W : in out TheWire;
E : in TheEdge;
direct : Boolean)
---Purpose: Adds the Edge <E> in the Wire <W>, if direct is
-- False the Edge is reversed.
is deferred;
AddFaceWire(me;
F : in out TheFace;
W : in TheWire)
---Purpose: Adds the Wire <W> in the Face <F>.
is deferred;
AddShellFace(me;
Sh : in out TheShell;
F : in TheFace)
---Purpose: Adds the Face <F> in the Shell <Sh>.
is deferred;
CompleteEdge(me; E : in out TheEdge)
---Purpose: This is called once an edge is completed. It gives
-- the opportunity to perform any post treatment.
is deferred;
CompleteWire(me; W : in out TheWire)
---Purpose: This is called once a wire is completed. It gives
-- the opportunity to perform any post treatment.
is deferred;
CompleteFace(me; F : in out TheFace)
---Purpose: This is called once a face is completed. It gives
-- the opportunity to perform any post treatment.
is deferred;
CompleteShell(me; S : in out TheShell)
---Purpose: This is called once a shell is completed. It gives
-- the opportunity to perform any post treatment.
is deferred;
end Builder from Primitives;

15
src/Primitives/Primitives_Builder.gxx
View File

@ -1,15 +0,0 @@
// Created on: 1993-07-15
// Created by: Remi LEQUETTE
// Copyright (c) 1993-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

2
src/Primitives/Primitives_OneAxis.cdl
View File

@ -20,7 +20,7 @@ deferred generic class OneAxis from Primitives(
TheWire as any;
TheEdge as any;
TheVertex as any;
TheBuilder as any) -- as Builder from Primitives;
TheBuilder as any)
---Purpose: Algorithm to build primitives with one axis of
-- revolution.

11
src/Sweep/Sweep.cdl
View File

@ -28,17 +28,6 @@ uses
is
deferred generic class Tool;
-- signature class. Required by the LinearRegularSweep, defining
-- the indexation type analysis services uppon shapes.
deferred generic class Iterator;
-- signature class. Required by the LinearRegularSweep, defining
-- the iteration services uppon shapes.
deferred generic class Builder;
-- signature class. Required by the LinearRegularSweep.
deferred generic class LinearRegularSweep,
Array2OfShapes,
SequenceOfShapes;

65
src/Sweep/Sweep_Builder.cdl
View File

@ -1,65 +0,0 @@
-- Created on: 1993-01-08
-- Created by: Philippe DAUTRY
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class Builder from Sweep(TheShape as any)
---Purpose: This is a signature class describing services
-- strictly required by the Swept Primitives
-- algorithms, from the Topology Data Structure .
--
uses
Orientation from TopAbs
is
MakeCompound (me; aCompound : out TheShape)
---Purpose: Returns an empty Compound.
is deferred;
MakeCompSolid (me; aCompSolid : out TheShape)
---Purpose: Returns an empty CompSolid.
is deferred;
MakeSolid (me; aSolid : out TheShape)
---Purpose: Returns an empty Solid.
is deferred;
MakeShell (me; aShell : out TheShape)
---Purpose: Returns an empty Shell.
is deferred;
MakeWire (me; aWire : out TheShape)
---Purpose: Returns an empty Wire.
is deferred;
Add(me; aShape1 : in out TheShape;
aShape2 : in TheShape;
Orient : in Orientation from TopAbs)
---Purpose: Adds the Shape 1 in the Shape 2, set to
-- <Orient> orientation.
is deferred;
Add(me; aShape1 : in out TheShape;
aShape2 : in TheShape)
---Purpose: Adds the Shape 1 in the Shape 2.
is deferred;
end Builder from Sweep;

12
src/Sweep/Sweep_Builder.gxx
View File

@ -1,12 +0,0 @@
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

69
src/Sweep/Sweep_Iterator.cdl
View File

@ -1,69 +0,0 @@
-- Created on: 1993-01-27
-- Created by: Philippe DAUTRY
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class Iterator from Sweep (TheShape as any)
---Purpose: This is a signature class describing iteration
-- services required by the Swept Primitives
-- algorithms from a Directing or a Generating Line.
-- This tool is used to iterate on the direct
-- sub-shapes of a Shape.
--
uses
Orientation from TopAbs
raises
NoMoreObject from Standard,
NoSuchObject from Standard
is
Init(me : in out; aShape: TheShape)
---Purpose: Resest the Iterator on sub-shapes of <aShape>.
is deferred;
More(me) returns Boolean
---Purpose: Returns True if there is a current sub-shape.
--
-- -C++: inline
is deferred;
Next(me : in out)
---Purpose: Moves to the next sub-shape.
raises
NoMoreObject from Standard
is deferred;
Value(me) returns TheShape
---Purpose: Returns the current sub-shape.
raises
NoSuchObject from Standard
-- -C++: return const &
-- -C++: inline
is deferred;
Orientation(me) returns Orientation from TopAbs
---Purpose: Returns the orientation of the current sub-shape.
raises
NoSuchObject from Standard
---C++: return const &
---C++: inline
is deferred;
end Iterator;

12
src/Sweep/Sweep_Iterator.gxx
View File

@ -1,12 +0,0 @@
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

15
src/Sweep/Sweep_Iterator.lxx
View File

@ -1,15 +0,0 @@
// Created on: 1993-08-09
// Created by: Laurent BOURESCHE
// Copyright (c) 1993-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

12
src/Sweep/Sweep_LinearRegularSweep.cdl
View File

@ -18,12 +18,12 @@ deferred generic class LinearRegularSweep from Sweep (
TheShape as any; -- resulting topological objects.
TheGenShape as any; -- Generating topological objects.
TheDirShape as any; -- Directing topological objects.
TheBuilder as any; -- as Builder from Sweep.
TheGenShapeTool as any; -- as Tool from Sweep.
TheDirShapeTool as any; -- as Tool from Sweep.
TheShapeIterator as any; -- as Iterator from Sweep.
TheGenShapeIterator as any; -- as Iterator from Sweep.
TheDirShapeIterator as any) -- as Iterator from Sweep.
TheBuilder as any;
TheGenShapeTool as any;
TheDirShapeTool as any;
TheShapeIterator as any;
TheGenShapeIterator as any;
TheDirShapeIterator as any)
---Purpose: This a generic class is used to build Sweept

2
src/Sweep/Sweep_NumShapeTool.cdl
View File

@ -14,7 +14,7 @@
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
class NumShapeTool from Sweep -- as Tool from Sweep
class NumShapeTool from Sweep
---Purpose: This class provides the indexation and type analysis
-- services required by the NumShape Directing Shapes of

84
src/Sweep/Sweep_Tool.cdl
View File

@ -1,84 +0,0 @@
-- Created on: 1993-05-26
-- Created by: Laurent BOURESCHE
-- Copyright (c) 1993-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class Tool from Sweep (TheShape as any)
---Purpose: This is a signature class describing the indexation
-- and type analysis services required by the Directing
-- and Generating Shapes of Swept Primitives.
--
uses
ShapeEnum from TopAbs,
Orientation from TopAbs
raises
OutOfRange from Standard
is
Initialize(aShape: TheShape);
---Purpose: Initialize the tool with <aShape>. The IndexTool
-- must prepare an indexation for all the subshapes
-- of this shape.
NbShapes(me) returns Integer
---Purpose: Returns the number of subshapes in the shape.
is deferred;
Index(me; aShape : TheShape) returns Integer
---Purpose: Returns the index of <aShape>.
is deferred;
Shape(me; anIndex : Integer from Standard) returns TheShape
---Purpose: Returns the Shape of index anIndex
is deferred;
Type(me; aShape : TheShape) returns ShapeEnum from TopAbs
---Purpose: Returns the type of <aShape>.
is deferred;
Orientation(me; aShape : TheShape) returns Orientation from TopAbs
---Purpose: Returns the Orientation of <aShape>.
is deferred;
SetOrientation(me; aShape : in out TheShape; Or : Orientation from TopAbs)
---Purpose: Set the Orientation of <aShape> with Or.
is deferred;
------------------------------------------
--- Methods used for Directing Shapes only
------------------------------------------
HasFirstVertex(me) returns Boolean from Standard
---Purpose: Returns true if there is a First Vertex in the Shape.
is deferred;
HasLastVertex(me) returns Boolean from Standard
---Purpose: Returns true if there is a Last Vertex in the Shape.
is deferred;
FirstVertex(me) returns TheShape
---Purpose: Returns the first vertex.
is deferred;
LastVertex(me) returns TheShape
---Purpose: Returns the last vertex.
is deferred;
end Tool from Sweep;

13
src/Sweep/Sweep_Tool.gxx
View File

@ -1,13 +0,0 @@
// Copyright (c) 1995-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

7
src/TopClass/TopClass.cdl
View File

@ -32,16 +32,9 @@ uses
is
deferred generic class Intersection2d;
---Purpose: Describes the intersection algorithm for 2d
-- classifications.
generic class Classifier2d;
---Purpose: Basic algorithm for 2d classifications.
deferred generic class FaceExplorer;
---Purpose: Defines the description of a face for the
-- FaceClassifier.
generic class FaceClassifier, FClass2d;
---Purpose: Algorithm for classification in a Face.

2
src/TopClass/TopClass_Classifier2d.cdl
View File

@ -19,7 +19,7 @@
generic class Classifier2d from TopClass
(TheEdge as any;
TheIntersector as any) -- as Intersection2d from TopClass
TheIntersector as any)
---Purpose:

84
src/TopClass/TopClass_FaceExplorer.cdl
View File

@ -1,84 +0,0 @@
-- Created on: 1992-11-17
-- Created by: Remi LEQUETTE
-- Copyright (c) 1992-1999 Matra Datavision
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
--
-- This file is part of Open CASCADE Technology software library.
--
-- This library is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License version 2.1 as published
-- by the Free Software Foundation, with special exception defined in the file
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
-- distribution for complete text of the license and disclaimer of any warranty.
--
-- Alternatively, this file may be used under the terms of Open CASCADE
-- commercial license or contractual agreement.
deferred generic class FaceExplorer from TopClass
(TheEdge as any)
---Purpose: Describe an exploration of a 2D face suitable for
-- classification.
uses
Orientation from TopAbs,
Pnt2d from gp,
Lin2d from gp
is
Reject(me; P : Pnt2d from gp) returns Boolean
---Purpose: Should return True if the point is outside a
-- bounding volume of the face.
is deferred;
Segment(me; P : Pnt2d from gp;
L : out Lin2d from gp; Par : out Real)
---Purpose: Returns in <L>, <Par> a segment having at least
-- one intersection with the face boundary to
-- compute intersections.
is deferred;
InitWires(me : in out)
---Purpose: Starts an exploration of the wires.
is deferred;
MoreWires(me) returns Boolean
---Purpose: Returns True if there is a current wire.
---C++: inline
is deferred;
NextWire(me : in out)
---Purpose: Sets the explorer to the next wire and returns
-- False if there are no more wires.
is deferred;
RejectWire(me; L : Lin2d from gp; Par : Real) returns Boolean
---Purpose: Returns True if the wire bounding volume does not
-- intersect the segment.
is deferred;
InitEdges(me : in out)
---Purpose: Starts an exploration of the edges of the current
-- wire.
is deferred;
MoreEdges(me) returns Boolean
---Purpose: Returns True if there is a current edge.
---C++: inline
is deferred;
NextEdge(me : in out)
---Purpose: Sets the explorer to the next wire and returns
-- False if there are no more wires.
is deferred;
RejectEdge(me; L : Lin2d from gp; Par : Real) returns Boolean
---Purpose: Returns True if the edge bounding volume does not
-- intersect the segment.
is deferred;
CurrentEdge(me; E : out TheEdge; Or : out Orientation from TopAbs)
---Purpose: Curent edge in current wire and its orientation
is deferred;
end FaceExplorer;

15
src/TopClass/TopClass_FaceExplorer.gxx
View File

@ -1,15 +0,0 @@
// Created on: 1997-05-12
// Created by: Didier PIFFAULT
// Copyright (c) 1997-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

Some files were not shown because too many files have changed in this diff Show More