mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-13 15:19:13 +08:00
973c2be1e1
The copying permission statements at the beginning of source files updated to refer to LGPL. Copyright dates extended till 2014 in advance.
141 lines
4.8 KiB
Plaintext
141 lines
4.8 KiB
Plaintext
-- Created on: 1991-04-24
|
|
-- Created by: Remi GILET
|
|
-- 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 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 Lin2dTanObl from GccIter (
|
|
TheCurve as any;
|
|
TheCurveTool as any;
|
|
TheQualifiedCurve as any) -- as QualifiedCurve from GccEnt
|
|
-- (TheCurve)
|
|
|
|
---Purpose: This class implements the algorithms used to
|
|
-- create 2d line tangent to a curve QualifiedCurv and
|
|
-- doing an angle Angle with a line TheLin.
|
|
-- The angle must be in Radian.
|
|
|
|
uses Lin2d from gp,
|
|
Pnt2d from gp,
|
|
Position from GccEnt
|
|
|
|
raises BadQualifier from GccEnt,
|
|
NotDone from StdFail,
|
|
IsParallel from GccIter
|
|
|
|
private class FuncTObl instantiates FunctionTanObl from GccIter(
|
|
TheCurve,TheCurveTool);
|
|
|
|
is
|
|
|
|
Create (Qualified1 : TheQualifiedCurve ;
|
|
TheLin : Lin2d ;
|
|
Param1 : Real ;
|
|
TolAng : Real ;
|
|
Angle : Real = 0 ) returns Lin2dTanObl from GccIter
|
|
raises BadQualifier from GccEnt;
|
|
---Purpose: This class implements the algorithm used to
|
|
-- create 2d line tangent to a curve and doing an
|
|
-- angle Angle with the line TheLin.
|
|
-- Angle must be in Radian.
|
|
-- Param2 is the initial guess on the curve QualifiedCurv.
|
|
-- Tolang is the angular tolerance.
|
|
|
|
-- ........................................................................
|
|
|
|
IsDone(me) returns Boolean
|
|
is static;
|
|
---Purpose: This method returns true when there is a solution
|
|
-- and false in the other cases.
|
|
|
|
ThisSolution(me) returns Lin2d
|
|
raises NotDone from StdFail
|
|
is static;
|
|
-- Returns the solution.
|
|
|
|
WhichQualifier(me ;
|
|
Qualif1 : out Position from GccEnt)
|
|
raises NotDone from StdFail
|
|
is static;
|
|
-- It returns the informations about the qualifiers of the tangency
|
|
-- arguments concerning the solution number Index.
|
|
-- It returns the real qualifiers (the qualifiers given to the
|
|
-- constructor method in case of enclosed, enclosing and outside
|
|
-- and the qualifiers computedin case of unqualified).
|
|
|
|
Tangency1(me ;
|
|
ParSol,ParArg : out Real ;
|
|
PntSol : out Pnt2d)
|
|
raises NotDone from StdFail
|
|
is static;
|
|
-- Returns informations about the tangency point between the
|
|
-- result and the first argument.
|
|
-- ParSol is the intrinsic parameter of the point ParSol on the solution
|
|
-- curv.
|
|
-- ParArg is the intrinsic parameter of the point PntSol on the argument
|
|
-- curv.
|
|
|
|
Intersection2 (me ;
|
|
ParSol,ParArg : out Real ;
|
|
PntSol : out Pnt2d)
|
|
raises NotDone from StdFail, IsParallel from GccIter
|
|
is static;
|
|
-- Returns informations about the center (on the curv) of the
|
|
-- result and the third argument.
|
|
|
|
IsParallel2(me) returns Boolean
|
|
raises NotDone from StdFail
|
|
is static;
|
|
-- Returns informations about the center (on the curv) of the
|
|
-- result and the third argument.
|
|
|
|
fields
|
|
|
|
WellDone : Boolean;
|
|
-- True if the algorithm succeeded.
|
|
|
|
Paral2 : Boolean;
|
|
-- True if the solution is parallel to the second argument (Angle = 0).
|
|
|
|
linsol : Lin2d;
|
|
---Purpose : The solution.
|
|
|
|
qualifier1 : Position from GccEnt;
|
|
-- The qualifiers of the first argument.
|
|
|
|
pnttg1sol : Pnt2d;
|
|
-- The tangency point between the solution and the first argument on
|
|
-- the solution.
|
|
|
|
pntint2sol : Pnt2d;
|
|
-- The tangency point between the solution and the second argument on
|
|
-- the solution.
|
|
|
|
par1sol : Real;
|
|
-- The parameter of the tangency point between the solution and the
|
|
-- first argument on the solution.
|
|
|
|
par2sol : Real;
|
|
-- The parameter of the intersection point between the solution and the
|
|
-- second argument on the solution.
|
|
|
|
pararg1 : Real;
|
|
-- The parameter of the tangency point between the solution and the first
|
|
-- argument on the first argument.
|
|
|
|
pararg2 : Real;
|
|
-- The parameter of the intersection point between the solution and
|
|
-- the second argument on the second argument.
|
|
|
|
end Lin2dTanObl;
|