1 -- Created on: 1996-01-11
2 -- Created by: Jacques GOUSSARD
3 -- Copyright (c) 1996-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.
24 class WiresOnShape from LocOpe inherits ProjectedWires from LocOpe
28 uses Shape from TopoDS,
34 DataMapOfShapeShape from TopTools,
35 -- DataMapIteratorOfDataMapOfShapeShape from TopTools
36 IndexedDataMapOfShapeShape from TopTools,
37 MapOfShape from TopTools
42 Create(S: Shape from TopoDS)
44 returns mutable WiresOnShape from LocOpe;
47 Init(me: mutable; S: Shape from TopoDS)
52 Bind(me: mutable; W: Wire from TopoDS;
57 Bind(me: mutable; Comp: Compound from TopoDS;
62 Bind(me: mutable; E: Edge from TopoDS;
68 Bind(me: mutable; EfromW: Edge from TopoDS;
69 EonFace: Edge from TopoDS)
81 returns Boolean from Standard
86 InitEdgeIterator(me: mutable)
92 returns Boolean from Standard
97 returns Edge from TopoDS
102 ---Purpose: Returns the face of the shape on which the current
103 -- edge is projected.
104 returns Face from TopoDS
108 OnEdge(me: mutable; E: out Edge from TopoDS)
109 ---Purpose: If the current edge is projected on an edge,
110 -- returns <Standard_True> and sets the value of <E>.
111 -- Otherwise, returns <Standard_False>.
112 returns Boolean from Standard
116 NextEdge(me: mutable)
121 OnVertex(me: mutable; Vwire : Vertex from TopoDS;
122 Vshape: out Vertex from TopoDS)
124 returns Boolean from Standard
128 OnEdge(me: mutable; V: Vertex from TopoDS;
129 E: out Edge from TopoDS;
130 P: out Real from Standard)
131 ---Purpose: If the vertex <V> lies on an edge of the original
132 -- shape, returns <Standard_True> and sets the
133 -- concerned edge in <E>, and the parameter on the
135 -- Else returns <Standard_False>.
136 returns Boolean from Standard
139 IsFaceWithSection(me; aFace : Shape from TopoDS)
140 ---Purpose: tells is the face to be split by section or not
142 returns Boolean from Standard
148 myShape : Shape from TopoDS;
149 myMapEF : IndexedDataMapOfShapeShape from TopTools;
150 myFacesWithSection : MapOfShape from TopTools;
151 myMap : DataMapOfShapeShape from TopTools;
152 myDone : Boolean from Standard;
153 myIndex : Integer from Standard;