0024002: Overall code and build procedure refactoring -- automatic
[occt.git] / src / BRepMAT2d / BRepMAT2d_LinkTopoBilo.cxx
CommitLineData
b311480e 1// Created on: 1994-10-07
2// Created by: Yves FRICAUD
3// Copyright (c) 1994-1999 Matra Datavision
973c2be1 4// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5//
973c2be1 6// This file is part of Open CASCADE Technology software library.
b311480e 7//
d5f74e42 8// This library is free software; you can redistribute it and/or modify it under
9// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 10// by the Free Software Foundation, with special exception defined in the file
11// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12// distribution for complete text of the license and disclaimer of any warranty.
b311480e 13//
973c2be1 14// Alternatively, this file may be used under the terms of Open CASCADE
15// commercial license or contractual agreement.
7fd59977 16
42cf5bc1 17
18#include <BRepMAT2d_BisectingLocus.hxx>
19#include <BRepMAT2d_DataMapOfShapeSequenceOfBasicElt.hxx>
20#include <BRepMAT2d_Explorer.hxx>
21#include <BRepMAT2d_LinkTopoBilo.hxx>
22#include <BRepTools_WireExplorer.hxx>
7fd59977 23#include <Geom2d_CartesianPoint.hxx>
42cf5bc1 24#include <Geom2d_Curve.hxx>
25#include <Geom2d_Geometry.hxx>
26#include <gp_Pnt2d.hxx>
7fd59977 27#include <MAT_BasicElt.hxx>
42cf5bc1 28#include <MAT_Graph.hxx>
97385d61 29#include <MAT_SequenceOfBasicElt.hxx>
42cf5bc1 30#include <Precision.hxx>
31#include <Standard_ConstructionError.hxx>
32#include <Standard_Type.hxx>
33#include <TColGeom2d_SequenceOfCurve.hxx>
7fd59977 34#include <TColStd_DataMapIteratorOfDataMapOfIntegerInteger.hxx>
35#include <TColStd_DataMapOfIntegerInteger.hxx>
42cf5bc1 36#include <TopAbs.hxx>
37#include <TopExp.hxx>
38#include <TopExp_Explorer.hxx>
39#include <TopoDS.hxx>
40#include <TopoDS_Shape.hxx>
41#include <TopoDS_Vertex.hxx>
42#include <TopoDS_Wire.hxx>
43#include <TopTools_SequenceOfShape.hxx>
7fd59977 44
45//=======================================================================
46//function : BRepMAT2d_LinkTopoBilo
47//purpose :
48//=======================================================================
7fd59977 49BRepMAT2d_LinkTopoBilo::BRepMAT2d_LinkTopoBilo()
50{
51}
52
53
54//=======================================================================
55//function : BRepMAT2d_LinkTopoBilo
56//purpose :
57//=======================================================================
58
59BRepMAT2d_LinkTopoBilo::BRepMAT2d_LinkTopoBilo(
60 const BRepMAT2d_Explorer& Explo,
61 const BRepMAT2d_BisectingLocus& BiLo)
62{
63 Perform (Explo,BiLo);
64}
65
66
67//=======================================================================
68//function : Perform
69//purpose :
70//=======================================================================
71
72void BRepMAT2d_LinkTopoBilo::Perform(const BRepMAT2d_Explorer& Explo,
73 const BRepMAT2d_BisectingLocus& BiLo)
74{
75 myMap.Clear();
76 myBEShape.Clear();
77
78 TopoDS_Shape S = Explo.Shape();
79 Standard_Integer IndContour = 1;
80
81 if (S.ShapeType() == TopAbs_FACE) {
82 TopExp_Explorer Exp (S,TopAbs_WIRE);
83
84 while (Exp.More()) {
85 LinkToWire(TopoDS::Wire (Exp.Current()),Explo,IndContour,BiLo);
86 Exp.Next();
87 IndContour++;
88 }
89 }
90 else {
91 Standard_ConstructionError::Raise("BRepMAT2d_LinkTopoBilo::Perform");
92 }
93
94}
95
96
97//=======================================================================
98//function : Init
99//purpose :
100//=======================================================================
101
102void BRepMAT2d_LinkTopoBilo::Init(const TopoDS_Shape& S)
103{
104 isEmpty = Standard_False;
105 current = 1;
106 if (myMap.IsBound(S)) myKey = S; else isEmpty = Standard_True;
107}
108
109
110//=======================================================================
111//function : More
112//purpose :
113//=======================================================================
114
115Standard_Boolean BRepMAT2d_LinkTopoBilo::More()
116{
117 if (isEmpty) return Standard_False;
118 return (current <= myMap(myKey).Length());
119}
120
121
122//=======================================================================
123//function : Next
124//purpose :
125//=======================================================================
126
127void BRepMAT2d_LinkTopoBilo::Next()
128{
129 current++;
130}
131
132
133//=======================================================================
134//function : Value
135//purpose :
136//=======================================================================
137
138Handle(MAT_BasicElt) BRepMAT2d_LinkTopoBilo::Value() const
139{
140 return myMap(myKey).Value(current);
141}
142
143//=======================================================================
144//function : GeneratingShape
145//purpose :
146//=======================================================================
147
148TopoDS_Shape BRepMAT2d_LinkTopoBilo::GeneratingShape
149(const Handle(MAT_BasicElt)& BE) const
150{
151 return myBEShape(BE);
152}
153
154static void LinkToContour(const BRepMAT2d_Explorer& Explo,
155 const Standard_Integer IndC,
156 const BRepMAT2d_BisectingLocus& BiLo,
157 TColStd_DataMapOfIntegerInteger& Link);
158
159//=======================================================================
160//function : LinkToWire
161//purpose :
162//=======================================================================
163
164void BRepMAT2d_LinkTopoBilo::LinkToWire(const TopoDS_Wire& W,
165 const BRepMAT2d_Explorer& Explo,
166 const Standard_Integer IndC,
167 const BRepMAT2d_BisectingLocus& BiLo)
168{
169 BRepTools_WireExplorer TheExp (W);
170 Standard_Integer KC;
171 TopoDS_Vertex VF,VL;
172 TopoDS_Shape S;
173 Handle(MAT_BasicElt) BE;
174 Handle(Standard_Type) Type;
175 TopTools_SequenceOfShape TopoSeq;
97385d61 176 MAT_SequenceOfBasicElt EmptySeq;
7fd59977 177
178 TColStd_DataMapIteratorOfDataMapOfIntegerInteger Ite;
179 TColStd_DataMapOfIntegerInteger LinkBECont;
180
181
182 for (;TheExp.More();TheExp.Next()) {
183 TopoSeq.Append(TheExp.Current());
184 }
185
186 //-----------------------------------------------------
0d969553 187 // Construction Links BasicElt => Curve of contour IndC.
7fd59977 188 //-----------------------------------------------------
189 LinkToContour(Explo,IndC,BiLo,LinkBECont);
190
191
192 //---------------------------------------------------------------
0d969553
Y
193 // Iteration on BasicElts. The associated index is the same for
194 // the curves of the contour and the edges. .
7fd59977 195 //---------------------------------------------------------------
196 for (Ite.Initialize(LinkBECont); Ite.More(); Ite.Next()) {
197 BE = BiLo.Graph()->BasicElt(Ite.Key());
198 Type = BiLo.GeomElt(BE)->DynamicType();
199 KC = Ite.Value();
200 S = TopoSeq.Value(Abs(KC));
201
202 if (Type == STANDARD_TYPE(Geom2d_CartesianPoint)) {
203 if (S.Orientation() == TopAbs_REVERSED) {
204 TopExp::Vertices(TopoDS::Edge(S),VL,VF);
205 }
206 else {
207 TopExp::Vertices(TopoDS::Edge(S),VF,VL);
208 }
209 if (KC > 0) S = VL; else S = VF;
210 }
211 if (!myMap.IsBound(S)) {
212 myMap.Bind(S,EmptySeq);
213 }
214 myMap(S).Append(BE);
215
216 if (KC < 0)
217 myBEShape.Bind(BE, S.Oriented(TopAbs::Reverse(S.Orientation())));
218 else
219 myBEShape.Bind(BE, S);
220 }
221}
222
223
224//=======================================================================
225//function : LinkToContour
0d969553
Y
226//purpose : Association to each basicElt of the curre of the initial
227// contour from which it comes.
7fd59977 228//=======================================================================
229
230void LinkToContour (const BRepMAT2d_Explorer& Explo,
231 const Standard_Integer IndC,
232 const BRepMAT2d_BisectingLocus& BiLo,
233 TColStd_DataMapOfIntegerInteger& Link)
234{
235 Handle (MAT_BasicElt) BE;
236 Handle (Geom2d_Geometry) GeomBE;
237 Handle (Standard_Type) Type;
238 Standard_Boolean DirectSense = Standard_True;
239 Standard_Boolean LastPoint = Standard_False;
240 Standard_Integer NbSect,ISect;
241
242 //---------------------------------------------------
0d969553
Y
243 // NbSect : number of sections on the current curve.
244 // ISect : Counter on sections.
7fd59977 245 //---------------------------------------------------
246
247 const TColGeom2d_SequenceOfCurve& Cont = Explo.Contour(IndC);
248
249 //------------------------------------------------------------------
0d969553 250 //Initialization of the explorer on the first curve of the contour.
7fd59977 251 //------------------------------------------------------------------
252 Standard_Integer IndOnCont = 1;
253 Standard_Integer PrecIndOnCont = -1;
254 NbSect = BiLo.NumberOfSections(IndC,1);
255 ISect = 0;
256
257 //------------------------------------------------------------------
0d969553
Y
258 // Parsing of base elements associated to contour IndC.
259 // Rq : the base elements are ordered.
7fd59977 260 //------------------------------------------------------------------
261 for (Standard_Integer i = 1; i <= BiLo.NumberOfElts(IndC); i++) {
262
263 BE = BiLo.BasicElt(IndC,i);
264 GeomBE = BiLo.GeomElt (BE);
265 Type = GeomBE->DynamicType();
266
267 if (Type != STANDARD_TYPE(Geom2d_CartesianPoint)) {
268 ISect++;
0d969553
Y
269 //----------------------------------------------------------------
270 // The base element is a curve associated with the current curve.
271 //----------------------------------------------------------------
7fd59977 272 if (DirectSense) {
273 Link.Bind(BE->Index(), IndOnCont);
274 }
275 else {
276 Link.Bind(BE->Index(), -IndOnCont);
277 }
278 }
279 else {
0d969553
Y
280 //-----------------------------------------------------------------
281 // The base element is a point associated with the previous curve.
282 //-----------------------------------------------------------------
7fd59977 283 if (DirectSense || LastPoint) {
284 Link.Bind(BE->Index(), PrecIndOnCont);
285 }
286 else {
287 Link.Bind(BE->Index(), -PrecIndOnCont);
288 }
289 }
290
291 PrecIndOnCont = IndOnCont;
292 //----------------------------------------------------------------------
0d969553
Y
293 // Passage to the next curve in Explo, when all parts
294 // of curves corresponding to the initial curve have been parsed.
7fd59977 295 //---------------------------------------------------------------------
296 if (Type != STANDARD_TYPE(Geom2d_CartesianPoint) && ISect == NbSect) {
297 if (IndOnCont < Cont.Length() && DirectSense) {
298 IndOnCont++;
299 NbSect = BiLo.NumberOfSections(IndC,IndOnCont);
300 ISect = 0;
301 }
302 else {
303 //-----------------------------------------------------
0d969553 304 // For open lines restart in the other direction.
7fd59977 305 //-----------------------------------------------------
306 if (!DirectSense) {
307 IndOnCont--;
308 if (IndOnCont != 0) NbSect = BiLo.NumberOfSections(IndC,IndOnCont);
309 LastPoint = Standard_False;
310 }
311 else {
312 LastPoint = Standard_True;
313 }
314 ISect = 0;
315 DirectSense = Standard_False;
316 }
317 }
318 }
319}