ae2b8e46c6dacb44f0ee2f85ef95313e53f7c2c5
[occt.git] / src / ChFi3d / ChFi3d_Builder.cxx
1 // Created on: 1993-11-18
2 // Created by: Isabelle GRIGNON
3 // Copyright (c) 1993-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 <Adaptor2d_HCurve2d.hxx>
19 #include <Adaptor3d_HSurface.hxx>
20 #include <Adaptor3d_TopolTool.hxx>
21 #include <AppBlend_Approx.hxx>
22 #include <Blend_CurvPointFuncInv.hxx>
23 #include <Blend_FuncInv.hxx>
24 #include <Blend_Function.hxx>
25 #include <Blend_RstRstFunction.hxx>
26 #include <Blend_SurfCurvFuncInv.hxx>
27 #include <Blend_SurfPointFuncInv.hxx>
28 #include <Blend_SurfRstFunction.hxx>
29 #include <BRep_Builder.hxx>
30 #include <BRep_Tool.hxx>
31 #include <BRepAdaptor_HCurve2d.hxx>
32 #include <BRepAdaptor_HSurface.hxx>
33 #include <BRepBlend_Line.hxx>
34 #include <BRepLib.hxx>
35 #include <BRepTopAdaptor_TopolTool.hxx>
36 #include <ChFi3d.hxx>
37 #include <ChFi3d_Builder.hxx>
38 #include <ChFi3d_Builder_0.hxx>
39 #include <ChFiDS_CommonPoint.hxx>
40 #include <ChFiDS_HData.hxx>
41 #include <ChFiDS_HElSpine.hxx>
42 #include <ChFiDS_ListIteratorOfListOfStripe.hxx>
43 #include <ChFiDS_SequenceOfSurfData.hxx>
44 #include <ChFiDS_Spine.hxx>
45 #include <ChFiDS_Stripe.hxx>
46 #include <ChFiDS_SurfData.hxx>
47 #include <Geom2d_Curve.hxx>
48 #include <Geom_Surface.hxx>
49 #include <gp_Pnt2d.hxx>
50 #include <Precision.hxx>
51 #include <ShapeFix.hxx>
52 #include <Standard_ConstructionError.hxx>
53 #include <Standard_ErrorHandler.hxx>
54 #include <Standard_Failure.hxx>
55 #include <Standard_NoSuchObject.hxx>
56 #include <Standard_NotImplemented.hxx>
57 #include <Standard_OutOfRange.hxx>
58 #include <TColStd_ListIteratorOfListOfInteger.hxx>
59 #include <TColStd_MapIteratorOfMapOfInteger.hxx>
60 #include <TColStd_MapOfInteger.hxx>
61 #include <TopAbs.hxx>
62 #include <TopAbs_Orientation.hxx>
63 #include <TopAbs_ShapeEnum.hxx>
64 #include <TopExp.hxx>
65 #include <TopExp_Explorer.hxx>
66 #include <TopoDS.hxx>
67 #include <TopoDS_Edge.hxx>
68 #include <TopoDS_Face.hxx>
69 #include <TopoDS_Shape.hxx>
70 #include <TopoDS_Vertex.hxx>
71 #include <TopOpeBRepBuild_HBuilder.hxx>
72 #include <TopOpeBRepDS_BuildTool.hxx>
73 #include <TopOpeBRepDS_Curve.hxx>
74 #include <TopOpeBRepDS_CurveExplorer.hxx>
75 #include <TopOpeBRepDS_CurvePointInterference.hxx>
76 #include <TopOpeBRepDS_DataStructure.hxx>
77 #include <TopOpeBRepDS_HDataStructure.hxx>
78 #include <TopOpeBRepDS_ListOfInterference.hxx>
79 #include <TopOpeBRepDS_PointIterator.hxx>
80 #include <TopTools_ListIteratorOfListOfShape.hxx>
81 #include <TopTools_ListOfShape.hxx>
82
83 #ifdef DRAW
84 #include <TestTopOpeTools.hxx>
85 #include <TestTopOpe.hxx>
86 #endif
87 #ifdef OCCT_DEBUG
88 #include <OSD_Chronometer.hxx>
89
90
91
92 // variables for performances 
93
94
95 OSD_Chronometer cl_total,cl_extent,cl_perfsetofsurf,cl_perffilletonvertex,
96 cl_filds,cl_reconstruction,cl_setregul,cl_perform1corner,cl_perform2corner,
97 cl_performatend,cl_perform3corner,cl_performmore3corner;
98
99 Standard_EXPORT Standard_Real t_total, t_extent,t_perfsetofsurf,
100 t_perffilletonvertex, t_filds,t_reconstruction,t_setregul, t_perfsetofkgen,
101 t_perfsetofkpart,t_makextremities,t_performatend,t_startsol,t_performsurf,
102 t_perform1corner,t_perform2corner,t_perform3corner,t_performmore3corner,
103 t_batten,t_inter,t_sameinter,t_same,t_plate,t_approxplate,t_t2cornerinit,
104 t_perf2cornerbyinter,t_chfikpartcompdata,t_cheminement,t_remplissage,
105 t_t3cornerinit ,t_spherique,t_torique, t_notfilling,t_filling,t_sameparam,
106 t_computedata,t_completedata,t_t2cornerDS,t_t3cornerDS;
107                
108 extern void ChFi3d_InitChron(OSD_Chronometer& ch);
109 extern void ChFi3d_ResultChron(OSD_Chronometer & ch, Standard_Real& time);
110 extern Standard_Boolean ChFi3d_GettraceCHRON();
111 #endif
112
113
114 //=======================================================================
115 //function : CompleteDS
116 //purpose  : 
117 //=======================================================================
118
119 static void CompleteDS(TopOpeBRepDS_DataStructure& DStr,
120                        const TopoDS_Shape& S)
121 {
122   ChFiDS_Map MapEW,MapFS;
123   MapEW.Fill(S,TopAbs_EDGE,TopAbs_WIRE);
124   MapFS.Fill(S,TopAbs_FACE,TopAbs_SHELL);
125   
126   TopExp_Explorer ExpE;
127   for (ExpE.Init(S,TopAbs_EDGE); ExpE.More(); ExpE.Next()) {
128     const TopoDS_Edge& E = TopoDS::Edge(ExpE.Current());
129     Standard_Boolean hasgeom = DStr.HasGeometry(E);
130     if (hasgeom) {
131       const TopTools_ListOfShape& WireListAnc = MapEW(E);
132       TopTools_ListIteratorOfListOfShape itaW(WireListAnc);
133       while (itaW.More()) {
134         const TopoDS_Shape& WireAnc = itaW.Value();
135         DStr.AddShape(WireAnc);
136         itaW.Next();
137       }
138     }
139   }
140   
141   TopExp_Explorer ExpF;
142   for (ExpF.Init(S,TopAbs_FACE); ExpF.More(); ExpF.Next()) {
143     const TopoDS_Face& F = TopoDS::Face(ExpF.Current());
144     Standard_Boolean hasgeom = DStr.HasGeometry(F);
145     if (hasgeom) {
146       const TopTools_ListOfShape& ShellListAnc = MapFS(F);
147       TopTools_ListIteratorOfListOfShape itaS(ShellListAnc);
148       while (itaS.More()) {
149         const TopoDS_Shape& ShellAnc = itaS.Value();
150         DStr.AddShape(ShellAnc);
151         itaS.Next();
152       }
153     }
154   }
155   
156   // set the range on the DS Curves
157   for (Standard_Integer ic = 1; ic <= DStr.NbCurves(); ic++) {
158     Standard_Real parmin = RealLast(), parmax = RealFirst();
159     const TopOpeBRepDS_ListOfInterference& LI = DStr.CurveInterferences(ic);
160     for (TopOpeBRepDS_PointIterator it(LI);
161          it.More();
162          it.Next() ) {
163       Standard_Real par = it.Parameter();
164       parmin = Min (parmin,par); parmax = Max (parmax,par);
165     }
166     DStr.ChangeCurve(ic).SetRange(parmin,parmax);
167   }
168 }
169
170 void ChFi3d_Builder::Delete()
171 {}
172
173 //=======================================================================
174 //function : ExtentAnalyse
175 //purpose  : 
176 //=======================================================================
177
178 void ChFi3d_Builder::ExtentAnalyse ()
179 {
180   Standard_Integer nbedges, nbs;
181   for (Standard_Integer iv = 1; iv <= myVDataMap.Extent(); iv++) {
182     nbs = myVDataMap(iv).Extent();
183     const TopoDS_Vertex& Vtx = myVDataMap.FindKey(iv);
184     nbedges = ChFi3d_NumberOfEdges(Vtx, myVEMap); 
185     switch (nbs) {
186     case 1 :
187       ExtentOneCorner(Vtx, myVDataMap.FindFromIndex(iv).First());
188       break;
189     case 2 :
190       if (nbedges <= 3)
191         ExtentTwoCorner(Vtx, myVDataMap.FindFromIndex(iv));
192       break;
193     case 3 :
194       if (nbedges <= 3)
195         ExtentThreeCorner(Vtx, myVDataMap.FindFromIndex(iv));
196       break;
197     default : 
198       break;
199     }
200   }
201 }
202
203 //=======================================================================
204 //function : Compute
205 //purpose  : 
206 //=======================================================================
207
208 void  ChFi3d_Builder::Compute()
209 {
210   
211 #ifdef OCCT_DEBUG   //perf 
212   t_total=0;t_extent=0; t_perfsetofsurf=0;t_perffilletonvertex=0;
213   t_filds=0;t_reconstruction=0;t_setregul=0;
214   t_perfsetofkpart=0; t_perfsetofkgen=0;t_makextremities=0;
215   t_performsurf=0;t_startsol=0; t_perform1corner=0;t_perform2corner=0;
216   t_perform3corner=0;t_performmore3corner=0;t_inter=0;t_same=0;t_sameinter=0;
217   t_plate=0;t_approxplate=0; t_batten=0;t_remplissage=0;t_t3cornerinit=0;
218   t_spherique=0;t_torique=0;t_notfilling=0;t_filling=0;t_performatend=0;
219   t_t2cornerinit=0; t_perf2cornerbyinter=0;t_chfikpartcompdata=0;
220   t_cheminement=0; t_sameparam=0; t_computedata=0;t_completedata=0;
221   t_t2cornerDS=0;t_t3cornerDS=0;
222   ChFi3d_InitChron(cl_total);
223   ChFi3d_InitChron(cl_extent);
224 #endif 
225   
226   if (myListStripe.IsEmpty())
227     Standard_Failure::Raise("There are no suitable edges for chamfer or fillet");
228   
229   Reset();
230   myDS = new TopOpeBRepDS_HDataStructure();
231   TopOpeBRepDS_DataStructure& DStr = myDS->ChangeDS();
232   done = Standard_True;
233   hasresult=Standard_False;
234 #ifdef DRAW
235   TestTopOpe::CurrentDS(myDS);
236   TopoDS_Shape bids;
237   TestTopOpe::Shapes(myShape,bids);
238 #endif
239   
240   // filling of myVDatatMap
241   ChFiDS_ListIteratorOfListOfStripe itel;
242   
243   for (itel.Initialize(myListStripe);itel.More(); itel.Next()) {
244     if ((itel.Value()->Spine()->FirstStatus() <= ChFiDS_BreakPoint))
245       myVDataMap.Add(itel.Value()->Spine()->FirstVertex(),itel.Value());
246     else if (itel.Value()->Spine()->FirstStatus() == ChFiDS_FreeBoundary)
247       ExtentOneCorner(itel.Value()->Spine()->FirstVertex(),itel.Value());
248     if ((itel.Value()->Spine()->LastStatus() <= ChFiDS_BreakPoint))
249       myVDataMap.Add(itel.Value()->Spine()->LastVertex() ,itel.Value());
250     else if (itel.Value()->Spine()->LastStatus() == ChFiDS_FreeBoundary)
251       ExtentOneCorner(itel.Value()->Spine()->LastVertex(),itel.Value());
252   }
253   // preanalysis to evaluate the extensions.
254   ExtentAnalyse();
255   
256   
257 #ifdef OCCT_DEBUG //perf 
258   ChFi3d_ResultChron(cl_extent,t_extent);
259   ChFi3d_InitChron(cl_perfsetofsurf);
260 #endif
261   
262   // Construction of the stripe of fillet on each stripe.
263   for (itel.Initialize(myListStripe);itel.More(); itel.Next()) {
264     itel.Value()->Spine()->SetErrorStatus(ChFiDS_Ok);
265     try {
266       OCC_CATCH_SIGNALS
267       PerformSetOfSurf(itel.Value());
268     }
269     catch(Standard_Failure) {
270       Handle(Standard_Failure) exc = Standard_Failure::Caught();
271 #ifdef OCCT_DEBUG
272       cout <<"EXCEPTION Stripe compute " << exc << endl;
273 #endif
274       badstripes.Append(itel.Value());
275       done = Standard_True;
276       if (itel.Value()->Spine()->ErrorStatus()==ChFiDS_Ok) 
277       itel.Value()->Spine()->SetErrorStatus(ChFiDS_Error);
278     }
279     if (!done) badstripes.Append(itel.Value());
280     done = Standard_True;
281   }
282   done = (badstripes.IsEmpty());
283   
284 #ifdef OCCT_DEBUG //perf 
285   ChFi3d_ResultChron(cl_perfsetofsurf,t_perfsetofsurf);
286   ChFi3d_InitChron(cl_perffilletonvertex);
287 #endif 
288   
289   //construct fillets on each vertex + feed the Ds
290   if (done) {
291     Standard_Integer j;
292     for (j=1;j<=myVDataMap.Extent();j++)
293     {
294       try
295       {
296         OCC_CATCH_SIGNALS
297         PerformFilletOnVertex(j);
298       }
299       catch(Standard_Failure)
300       {
301         Handle(Standard_Failure) exc = Standard_Failure::Caught();
302 #ifdef OCCT_DEBUG
303         cout <<"EXCEPTION Corner compute " << exc << endl;
304 #endif
305         badvertices.Append(myVDataMap.FindKey(j));
306         hasresult=Standard_False;
307         done = Standard_True;
308       }
309       if (!done) badvertices.Append(myVDataMap.FindKey(j));
310       done = Standard_True;
311     }
312     if (!hasresult) done = badvertices.IsEmpty();
313   }
314   
315
316 #ifdef OCCT_DEBUG //perf 
317   ChFi3d_ResultChron(cl_perffilletonvertex,t_perffilletonvertex);
318   ChFi3d_InitChron(cl_filds);
319 #endif
320   
321   TColStd_MapOfInteger MapIndSo;
322   TopExp_Explorer expso(myShape,TopAbs_SOLID);
323   for(; expso.More(); expso.Next()){
324     const TopoDS_Shape& cursol = expso.Current();
325     Standard_Integer indcursol = DStr.AddShape(cursol);
326     MapIndSo.Add(indcursol);
327   }
328   TopExp_Explorer expsh(myShape,TopAbs_SHELL,TopAbs_SOLID);
329   for(; expsh.More(); expsh.Next()){
330     const TopoDS_Shape& cursh = expsh.Current();
331     Standard_Integer indcursh = DStr.AddShape(cursh);
332     MapIndSo.Add(indcursh);
333   }
334   if (done) {
335     Standard_Integer i1;
336     for (itel.Initialize(myListStripe), i1=0;
337          itel.More(); 
338          itel.Next(), i1++) {
339       const Handle(ChFiDS_Stripe)& st = itel.Value();
340       // 05/02/02 akm vvv : (OCC119) First we'll check ain't there 
341       //                    intersections between fillets
342       ChFiDS_ListIteratorOfListOfStripe itel1;
343       Standard_Integer i2;
344       for (itel1.Initialize(myListStripe), i2=0;
345            itel1.More(); 
346            itel1.Next(), i2++) {
347         if (i2 <= i1)
348           // Do not twice intersect the stripes
349           continue;
350         Handle(ChFiDS_Stripe) aCheckStripe = itel1.Value();
351         try {
352           OCC_CATCH_SIGNALS
353           ChFi3d_StripeEdgeInter (st, aCheckStripe, DStr, tol2d);
354         }
355         catch(Standard_Failure) {
356           Handle(Standard_Failure) exc = Standard_Failure::Caught();
357 #ifdef OCCT_DEBUG
358           cout <<"EXCEPTION Fillets compute " << exc << endl;
359 #endif
360           badstripes.Append(itel.Value());
361           hasresult=Standard_False;
362           done = Standard_False;
363           break;
364         }
365       }
366       // 05/02/02 akm ^^^
367       Standard_Integer solidindex = st->SolidIndex();
368       ChFi3d_FilDS(solidindex,st,DStr,myRegul,tolesp,tol2d);
369       if (!done) break;
370     }
371     
372 #ifdef OCCT_DEBUG //perf 
373     ChFi3d_ResultChron(cl_filds,t_filds);
374     ChFi3d_InitChron(cl_reconstruction);
375 #endif
376     
377     
378     if (done) {
379       BRep_Builder B1;
380       CompleteDS(DStr,myShape);
381       //Update tolerances on vertex to max adjacent edges or
382       //Update tolerances on degenerated edge to max of adjacent vertexes.
383       TopOpeBRepDS_CurveExplorer cex(DStr);
384       for(;cex.More();cex.Next()){
385         TopOpeBRepDS_Curve& c = *((TopOpeBRepDS_Curve*)(void*)&(cex.Curve()));
386         Standard_Real tolc = 0.;
387         Standard_Boolean degen = c.Curve().IsNull();
388         if(!degen) tolc = c.Tolerance();
389         Standard_Integer ic = cex.Index();
390         TopOpeBRepDS_PointIterator It(myDS->CurvePoints(ic));
391         for(;It.More();It.Next()){
392           Handle(TopOpeBRepDS_CurvePointInterference) II;
393           II = Handle(TopOpeBRepDS_CurvePointInterference)::DownCast(It.Value());
394           if (II.IsNull()) continue;
395           TopOpeBRepDS_Kind gk = II->GeometryType();
396           Standard_Integer gi = II->Geometry();
397           if(gk == TopOpeBRepDS_VERTEX){
398             const TopoDS_Vertex& v = TopoDS::Vertex(myDS->Shape(gi));
399             Standard_Real tolv = BRep_Tool::Tolerance(v);
400             if( tolv > 0.0001 ) {
401               tolv += 0.0003;
402               if( tolc < tolv ) tolc = tolv + 0.00001;
403             }
404             if(degen && tolc < tolv) tolc = tolv;
405             else if(tolc>tolv) B1.UpdateVertex(v,tolc);
406           }
407           else if(gk == TopOpeBRepDS_POINT){
408             TopOpeBRepDS_Point& p = DStr.ChangePoint(gi);
409             Standard_Real tolp = p.Tolerance();
410             if(degen && tolc < tolp) tolc = tolp;
411             else if(tolc>tolp) p.Tolerance(tolc);
412           }
413         }
414         if(degen) c.Tolerance(tolc);
415       }
416       myCoup->Perform(myDS);
417       TColStd_MapIteratorOfMapOfInteger It(MapIndSo);
418       for(; It.More(); It.Next()){
419         Standard_Integer indsol = It.Key();
420         const TopoDS_Shape& curshape = DStr.Shape(indsol);
421         myCoup->MergeSolid(curshape,TopAbs_IN);
422       }
423       
424       Standard_Integer i=1,n=DStr.NbShapes();
425       for (;i<=n;i++) {
426         const TopoDS_Shape S = DStr.Shape(i);
427         if (S.ShapeType() != TopAbs_EDGE) continue;
428         Standard_Boolean issplitIN = myCoup->IsSplit(S,TopAbs_IN);
429         if ( !issplitIN ) continue;
430         TopTools_ListIteratorOfListOfShape it(myCoup->Splits(S,TopAbs_IN));
431         for (; it.More(); it.Next() ) {
432           const TopoDS_Edge& newE = TopoDS::Edge(it.Value());
433           Standard_Real tole = BRep_Tool::Tolerance(newE);
434           TopExp_Explorer exv(newE,TopAbs_VERTEX);
435           for (; exv.More(); exv.Next() ) {
436             const TopoDS_Vertex& v = TopoDS::Vertex(exv.Current());
437             Standard_Real tolv = BRep_Tool::Tolerance(v);
438             if (tole>tolv) B1.UpdateVertex(v,tole);
439           }
440         }
441       }
442       if (!hasresult) {
443       B1.MakeCompound(TopoDS::Compound(myShapeResult));
444       for(It.Reset(); It.More(); It.Next()){
445         Standard_Integer indsol = It.Key();
446         const TopoDS_Shape& curshape = DStr.Shape(indsol);
447         TopTools_ListIteratorOfListOfShape 
448           its = myCoup->Merged(curshape,TopAbs_IN);
449         if(!its.More()) B1.Add(myShapeResult,curshape);
450         else {
451           //If the old type of Shape is Shell, Shell is placed instead of Solid, 
452           //However there is a problem for compound of open Shell.
453           while (its.More()) {
454             const TopAbs_ShapeEnum letype = curshape.ShapeType();
455             if (letype == TopAbs_SHELL){
456               TopExp_Explorer expsh2(its.Value(),TopAbs_SHELL);
457               const TopoDS_Shape& cursh = expsh2.Current();
458               TopoDS_Shape tt = cursh;
459               B1.Add(myShapeResult,cursh);
460               its.Next();
461             }
462             else {
463               B1.Add(myShapeResult,its.Value());
464               its.Next();
465             }
466           }
467         }
468       }
469       }
470       else {
471        done=Standard_False;
472        B1.MakeCompound(TopoDS::Compound(badShape));
473       for(It.Reset(); It.More(); It.Next()){
474         Standard_Integer indsol = It.Key();
475         const TopoDS_Shape& curshape = DStr.Shape(indsol);
476         TopTools_ListIteratorOfListOfShape 
477           its = myCoup->Merged(curshape,TopAbs_IN);
478         if(!its.More()) B1.Add(badShape,curshape);
479         else {
480           while (its.More()) { 
481             B1.Add(badShape,its.Value());
482             its.Next();
483           }
484         }
485       }
486       }
487 #ifdef OCCT_DEBUG //perf 
488       ChFi3d_ResultChron(cl_reconstruction ,t_reconstruction);
489       ChFi3d_InitChron(cl_setregul);
490 #endif
491       
492       // Regularities are coded after cutting.
493       SetRegul();
494       
495       
496 #ifdef OCCT_DEBUG //perf 
497  ChFi3d_ResultChron(cl_setregul ,t_setregul);
498 #endif
499     }
500   }
501 #ifdef OCCT_DEBUG //perf 
502   ChFi3d_ResultChron(cl_total,t_total);
503 #endif
504       
505   
506   // display of time for perfs 
507   
508 #ifdef OCCT_DEBUG
509   if(ChFi3d_GettraceCHRON()){
510     cout<<endl; 
511     cout<<"COMPUTE: temps total "<<t_total<<"s  dont :"<<endl;
512     cout<<"- Init + ExtentAnalyse "<<t_extent<<"s"<<endl;  
513     cout<<"- PerformSetOfSurf "<<t_perfsetofsurf<<"s"<<endl;
514     cout<<"- PerformFilletOnVertex "<<t_perffilletonvertex<<"s"<<endl; 
515     cout<<"- FilDS "<<t_filds<<"s"<<endl; 
516     cout<<"- Reconstruction "<<t_reconstruction<<"s"<<endl;
517     cout<<"- SetRegul "<<t_setregul<<"s"<<endl<<endl;
518
519     cout<<endl;
520     cout <<"temps PERFORMSETOFSURF "<<t_perfsetofsurf <<"s  dont : "<<endl;
521     cout <<"- SetofKPart "<<t_perfsetofkpart<<"s"<<endl;
522     cout <<"- SetofKGen "<< t_perfsetofkgen <<"s"<<endl;
523     cout <<"- MakeExtremities "<<t_makextremities<<"s"<<endl<<endl;
524     
525     
526     cout <<"temps SETOFKGEN "<< t_perfsetofkgen<<"s dont : "<<endl;
527     cout<<"- PerformSurf "<<t_performsurf<<"s"<<endl;
528     cout<<"- starsol "<< t_startsol <<"s"<<endl<<endl;
529     
530     cout<<"temps PERFORMSURF "<<t_performsurf<<"s  dont : "  << endl;
531     cout<<"- computedata "<<t_computedata<<"s"<<endl;
532     cout<<"- completedata "<<t_completedata<<"s"<<endl<<endl;
533     
534     
535     cout<<"temps PERFORMFILLETVERTEX "<<t_perffilletonvertex <<"s dont : "  << endl;
536     cout<<"- PerformOneCorner "<<t_perform1corner<<"s"<<endl;
537     cout<<"- PerformIntersectionAtEnd "<<t_performatend<<"s"<<endl;
538     cout<<"- PerformTwoCorner "<<t_perform2corner<<"s"<<endl;
539     cout<<"- PerformThreeCorner "<<t_perform3corner<<"s"<<endl;
540     cout<<"- PerformMoreThreeCorner "<<t_performmore3corner<<"s"<<endl<<endl;
541     
542     
543     cout<<"temps PerformOneCorner "<<t_perform1corner<<"s dont:"<<endl;
544     cout<<"- temps condition if (same) "<<t_same << "s "<<endl; 
545     cout<<"- temps condition if (inter) "<<t_inter<<"s " <<endl;
546     cout<<"- temps condition if (same inter) "<<t_sameinter<<"s " <<endl<<endl;
547     
548     cout<<"temps PerformTwocorner "<<t_perform2corner<<"s  dont:"<<endl;
549     cout<<"- temps initialisation "<< t_t2cornerinit<<"s"<<endl;
550     cout<<"- temps PerformTwoCornerbyInter "<<t_perf2cornerbyinter<<"s"<<endl;
551     cout<<"- temps ChFiKPart_ComputeData "<<t_chfikpartcompdata <<"s"<<endl;
552     cout<<"- temps cheminement "<<t_cheminement<<"s"<<endl;
553     cout<<"- temps remplissage "<<t_remplissage<<"s"<<endl;
554     cout<<"- temps mise a jour stripes  "<<t_t2cornerDS<<"s"<<endl<<endl;
555     
556     cout<<" temps PerformThreecorner "<<t_perform3corner<<"s  dont:"<<endl;
557     cout<<"- temps initialisation "<< t_t3cornerinit<<"s"<<endl;
558     cout<<"- temps cas spherique  "<<t_spherique<<"s"<<endl;
559     cout<<"- temps cas torique  "<<t_torique<<"s"<<endl;
560     cout<<"- temps notfilling "<<t_notfilling<<"s"<<endl;
561     cout<<"- temps filling "<<t_filling<<"s"<<endl;
562     cout<<"- temps mise a jour stripes  "<<t_t3cornerDS<<"s"<<endl<<endl;
563     
564     cout<<"temps PerformMore3Corner "<<t_performmore3corner<<"s dont:"<<endl;
565     cout<<"-temps plate "<<t_plate << "s "<<endl; 
566     cout<<"-temps approxplate "<<t_approxplate<<"s " <<endl;
567     cout<<"-temps batten "<< t_batten<<"s " <<endl<<endl;
568     
569     cout <<"TEMPS DIVERS "<<endl;
570     cout<<"-temps ChFi3d_sameparameter "<<t_sameparam<<"s"<<endl<<endl;
571   }
572 #endif
573   //
574   // Inspect the new faces to provide sameparameter 
575   // if it is necessary
576   if (IsDone())
577   {
578     Standard_Real SameParTol = Precision::Confusion();
579     Standard_Integer aNbSurfaces, iF;
580     TopTools_ListIteratorOfListOfShape aIt;
581     //
582     aNbSurfaces=myDS->NbSurfaces();
583     
584     for (iF=1; iF<=aNbSurfaces; ++iF) {
585       const TopTools_ListOfShape& aLF=myCoup->NewFaces(iF);
586       aIt.Initialize(aLF);
587       for (; aIt.More(); aIt.Next()) {
588         const TopoDS_Shape& aF=aIt.Value();
589         BRepLib::SameParameter(aF, SameParTol, Standard_True);
590         ShapeFix::SameParameter(aF, Standard_False, SameParTol);
591       }
592     }
593   }
594 }
595
596 //=======================================================================
597 //function : PerformSingularCorner
598 //purpose  : Load vertex and degenerated edges.
599 //=======================================================================
600
601 void ChFi3d_Builder::PerformSingularCorner
602 (const Standard_Integer Index){
603   ChFiDS_ListIteratorOfListOfStripe It;
604   Handle(ChFiDS_Stripe) stripe;
605   TopOpeBRepDS_DataStructure&  DStr = myDS->ChangeDS();
606   const TopoDS_Vertex& Vtx = myVDataMap.FindKey(Index);
607   
608   Handle(ChFiDS_SurfData) Fd;
609   Standard_Integer i, Icurv;
610   Standard_Integer Ivtx = 0;
611   for (It.Initialize(myVDataMap(Index)), i=0; It.More(); It.Next(),i++){
612     stripe = It.Value(); 
613     // SurfData concerned and its CommonPoints,
614     Standard_Integer sens = 0;
615     Standard_Integer num = ChFi3d_IndexOfSurfData(Vtx,stripe,sens);
616     Standard_Boolean isfirst = (sens == 1);
617     Fd =  stripe->SetOfSurfData()->Sequence().Value(num);
618     const ChFiDS_CommonPoint& CV1 = Fd->Vertex(isfirst,1);
619     const ChFiDS_CommonPoint& CV2 = Fd->Vertex(isfirst,2);
620     // Is it always degenerated ?
621     if ( CV1.Point().IsEqual( CV2.Point(), 0) ) { 
622       // if yes the vertex is stored in the stripe
623       // and the edge at end is created
624       if (i==0) Ivtx = ChFi3d_IndexPointInDS(CV1, DStr);
625       Standard_Real tolreached;
626       Standard_Real Pardeb, Parfin; 
627       gp_Pnt2d VOnS1, VOnS2;
628       Handle(Geom_Curve) C3d;
629       Handle(Geom2d_Curve) PCurv;
630       TopOpeBRepDS_Curve Crv;
631       if (isfirst) {
632         VOnS1 = Fd->InterferenceOnS1().PCurveOnSurf()->
633                     Value(Fd->InterferenceOnS1().FirstParameter());
634         VOnS2 = Fd->InterferenceOnS2().PCurveOnSurf()->
635                      Value(Fd->InterferenceOnS2().FirstParameter());
636       }
637       else {
638         VOnS1 = Fd->InterferenceOnS1().PCurveOnSurf()->
639                     Value(Fd->InterferenceOnS1().LastParameter());
640         VOnS2 = Fd->InterferenceOnS2().PCurveOnSurf()->
641                      Value(Fd->InterferenceOnS2().LastParameter());
642       }
643       
644       ChFi3d_ComputeArete(CV1, VOnS1,
645                           CV2, VOnS2,
646                           DStr.Surface(Fd->Surf()).Surface(),
647                           C3d, PCurv,
648                           Pardeb,Parfin,tolapp3d,tolapp2d,tolreached,0);
649       Crv = TopOpeBRepDS_Curve(C3d,tolreached);
650       Icurv = DStr.AddCurve(Crv);
651
652       stripe->SetCurve(Icurv, isfirst);
653       stripe->SetParameters(isfirst, Pardeb,Parfin);
654       stripe->ChangePCurve(isfirst) = PCurv;
655       stripe->SetIndexPoint(Ivtx, isfirst, 1);
656       stripe->SetIndexPoint(Ivtx, isfirst, 2);    
657     }
658   }  
659 }
660
661 //=======================================================================
662 //function : PerformFilletOnVertex
663 //purpose  : 
664 //=======================================================================
665
666 void ChFi3d_Builder::PerformFilletOnVertex
667 (const Standard_Integer Index){
668   
669   ChFiDS_ListIteratorOfListOfStripe It;
670   Handle(ChFiDS_Stripe) stripe;
671   Handle(ChFiDS_Spine) sp;
672   const TopoDS_Vertex& Vtx = myVDataMap.FindKey(Index);
673   
674   Handle(ChFiDS_SurfData) Fd;
675   Standard_Integer i;
676   Standard_Boolean nondegenere = Standard_True;
677   Standard_Boolean toujoursdegenere = Standard_True; 
678   Standard_Boolean isfirst = Standard_False;
679   for (It.Initialize(myVDataMap(Index)), i=0; It.More(); It.Next(),i++){
680     stripe = It.Value(); 
681     sp = stripe->Spine();
682     // SurfData and its CommonPoints,
683     Standard_Integer sens = 0;
684     Standard_Integer num = ChFi3d_IndexOfSurfData(Vtx,stripe,sens);
685     isfirst = (sens == 1);
686     Fd =  stripe->SetOfSurfData()->Sequence().Value(num);
687     const ChFiDS_CommonPoint& CV1 = Fd->Vertex(isfirst,1);
688     const ChFiDS_CommonPoint& CV2 = Fd->Vertex(isfirst,2);
689     // Is it always degenerated ?
690     if ( CV1.Point().IsEqual( CV2.Point(), 0) )  
691       nondegenere = Standard_False;
692     else  toujoursdegenere = Standard_False;
693   }
694   
695   // calcul du nombre de faces = nombre d'aretes
696 /*  TopTools_ListIteratorOfListOfShape ItF,JtF,ItE;
697   Standard_Integer nbf = 0, jf = 0;
698   for (ItF.Initialize(myVFMap(Vtx)); ItF.More(); ItF.Next()){
699     jf++;
700     Standard_Integer kf = 1;
701     const TopoDS_Shape& cur = ItF.Value();
702     for (JtF.Initialize(myVFMap(Vtx)); JtF.More() && (kf < jf); JtF.Next(), kf++){
703       if(cur.IsSame(JtF.Value())) break;
704     }
705     if(kf == jf) nbf++;
706   }
707   Standard_Integer nba=myVEMap(Vtx).Extent();
708   for (ItE.Initialize(myVEMap(Vtx)); ItE.More(); ItE.Next()){
709     const TopoDS_Edge& cur = TopoDS::Edge(ItE.Value());
710     if (BRep_Tool::Degenerated(cur)) nba--;
711   }
712   nba=nba/2;*/
713   Standard_Integer nba = ChFi3d_NumberOfEdges(Vtx, myVEMap);
714
715   if (nondegenere) { // Normal processing
716     switch (i) {
717     case 1 : 
718       {
719         if(sp->Status(isfirst) == ChFiDS_FreeBoundary) return; 
720         if(nba>3) {
721 #ifdef OCCT_DEBUG //perf    
722           ChFi3d_InitChron(cl_performatend);
723 #endif
724           PerformIntersectionAtEnd(Index);
725 #ifdef OCCT_DEBUG
726           ChFi3d_ResultChron(cl_performatend,t_performatend);
727 #endif 
728         }
729         else { 
730 #ifdef OCCT_DEBUG //perf    
731           ChFi3d_InitChron(cl_perform1corner);
732 #endif
733           if (MoreSurfdata(Index))
734              PerformMoreSurfdata(Index);
735           else PerformOneCorner(Index);
736 #ifdef OCCT_DEBUG //perf 
737           ChFi3d_ResultChron(cl_perform1corner,t_perform1corner);
738 #endif  
739         }
740       }
741       break;
742     case 2 : 
743       {
744         if(nba>3){
745 #ifdef OCCT_DEBUG //perf 
746           ChFi3d_InitChron(cl_performmore3corner);
747 #endif
748           PerformMoreThreeCorner(Index, i);
749 #ifdef OCCT_DEBUG //perf 
750           ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
751 #endif
752         }
753         else { 
754 #ifdef OCCT_DEBUG //perf 
755           ChFi3d_InitChron(cl_perform2corner);
756 #endif
757           PerformTwoCorner(Index);
758 #ifdef OCCT_DEBUG //perf 
759           ChFi3d_ResultChron(cl_perform2corner,t_perform2corner);
760 #endif
761         }
762       }
763       break;
764     case 3 : 
765       {
766         if(nba>3){
767 #ifdef OCCT_DEBUG //perf 
768           ChFi3d_InitChron(cl_performmore3corner);
769 #endif
770           PerformMoreThreeCorner(Index, i);
771 #ifdef OCCT_DEBUG //perf 
772           ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
773 #endif
774         }
775         else {
776 #ifdef OCCT_DEBUG //perf 
777           ChFi3d_InitChron(cl_perform3corner);
778 #endif
779           PerformThreeCorner(Index);
780 #ifdef OCCT_DEBUG //perf 
781           ChFi3d_ResultChron(cl_perform3corner,t_perform3corner);
782 #endif
783         }
784       }
785       break;
786       default : {
787 #ifdef OCCT_DEBUG //perf 
788         ChFi3d_InitChron(cl_performmore3corner);
789 #endif
790         PerformMoreThreeCorner(Index, i);
791 #ifdef OCCT_DEBUG //perf 
792         ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
793 #endif
794       }
795     }
796   }
797   else { // Single case processing
798     if (toujoursdegenere) PerformSingularCorner(Index);
799     else                  PerformMoreThreeCorner(Index, i);//Last chance...
800   }              
801 }
802
803
804 //=======================================================================
805 //function : Reset
806 //purpose  : 
807 //=======================================================================
808
809 void  ChFi3d_Builder::Reset()
810 {
811   done = Standard_False;
812   myVDataMap.Clear();
813   myRegul.Clear();
814   myEVIMap.Clear();
815   badstripes.Clear();
816   badvertices.Clear();
817
818   ChFiDS_ListIteratorOfListOfStripe itel;
819   for (itel.Initialize(myListStripe); itel.More(); ){
820     if(!itel.Value()->Spine().IsNull()){
821       itel.Value()->Reset();
822       itel.Next();
823     }
824     else myListStripe.Remove(itel);
825   }
826 }
827
828 //=======================================================================
829 //function : Generated
830 //purpose  : 
831 //=======================================================================
832
833 const TopTools_ListOfShape& ChFi3d_Builder::Generated(const TopoDS_Shape& EouV)
834 {
835   myGenerated.Clear();
836   if(EouV.IsNull()) return myGenerated;
837   if(EouV.ShapeType() != TopAbs_EDGE &&
838      EouV.ShapeType() != TopAbs_VERTEX) return myGenerated;
839   if(myEVIMap.IsBound(EouV)) {
840     const TColStd_ListOfInteger& L = myEVIMap.Find(EouV);
841     TColStd_ListIteratorOfListOfInteger IL;
842     for(IL.Initialize(L); IL.More(); IL.Next()){
843       Standard_Integer I = IL.Value();
844       const TopTools_ListOfShape& LS =  myCoup->NewFaces(I);
845       TopTools_ListIteratorOfListOfShape ILS;
846       for(ILS.Initialize(LS); ILS.More(); ILS.Next()){
847         myGenerated.Append(ILS.Value());
848       }
849     }
850   }
851   return myGenerated;
852 }
853
854