mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-02 01:36:43 +08:00
127 lines
4.3 KiB
Plaintext
Executable File
127 lines
4.3 KiB
Plaintext
Executable File
-- Created on: 1997-12-09
|
|
-- Created by: Philippe MANGIN
|
|
-- Copyright (c) 1997-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
--
|
|
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
-- except in compliance with the License. Please obtain a copy of the License
|
|
-- at http://www.opencascade.org and read it completely before using this file.
|
|
--
|
|
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
--
|
|
-- The Original Code and all software distributed under the License is
|
|
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
-- Initial Developer hereby disclaims all such warranties, including without
|
|
-- limitation, any warranties of merchantability, fitness for a particular
|
|
-- purpose or non-infringement. Please see the License for the specific terms
|
|
-- and conditions governing the rights and limitations under the License.
|
|
|
|
|
|
|
|
class Fixed from GeomFill
|
|
inherits TrihedronLaw from GeomFill
|
|
|
|
---Purpose: Defined an constant TrihedronLaw
|
|
|
|
uses
|
|
Shape from GeomAbs,
|
|
Array1OfReal from TColStd,
|
|
Vec from gp
|
|
|
|
raises
|
|
OutOfRange, ConstructionError
|
|
is
|
|
|
|
Create(Tangent, Normal : Vec from gp)
|
|
returns Fixed from GeomFill
|
|
raises ConstructionError;
|
|
-- if <Tangent> and <Normal> are colinear
|
|
|
|
Copy(me)
|
|
returns TrihedronLaw from GeomFill
|
|
is redefined;
|
|
--
|
|
--
|
|
--========== To compute Location and derivatives Location
|
|
--
|
|
D0(me : mutable;
|
|
Param: Real;
|
|
Tangent : out Vec from gp;
|
|
Normal : out Vec from gp;
|
|
BiNormal : out Vec from gp)
|
|
---Purpose: compute Triedrhon on curve at parameter <Param>
|
|
returns Boolean is redefined;
|
|
|
|
D1(me : mutable;
|
|
Param: Real;
|
|
Tangent : out Vec from gp;
|
|
DTangent : out Vec from gp;
|
|
Normal : out Vec from gp;
|
|
DNormal : out Vec from gp;
|
|
BiNormal : out Vec from gp;
|
|
DBiNormal : out Vec from gp)
|
|
---Purpose: compute Triedrhon and derivative Trihedron on curve
|
|
-- at parameter <Param>
|
|
-- Warning : It used only for C1 or C2 aproximation
|
|
returns Boolean
|
|
is redefined;
|
|
|
|
D2(me : mutable;
|
|
Param: Real;
|
|
Tangent : out Vec from gp;
|
|
DTangent : out Vec from gp;
|
|
D2Tangent : out Vec from gp;
|
|
Normal : out Vec from gp;
|
|
DNormal : out Vec from gp;
|
|
D2Normal : out Vec from gp;
|
|
BiNormal : out Vec from gp;
|
|
DBiNormal : out Vec from gp;
|
|
D2BiNormal : out Vec from gp)
|
|
---Purpose: compute Trihedron on curve
|
|
-- first and seconde derivatives.
|
|
-- Warning : It used only for C2 aproximation
|
|
returns Boolean
|
|
is redefined;
|
|
--
|
|
-- =================== Management of continuity ===================
|
|
--
|
|
NbIntervals(me; S : Shape from GeomAbs)
|
|
---Purpose: Returns the number of intervals for continuity
|
|
-- <S>.
|
|
-- May be one if Continuity(me) >= <S>
|
|
returns Integer is redefined;
|
|
|
|
Intervals(me; 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
|
|
is redefined;
|
|
|
|
|
|
-- ===================== To help computation of Tolerance ============
|
|
GetAverageLaw(me : mutable;
|
|
ATangent : out Vec from gp;
|
|
ANormal : out Vec from gp;
|
|
ABiNormal : out Vec from gp)
|
|
---Purpose: Get average value of Tangent(t) and Normal(t) it is usfull to
|
|
-- make fast approximation of rational surfaces.
|
|
is redefined;
|
|
|
|
-- =================== To help Particular case ===============
|
|
|
|
IsConstant(me)
|
|
---Purpose: Return True.
|
|
returns Boolean
|
|
is redefined;
|
|
|
|
fields
|
|
T, N, B : Vec from gp;
|
|
end Fixed;
|