mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-10 12:25:50 +03:00
258 lines
10 KiB
Plaintext
Executable File
258 lines
10 KiB
Plaintext
Executable File
-- Created on: 1991-12-13
|
|
-- Created by: Christophe MARION
|
|
-- 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 Interval from Intrv
|
|
---Purpose:
|
|
-- **-----------**** Other
|
|
-- ***---* IsBefore
|
|
-- ***----------* IsJustBefore
|
|
-- ***---------------* IsOverlappingAtStart
|
|
-- ***------------------------* IsJustEnclosingAtEnd
|
|
-- ***-----------------------------------* IsEnclosing
|
|
-- ***----* IsJustOverlappingAtStart
|
|
-- ***-------------* IsSimilar
|
|
-- ***------------------------* IsJustEnclosingAtStart
|
|
-- ***-* IsInside
|
|
-- ***------* IsJustOverlappingAtEnd
|
|
-- ***-----------------* IsOverlappingAtEnd
|
|
-- ***--------* IsJustAfter
|
|
-- ***---* IsAfter
|
|
|
|
|
|
uses
|
|
Real from Standard,
|
|
ShortReal from Standard,
|
|
Integer from Standard,
|
|
Position from Intrv
|
|
|
|
is
|
|
Create returns Interval from Intrv;
|
|
|
|
Create(Start, End : Real from Standard) returns Interval from Intrv;
|
|
|
|
Create(Start : Real from Standard;
|
|
TolStart : ShortReal from Standard;
|
|
End : Real from Standard;
|
|
TolEnd : ShortReal from Standard)
|
|
returns Interval from Intrv;
|
|
|
|
Start(me) returns Real from Standard
|
|
---C++: inline
|
|
is static;
|
|
|
|
End(me) returns Real from Standard
|
|
---C++: inline
|
|
is static;
|
|
|
|
TolStart(me) returns ShortReal from Standard
|
|
---C++: inline
|
|
is static;
|
|
|
|
TolEnd(me) returns ShortReal from Standard
|
|
---C++: inline
|
|
is static;
|
|
|
|
Bounds(me; Start : out Real from Standard;
|
|
TolStart : out ShortReal from Standard;
|
|
End : out Real from Standard;
|
|
TolEnd : out ShortReal from Standard)
|
|
---C++: inline
|
|
is static;
|
|
|
|
SetStart(me : in out; Start : Real from Standard;
|
|
TolStart : ShortReal from Standard)
|
|
---C++: inline
|
|
is static;
|
|
|
|
FuseAtStart(me : in out; Start : Real from Standard;
|
|
TolStart : ShortReal from Standard)
|
|
---C++: inline
|
|
---Purpose:
|
|
-- ****+****--------------------> Old one
|
|
-- ****+****------------------------> New one to fuse
|
|
-- <<< <<<
|
|
-- ****+****------------------------> result
|
|
is static;
|
|
|
|
CutAtStart(me : in out; Start : Real from Standard;
|
|
TolStart : ShortReal from Standard)
|
|
---C++: inline
|
|
---Purpose:
|
|
-- ****+****-----------> Old one
|
|
-- <----------**+** Tool for cutting
|
|
-- >>> >>>
|
|
-- ****+****-----------> result
|
|
is static;
|
|
|
|
SetEnd(me : in out; End : Real from Standard;
|
|
TolEnd : ShortReal from Standard)
|
|
---C++: inline
|
|
is static;
|
|
|
|
FuseAtEnd(me : in out; End : Real from Standard;
|
|
TolEnd : ShortReal from Standard)
|
|
---C++: inline
|
|
---Purpose:
|
|
-- <---------------------****+**** Old one
|
|
-- <-----------------**+** New one to fuse
|
|
-- >>> >>>
|
|
-- <---------------------****+**** result
|
|
is static;
|
|
|
|
CutAtEnd(me : in out; End : Real from Standard;
|
|
TolEnd : ShortReal from Standard)
|
|
---C++: inline
|
|
---Purpose:
|
|
-- <-----****+**** Old one
|
|
-- **+**------> Tool for cutting
|
|
-- <<< <<<
|
|
-- <-----****+**** result
|
|
is static;
|
|
|
|
IsProbablyEmpty(me) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if myStart+myTolStart > myEnd-myTolEnd
|
|
-- or if myEnd+myTolEnd > myStart-myTolStart
|
|
is static;
|
|
|
|
Position(me; Other : Interval from Intrv) returns Position from Intrv
|
|
---Purpose: True if me is Before Other
|
|
-- **-----------**** Other
|
|
-- ***-----* Before
|
|
-- ***------------* JustBefore
|
|
-- ***-----------------* OverlappingAtStart
|
|
-- ***--------------------------* JustEnclosingAtEnd
|
|
-- ***-------------------------------------* Enclosing
|
|
-- ***----* JustOverlappingAtStart
|
|
-- ***-------------* Similar
|
|
-- ***------------------------* JustEnclosingAtStart
|
|
-- ***-* Inside
|
|
-- ***------* JustOverlappingAtEnd
|
|
-- ***-----------------* OverlappingAtEnd
|
|
-- ***--------* JustAfter
|
|
-- ***---* After
|
|
is static;
|
|
|
|
IsBefore(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is Before Other
|
|
-- ***----------------** me
|
|
-- **-----------**** Other
|
|
is static;
|
|
|
|
IsAfter(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is After Other
|
|
-- **-----------**** me
|
|
-- ***----------------** Other
|
|
is static;
|
|
|
|
IsInside(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is Inside Other
|
|
-- **-----------**** me
|
|
-- ***--------------------------** Other
|
|
is static;
|
|
|
|
IsEnclosing(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is Enclosing Other
|
|
-- ***----------------------------**** me
|
|
-- ***------------------** Other
|
|
is static;
|
|
|
|
IsJustEnclosingAtStart(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just Enclosing Other at start
|
|
-- ***---------------------------**** me
|
|
-- ***------------------** Other
|
|
is static;
|
|
|
|
IsJustEnclosingAtEnd(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just Enclosing Other at End
|
|
-- ***----------------------------**** me
|
|
-- ***-----------------**** Other
|
|
is static;
|
|
|
|
IsJustBefore(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just before Other
|
|
-- ***--------**** me
|
|
-- ***-----------** Other
|
|
is static;
|
|
|
|
IsJustAfter(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just after Other
|
|
-- ****-------**** me
|
|
-- ***-----------** Other
|
|
is static;
|
|
|
|
IsOverlappingAtStart(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is overlapping Other at start
|
|
-- ***---------------*** me
|
|
-- ***-----------** Other
|
|
is static;
|
|
|
|
IsOverlappingAtEnd(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is overlapping Other at end
|
|
-- ***-----------** me
|
|
-- ***---------------*** Other
|
|
is static;
|
|
|
|
IsJustOverlappingAtStart(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just overlapping Other at start
|
|
-- ***-----------*** me
|
|
-- ***------------------------** Other
|
|
is static;
|
|
|
|
IsJustOverlappingAtEnd(me; Other : Interval from Intrv)
|
|
returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me is just overlapping Other at end
|
|
-- ***-----------* me
|
|
-- ***------------------------** Other
|
|
is static;
|
|
|
|
IsSimilar(me; Other : Interval from Intrv) returns Boolean from Standard
|
|
---C++: inline
|
|
---Purpose: True if me and Other have the same bounds
|
|
-- *----------------*** me
|
|
-- ***-----------------** Other
|
|
is static;
|
|
|
|
fields
|
|
myStart : Real from Standard;
|
|
myEnd : Real from Standard;
|
|
myTolStart : ShortReal from Standard;
|
|
myTolEnd : ShortReal from Standard;
|
|
|
|
end;
|