mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-17 20:24:12 +08:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
156 lines
5.5 KiB
Plaintext
156 lines
5.5 KiB
Plaintext
-- Created on: 1993-12-13
|
|
-- Created by: Christophe MARION
|
|
-- 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.
|
|
|
|
class ExtPElC2d from Extrema
|
|
---Purpose: It calculates all the distances between a point
|
|
-- and an elementary curve.
|
|
-- These distances can be minimum or maximum.
|
|
|
|
uses POnCurv2d from Extrema,
|
|
Lin2d from gp,
|
|
Circ2d from gp,
|
|
Elips2d from gp,
|
|
Hypr2d from gp,
|
|
Parab2d from gp,
|
|
Pnt2d from gp
|
|
|
|
raises NotDone from StdFail,
|
|
OutOfRange from Standard
|
|
|
|
is
|
|
Create returns ExtPElC2d;
|
|
|
|
Create (P: Pnt2d; C: Lin2d; Tol: Real;
|
|
Uinf: Real; Usup: Real)
|
|
returns ExtPElC2d;
|
|
---Purpose: Calculates the extremum distance between the
|
|
-- point P and the segment [Uinf,Usup] of the line L.
|
|
|
|
|
|
Perform(me: in out; P: Pnt2d; L: Lin2d; Tol: Real; Uinf,Usup: Real)
|
|
is static;
|
|
|
|
Create (P: Pnt2d; C: Circ2d; Tol: Real;
|
|
Uinf: Real; Usup: Real)
|
|
returns ExtPElC2d;
|
|
---Purpose: Calculates the 2 extremum distances between the
|
|
-- point P and the segment [Uinf,Usup] of the circle C.
|
|
-- Tol is used to determine
|
|
-- if P is on the axis of the circle or
|
|
-- if an extremum is on an endpoint of the segment.
|
|
-- If P is on the axis of the circle,
|
|
-- there are infinite solution then IsDone(me)=False.
|
|
-- The conditions on the Uinf and Usup are:
|
|
-- 0. <= Uinf <= 2.*PI and Usup > Uinf.
|
|
-- If Usup > Uinf + 2.*PI, then only the solutions in
|
|
-- the range [Uinf,Uinf+2.*PI[ are computed.
|
|
|
|
|
|
Perform(me: in out; P: Pnt2d; C: Circ2d; Tol: Real; Uinf,Usup: Real)
|
|
is static;
|
|
|
|
Create (P: Pnt2d; C: Elips2d; Tol: Real;
|
|
Uinf: Real; Usup: Real)
|
|
returns ExtPElC2d;
|
|
---Purpose: Calculates the 4 extremum distances between the
|
|
-- point P and the segment [Uinf,Usup] of the elipse C.
|
|
-- Tol is used to determine
|
|
-- if the point is on the axis of the elipse and
|
|
-- if the major radius is equal to the minor radius or
|
|
-- if an extremum is on an endpoint of the segment.
|
|
-- If P is on the axis of the elipse,
|
|
-- there are infinite solution then IsDone(me)=False.
|
|
-- The conditions on the Uinf and Usup are:
|
|
-- 0. <= Uinf <= 2.*PI and Usup > Uinf.
|
|
-- If Usup > Uinf + 2.*PI, then only the solutions in
|
|
-- the range [Uinf,Uinf+2.*PI[ are computed.
|
|
|
|
|
|
Perform(me: in out; P: Pnt2d; C: Elips2d; Tol: Real; Uinf,Usup: Real)
|
|
is static;
|
|
|
|
Create (P: Pnt2d; C: Hypr2d; Tol: Real; Uinf: Real;
|
|
Usup: Real)
|
|
returns ExtPElC2d;
|
|
---Purpose: Calculates the extremum distances between the
|
|
-- point P and the segment [Uinf,Usup] of the hyperbola
|
|
-- C.
|
|
-- Tol is used to determine if two solutions u and v
|
|
-- are identical; the condition is:
|
|
-- dist(C(u),C(v)) < Tol.
|
|
|
|
Perform(me: in out; P: Pnt2d; C: Hypr2d; Tol: Real; Uinf,Usup: Real)
|
|
is static;
|
|
|
|
Create (P: Pnt2d; C: Parab2d; Tol: Real; Uinf: Real;
|
|
Usup: Real)
|
|
returns ExtPElC2d;
|
|
---Purpose: Calculates the 4 extremum distances between the
|
|
-- point P and the segment [Uinf,Usup] of the parabola
|
|
-- C.
|
|
-- Tol is used to determine if two solutions u and v
|
|
-- are identical; the condition is:
|
|
-- dist(C(u),C(v)) < Tol.
|
|
|
|
Perform(me: in out; P: Pnt2d; C: Parab2d; Tol: Real; Uinf,Usup: Real)
|
|
is static;
|
|
|
|
|
|
IsDone (me) returns Boolean
|
|
---Purpose: True if the distances are found.
|
|
is static;
|
|
|
|
NbExt (me) returns Integer
|
|
---Purpose: Returns the number of extremum distances.
|
|
raises NotDone from StdFail
|
|
-- if IsDone(me)=False.
|
|
is static;
|
|
|
|
SquareDistance (me; N: Integer) returns Real
|
|
---Purpose: Returns the value of the Nth extremum square distance.
|
|
raises NotDone from StdFail,
|
|
-- if IsDone(me)=False.
|
|
OutOfRange
|
|
-- if N < 1 or N > NbPoints(me).
|
|
is static;
|
|
|
|
IsMin (me; N: Integer) returns Boolean
|
|
---Purpose: Returns True if the Nth extremum distance is a
|
|
-- minimum.
|
|
raises NotDone from StdFail,
|
|
-- if IsDone(me)=False.
|
|
OutOfRange
|
|
-- if N < 1 or N > NbPoints(me).
|
|
is static;
|
|
|
|
Point (me; N: Integer) returns POnCurv2d
|
|
---C++: return const &
|
|
---Purpose: Returns the point of the Nth extremum distance.
|
|
raises NotDone from StdFail,
|
|
-- if IsDone(me)=False.
|
|
OutOfRange
|
|
-- if N < 1 or N > NbPoints(me).
|
|
is static;
|
|
|
|
fields
|
|
myDone : Boolean;
|
|
myNbExt: Integer;
|
|
mySqDist: Real [4];
|
|
myIsMin: Boolean [4];
|
|
myPoint: POnCurv2d from Extrema [4];
|
|
|
|
end ExtPElC2d;
|