mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-17 22:14:48 +08:00
97 lines
3.5 KiB
Plaintext
Executable File
97 lines
3.5 KiB
Plaintext
Executable File
-- Created on: 1991-04-15
|
|
-- Created by: Philippe DAUTRY
|
|
-- Copyright (c) 1991-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 QualifiedLin
|
|
|
|
from GccEnt
|
|
|
|
inherits Storable from Standard
|
|
|
|
--- Purpose: Describes a qualified 2D line.
|
|
-- A qualified 2D line is a line (gp_Lin2d line) with a
|
|
-- qualifier which specifies whether the solution of a
|
|
-- construction algorithm using the qualified line (as an argument):
|
|
-- - is 'enclosed' by the line, or
|
|
-- - is built so that both the line and it are external to one another, or
|
|
-- - is undefined (all solutions apply).
|
|
-- Note: the interior of a line is defined as the left-hand
|
|
-- side of the line in relation to its orientation (i.e. when
|
|
-- moving from the start to the end of the curve).
|
|
|
|
|
|
uses Position from GccEnt,
|
|
Lin2d from gp
|
|
|
|
is
|
|
|
|
Create(Qualified : Lin2d from gp ;
|
|
Qualifier : Position from GccEnt )
|
|
returns QualifiedLin from GccEnt;
|
|
---Purpose:
|
|
-- Constructs a qualified line by assigning the qualifier
|
|
-- Qualifier to the line Qualified.
|
|
-- Qualifier may be:
|
|
-- - GccEnt_enclosed if the solution is enclosed by the line, or
|
|
-- - GccEnt_outside if both the solution and the line are external to one another, or
|
|
-- - GccEnt_unqualified if all solutions apply.
|
|
-- Note : the interior of a line is defined as the left-hand
|
|
-- side of the line in relation to its orientation.
|
|
|
|
Qualified(me) returns Lin2d from gp
|
|
is static;
|
|
---Purpose: Returns a 2D line to which the qualifier is assigned.
|
|
|
|
Qualifier(me) returns Position from GccEnt
|
|
is static;
|
|
---Purpose:
|
|
-- Returns the qualifier of this qualified line, if it is "enclosed" or
|
|
-- "outside", or
|
|
-- - GccEnt_noqualifier if it is unqualified.
|
|
|
|
IsUnqualified(me) returns Boolean from Standard
|
|
is static;
|
|
---Purpose: Returns true if the solution is unqualified and false in
|
|
-- the other cases.
|
|
|
|
IsEnclosed(me) returns Boolean from Standard
|
|
is static;
|
|
---Purpose: Returns true if the solution is Enclosed in the Lin2d and false in
|
|
-- the other cases.
|
|
|
|
IsOutside(me) returns Boolean from Standard
|
|
is static;
|
|
---Purpose: Returns true if the solution is Outside the Lin2d and false in
|
|
-- the other cases.
|
|
|
|
fields
|
|
|
|
TheQualifier : Position from GccEnt;
|
|
TheQualified : Lin2d from gp;
|
|
|
|
--friends
|
|
|
|
--Unqualified(Obj : Lin2d) from GccEnt,
|
|
--Enclosed (Obj : Lin2d) from GccEnt,
|
|
--Outside (Obj : Lin2d) from GccEnt
|
|
|
|
end QualifiedLin;
|