mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-26 01:57:30 +08:00
124 lines
4.2 KiB
Plaintext
Executable File
124 lines
4.2 KiB
Plaintext
Executable File
-- Created on: 1992-11-19
|
|
-- Created by: Remi LEQUETTE
|
|
-- 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.
|
|
|
|
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627
|
|
|
|
class FaceExplorer from BRepClass
|
|
|
|
---Purpose: Provide an exploration of a BRep Face for the
|
|
-- classification.
|
|
|
|
uses
|
|
Orientation from TopAbs,
|
|
Pnt2d from gp,
|
|
Lin2d from gp,
|
|
Face from TopoDS,
|
|
Explorer from TopExp,
|
|
Edge from BRepClass
|
|
|
|
is
|
|
Create (F : Face from TopoDS) returns FaceExplorer from BRepClass;
|
|
|
|
Reject(me; P : Pnt2d from gp) returns Boolean
|
|
---Purpose: Should return True if the point is outside a
|
|
-- bounding volume of the face.
|
|
is static;
|
|
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 Begin
|
|
-- Segment(me; P : Pnt2d from gp;
|
|
Segment(me: in out; P : Pnt2d from gp;
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 End
|
|
L : out Lin2d from gp; Par : out Real)
|
|
---Purpose: Returns in <L>, <Par> a segment having at least
|
|
-- one intersection with the face boundary to
|
|
-- compute intersections.
|
|
returns Boolean from Standard -- skv OCC12627
|
|
is static;
|
|
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 Begin
|
|
OtherSegment(me: in out; P : Pnt2d from gp;
|
|
L : out Lin2d from gp; Par : out Real)
|
|
---Purpose: Returns in <L>, <Par> a segment having at least
|
|
-- one intersection with the face boundary to
|
|
-- compute intersections. Each call gives another segment.
|
|
returns Boolean from Standard
|
|
is static;
|
|
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 End
|
|
InitWires(me : in out)
|
|
---Purpose: Starts an exploration of the wires.
|
|
is static;
|
|
|
|
MoreWires(me) returns Boolean
|
|
---Purpose: Returns True if there is a current wire.
|
|
--
|
|
---C++: inline
|
|
is static;
|
|
|
|
NextWire(me : in out)
|
|
---Purpose: Sets the explorer to the next wire.
|
|
--
|
|
---C++: inline
|
|
is static;
|
|
|
|
RejectWire(me; L : Lin2d from gp; Par : Real) returns Boolean
|
|
---Purpose: Returns True if the wire bounding volume does not
|
|
-- intersect the segment.
|
|
is static;
|
|
|
|
InitEdges(me : in out)
|
|
---Purpose: Starts an exploration of the edges of the current
|
|
-- wire.
|
|
is static;
|
|
|
|
MoreEdges(me) returns Boolean
|
|
---Purpose: Returns True if there is a current edge.
|
|
--
|
|
---C++: inline
|
|
is static;
|
|
|
|
NextEdge(me : in out)
|
|
---Purpose: Sets the explorer to the next edge.
|
|
--
|
|
---C++: inline
|
|
is static;
|
|
|
|
RejectEdge(me; L : Lin2d from gp; Par : Real) returns Boolean
|
|
---Purpose: Returns True if the edge bounding volume does not
|
|
-- intersect the segment.
|
|
is static;
|
|
|
|
CurrentEdge(me; E : out Edge from BRepClass;
|
|
Or : out Orientation from TopAbs)
|
|
---Purpose: Current edge in current wire and its orientation.
|
|
is static;
|
|
|
|
fields
|
|
myFace : Face from TopoDS;
|
|
myWExplorer : Explorer from TopExp;
|
|
myEExplorer : Explorer from TopExp;
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 Begin
|
|
myCurEdgeInd: Integer from Standard;
|
|
myCurEdgePar: Real from Standard;
|
|
-- Modified by skv - Wed Jul 12 10:05:54 2006 OCC12627 End
|
|
|
|
end FaceExplorer;
|