mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-19 10:03:24 +08:00
193 lines
7.1 KiB
Plaintext
Executable File
193 lines
7.1 KiB
Plaintext
Executable File
-- Created on: 1992-09-29
|
|
-- Created by: Didier PIFFAULT
|
|
-- Copyright (c) 1992-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.
|
|
|
|
|
|
|
|
generic class InterferencePolygonPolyhedron from Intf
|
|
(Polygon3d as any;
|
|
ToolPolygon3d as any; -- as ToolPolygon(Pnt,Polygon3d,Box)
|
|
Polyhedron as any;
|
|
ToolPolyh as any) -- as ToolPolyhedron(Polyhedron)
|
|
inherits Interference from Intf
|
|
|
|
---Purpose: Computes the interference between a polygon and a
|
|
-- Polyhedron.
|
|
|
|
uses Pnt from gp,
|
|
Lin from gp,
|
|
XYZ from gp,
|
|
Array1OfLin from Intf,
|
|
SectionPoint from Intf,
|
|
SeqOfSectionPoint from Intf,
|
|
TangentZone from Intf,
|
|
SeqOfTangentZone from Intf,
|
|
BoundSortBox from Bnd
|
|
|
|
is
|
|
|
|
-- Interface :
|
|
|
|
Create returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs an empty interference between Polygon and
|
|
-- Polyhedron.
|
|
|
|
Create (thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the Polygon
|
|
-- and the Polyhedron.
|
|
|
|
Create (theLin : in Lin from gp;
|
|
thePolyh : in Polyhedron)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the
|
|
-- Straight Line and the Polyhedron.
|
|
|
|
Create (theLins : in Array1OfLin from Intf;
|
|
thePolyh : in Polyhedron)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the
|
|
-- Straight Lines and the Polyhedron.
|
|
|
|
Perform (me : in out;
|
|
thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron)
|
|
---Purpose: Computes an interference between the Polygon and the
|
|
-- Polyhedron.
|
|
is static;
|
|
|
|
Perform (me : in out;
|
|
theLin : in Lin from gp;
|
|
thePolyh : Polyhedron)
|
|
---Purpose: Computes an interference between the Straight Line and the
|
|
-- Polyhedron.
|
|
is static;
|
|
|
|
Perform (me : in out;
|
|
theLins : in Array1OfLin from Intf;
|
|
thePolyh : in Polyhedron)
|
|
---Purpose: Computes an interference between the Straight Lines and
|
|
-- the Polyhedron.
|
|
is static;
|
|
|
|
|
|
|
|
|
|
--------------- Optimisation : On Passe le Bnd_BoundSortBox
|
|
|
|
|
|
Create (thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the Polygon
|
|
-- and the Polyhedron.
|
|
|
|
Create (theLin : in Lin from gp;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the
|
|
-- Straight Line and the Polyhedron.
|
|
|
|
Create (theLins : in Array1OfLin from Intf;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
returns InterferencePolygonPolyhedron from Intf;
|
|
---Purpose: Constructs and computes an interference between the
|
|
-- Straight Lines and the Polyhedron.
|
|
|
|
Perform (me : in out;
|
|
thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
---Purpose: Computes an interference between the Polygon and the
|
|
-- Polyhedron.
|
|
is static;
|
|
|
|
Perform (me : in out;
|
|
theLin : in Lin from gp;
|
|
thePolyh : Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
---Purpose: Computes an interference between the Straight Line and the
|
|
-- Polyhedron.
|
|
is static;
|
|
|
|
Perform (me : in out;
|
|
theLins : in Array1OfLin from Intf;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
---Purpose: Computes an interference between the Straight Lines and
|
|
-- the Polyhedron.
|
|
is static;
|
|
|
|
|
|
|
|
Interference (me : in out;
|
|
thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron;
|
|
theBoundSB : in out BoundSortBox from Bnd)
|
|
is static;
|
|
---Purpose: Compares the boundings between the segment of <thePolyg> and
|
|
-- the facets of <thePolyh>.
|
|
|
|
|
|
|
|
|
|
-- Implementation :
|
|
|
|
Interference (me : in out;
|
|
thePolyg : in Polygon3d;
|
|
thePolyh : in Polyhedron)
|
|
is static;
|
|
---Purpose: Compares the boundings between the segment of <thePolyg> and
|
|
-- the facets of <thePolyh>.
|
|
|
|
|
|
Intersect (me : in out;
|
|
BegO : in Pnt from gp;
|
|
EndO : in Pnt from gp;
|
|
Infinite : Boolean from Standard;
|
|
TTri : in Integer from Standard;
|
|
thePolyh : in Polyhedron)
|
|
is static private;
|
|
---Purpose: Computes the intersection between the segment <BegO><EndO>
|
|
-- and the triangle <TTri> of <thePolyh>.
|
|
|
|
Intersect (me : in out;
|
|
BegO : in Pnt from gp;
|
|
EndO : in Pnt from gp;
|
|
Infinite : Boolean from Standard;
|
|
TTri : in Integer from Standard;
|
|
thePolyh : in Polyhedron;
|
|
TriNormal: in XYZ from gp;
|
|
TriDp : in Real from Standard;
|
|
dBegTri : in Real from Standard;
|
|
dEndTri : in Real from Standard)
|
|
is static private;
|
|
---Purpose: Computes the intersection between the segment <BegO><EndO>
|
|
-- and the triangle <TTri> of <thePolyh>.
|
|
|
|
fields
|
|
BeginOfClosedPolygon: Boolean from Standard;
|
|
iLin : Integer from Standard;
|
|
|
|
end InterferencePolygonPolyhedron;
|