6484d1fefec6f9817d724307fc17fe1bf44ab095
[occt.git] / src / DNaming / DNaming.cxx
1 // Created on: 1997-01-09
2 // Created by: VAUTHIER Jean-Claude & Fricaud Yves
3 // Copyright (c) 1997-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
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
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.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17
18 #include <BRep_Tool.hxx>
19 #include <BRepAlgoAPI_BooleanOperation.hxx>
20 #include <BRepBuilderAPI_MakeShape.hxx>
21 #include <BRepLib_FindSurface.hxx>
22 #include <BRepTools.hxx>
23 #include <DDF.hxx>
24 #include <DDF_Data.hxx>
25 #include <DNaming.hxx>
26 #include <Draw.hxx>
27 #include <Geom_Curve.hxx>
28 #include <Geom_Line.hxx>
29 #include <Geom_Plane.hxx>
30 #include <Geom_RectangularTrimmedSurface.hxx>
31 #include <Geom_Surface.hxx>
32 #include <gp_Ax1.hxx>
33 #include <gp_Pln.hxx>
34 #include <gp_Vec.hxx>
35 #include <ModelDefinitions.hxx>
36 #include <TCollection_AsciiString.hxx>
37 #include <TColStd_HArray1OfInteger.hxx>
38 #include <TColStd_ListIteratorOfListOfInteger.hxx>
39 #include <TColStd_ListOfInteger.hxx>
40 #include <TDataStd_Integer.hxx>
41 #include <TDataStd_Name.hxx>
42 #include <TDataStd_Real.hxx>
43 #include <TDataStd_TreeNode.hxx>
44 #include <TDataStd_UAttribute.hxx>
45 #include <TDF_ChildIterator.hxx>
46 #include <TDF_Data.hxx>
47 #include <TDF_Label.hxx>
48 #include <TDF_LabelList.hxx>
49 #include <TDF_LabelMap.hxx>
50 #include <TDF_Reference.hxx>
51 #include <TDF_TagSource.hxx>
52 #include <TDF_Tool.hxx>
53 #include <TFunction_Function.hxx>
54 #include <TNaming_Builder.hxx>
55 #include <TNaming_Iterator.hxx>
56 #include <TNaming_NamedShape.hxx>
57 #include <TNaming_Tool.hxx>
58 #include <TopExp.hxx>
59 #include <TopExp_Explorer.hxx>
60 #include <TopoDS.hxx>
61 #include <TopoDS_Edge.hxx>
62 #include <TopoDS_Face.hxx>
63 #include <TopoDS_Shape.hxx>
64 #include <TopTools_DataMapIteratorOfDataMapOfShapeListOfShape.hxx>
65 #include <TopTools_DataMapIteratorOfDataMapOfShapeShape.hxx>
66 #include <TopTools_DataMapOfShapeListOfShape.hxx>
67 #include <TopTools_DataMapOfShapeShape.hxx>
68 #include <TopTools_IndexedDataMapOfShapeListOfShape.hxx>
69 #include <TopTools_IndexedMapOfShape.hxx>
70 #include <TopTools_ListIteratorOfListOfShape.hxx>
71 #include <TopTools_ListOfShape.hxx>
72 #include <TopTools_MapIteratorOfMapOfShape.hxx>
73 #include <TopTools_MapOfShape.hxx>
74
75 //=======================================================================
76 //function : DNaming_DFandUS
77 //purpose  : 
78 //=======================================================================
79 // Standard_Boolean DNaming_DFandUS(char* a,
80 //                               Handle(TDF_Data)&           ND,
81 //                               Handle(TNaming_UsedShapes)& US) 
82 // {
83 //   Handle(DDF_Data) DND = Handle(DDF_Data)::DownCast (Draw::Get(a));
84 //   if (DND.IsNull ()) return 0;
85 //   ND = DND->DataFramework ();
86 //   ND->Root().FindAttribute(TNaming_UsedShapes::GetID(),US);
87 //   return 1;
88 // }
89 //=======================================================================
90 //function : GetShape
91 //purpose  : 
92 //=======================================================================
93 void DNaming::GetShape (const Standard_CString      LabelName,
94                         const Handle(TDF_Data)&     DF,
95                         TopTools_ListOfShape&       L)
96 {
97   L.Clear();
98   TDF_Label Label;
99   Standard_Boolean Found = DDF::AddLabel (DF, LabelName, Label);
100   if (Found) {
101     TNaming_Iterator it (Label, DF->Transaction ());
102     for (; it.More(); it.Next()) {
103       L.Append(it.NewShape());
104     }
105   }
106 }
107
108 //=======================================================================
109 //function : BuildMap
110 //purpose  : 
111 //=======================================================================
112
113 void DNaming_BuildMap(TDF_LabelMap& Updated, 
114                       const TDF_Label& Lab)
115 {
116   TDF_ChildIterator it(Lab);
117   for (; it.More(); it.Next()) {
118     Updated.Add(it.Value());
119     DNaming_BuildMap(Updated,it.Value());
120   }
121 }
122
123 //=======================================================================
124 //function : CurrentShape
125 //purpose  : 
126 //=======================================================================
127
128 TopoDS_Shape DNaming::CurrentShape (const Standard_CString  LabelName,
129                                     const Handle(TDF_Data)& DF)
130 {
131   TopoDS_Shape S;
132   TDF_Label Label; 
133   Standard_Boolean Found =  DDF::AddLabel (DF, LabelName, Label);
134   if (!Found) {
135 #ifdef OCCT_DEBUG
136     cout <<"no labels"<<endl;
137 #endif
138     return S;
139   }
140   if (Found) { 
141     Handle(TNaming_NamedShape)  NS;
142     Label.FindAttribute(TNaming_NamedShape::GetID(),NS);
143     S =  TNaming_Tool::CurrentShape(NS);
144     if (S.IsNull())
145 #ifdef OCCT_DEBUG
146       cout <<"current shape from "<< LabelName <<" is deleted"<<endl;
147 #endif
148     return S;
149   }
150   return S;
151 }
152
153
154 //=======================================================================
155 //function : GetEntry
156 //purpose  : 
157 //=======================================================================
158
159 TCollection_AsciiString DNaming::GetEntry (const TopoDS_Shape&         Shape,
160                                            const Handle(TDF_Data)&     DF,
161                                            Standard_Integer&           Status)
162 {
163   Status = 0;
164   //Handle(TNaming_UsedShapes) US;
165   //DF->Root().FindAttribute(TNaming_UsedShapes::GetID(),US);
166
167   if (!TNaming_Tool::HasLabel (DF->Root(), Shape)) {
168     return TCollection_AsciiString ();
169   }
170   Standard_Integer Transdef;
171   TDF_Label Lab = TNaming_Tool::Label (DF->Root(), Shape,Transdef);
172   TCollection_AsciiString entry; TDF_Tool::Entry(Lab,entry);
173   //Update Status;
174   TNaming_Iterator it(Lab,DF->Transaction());
175   for (; it.More(); it.Next()) {
176     Status++;
177     if (Status == 2) break;
178   }
179   return entry;
180 }
181
182 //=======================================================================
183 //function : AllCommands
184 //purpose  : 
185 //=======================================================================
186
187 void  DNaming::AllCommands(Draw_Interpretor& theCommands)
188 {
189   static Standard_Boolean done = Standard_False;
190   if (done) return;
191   done = Standard_True;
192
193   DNaming::BasicCommands     (theCommands); 
194   DNaming::ToolsCommands     (theCommands);  
195   DNaming::SelectionCommands (theCommands);
196   DNaming::ModelingCommands  (theCommands);
197   // define the TCL variable Draw_NamingData
198   const char* com = "set Draw_NamingData 1";
199   theCommands.Eval(com);
200 }
201
202 //=======================================================================
203 //=======================================================================
204 //function : LoadC0Vertices
205 //purpose  : Method for internal use. It is used by Load() method.
206 //=======================================================================
207
208 static void LoadC0Vertices(const TopoDS_Shape& S,
209                            const Handle(TDF_TagSource)& Tagger)
210 {
211   TopTools_DataMapOfShapeListOfShape vertexNaborFaces;
212   TopTools_ListOfShape empty;
213   TopExp_Explorer explF(S, TopAbs_FACE);
214   for (; explF.More(); explF.Next()) {
215     const TopoDS_Shape& aFace = explF.Current();
216     TopExp_Explorer explV(aFace, TopAbs_VERTEX);
217     for (; explV.More(); explV.Next()) {
218       const TopoDS_Shape& aVertex = explV.Current();
219       if (!vertexNaborFaces.IsBound(aVertex)) vertexNaborFaces.Bind(aVertex, empty);
220       Standard_Boolean faceIsNew = Standard_True;
221       TopTools_ListIteratorOfListOfShape itrF(vertexNaborFaces.Find(aVertex));
222       for (; itrF.More(); itrF.Next()) {
223         if (itrF.Value().IsSame(aFace)) {
224           faceIsNew = Standard_False;
225           break;
226         }
227       }
228       if (faceIsNew) {
229         vertexNaborFaces.ChangeFind(aVertex).Append(aFace);
230       }
231     }
232   }
233
234   TopTools_DataMapIteratorOfDataMapOfShapeListOfShape itr(vertexNaborFaces);
235   for (; itr.More(); itr.Next()) {
236     const TopTools_ListOfShape& naborFaces = itr.Value();
237     if (naborFaces.Extent() < 3) {
238       TNaming_Builder bC0Vertex(Tagger->NewChild());
239       bC0Vertex.Generated(itr.Key());
240     }
241   }
242 }
243
244 //=======================================================================
245 //function : LoadC0Edges
246 //purpose  : Method for internal use. It is used by Load() method.
247 //=======================================================================
248
249 static void LoadC0Edges(const TopoDS_Shape& S,
250                         const Handle(TDF_TagSource)& Tagger)
251 {
252   TopTools_DataMapOfShapeListOfShape edgeNaborFaces;
253   TopTools_ListOfShape empty;
254   TopExp_Explorer explF(S, TopAbs_FACE);
255   for (; explF.More(); explF.Next()) {
256     const TopoDS_Shape& aFace = explF.Current();
257     TopExp_Explorer explV(aFace, TopAbs_EDGE);
258     for (; explV.More(); explV.Next()) {
259       const TopoDS_Shape& anEdge = explV.Current();
260       if (!edgeNaborFaces.IsBound(anEdge)) edgeNaborFaces.Bind(anEdge, empty);
261       Standard_Boolean faceIsNew = Standard_True;
262       TopTools_ListIteratorOfListOfShape itrF(edgeNaborFaces.Find(anEdge));
263       for (; itrF.More(); itrF.Next()) {
264         if (itrF.Value().IsSame(aFace)) {
265           faceIsNew = Standard_False;
266           break;
267         }
268       }
269       if (faceIsNew) {
270         edgeNaborFaces.ChangeFind(anEdge).Append(aFace);
271       }
272     }
273   }
274   
275   TopTools_MapOfShape anEdgesToDelete;
276   TopExp_Explorer anEx(S,TopAbs_EDGE); // mpv: new explorer iterator becouse we need keep edges order
277   for(;anEx.More();anEx.Next()) {
278     Standard_Boolean aC0 = Standard_False;
279     TopoDS_Shape anEdge1 = anEx.Current();
280     if (edgeNaborFaces.IsBound(anEdge1)) {
281       const TopTools_ListOfShape& aList1 = edgeNaborFaces.Find(anEdge1);
282       if (aList1.Extent()<2) continue; // mpv (06.09.2002): these edges already was loaded
283       TopTools_DataMapIteratorOfDataMapOfShapeListOfShape itr(edgeNaborFaces);
284       for (; itr.More(); itr.Next()) {
285         TopoDS_Shape anEdge2 = itr.Key();
286         if(anEdgesToDelete.Contains(anEdge2)) continue;
287         if (anEdge1.IsSame(anEdge2)) continue;
288         const TopTools_ListOfShape& aList2 = itr.Value();
289         // compare lists of the neighbour faces of edge1 and edge2
290         if (aList1.Extent() == aList2.Extent()) {
291           Standard_Integer aMatches = 0;
292           for(TopTools_ListIteratorOfListOfShape aLIter1(aList1);aLIter1.More();aLIter1.Next())
293             for(TopTools_ListIteratorOfListOfShape aLIter2(aList2);aLIter2.More();aLIter2.Next())
294               if (aLIter1.Value().IsSame(aLIter2.Value())) aMatches++;
295           if (aMatches == aList1.Extent()) {
296             aC0=Standard_True;
297             TNaming_Builder bC0Edge(Tagger->NewChild());
298             bC0Edge.Generated(anEdge2);
299             //edgeNaborFaces.UnBind(anEdge2);
300             anEdgesToDelete.Add(anEdge2);
301           }
302         }
303       }
304       //VUN (10/2/2005) avoid UnBind during iterating -^
305       TopTools_MapIteratorOfMapOfShape itDelete(anEdgesToDelete);
306       for(;itDelete.More();itDelete.Next()) {
307         edgeNaborFaces.UnBind(itDelete.Key());
308       }
309       edgeNaborFaces.UnBind(anEdge1);
310     }
311     if (aC0) {
312       TNaming_Builder bC0Edge(Tagger->NewChild());
313       bC0Edge.Generated(anEdge1);
314     }
315   }
316 }
317 //
318 //=======================================================================
319 //function : GetDangleShapes
320 //purpose  : Returns dangle sub shapes Generator - Dangle.
321 //=======================================================================
322
323 static Standard_Boolean GetDangleShapes(const TopoDS_Shape& ShapeIn,
324                                  const TopAbs_ShapeEnum GeneratedFrom,
325                                  TopTools_DataMapOfShapeShape& Dangles) 
326 {
327   Dangles.Clear();
328   TopTools_IndexedDataMapOfShapeListOfShape subShapeAndAncestors;
329   TopAbs_ShapeEnum GeneratedTo;
330   if (GeneratedFrom == TopAbs_FACE) GeneratedTo = TopAbs_EDGE;
331   else if (GeneratedFrom == TopAbs_EDGE) GeneratedTo = TopAbs_VERTEX;
332   else return Standard_False;
333   TopExp::MapShapesAndAncestors(ShapeIn, GeneratedTo, GeneratedFrom, subShapeAndAncestors);
334   for (Standard_Integer i = 1; i <= subShapeAndAncestors.Extent(); i++) {
335     const TopoDS_Shape& mayBeDangle = subShapeAndAncestors.FindKey(i);
336     const TopTools_ListOfShape& ancestors = subShapeAndAncestors.FindFromIndex(i);
337     if (ancestors.Extent() == 1) Dangles.Bind(ancestors.First(), mayBeDangle);
338   }
339   return Dangles.Extent();
340 }
341
342 //=======================================================================
343 //function : LoadGeneratedDangleShapes
344 //purpose  : 
345 //=======================================================================
346
347 static void LoadGeneratedDangleShapes(const TopoDS_Shape&          ShapeIn,
348                                       const TopAbs_ShapeEnum       GeneratedFrom,
349                                       TNaming_Builder&             Builder)
350 {
351   TopTools_DataMapOfShapeShape dangles;
352   if (!GetDangleShapes(ShapeIn, GeneratedFrom, dangles)) return;
353   TopTools_DataMapIteratorOfDataMapOfShapeShape itr(dangles);
354   for (; itr.More(); itr.Next()) Builder.Generated(itr.Key(), itr.Value());
355 }
356
357 //=======================================================================
358 //function : LoadNextLevels
359 //purpose  : Method for internal use. Is used by LoadFirstLevel()
360 //=======================================================================
361
362 static void LoadNextLevels(const TopoDS_Shape& S,
363                            const Handle(TDF_TagSource)& Tagger)
364 {
365   
366   if (S.ShapeType() == TopAbs_SOLID) {              
367     TopExp_Explorer expl(S, TopAbs_FACE);
368     for (; expl.More(); expl.Next()) {
369       TNaming_Builder bFace(Tagger->NewChild());
370       bFace.Generated(expl.Current());
371     }
372   } else if (S.ShapeType() == TopAbs_SHELL || S.ShapeType() == TopAbs_FACE) {
373     // load faces and all the free edges
374     TopTools_IndexedMapOfShape Faces;
375     TopExp::MapShapes(S, TopAbs_FACE, Faces);
376     if (Faces.Extent() > 1 || (S.ShapeType() == TopAbs_SHELL && Faces.Extent() == 1)) {
377       TopExp_Explorer expl(S, TopAbs_FACE);
378       for (; expl.More(); expl.Next()) {
379         TNaming_Builder bFace(Tagger->NewChild());
380         bFace.Generated(expl.Current());
381       }
382     }
383     TopTools_IndexedDataMapOfShapeListOfShape anEdgeAndNeighbourFaces;
384     TopExp::MapShapesAndAncestors(S, TopAbs_EDGE, TopAbs_FACE, anEdgeAndNeighbourFaces);
385     for (Standard_Integer i = 1; i <= anEdgeAndNeighbourFaces.Extent(); i++) {
386       const TopTools_ListOfShape& aLL = anEdgeAndNeighbourFaces.FindFromIndex(i);
387       if (aLL.Extent() < 2) {
388         TNaming_Builder bFreeEdges(Tagger->NewChild());
389         bFreeEdges.Generated(anEdgeAndNeighbourFaces.FindKey(i));
390       } else {
391         TopTools_ListIteratorOfListOfShape anIter(aLL);
392         const TopoDS_Face& aFace = TopoDS::Face(anIter.Value());
393         anIter.Next();
394         if(aFace.IsEqual(anIter.Value())) {
395           TNaming_Builder bFreeEdges(Tagger->NewChild());
396           bFreeEdges.Generated(anEdgeAndNeighbourFaces.FindKey(i));
397         }
398       }
399     }
400   } else if (S.ShapeType() == TopAbs_WIRE) {
401     TopTools_IndexedMapOfShape Edges;
402     BRepTools::Map3DEdges(S, Edges);
403     if (Edges.Extent() == 1) {
404       TNaming_Builder bEdge(Tagger->NewChild());
405       bEdge.Generated(Edges.FindKey(1));
406       TopExp_Explorer expl(S, TopAbs_VERTEX);
407       for (; expl.More(); expl.Next()) {
408         TNaming_Builder bVertex(Tagger->NewChild());
409         bVertex.Generated(expl.Current());    
410       }
411     } else {
412       TopExp_Explorer expl(S, TopAbs_EDGE); 
413       for (; expl.More(); expl.Next()) {
414         TNaming_Builder bEdge(Tagger->NewChild());
415         bEdge.Generated(expl.Current());
416       }   
417       // and load generated vertices.
418       TopTools_DataMapOfShapeShape generated;
419       if (GetDangleShapes(S, TopAbs_EDGE, generated)) {
420         TNaming_Builder bGenVertices(Tagger->NewChild());
421         LoadGeneratedDangleShapes(S, TopAbs_EDGE, bGenVertices);
422       }
423     }
424   } else if (S.ShapeType() == TopAbs_EDGE) {
425     TopExp_Explorer expl(S, TopAbs_VERTEX);
426     for (; expl.More(); expl.Next()) {
427       TNaming_Builder bVertex(Tagger->NewChild());
428       bVertex.Generated(expl.Current());    
429     }
430   }
431 }
432
433 //=======================================================================
434 //function : LoadFirstLevel
435 //purpose  : Method for internal use. Is used by Load()
436 //=======================================================================
437
438 static void LoadFirstLevel(const TopoDS_Shape& S,
439                            const Handle(TDF_TagSource)& Tagger)
440 {
441   if (S.ShapeType() == TopAbs_COMPOUND || S.ShapeType() == TopAbs_COMPSOLID) {
442     TopoDS_Iterator itr(S);
443     for (; itr.More(); itr.Next()) {
444       TNaming_Builder bIndependantShapes(Tagger->NewChild());
445       bIndependantShapes.Generated(itr.Value());
446       if (itr.Value().ShapeType() == TopAbs_COMPOUND || itr.Value().ShapeType() == TopAbs_COMPSOLID) {
447         LoadFirstLevel(itr.Value(), Tagger);
448       } else LoadNextLevels(itr.Value(), Tagger);
449     }
450   } else LoadNextLevels(S, Tagger); 
451
452
453 //=======================================================================
454 //function : Load
455 //purpose  : To load an ImportShape
456 //           Use this method for a topological naming of an imported shape
457 //=======================================================================
458
459 void DNaming::LoadImportedShape(const TDF_Label& theResultLabel, 
460                                 const TopoDS_Shape& theShape) {
461   theResultLabel.ForgetAllAttributes();
462   TNaming_Builder aBuilder(theResultLabel);
463   aBuilder.Generated(theShape);
464
465   Handle(TDF_TagSource) aTagger = TDF_TagSource::Set(theResultLabel);
466   if (aTagger.IsNull()) return;
467   aTagger->Set(0);
468
469   LoadFirstLevel(theShape, aTagger);
470   LoadC0Edges(theShape, aTagger);
471   LoadC0Vertices(theShape, aTagger);
472 }  
473
474 //=======================================================================
475 //function : LoadPrime
476 //purpose  : 
477 //=======================================================================
478
479 void DNaming::LoadPrime(const TDF_Label& theResultLabel, 
480                         const TopoDS_Shape& theShape) {
481
482   Handle(TDF_TagSource) aTagger = TDF_TagSource::Set(theResultLabel);
483   if (aTagger.IsNull()) return;
484   aTagger->Set(0);
485
486   LoadFirstLevel(theShape, aTagger);
487   LoadC0Edges(theShape,    aTagger);
488   LoadC0Vertices(theShape, aTagger);
489 }  
490     
491 //
492 //=======================================================================
493 //function : Real
494 //purpose  : Gives the access to a real argument
495 //=======================================================================
496 Handle(TDataStd_Real) DNaming::GetReal(const Handle(TFunction_Function)& theFunction,
497                               const Standard_Integer thePosition) {
498   Handle(TDataStd_Real) aReal;
499   if (!POSITION(theFunction, thePosition).FindAttribute(TDataStd_Real::GetID(),aReal))
500     aReal = TDataStd_Real::Set(POSITION(theFunction,thePosition),0.0);
501   return aReal;
502 }
503
504
505
506 //=======================================================================
507 //function : Integer
508 //purpose  : Give an access to integer attribute
509 //=======================================================================
510 Handle(TDataStd_Integer) DNaming::GetInteger(const Handle(TFunction_Function)& theFunction,
511                                     const Standard_Integer thePosition) {
512   Handle(TDataStd_Integer) anInteger;
513   if (!POSITION(theFunction,thePosition).FindAttribute(TDataStd_Integer::GetID(),anInteger))
514      anInteger = TDataStd_Integer::Set(POSITION(theFunction,thePosition),0);
515   return anInteger;
516 }
517
518 //=======================================================================
519 //function : String
520 //purpose  : Returns Name attribute
521 //=======================================================================
522 Handle(TDataStd_Name) DNaming::GetString(const Handle(TFunction_Function)& theFunction,
523                                                  const Standard_Integer thePosition) {
524   Handle(TDataStd_Name) aString;
525   if (!POSITION(theFunction,thePosition).FindAttribute(TDataStd_Name::GetID(),aString))
526      aString = TDataStd_Name::Set(POSITION(theFunction,thePosition),"");
527   return aString;
528 }
529
530 //=======================================================================
531 //function : GetResult
532 //purpose  : Returns a result of a function, which is stored on a second label
533 //=======================================================================
534 Handle(TNaming_NamedShape) DNaming::GetFunctionResult(const Handle(TFunction_Function)& theFunction)
535 {
536   Handle(TNaming_NamedShape) aNShape;
537   theFunction->Label().FindChild(FUNCTION_RESULT_LABEL).FindAttribute(TNaming_NamedShape::GetID(),aNShape);
538   return aNShape;
539 }
540 //=======================================================================
541 //function : Object
542 //purpose  : Returns UAttribute associated with Object
543 //=======================================================================
544 Handle(TDataStd_UAttribute) DNaming::GetObjectArg(const Handle(TFunction_Function)& theFunction,
545                                                  const Standard_Integer thePosition) {
546   Handle(TDataStd_UAttribute) anObject;
547   Handle(TDF_Reference) aReference;
548   if (POSITION(theFunction,thePosition).FindAttribute(TDF_Reference::GetID(), aReference))
549     aReference->Get().FindAttribute(GEOMOBJECT_GUID, anObject);
550   return anObject;
551 }
552
553 //=======================================================================
554 //function : SetObject
555 //purpose  : Replace the argument by new value.
556 //=======================================================================
557 void DNaming::SetObjectArg (const Handle(TFunction_Function)& theFunction,
558                          const Standard_Integer thePosition,
559                          const Handle(TDataStd_UAttribute)& theNewValue) 
560 {  
561
562   if(theNewValue.IsNull()) return;
563   TDF_Reference::Set(POSITION(theFunction, thePosition),theNewValue->Label());
564
565 }
566
567 //=======================================================================
568 //function : GetObjectValue
569 //purpose  : Returns NamedShape of the Object
570 //=======================================================================
571 Handle(TNaming_NamedShape) DNaming::GetObjectValue(const Handle(TDataStd_UAttribute)& theObject)
572 {
573   Handle(TNaming_NamedShape) aNS;
574
575   if(!theObject.IsNull() && theObject->ID() == GEOMOBJECT_GUID) {
576     
577     Handle(TDF_Reference) aReference;
578     if(theObject->FindAttribute(TDF_Reference::GetID(), aReference))
579       aReference->Get().FindAttribute(TNaming_NamedShape::GetID(), aNS);
580   }
581   return aNS;
582
583 /*
584   Handle(TFunction_Function) aFun;
585   Handle(TDataStd_TreeNode) aNode;
586   objLabel.FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), aNode);
587   if(aNode.IsNull()) return aFun;
588   if(!aNode->HasFirst()) return aFun;
589   else 
590     aNode = aNode->First();
591   while(!aNode.IsNull()) {      
592     if(aNode->FindAttribute(TFunction_Function::GetID(), aFun)) {
593       const Standard_GUID& aGUID = aFun->GetDriverGUID();
594       if(aGUID == funGUID) break;
595       else aFun.Nullify();
596     }
597     aNode = aNode->Next();
598   }
599 */
600
601 }
602
603 //=======================================================================
604 //function : GetPrevFunction
605 //purpose  : Returns previus function
606 //=======================================================================
607 Handle(TFunction_Function) DNaming::GetPrevFunction(const Handle(TFunction_Function)& theFunction)
608 {
609   Handle(TFunction_Function) aPrevFun;
610   if(!theFunction.IsNull() ) {    
611     Handle(TDataStd_TreeNode) aNode;
612     theFunction->FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), aNode);
613     while(!aNode.IsNull()) {
614       if(!aNode->HasPrevious()) return aPrevFun;
615       else 
616         aNode = aNode->Previous();
617       aNode->FindAttribute(TFunction_Function::GetID(),aPrevFun );
618       if(!aPrevFun.IsNull())
619         break;
620     }
621   }
622   return aPrevFun;
623 /*
624     while(!aNode.IsNull()) {      
625     if(aNode->FindAttribute(TFunction_Function::GetID(), aFun)) {
626       const Standard_GUID& aGUID = aFun->GetDriverGUID();
627       if(aGUID == funGUID) break;
628       else aFun.Nullify();
629     }
630     aNode = aNode->Next();
631   }
632 */
633
634 }
635
636 //=======================================================================
637 //function : GetFirstFunction
638 //purpose  : Returns first function
639 //=======================================================================
640 Handle(TFunction_Function) DNaming::GetFirstFunction(const Handle(TDataStd_UAttribute)& theObject)
641 {
642   Handle(TFunction_Function) aFirstFun;
643   if(!theObject.IsNull() ) {    
644     Handle(TDataStd_TreeNode) aNode;
645     theObject->FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), aNode);
646     if(aNode.IsNull()) return aFirstFun;
647     if(!aNode->HasFirst()) return aFirstFun;
648     else 
649       aNode = aNode->First();
650
651     while(!aNode.IsNull()) {
652       aNode->FindAttribute(TFunction_Function::GetID(), aFirstFun );
653       if(!aFirstFun.IsNull())
654         break;
655       aNode = aNode->Next();
656     }
657   }
658   return aFirstFun;
659 }
660
661 //=======================================================================
662 //function : GetLastFunction
663 //purpose  : Returns Last function
664 //=======================================================================
665 Handle(TFunction_Function) DNaming::GetLastFunction(const Handle(TDataStd_UAttribute)& theObject)
666 {
667   Handle(TFunction_Function) aLastFun;
668   if(!theObject.IsNull() ) {    
669     Handle(TDataStd_TreeNode) aNode;
670     theObject->FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), aNode);
671     if(aNode.IsNull()) return aLastFun;
672     if(!aNode->HasFirst()) return aLastFun;
673     else 
674       aNode = aNode->First();
675
676     while(!aNode.IsNull()) {
677       if(aNode->IsAttribute(TFunction_Function::GetID()))
678         aNode->FindAttribute(TFunction_Function::GetID(), aLastFun);
679       aNode = aNode->Next();
680     }
681   }
682   return aLastFun;
683 }
684
685 //=======================================================================
686 //function : GetObjectFromFunction
687 //purpose  : Returns Object
688 //=======================================================================
689 Handle(TDataStd_UAttribute) DNaming::GetObjectFromFunction(const Handle(TFunction_Function)& theFunction)
690 {
691   Handle(TDataStd_UAttribute) anObject;
692   if(!theFunction.IsNull() ) {    
693     Handle(TDataStd_TreeNode) aNode;
694     theFunction->FindAttribute(TDataStd_TreeNode::GetDefaultTreeID(), aNode);
695     if(!aNode.IsNull()) {
696       if(!aNode->HasFather()) return anObject;
697       else 
698         aNode = aNode->Father();
699       aNode->FindAttribute(GEOMOBJECT_GUID,  anObject);
700     }
701   }
702   return anObject;
703 /*
704     while(!aNode.IsNull()) {      
705     if(aNode->FindAttribute(TFunction_Function::GetID(), aFun)) {
706       const Standard_GUID& aGUID = aFun->GetDriverGUID();
707       if(aGUID == funGUID) break;
708       else aFun.Nullify();
709     }
710     aNode = aNode->Next();
711   }
712 */
713
714 }
715 //=======================================================================
716 //function : LoadResult
717 //purpose  : 
718 //=======================================================================
719 void DNaming::LoadResult(const TDF_Label& ResultLabel, BRepAlgoAPI_BooleanOperation& MS) 
720 {
721   Handle(TDF_TagSource) Tagger = TDF_TagSource::Set(ResultLabel);
722   if (Tagger.IsNull()) return;
723   Tagger->Set(0);
724   TNaming_Builder Builder (ResultLabel);
725   TopoDS_Shape aResult = MS.Shape();
726   if (aResult.ShapeType() == TopAbs_COMPOUND) {
727     Standard_Integer nbSubResults = 0;
728     TopoDS_Iterator itr(aResult);
729     for (; itr.More(); itr.Next()) nbSubResults++;
730     if (nbSubResults == 1) {
731       itr.Initialize(aResult);
732       if (itr.More()) aResult = itr.Value();
733     }
734   }
735   if (MS.Shape1().IsNull()) Builder.Generated(aResult);
736   else {
737     Builder.Modify(MS.Shape1(), aResult);
738   }
739 }
740 //=======================================================================
741 //function : LoadAndOrientModifiedShapes
742 //purpose  : 
743 //=======================================================================
744 void DNaming::LoadAndOrientModifiedShapes (BRepBuilderAPI_MakeShape&    MS,
745                                            const TopoDS_Shape&     ShapeIn,
746                                            const TopAbs_ShapeEnum  KindOfShape,
747                                            TNaming_Builder&        Builder,
748                                            const TopTools_DataMapOfShapeShape& SubShapes)
749
750   TopTools_MapOfShape View;
751   TopExp_Explorer ShapeExplorer (ShapeIn, KindOfShape);
752   for (; ShapeExplorer.More(); ShapeExplorer.Next ()) {
753     const TopoDS_Shape& Root = ShapeExplorer.Current ();
754     if (!View.Add(Root)) continue;
755     const TopTools_ListOfShape& Shapes = MS.Modified (Root);
756     TopTools_ListIteratorOfListOfShape ShapesIterator (Shapes);
757     for (;ShapesIterator.More (); ShapesIterator.Next ()) {
758       TopoDS_Shape newShape = ShapesIterator.Value ();
759       if (SubShapes.IsBound(newShape)) {
760         newShape.Orientation((SubShapes(newShape)).Orientation());
761       }
762       if (!Root.IsSame (newShape)) Builder.Modify (Root, newShape );      
763     }
764   }
765 }
766 //=======================================================================
767 //function : LoadDeletedShapes
768 //purpose  : 
769 //=======================================================================
770 void DNaming::LoadDeletedShapes (BRepBuilderAPI_MakeShape& MS,
771                                const TopoDS_Shape&     ShapeIn,
772                                const TopAbs_ShapeEnum  KindOfShape,
773                                TNaming_Builder&        Builder)
774 {  
775   TopTools_MapOfShape View;
776   TopExp_Explorer ShapeExplorer (ShapeIn, KindOfShape);
777   for (; ShapeExplorer.More(); ShapeExplorer.Next ()) {
778     const TopoDS_Shape& Root = ShapeExplorer.Current ();
779     if (!View.Add(Root)) continue;
780     if (MS.IsDeleted (Root)) {
781       Builder.Delete (Root);      
782     }
783   }
784 }
785
786 //=======================================================================
787 //function : LoadAndOrientGeneratedShapes
788 //purpose  : 
789 //=======================================================================
790
791 void DNaming::LoadAndOrientGeneratedShapes (BRepBuilderAPI_MakeShape&     MS,
792                                             const TopoDS_Shape&           ShapeIn,
793                                             const TopAbs_ShapeEnum        KindOfShape,
794                                             TNaming_Builder&              Builder,
795                                             const TopTools_DataMapOfShapeShape& SubShapes)
796 {
797   TopTools_MapOfShape View;
798   TopExp_Explorer ShapeExplorer (ShapeIn, KindOfShape);
799   for (; ShapeExplorer.More(); ShapeExplorer.Next ()) {
800     const TopoDS_Shape& Root = ShapeExplorer.Current ();
801     if (!View.Add(Root)) continue;
802     const TopTools_ListOfShape& Shapes = MS.Generated (Root);
803     TopTools_ListIteratorOfListOfShape ShapesIterator (Shapes);
804     for (;ShapesIterator.More (); ShapesIterator.Next ()) {
805       TopoDS_Shape newShape = ShapesIterator.Value ();
806       if (SubShapes.IsBound(newShape)) {
807         newShape.Orientation((SubShapes(newShape)).Orientation());
808       }
809       if (!Root.IsSame (newShape)) Builder.Generated (Root,newShape );
810     }
811   }
812 }
813
814 //=======================================================================
815 //function : ComputeNormalizedVector
816 //purpose  : Computes normalized vector from shape if it is possible
817 //=======================================================================
818 Standard_Boolean DNaming::ComputeAxis (const Handle(TNaming_NamedShape)& theNS,
819                                                    gp_Ax1& theAx1)
820 {
821   if(theNS.IsNull() || theNS->IsEmpty()) return Standard_False;
822   TopoDS_Shape aShape = theNS->Get();
823   if(aShape.IsNull()) return Standard_False;
824   if(aShape.ShapeType() == TopAbs_EDGE || aShape.ShapeType() == TopAbs_WIRE) {
825     if (aShape.ShapeType() == TopAbs_WIRE) {
826       TopExp_Explorer anExplorer(aShape, TopAbs_EDGE);
827       aShape = anExplorer.Current();
828     }
829     const TopoDS_Edge& anEdge = TopoDS::Edge(aShape);
830     Standard_Real aFirst, aLast;
831     Handle(Geom_Curve) aCurve = BRep_Tool::Curve(anEdge,aFirst,aLast) ;
832     if (aCurve->IsKind (STANDARD_TYPE(Geom_Line)) ) {
833       Handle(Geom_Line) aLine = Handle(Geom_Line)::DownCast(aCurve) ;
834       if(!aLine.IsNull()) {
835         theAx1  = aLine->Position() ;
836         return Standard_True;
837       }
838     }
839   }  
840   return Standard_False; 
841 }
842
843 //=======================================================================
844 //function : IsAttachment
845 //purpose  : 
846 //=======================================================================
847 Standard_Boolean DNaming::IsAttachment(const Handle(TDataStd_UAttribute)& anObj) 
848 {
849
850   Handle(TFunction_Function) aFun = GetFirstFunction(anObj);
851   if(!aFun.IsNull()) {
852     const Standard_GUID& aGUID = aFun->GetDriverGUID();
853     if(aGUID == ATTCH_GUID || aGUID == XTTCH_GUID) { 
854       return 
855         aFun->Label().FindChild(FUNCTION_ARGUMENTS_LABEL).FindChild(ATTACH_ARG).IsAttribute(TDF_Reference::GetID());
856     }
857   }
858   return Standard_False;
859 }
860
861 //=======================================================================
862 //function : GetAttachmentsContext
863 //purpose  : 
864 //=======================================================================
865 Handle(TNaming_NamedShape) DNaming::GetAttachmentsContext(const Handle(TDataStd_UAttribute)& anObj) 
866 {
867   Handle(TNaming_NamedShape) aNS;
868   Handle(TFunction_Function) aFun = GetFirstFunction(anObj);
869   if(!aFun.IsNull()) {
870     const Standard_GUID& aGUID = aFun->GetDriverGUID();
871     if(aGUID == ATTCH_GUID) {      
872       const TDF_Label& aLabel = aFun->Label().FindChild(FUNCTION_ARGUMENTS_LABEL).FindChild(ATTACH_ARG);
873       Handle(TDF_Reference) aRef;
874       Handle(TFunction_Function) aFunCnt;
875       if(aLabel.FindAttribute(TDF_Reference::GetID(), aRef)) {
876         if(aRef->Get().FindAttribute(TFunction_Function::GetID(), aFunCnt)) {
877           const TDF_Label& aResultLabel =  aFunCnt->Label().FindChild(FUNCTION_RESULT_LABEL, Standard_True); 
878           aResultLabel.FindAttribute(TNaming_NamedShape::GetID(), aNS);
879         }
880       }
881     }
882   }
883   return aNS;
884 }
885
886 //=======================================================================
887 //function : ComputeSweepDir
888 //purpose  : Computes direction for extrusion
889 //=======================================================================
890 Standard_Boolean DNaming::ComputeSweepDir (const TopoDS_Shape& theShape,
891                                                    gp_Ax1& theAxis)
892 {
893   // Find surface
894   TopLoc_Location aLocation = theShape.Location();    
895   Handle(Geom_Plane) aPlane;
896
897   if (theShape.ShapeType() == TopAbs_FACE) {
898     Handle(Geom_Surface) aSurf = BRep_Tool::Surface(TopoDS::Face(theShape));
899 #ifdef OCCT_DEBUG
900     Standard_CString s = aSurf->DynamicType()->Name();
901     cout<<"Surface Dynamic TYPE = "<<s<<endl;
902 #endif
903     if (aSurf->DynamicType() == STANDARD_TYPE(Geom_RectangularTrimmedSurface)) 
904       aSurf = Handle(Geom_RectangularTrimmedSurface)::DownCast (aSurf)->BasisSurface();
905     aPlane = Handle(Geom_Plane)::DownCast(aSurf);
906   }
907
908   if(aPlane.IsNull()) {
909     BRepLib_FindSurface aFinder (theShape, 0., Standard_True);
910     if (!aFinder.Found()) return Standard_False;
911     aPlane = Handle(Geom_Plane)::DownCast(aFinder.Surface());
912   }
913
914   if (aPlane.IsNull())  return  Standard_False;
915     
916   theAxis = aPlane->Pln().Axis();
917   if (!aPlane->Pln().Direct()) theAxis.Reverse();
918     
919   if (theShape.Orientation() == TopAbs_REVERSED) theAxis.Reverse();
920     
921   return Standard_True;
922 }