1 -- Created on: 1994-10-21
2 -- Created by: Bruno DUMORTIER
3 -- Copyright (c) 1994-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
6 -- The content of this file is subject to the Open CASCADE Technology Public
7 -- License Version 6.5 (the "License"). You may not use the content of this file
8 -- except in compliance with the License. Please obtain a copy of the License
9 -- at http://www.opencascade.org and read it completely before using this file.
11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
14 -- The Original Code and all software distributed under the License is
15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
16 -- Initial Developer hereby disclaims all such warranties, including without
17 -- limitation, any warranties of merchantability, fitness for a particular
18 -- purpose or non-infringement. Please see the License for the specific terms
19 -- and conditions governing the rights and limitations under the License.
23 private class TrimSurfaceTool from BRepFill
34 SequenceOfPnt from TColgp,
38 NoSuchObject from Standard
42 Create(Bis : Curve from Geom2d;
43 Face1 : Face from TopoDS;
44 Face2 : Face from TopoDS;
45 Edge1 : Edge from TopoDS;
46 Edge2 : Edge from TopoDS;
47 Inv1 : Boolean from Standard;
48 Inv2 : Boolean from Standard)
49 returns TrimSurfaceTool from BRepFill;
52 IntersectWith(me; EdgeOnF1 : in Edge from TopoDS;
53 EdgeOnF2 : in Edge from TopoDS;
54 Points : in out SequenceOfPnt from TColgp )
55 ---Purpose: Intersect <Bis> with the projection of the edges
56 -- <EdgeOnFi> and returns the intersecting parameters
57 -- on Bis and on the edges
58 -- P.X() : Parameter on Bis
59 -- P.Y() : Parameter on EdgeOnF1
60 -- P.Z() : Parameter on EdgeOnF2
62 NoSuchObject from Standard
63 ---Purpose: raises if <Edge> is not a edge of Face1 or Face2.
67 IsOnFace(me; Point : Pnt2d from gp)
68 returns Boolean from Standard
69 ---Purpose: returns True if the Line (P, DZ) intersect the Faces
72 ProjOn(me; Point : Pnt2d from gp;
73 Edge : Edge from TopoDS)
74 returns Real from Standard
75 ---Purpose: returns the parameter of the point <Point> on the
76 -- Edge <Edge>, assuming that the point is on the edge.
81 U1, U2 : Real from Standard;
82 Curve : out Curve from Geom;
83 PCurve1, PCurve2 : out Curve from Geom2d;
84 myCont : out Shape from GeomAbs)
90 myFace1 : Face from TopoDS;
91 myFace2 : Face from TopoDS;
92 myEdge1 : Edge from TopoDS;
93 myEdge2 : Edge from TopoDS;
94 myInv1 : Boolean from Standard;
95 myInv2 : Boolean from Standard;
96 myBis : Curve from Geom2d;